nomeanfield

Module

Description

$Id$

This modules solves mean-field contributions to both the induction and the momentum equations.

** 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 :: lmagn_mf = .false.

MVAR CONTRIBUTION 0 MAUX CONTRIBUTION 0

! PENCILS PROVIDED mf_EMF(3); mf_EMFdotB

Quick access

Variables:

alpha_aniso, alpha_exp, alpha_height, alpha_pom0, alpha_profile, alpha_rmax, alpha_rmin, alpha_tensor, alpha_tensor_y, alpha_tensor_z, alpha_width, alpha_width2, alpha_zz, ampluu_kinematic, b2_to_u2, calc_fluc_alp_cells, calp, channel_magn_mf, channel_magn_mf2, chi_t0, chit_quenching, delta_profile, emf_profile, eta_tensor, eta_tensor_y, eta_tensor_z, fluc_alp_m, fluc_alp_profile, fpatches, gamma_effect, gamma_quenching, gwfac1, gwfac2, gwfac3, hij_ampl, hijk, idiag_alpkjbm, idiag_alpkm, idiag_alpmxz, idiag_emfdotb_int, idiag_emfdotbm, idiag_emfmz1, idiag_emfmz2, idiag_emfmz3, idiag_peffmxz, idiag_qam, idiag_qem, idiag_qpm, idiag_qpmz, idiag_qsm, init_mf, ir_cell, itheta_cell, kx_alpha, lalpha_aniso, lalpha_omega_approx, lalpha_profile_total, lalpha_tensor, lalphass_disk, lchit_bext2_equil, lchit_with_glntt, ldelta_profile, lemf_profile, leta_tensor, lgw_tensor, lignore_gradb2_inchib, llarge_scale_velocity, lmeanfield_chitb, lmeanfield_pumping, lnempi_correction, lnempi_correction_qp_profile, lomega_effect_meanfield, lqp_aniso_factor, lqp_profile, lqpcurrent, lqpx_profile, lread_alpha_tensor_z, lread_alpha_tensor_z_as_y, lread_eta_tensor_z, lread_eta_tensor_z_as_y, lrho_chit, lrhs_term, lrhs_term2, lshear_current_effect, ltest_patches, lturb_temp_diff, meanfield_ba, meanfield_be, meanfield_beq, meanfield_beq2_height, meanfield_beq_height, meanfield_beq_profile, meanfield_beq_width, meanfield_chitb, meanfield_cs0, meanfield_delta_height, meanfield_delta_width, meanfield_etat_corona, meanfield_etat_exp, meanfield_etat_height, meanfield_etat_profile, meanfield_etat_rmax, meanfield_etat_width, meanfield_kf_profile, meanfield_kf_width, meanfield_kf_width2, meanfield_pumping, meanfield_qa, meanfield_qa1, meanfield_qe, meanfield_qe1, meanfield_qp1, meanfield_qs1, mf_qj2, nmultipole, npatches, npatches_actual, nr_cell, nth_cell, omega_effect, omega_rmax, omega_rwidth, qp_aniso_factor, qp_model, qp_profder, qp_profile, qp_width, qpx_profder, qpx_profile, qpx_width, rand_alpha, refresh_fluc_alpha_phase, relhel_hij, rhs_term, rhs_term_ampl, rhs_term_amplphi, rhs_term_amplz, rhs_term_kx, rhs_termy, rhs_termz, roty, roty0, seed_magn_mf2, shear_current_profile, shear_current_sh, sigma_alpha, tau_cell, uturb, x1_alp, x2_alp, x_surface, x_surface2, xcenter, xpatches, y1_alp, y2_alp, ycenter, ypatches, zcenter

Routines:

calc_diagnostics_meanfield(), calc_pencils_magn_mf(), daa_dt_meanfield(), init_aa_mf(), initialize_magn_mf(), meanfield_after_boundary(), pc_aasb_const_alpha(), pencil_criteria_magn_mf(), pencil_interdep_magn_mf(), pushpars2c(), read_magn_mf_init_pars(), read_magn_mf_run_pars(), register_magn_mf(), rprint_magn_mf(), write_magn_mf_init_pars(), write_magn_mf_run_pars()

Needed modules

Variables

  • magnetic_meanfield/detat_x (nx) [real,private]
  • magnetic_meanfield/detat_y (my) [real,private]
  • magnetic_meanfield/detat_z (mz) [real,private]
  • magnetic_meanfield/etat_x (nx) [real,private]
  • magnetic_meanfield/etat_y (my) [real,private]
  • magnetic_meanfield/etat_z (mz) [real,private]

