parse_tracer_recon Function

public pure function parse_tracer_recon(str) result(code)

Map a namelist string onto a TRACER_RECON_* code.

Returns: TRACER_RECON_PPM (0) for “ppm” TRACER_RECON_WENO5(1) for “weno5” TRACER_RECON_WENO7(2) for “weno7” TRACER_RECON_WENO9(3) for “weno9” -2 for “pqm” (deferred) -1 for anything else (unrecognised)

Arguments

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

Return Value integer


Called by

proc~~parse_tracer_recon~~CalledByGraph proc~parse_tracer_recon parse_tracer_recon proc~configure_ocean_vmix configure_ocean_vmix proc~configure_ocean_vmix->proc~parse_tracer_recon proc~required_halo required_halo proc~required_halo->proc~parse_tracer_recon proc~validate_config validate_config proc~validate_config->proc~parse_tracer_recon proc~build_pending_handle build_pending_handle proc~build_pending_handle->proc~validate_config proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_vmix proc~rdb_ocean_required_halo rdb_ocean_required_halo proc~rdb_ocean_required_halo->proc~required_halo 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 function parse_tracer_recon(str) result(code)
      !! Map a namelist string onto a TRACER_RECON_* code.
      !!
      !! Returns:
      !!   TRACER_RECON_PPM  (0) for "ppm"
      !!   TRACER_RECON_WENO5(1) for "weno5"
      !!   TRACER_RECON_WENO7(2) for "weno7"
      !!   TRACER_RECON_WENO9(3) for "weno9"
      !!   -2                    for "pqm" (deferred)
      !!   -1                    for anything else (unrecognised)
      character(len=*), intent(in) :: str
      integer :: code
      select case (trim(str))
      case ("ppm")
         code = TRACER_RECON_PPM
      case ("weno5")
         code = TRACER_RECON_WENO5
      case ("weno7")
         code = TRACER_RECON_WENO7
      case ("weno9")
         code = TRACER_RECON_WENO9
      case ("pqm")
         code = -2
      case default
         code = -1
      end select
   end function parse_tracer_recon