nopolymer

Module

Description

$Id$

This modules deals with all aspects of polymers.

** AUTOMATIC CPARAM.INC GENERATION ************************ Declare (for generation of cparam.inc) the number of f array variables and auxiliary variables added by this module

CPARAM logical, parameter :: lpolymer = .false.

MVAR CONTRIBUTION 0 MAUX CONTRIBUTION 0

Quick access

Variables:

calc_pencils_fene_p, calc_pencils_oldroyd_b, cdotgradut, enum_poly_algo, enum_poly_model, eta_poly, fenep_l, frmax_local, gradudotc, idiag_frmax, idiag_polytrm, initpoly, lpoly_diffusion, lpolyadvect, lpolyback, lupw_poly, mu_poly, pamp, poly_algo, poly_model, rod_dirn, simple_dpoly_dt, tau_poly, tau_poly1

Routines:

calc_diagnostics_polymer(), calc_pencils_polymer(), calc_polymer_after_boundary(), dpoly_dt(), get_slices_polymer(), init_poly(), initialize_polymer(), pencil_criteria_polymer(), pencil_interdep_polymer(), read_polymer_init_pars(), read_polymer_run_pars(), register_polymer(), rprint_polymer(), write_polymer_init_pars(), write_polymer_run_pars()

Needed modules

Variables

  • polymer/id_block_persistent [integer,private/parameter/optional/default=2000]
  • polymer/id_record_dt_gw [integer,private/parameter/optional/default=350]
  • polymer/id_record_eps_rkf [integer,private/parameter/optional/default=331]
  • polymer/id_record_forcing_location [integer,private/parameter/optional/default=270]
  • polymer/id_record_forcing_torus [integer,private/parameter/optional/default=272]
  • polymer/id_record_forcing_tsforce [integer,private/parameter/optional/default=271]
  • polymer/id_record_hydro_ampl [integer,private/parameter/optional/default=286]
  • polymer/id_record_hydro_avec_gb [integer,private/parameter/optional/default=289]
  • polymer/id_record_hydro_location [integer,private/parameter/optional/default=285]
  • polymer/id_record_hydro_phase1 [integer,private/parameter/optional/default=281]
  • polymer/id_record_hydro_phase2 [integer,private/parameter/optional/default=282]
  • polymer/id_record_hydro_qvec_gb [integer,private/parameter/optional/default=288]
  • polymer/id_record_hydro_tphase [integer,private/parameter/optional/default=280]
  • polymer/id_record_hydro_tsforce [integer,private/parameter/optional/default=284]
  • polymer/id_record_hydro_wavenumber [integer,private/parameter/optional/default=287]
  • polymer/id_record_ism_bold_mass [integer,private/parameter/optional/default=252]
  • polymer/id_record_ism_pos_next_old [integer,private/parameter/optional/default=251]
  • polymer/id_record_ism_snrs [integer,private/parameter/optional/default=259]
  • polymer/id_record_ism_snrs_old [integer,private/parameter/optional/default=1002]
  • polymer/id_record_ism_t_cluster [integer,private/parameter/optional/default=261]
  • polymer/id_record_ism_t_next_old [integer,private/parameter/optional/default=250]
  • polymer/id_record_ism_t_next_sni [integer,private/parameter/optional/default=253]
  • polymer/id_record_ism_t_next_snii [integer,private/parameter/optional/default=254]
  • polymer/id_record_ism_toggle_old [integer,private/parameter/optional/default=1001]
  • polymer/id_record_ism_toggle_sni [integer,private/parameter/optional/default=257]
  • polymer/id_record_ism_toggle_snii [integer,private/parameter/optional/default=258]
  • polymer/id_record_ism_x_cluster [integer,private/parameter/optional/default=255]
  • polymer/id_record_ism_y_cluster [integer,private/parameter/optional/default=256]
  • polymer/id_record_ism_z_cluster [integer,private/parameter/optional/default=260]
  • polymer/id_record_iteration_number [integer,private/parameter/optional/default=100]
  • polymer/id_record_magnetic_ampl [integer,private/parameter/optional/default=312]
  • polymer/id_record_magnetic_phase [integer,private/parameter/optional/default=311]
  • polymer/id_record_random_seeds [integer,private/parameter/optional/default=1]
  • polymer/id_record_random_seeds2 [integer,private/parameter/optional/default=2]
  • polymer/id_record_shear_delta_y [integer,private/parameter/optional/default=320]
  • polymer/id_record_special_lnkmin0 [integer,private/parameter/optional/default=340]
  • polymer/id_record_time_step [integer,private/parameter/optional/default=330]

Subroutines and functions

subroutine  polymer/register_polymer()

Initialise variables which should know that we solve for the vector potential: ipoly, etc; increase nvar accordingly.

14-Aug-08 : Dhruba

Call to:

svn_id()

subroutine  polymer/initialize_polymer(f)

Perform any post-parameter-read initialization.

14-aug-08/dhruba: initialize polymer field (dummy at present)

Parameters:

f (mx,my,mz,mfarray) [real]

subroutine  polymer/init_poly(f)

Initialise polymer field.

14-aug-2008/dhruba: coded

Parameters:

f (mx,my,mz,mfarray) [real]

subroutine  polymer/pencil_criteria_polymer()

All pencils that the Polymer module depends on are specified here.

subroutine  polymer/pencil_interdep_polymer(lpencil_in)

Interdependency among pencils from the Polymer module is specified here.

18-aug-2008/dhruba: coded

Parameters:

lpencil_in (npencils) [logical]

subroutine  polymer/calc_pencils_polymer(f, p)

Calculate Magnetic pencils. Most basic pencils should come first, as others may depend on them.

Parameters:
subroutine  polymer/dpoly_dt(f, df, p)

Polymer evolution.

Parameters:
subroutine  polymer/calc_diagnostics_polymer(p)
Parameters:

p [pencil_case]

subroutine  polymer/calc_polymer_after_boundary(f)
Parameters:

f (mx,my,mz,mfarray) [real]

subroutine  polymer/read_polymer_init_pars(iomsg)
Parameters:

iomsg [character,out]

subroutine  polymer/write_polymer_init_pars(unit)
Parameters:

unit [integer,in]

subroutine  polymer/read_polymer_run_pars(iomsg)
Parameters:

iomsg [character,out]

subroutine  polymer/write_polymer_run_pars(unit)
Parameters:

unit [integer,in]

subroutine  polymer/get_slices_polymer(f, slices)

Write slices for animation of polymeric variables.

Parameters:
subroutine  polymer/rprint_polymer(lreset[, lwrite])

Reads and registers print parameters relevant for polymer.

Parameters:

  • lreset [logical]

  • lwrite [logical]