nohyperresi_strict

Module

Description

$Id$

This module applies a sixth order hyperresistivity to the induction equation (following Brandenburg & Sarson 2002). This hyperresistivity ensures that the energy dissipation rate is positive define everywhere.

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

MVAR CONTRIBUTION 0 MAUX CONTRIBUTION 0

Quick access

Routines:: hyperresistivity_strict(), register_hyperresi_strict()

Needed modules

cdata: $Id$
general (keep_compiler_quiet()): $Id$

Variables

Subroutines and functions

subroutine hyperresi_strict/register_hyperresi_strict()

Set up indices for hyperresistivity auxiliary slots.

23-aug-07/anders: adapted from register_hypervisc_strict

Called from:: register_modules()

subroutine hyperresi_strict/hyperresistivity_strict(f)

Apply sixth order hyperresistivity with positive definite heating rate (see Brandenburg & Sarson 2002).

23-aug-07/anders: adapted from hyperviscosity_strict

Parameters:: f (mx,my,mz,mfarray) [real]
Called from:: pde(), start