ke_probe_active Function

public pure function ke_probe_active(probe, step) result(active)

Gate: enabled AND inside the step window.

Arguments

Type IntentOptional Attributes Name
type(ke_probe_t), intent(in) :: probe
integer, intent(in) :: step

Return Value logical


Called by

proc~~ke_probe_active~~CalledByGraph proc~ke_probe_active ke_probe_active proc~ke_probe_coradv_split ke_probe_coradv_split proc~ke_probe_coradv_split->proc~ke_probe_active proc~ke_probe_sample ke_probe_sample proc~ke_probe_sample->proc~ke_probe_active proc~run_stage_split run_stage_split proc~run_stage_split->proc~ke_probe_sample proc~ocean_dyn_step_split ocean_dyn_step_split proc~ocean_dyn_step_split->proc~run_stage_split proc~engine_step engine_step proc~engine_step->proc~ocean_dyn_step_split proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_step proc~rdb_ocean_step rdb_ocean_step proc~rdb_ocean_step->proc~engine_step

Source Code

   pure function ke_probe_active(probe, step) result(active)
      !! Gate: enabled AND inside the step window.
      type(ke_probe_t), intent(in) :: probe
      integer, intent(in) :: step
      logical :: active
      active = probe%enable
      if (active .and. probe%start_step > 0) active = step >= probe%start_step
      if (active .and. probe%end_step > 0) active = step <= probe%end_step
   end function ke_probe_active