sponge_target_is_implemented Function

private pure function sponge_target_is_implemented(tag) result(ok)

.true. iff &ocean_sponge_nml target_source names a reference state that is actually filled: "ic" (snapshot of the seeded initial condition) or "linear_z" (analytic affine geopotential profile, re-evaluated on the live layer geometry). "file" is recognised but has no reader yet (PR-23b).

Arguments

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

Return Value logical


Called by

proc~~sponge_target_is_implemented~~CalledByGraph proc~sponge_target_is_implemented sponge_target_is_implemented proc~validate_config validate_config proc~validate_config->proc~sponge_target_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 logical function sponge_target_is_implemented(tag) result(ok)
      !! .true. iff `&ocean_sponge_nml target_source` names a reference
      !! state that is actually filled: `"ic"` (snapshot of the seeded
      !! initial condition) or `"linear_z"` (analytic affine geopotential
      !! profile, re-evaluated on the live layer geometry). `"file"` is
      !! recognised but has no reader yet (PR-23b).
      character(len=*), intent(in) :: tag
      select case (trim(tag))
      case ("ic", "linear_z")
         ok = .true.
      case default
         ok = .false.
      end select
   end function sponge_target_is_implemented