parse_cavity_draft_sign Function

public pure function parse_cavity_draft_sign(name) result(code)

&ocean_cavity_dyn_nml draft_sign -> CAVITY_SIGN_*. Returns CAVITY_SIGN_INVALID on an unrecognised spelling — the caller fails loud.

Arguments

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

Return Value integer


Called by

proc~~parse_cavity_draft_sign~~CalledByGraph proc~parse_cavity_draft_sign parse_cavity_draft_sign proc~seed_cavity_draft seed_cavity_draft proc~seed_cavity_draft->proc~parse_cavity_draft_sign proc~validate_config validate_config proc~validate_config->proc~parse_cavity_draft_sign proc~build_pending_handle build_pending_handle proc~build_pending_handle->proc~validate_config proc~ocean_state_seed_from_cfg ocean_state_seed_from_cfg proc~ocean_state_seed_from_cfg->proc~seed_cavity_draft proc~engine_setup engine_setup proc~engine_setup->proc~ocean_state_seed_from_cfg proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~build_pending_handle proc~complete_ocean_create complete_ocean_create proc~rdb_ocean_create_from_string->proc~complete_ocean_create proc~rdb_ocean_create_pending rdb_ocean_create_pending proc~rdb_ocean_create_pending->proc~build_pending_handle proc~complete_ocean_create->proc~engine_setup proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create

Source Code

   pure function parse_cavity_draft_sign(name) result(code)
      !! `&ocean_cavity_dyn_nml draft_sign` -> `CAVITY_SIGN_*`.
      !! Returns `CAVITY_SIGN_INVALID` on an unrecognised spelling — the
      !! caller fails loud.
      character(len=*), intent(in) :: name
      integer :: code
      select case (trim(adjustl(name)))
      case ("depth", "positive_down", "")
         code = CAVITY_SIGN_DEPTH
      case ("elevation", "positive_up")
         code = CAVITY_SIGN_ELEVATION
      case default
         code = CAVITY_SIGN_INVALID
      end select
   end function parse_cavity_draft_sign