ResolveGeomDebug Subroutine

  1. SELF_AMRController_2D.f90
  2. SELF_AMRController_2D
  3. ResolveGeomDebug

public subroutine ResolveGeomDebug()

Read the Stage 6c geometry debug switches once.

Arguments

None

Called by

proc~~resolvegeomdebug~~CalledByGraph proc~resolvegeomdebug ResolveGeomDebug proc~buildgeometry_amrcontroller2d BuildGeometry_AMRController2D proc~buildgeometry_amrcontroller2d->proc~resolvegeomdebug

Contents

Source Code

ResolveGeomDebug

Source Code

  subroutine ResolveGeomDebug()
    !! Read the Stage 6c geometry debug switches once.
    implicit none
    character(8) :: envstr
    integer :: envstat

    if(geomDebugResolved) return
    geomDebugResolved = .true.

    call get_environment_variable("SELF_AMR_GEOM_NO_REUSE",envstr,status=envstat)
    if(envstat == 0) geomNoReuse = (trim(envstr) == "1")
    call get_environment_variable("SELF_AMR_GEOM_VERIFY",envstr,status=envstat)
    if(envstat == 0) geomVerify = (trim(envstr) == "1")
    call get_environment_variable("SELF_AMR_GEOM_FULL",envstr,status=envstat)
    if(envstat == 0) geomFull = (trim(envstr) == "1")

    if(geomNoReuse) print*,"SELF_AMR_GEOM_NO_REUSE: geometry reuse disabled"
    if(geomVerify) print*,"SELF_AMR_GEOM_VERIFY: cross-checking incremental geometry"
    if(geomFull) print*,"SELF_AMR_GEOM_FULL: incremental geometry bypassed"

  endsubroutine ResolveGeomDebug