vcoord_type_name Function

private pure function vcoord_type_name(code) result(name)

Uses

  • proc~~vcoord_type_name~~UsesGraph proc~vcoord_type_name vcoord_type_name module~rdb_constants rdb_constants proc~vcoord_type_name->module~rdb_constants pic_types pic_types module~rdb_constants->pic_types

Human-readable tag for a VCOORD_* enum (mismatch messages only; the integer enum is what is validated).

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: code

Return Value character(len=32)


Calls

proc~~vcoord_type_name~~CallsGraph proc~vcoord_type_name vcoord_type_name to_string to_string proc~vcoord_type_name->to_string

Called by

proc~~vcoord_type_name~~CalledByGraph proc~vcoord_type_name vcoord_type_name proc~ocean_state_fill_restart_metadata ocean_state_fill_restart_metadata proc~ocean_state_fill_restart_metadata->proc~vcoord_type_name proc~ocean_state_restart_read ocean_state_restart_read proc~ocean_state_restart_read->proc~ocean_state_fill_restart_metadata proc~ocean_state_restart_write ocean_state_restart_write proc~ocean_state_restart_write->proc~ocean_state_fill_restart_metadata proc~ocean_state_restart_write_drop_field ocean_state_restart_write_drop_field proc~ocean_state_restart_write_drop_field->proc~ocean_state_fill_restart_metadata proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~ocean_state_restart_write proc~engine_setup engine_setup proc~driver_run_ocean->proc~engine_setup proc~engine_setup->proc~ocean_state_restart_read proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup 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 vcoord_type_name(code) result(name)
      !! Human-readable tag for a VCOORD_* enum (mismatch messages only;
      !! the integer enum is what is validated).
      use rdb_constants, only: VCOORD_SIGMA, VCOORD_ZSIGMA, VCOORD_ZSTAR, &
                               VCOORD_ZSTAR_SIGMA, VCOORD_ZSTAR_FULL, &
                               VCOORD_EULERIAN_Z, VCOORD_LAGRANGIAN
      integer, intent(in) :: code
      character(len=32) :: name
      select case (code)
      case (VCOORD_SIGMA)
         name = "sigma"
      case (VCOORD_ZSIGMA)
         name = "zsigma"
      case (VCOORD_ZSTAR)
         name = "zstar"
      case (VCOORD_ZSTAR_SIGMA)
         name = "zstar_sigma"
      case (VCOORD_ZSTAR_FULL)
         name = "zstar_full"
      case (VCOORD_EULERIAN_Z)
         name = "eulerian_z"
      case (VCOORD_LAGRANGIAN)
         name = "lagrangian"
      case default
         name = "code_"//to_string(code)
      end select
   end function vcoord_type_name