pv_adv_scheme_is_implemented Function

public pure function pv_adv_scheme_is_implemented(code) result(ok)

.true. for every wired PV face-interpolation scheme: PV_ADV_CENTERED + PV_ADV_WENO3/WENO5/WENO7. weno5/weno7 additionally require a wider halo (pv_adv_required_nghost), checked separately at configure. PV_ADV_INVALID returns .false. (fail-loud on a typo).

Arguments

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

Return Value logical


Called by

proc~~pv_adv_scheme_is_implemented~~CalledByGraph proc~pv_adv_scheme_is_implemented pv_adv_scheme_is_implemented proc~validate_config validate_config proc~validate_config->proc~pv_adv_scheme_is_implemented proc~build_pending_handle build_pending_handle proc~build_pending_handle->proc~validate_config 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_pending rdb_ocean_create_pending proc~rdb_ocean_create_pending->proc~build_pending_handle

Source Code

   pure function pv_adv_scheme_is_implemented(code) result(ok)
      !! `.true.` for every wired PV face-interpolation scheme: `PV_ADV_CENTERED`
      !! + `PV_ADV_WENO3`/`WENO5`/`WENO7`.  weno5/weno7 additionally require a
      !! wider halo (`pv_adv_required_nghost`), checked separately at configure.
      !! `PV_ADV_INVALID` returns `.false.` (fail-loud on a typo).
      integer, intent(in) :: code
      logical :: ok
      ok = (code == PV_ADV_CENTERED) .or. (code == PV_ADV_WENO3) .or. &
           (code == PV_ADV_WENO5) .or. (code == PV_ADV_WENO7)
   end function pv_adv_scheme_is_implemented