dataovr_any_tag_set Function

public pure function dataovr_any_tag_set(cfg) result(any_set)

.true. when at least one tag names a file, i.e. enabling the group would actually do something.

Arguments

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

Return Value logical


Called by

proc~~dataovr_any_tag_set~~CalledByGraph proc~dataovr_any_tag_set dataovr_any_tag_set proc~validate_config validate_config proc~validate_config->proc~dataovr_any_tag_set 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_any_tag_set(cfg) result(any_set)
      !! `.true.` when at least one tag names a file, i.e. enabling the
      !! group would actually do something.
      type(ocean_dataovr_config_t), intent(in) :: cfg
      logical :: any_set
      any_set = len_trim(cfg%tau_x%file) > 0 .or. len_trim(cfg%tau_y%file) > 0 .or. &
                len_trim(cfg%heat%file) > 0 .or. len_trim(cfg%evap%file) > 0 .or. &
                len_trim(cfg%lprec%file) > 0 .or. len_trim(cfg%salt%file) > 0
   end function dataovr_any_tag_set