parse_porous_source Function

public pure function parse_porous_source(name) result(src)

Map &ocean_porous_nml source onto POROUS_SOURCE_*. An unrecognised string returns -1 so the caller can fail loud.

Arguments

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

Return Value integer


Called by

proc~~parse_porous_source~~CalledByGraph proc~parse_porous_source parse_porous_source proc~configure_ocean_porous configure_ocean_porous proc~configure_ocean_porous->proc~parse_porous_source proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_porous 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_porous_source(name) result(src)
      !! Map `&ocean_porous_nml source` onto `POROUS_SOURCE_*`.  An
      !! unrecognised string returns -1 so the caller can fail loud.
      character(len=*), intent(in) :: name
      integer :: src
      select case (trim(adjustl(name)))
      case ("resolved")
         src = POROUS_SOURCE_RESOLVED
      case ("file")
         src = POROUS_SOURCE_FILE
      case default
         src = -1
      end select
   end function parse_porous_source