Subroutines and functions

subroutine  magnetic_meanfield/register_magn_mf()

Dummy routine

subroutine  magnetic_meanfield/initialize_magn_mf(f)

Dummy routine

Parameters:

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

subroutine  magnetic_meanfield/init_aa_mf(f)

Dummy routine

Parameters:

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

subroutine  magnetic_meanfield/pencil_criteria_magn_mf()

Dummy routine

subroutine  magnetic_meanfield/pencil_interdep_magn_mf(lpencil_in)

Dummy routine

Parameters:

lpencil_in (npencils) [logical]

subroutine  magnetic_meanfield/calc_pencils_magn_mf(f, p)

Dummy routine

Parameters:
Use :

cdata

Called from:

update_char_vel_magnetic()

subroutine  magnetic_meanfield/daa_dt_meanfield(f, df, p)

Dummy routine

Parameters:
Called from:

register_magnetic(), initialize_magnetic(), init_aa(), pencil_criteria_magnetic(), pencil_interdep_magnetic(), daa_dt(), update_char_vel_magnetic(), set_ambipolar_diffusion(), diamagnetism(), calc_pencils_magnetic()

subroutine  magnetic_meanfield/calc_diagnostics_meanfield(f, p)
Parameters:
subroutine  magnetic_meanfield/read_magn_mf_init_pars(iomsg)
Parameters:

iomsg [character,out]

Called from:

update_char_vel_magnetic(), set_ambipolar_diffusion(), diamagnetism(), set_border_magnetic(), eta_shell(), calc_bthresh(), calc_tau_aa_exterior(), helflux(), curflux()

subroutine  magnetic_meanfield/write_magn_mf_init_pars(unit)
Parameters:

unit [integer,in]

Called from:

update_char_vel_magnetic(), set_ambipolar_diffusion(), diamagnetism(), set_border_magnetic(), eta_shell(), calc_bthresh(), calc_tau_aa_exterior(), helflux(), curflux()

subroutine  magnetic_meanfield/read_magn_mf_run_pars(iomsg)
Parameters:

iomsg [character,out]

Called from:

update_char_vel_magnetic(), set_ambipolar_diffusion(), diamagnetism(), set_border_magnetic(), eta_shell(), calc_bthresh(), calc_tau_aa_exterior(), helflux(), curflux()

subroutine  magnetic_meanfield/write_magn_mf_run_pars(unit)
Parameters:

unit [integer,in]

Called from:

update_char_vel_magnetic(), set_ambipolar_diffusion(), diamagnetism(), set_border_magnetic(), eta_shell(), calc_bthresh(), calc_tau_aa_exterior(), helflux(), curflux()

subroutine  magnetic_meanfield/rprint_magn_mf(lreset[, lwrite])

Dummy routine

Parameters:

  • lreset [logical]

  • lwrite [logical]

Called from:

update_char_vel_magnetic(), set_ambipolar_diffusion(), diamagnetism(), set_border_magnetic(), eta_shell(), calc_bthresh(), calc_tau_aa_exterior(), helflux(), curflux(), calc_bmx(), calc_bmy(), calc_bmzs2(), calc_bmza2(), calc_bmz(), calc_jmx(), calc_jmy(), calc_jmz(), calc_embmz(), calc_emxamz3(), calc_ambmz(), calc_ambmzh(), calc_jmbmz(), calc_bmxy_rms(), calc_bmz_beltrami_phase(), alfven_x(), alfven_y(), alfven_z(), alfven_xy(), alfven_xz(), alfvenz_rot(), alfvenz_bell(), alfvenz_rot_shear(), torus_test(), force_free_jet(), piecew_dipole_aa(), geo_benchmark_b(), eta_xy_dep(), eta_zdep(), eta_ydep(), eta_xdep(), input_persist_magnetic_id(), input_persist_magnetic()

subroutine  magnetic_meanfield/pc_aasb_const_alpha(f, topbot, j)
Parameters:

  • f (,,*,*) [real]

  • topbot [integer]

  • j [integer]

Called from:

initialize_boundcond(), boundconds_x_c(), boundconds_y_c(), boundconds_z_c()

subroutine  magnetic_meanfield/meanfield_after_boundary(f)

precalculate parameters that are new at each timestep, but the same for all pencils

Parameters:

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

Called from:

pde(), write_diagnostics(), calc_all_module_diagnostic_auxiliaries(), perform_diagnostics(), finalize_diagnostics()