sw_source_is_implemented Function

public pure function sw_source_is_implemented(name) result(ok)

Fail-loud predicate for the &ocean_thermo_nml sw_source selector — validate_config aborts on any string this rejects. The two recognised sources are the net-heat legacy path and the PR-12 q_sw component.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name

Return Value logical


Called by

proc~~sw_source_is_implemented~~CalledByGraph proc~sw_source_is_implemented sw_source_is_implemented proc~validate_config validate_config proc~validate_config->proc~sw_source_is_implemented 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 sw_source_is_implemented(name) result(ok)
      !! Fail-loud predicate for the `&ocean_thermo_nml sw_source`
      !! selector — `validate_config` aborts on any string this rejects.
      !! The two recognised sources are the net-heat legacy path and the
      !! PR-12 `q_sw` component.
      character(len=*), intent(in) :: name
      logical :: ok
      ok = (trim(name) == "net_heat" .or. trim(name) == "q_sw")
   end function sw_source_is_implemented