is_radiation_update_step Function

function is_radiation_update_step(params, step) result(update_now)

Arguments

Type IntentOptional Attributes Name
type(case_params_t), intent(in) :: params
integer, intent(in) :: step

Return Value logical


Source Code

   logical function is_radiation_update_step(params, step) result(update_now)
      type(case_params_t), intent(in) :: params
      integer, intent(in) :: step

      update_now = .false.
      if (.not. params%enable_energy) return
      if (.not. params%enable_radiation) return
      if (params%radiation_update_interval <= 0) return
      update_now = (mod(step - 1, params%radiation_update_interval) == 0) .or. (step == 1)
   end function is_radiation_update_step