parse_cavity_draft_source Function

public pure function parse_cavity_draft_source(name) result(code)

&ocean_cavity_dyn_nml draft_source -> CAVITY_SOURCE_*.

Arguments

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

Return Value integer


Called by

proc~~parse_cavity_draft_source~~CalledByGraph proc~parse_cavity_draft_source parse_cavity_draft_source proc~seed_cavity_draft seed_cavity_draft proc~seed_cavity_draft->proc~parse_cavity_draft_source 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_source(name) result(code)
      !! `&ocean_cavity_dyn_nml draft_source` -> `CAVITY_SOURCE_*`.
      character(len=*), intent(in) :: name
      integer :: code
      select case (trim(adjustl(name)))
      case ("draft", "")
         code = CAVITY_SOURCE_DRAFT
      case ("thickness")
         code = CAVITY_SOURCE_THICKNESS
      case ("in_situ")
         code = CAVITY_SOURCE_IN_SITU
      case default
         code = CAVITY_SOURCE_INVALID
      end select
   end function parse_cavity_draft_source