atl_getMaxPropSpeedDivCor Subroutine

  1. atl_eqn_maxwelldivcorr_var_module.f90
  2. atl_eqn_maxwelldivcorr_var_module
  3. atl_getMaxPropSpeedDivCor

public subroutine atl_getMaxPropSpeedDivCor(tree, materialFun, material_list)

Determines maximum propagation speed for Maxwell equation with divergence cleaning (hyperbolic), i.e. the speed of light depends only on material parameters.

Arguments

TypeIntentOptionalAttributesName
type(treelmesh_type), intent(in) :: tree

Mesh data in treelmesh format.
type(atl_materialFun_type), intent(in) :: materialFun

Information about the material parameters. Used to figure out the order of the material paramters as well as the number of components.
type(atl_material_type), intent(inout) :: material_list(tree%global%minLevel:tree%global%maxLevel)

The description of the material properties. The compute lists in the material description is filled up by calling this subroutine.

Calls

proc~~atl_getmaxpropspeeddivcor~~CallsGraph proc~atl_getmaxpropspeeddivcor atl_getMaxPropSpeedDivCor proc~tem_abort tem_abort proc~atl_getmaxpropspeeddivcor->proc~tem_abort

Called by

proc~~atl_getmaxpropspeeddivcor~~CalledByGraph proc~atl_getmaxpropspeeddivcor atl_getMaxPropSpeedDivCor proc~atl_init_materialparams atl_init_materialParams proc~atl_init_materialparams->proc~atl_getmaxpropspeeddivcor proc~atl_initialize atl_initialize proc~atl_initialize->proc~atl_init_materialparams proc~atl_initialize_program atl_initialize_program proc~atl_initialize_program->proc~atl_initialize program~atl_harvesting atl_harvesting program~atl_harvesting->proc~atl_initialize program~ateles ateles program~ateles->proc~atl_initialize_program

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iLevel
integer, private :: iMat
integer, private :: permeaPos =0
integer, private :: permittPos =0
integer, private :: gamPos =0
integer, private :: chiPos =0