parse_cavity_draft_config Function

public pure function parse_cavity_draft_config(name) result(code)

&ocean_cavity_dyn_nml draft_config -> CAVITY_DRAFT_*. Returns CAVITY_DRAFT_INVALID on an unrecognised spelling — the caller fails loud; there is no silent default.

Arguments

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

Return Value integer


Called by

proc~~parse_cavity_draft_config~~CalledByGraph proc~parse_cavity_draft_config parse_cavity_draft_config proc~seed_cavity_draft seed_cavity_draft proc~seed_cavity_draft->proc~parse_cavity_draft_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~complete_ocean_create complete_ocean_create 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 proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create

Source Code

   pure function parse_cavity_draft_config(name) result(code)
      !! `&ocean_cavity_dyn_nml draft_config` -> `CAVITY_DRAFT_*`.
      !! Returns `CAVITY_DRAFT_INVALID` on an unrecognised spelling — the
      !! caller fails loud; there is no silent default.
      character(len=*), intent(in) :: name
      integer :: code
      select case (trim(adjustl(name)))
      case ("none", "")
         code = CAVITY_DRAFT_NONE
      case ("flat")
         code = CAVITY_DRAFT_FLAT
      case ("linear", "linear_x")
         code = CAVITY_DRAFT_LINEAR
      case ("file")
         code = CAVITY_DRAFT_FILE
      case default
         code = CAVITY_DRAFT_INVALID
      end select
   end function parse_cavity_draft_config