zero_radiation_source Subroutine

public subroutine zero_radiation_source(energy)

Reset the volumetric energy source to zero.

Arguments

Type	Intent	Optional	Attributes		Name
type(energy_fields_t),	intent(inout)			::	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