parse_diag_remap_scheme Function

public pure function parse_diag_remap_scheme(name) result(method)

Map a &ocean_diag_nml diag_remap_scheme string to the REMAP_* enum; returns -1 for an unrecognised name (caller fails loud).

Arguments

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

Return Value integer


Called by

proc~~parse_diag_remap_scheme~~CalledByGraph proc~parse_diag_remap_scheme parse_diag_remap_scheme proc~engine_configure_diag engine_configure_diag proc~engine_configure_diag->proc~parse_diag_remap_scheme proc~engine_setup engine_setup proc~engine_setup->proc~engine_configure_diag 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_diag_remap_scheme(name) result(method)
      !! Map a `&ocean_diag_nml diag_remap_scheme` string to the `REMAP_*`
      !! enum; returns -1 for an unrecognised name (caller fails loud).
      character(len=*), intent(in) :: name
      integer :: method
      select case (trim(name))
      case ("pcm", "PCM")
         method = REMAP_PCM
      case ("plm", "PLM")
         method = REMAP_PLM
      case ("ppm", "PPM")
         method = REMAP_PPM
      case ("ppm_h4", "PPM_H4")
         method = REMAP_PPM_H4
      case default
         method = -1
      end select
   end function parse_diag_remap_scheme