parse_z_fixed_profile Function

public pure function parse_z_fixed_profile(str) result(code)

&vcoord_nml z_fixed_profile string -> ZFIXED_PROFILE_* code (ZFIXED_PROFILE_INVALID for anything else — the caller fails loud).

Arguments

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

Return Value integer


Called by

proc~~parse_z_fixed_profile~~CalledByGraph proc~parse_z_fixed_profile parse_z_fixed_profile proc~configure_ocean_z_fixed_profile configure_ocean_z_fixed_profile proc~configure_ocean_z_fixed_profile->proc~parse_z_fixed_profile proc~validate_config validate_config proc~validate_config->proc~parse_z_fixed_profile proc~build_pending_handle build_pending_handle proc~build_pending_handle->proc~validate_config proc~configure_ocean_lateral configure_ocean_lateral proc~configure_ocean_lateral->proc~configure_ocean_z_fixed_profile proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_z_fixed_profile 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~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~build_pending_handle 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~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 integer function parse_z_fixed_profile(str) result(code)
      !! `&vcoord_nml z_fixed_profile` string -> `ZFIXED_PROFILE_*` code
      !! (`ZFIXED_PROFILE_INVALID` for anything else — the caller fails loud).
      character(len=*), intent(in) :: str
      select case (trim(adjustl(str)))
      case ("uniform")
         code = ZFIXED_PROFILE_UNIFORM
      case ("list")
         code = ZFIXED_PROFILE_LIST
      case ("tanh")
         code = ZFIXED_PROFILE_TANH
      case default
         code = ZFIXED_PROFILE_INVALID
      end select
   end function parse_z_fixed_profile