sponge_ramp_is_valid Function

private pure function sponge_ramp_is_valid(tag) result(ok)

.true. iff &ocean_sponge_nml ramp names a band shape the damp_source="band" filler implements.

Arguments

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

Return Value logical


Called by

proc~~sponge_ramp_is_valid~~CalledByGraph proc~sponge_ramp_is_valid sponge_ramp_is_valid proc~validate_config validate_config proc~validate_config->proc~sponge_ramp_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 logical function sponge_ramp_is_valid(tag) result(ok)
      !! .true. iff `&ocean_sponge_nml ramp` names a band shape the
      !! `damp_source="band"` filler implements.
      character(len=*), intent(in) :: tag
      select case (trim(tag))
      case ("cosine", "linear")
         ok = .true.
      case default
         ok = .false.
      end select
   end function sponge_ramp_is_valid