parse_coriolis_scheme Function

public pure function parse_coriolis_scheme(s) result(scheme_enum)

Map a &ocean_grid_nml coriolis_scheme string onto its enum.

Arguments

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

Return Value integer


Called by

proc~~parse_coriolis_scheme~~CalledByGraph proc~parse_coriolis_scheme parse_coriolis_scheme proc~fill_coriolis_centre fill_coriolis_centre proc~fill_coriolis_centre->proc~parse_coriolis_scheme proc~fill_coriolis_corner fill_coriolis_corner proc~fill_coriolis_corner->proc~parse_coriolis_scheme proc~ocean_dyn_enable_bt_wide ocean_dyn_enable_bt_wide proc~ocean_dyn_enable_bt_wide->proc~parse_coriolis_scheme proc~ocean_munk_worst_case ocean_munk_worst_case proc~ocean_munk_worst_case->proc~parse_coriolis_scheme proc~configure_ocean_cavity_melt configure_ocean_cavity_melt proc~configure_ocean_cavity_melt->proc~fill_coriolis_centre proc~configure_ocean_epbl configure_ocean_epbl proc~configure_ocean_epbl->proc~fill_coriolis_centre proc~configure_ocean_forcing configure_ocean_forcing proc~configure_ocean_forcing->proc~fill_coriolis_corner proc~configure_ocean_kappa_shear configure_ocean_kappa_shear proc~configure_ocean_kappa_shear->proc~fill_coriolis_centre proc~configure_ocean_kappa_shear->proc~fill_coriolis_corner proc~configure_ocean_meke configure_ocean_meke proc~configure_ocean_meke->proc~fill_coriolis_centre proc~configure_ocean_varmix configure_ocean_varmix proc~configure_ocean_varmix->proc~fill_coriolis_centre proc~configure_ocean_wavespeed configure_ocean_wavespeed proc~configure_ocean_wavespeed->proc~fill_coriolis_centre proc~engine_enter_data engine_enter_data proc~engine_enter_data->proc~ocean_dyn_enable_bt_wide proc~ocean_stability_audit ocean_stability_audit proc~ocean_stability_audit->proc~ocean_munk_worst_case proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_enter_data proc~engine_setup engine_setup proc~complete_ocean_create->proc~engine_setup proc~configure_ocean_lateral configure_ocean_lateral proc~configure_ocean_lateral->proc~configure_ocean_epbl proc~configure_ocean_lateral->proc~configure_ocean_kappa_shear proc~configure_ocean_lateral->proc~configure_ocean_meke proc~configure_ocean_lateral->proc~configure_ocean_varmix proc~configure_ocean_lateral->proc~configure_ocean_wavespeed proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_enter_data proc~driver_run_ocean->proc~engine_setup proc~engine_setup->proc~configure_ocean_cavity_melt proc~engine_setup->proc~configure_ocean_forcing proc~engine_setup->proc~ocean_stability_audit proc~engine_setup->proc~configure_ocean_lateral proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup 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_coriolis_scheme(s) result(scheme_enum)
      !! Map a `&ocean_grid_nml coriolis_scheme` string onto its enum.
      character(len=*), intent(in) :: s
      integer :: scheme_enum
      select case (trim(s))
      case ("planetary")
         scheme_enum = CORIOLIS_SCHEME_PLANETARY
      case default
         scheme_enum = CORIOLIS_SCHEME_BETA_PLANE
      end select
   end function parse_coriolis_scheme