parse_remap_method Function

public pure function parse_remap_method(str) result(method)

Convert a namelist string to a REMAP_* constant.

Arguments

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

Return Value integer


Called by

proc~~parse_remap_method~~CalledByGraph proc~parse_remap_method parse_remap_method proc~configure_ocean_lateral configure_ocean_lateral proc~configure_ocean_lateral->proc~parse_remap_method proc~engine_setup engine_setup proc~engine_setup->proc~parse_remap_method 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 integer function parse_remap_method(str) result(method)
      !! Convert a namelist string to a REMAP_* constant.
      character(len=*), intent(in) :: str
      select case (trim(adjustl(str)))
      case ("pcm")
         method = REMAP_PCM
      case ("plm")
         method = REMAP_PLM
      case ("ppm")
         method = REMAP_PPM
      case ("ppm_h4")
         method = REMAP_PPM_H4
      case ("pqm")
         method = REMAP_PQM
      case default
         method = REMAP_PLM
      end select
   end function parse_remap_method