parse_epbl_vstar_scheme Function

public pure function parse_epbl_vstar_scheme(name) result(tag)

Arguments

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

Return Value integer


Called by

proc~~parse_epbl_vstar_scheme~~CalledByGraph proc~parse_epbl_vstar_scheme parse_epbl_vstar_scheme proc~configure_ocean_epbl configure_ocean_epbl proc~configure_ocean_epbl->proc~parse_epbl_vstar_scheme proc~configure_ocean_lateral configure_ocean_lateral proc~configure_ocean_lateral->proc~configure_ocean_epbl proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_lateral 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_epbl_vstar_scheme(name) result(tag)
      character(len=*), intent(in) :: name
      integer :: tag
      select case (trim(name))
      case ("cube_root", "cube_root_tke")
         tag = EPBL_VSTAR_CUBE_ROOT
      case ("rh18", "RH18", "reichl_h18")
         tag = EPBL_VSTAR_RH18
      case default
         tag = -1
      end select
   end function parse_epbl_vstar_scheme