zero_radiation_source Subroutine

public subroutine zero_radiation_source(energy)

Reset the volumetric energy source to zero.

Arguments

Type IntentOptional Attributes Name
type(energy_fields_t), intent(inout) :: energy

Called by

proc~~zero_radiation_source~~CalledByGraph proc~zero_radiation_source mod_energy::zero_radiation_source proc~initialize_energy mod_energy::initialize_energy proc~initialize_energy->proc~zero_radiation_source program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~initialize_energy

Source Code

   subroutine zero_radiation_source(energy)
      type(energy_fields_t), intent(inout) :: energy

      if (allocated(energy%qrad)) energy%qrad = zero
   end subroutine zero_radiation_source