dataovr_time_is_valid Function

public pure function dataovr_time_is_valid(cfg) result(ok)

.true. unless time_mode='cyclic' was requested without a positive cycle_period. Checked only for the cyclic mode; cycle_period is ignored by linear/static.

Arguments

Type IntentOptional Attributes Name
type(ocean_dataovr_config_t), intent(in) :: cfg

Return Value logical


Called by

proc~~dataovr_time_is_valid~~CalledByGraph proc~dataovr_time_is_valid dataovr_time_is_valid proc~validate_config validate_config proc~validate_config->proc~dataovr_time_is_valid proc~build_pending_handle build_pending_handle proc~build_pending_handle->proc~validate_config proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~build_pending_handle proc~rdb_ocean_create_pending rdb_ocean_create_pending proc~rdb_ocean_create_pending->proc~build_pending_handle

Source Code

   pure function dataovr_time_is_valid(cfg) result(ok)
      !! `.true.` unless `time_mode='cyclic'` was requested without a
      !! positive `cycle_period`.  Checked only for the cyclic mode;
      !! `cycle_period` is ignored by `linear`/`static`.
      type(ocean_dataovr_config_t), intent(in) :: cfg
      logical :: ok
      ok = .true.
      if (trim(cfg%time_mode) == "cyclic") ok = (cfg%cycle_period > 0.0_wp)
   end function dataovr_time_is_valid