bdrag_variant_is_implemented Function

public pure function bdrag_variant_is_implemented(code) result(ok)

.true. only for a bottom-drag variant with a real kernel (BDRAG_LINEAR / BDRAG_QUADRATIC). BDRAG_INVALID returns .false.. The single gate validate_config consumes (PR-6).

Arguments

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

Return Value logical


Called by

proc~~bdrag_variant_is_implemented~~CalledByGraph proc~bdrag_variant_is_implemented bdrag_variant_is_implemented proc~validate_config validate_config proc~validate_config->proc~bdrag_variant_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 bdrag_variant_is_implemented(code) result(ok)
      !! `.true.` only for a bottom-drag variant with a real kernel
      !! (`BDRAG_LINEAR` / `BDRAG_QUADRATIC`).  `BDRAG_INVALID` returns
      !! `.false.`.  The single gate `validate_config` consumes (PR-6).
      integer, intent(in) :: code
      logical :: ok
      ok = (code == BDRAG_LINEAR) .or. (code == BDRAG_QUADRATIC)
   end function bdrag_variant_is_implemented