lateral_closure_is_implemented Function

public pure function lateral_closure_is_implemented(code) result(ok)

.true. iff the closure code has a working dispatcher path. Drives the configure-time fail-loud guard. Keep in lock-step with the select case in ocean_lateral_mix_compute.

Arguments

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

Return Value logical


Called by

proc~~lateral_closure_is_implemented~~CalledByGraph proc~lateral_closure_is_implemented lateral_closure_is_implemented proc~validate_config validate_config proc~validate_config->proc~lateral_closure_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 lateral_closure_is_implemented(code) result(ok)
      !! `.true.` iff the closure code has a working dispatcher path.
      !! Drives the configure-time fail-loud guard.  Keep in lock-step
      !! with the `select case` in `ocean_lateral_mix_compute`.
      integer, intent(in) :: code
      logical :: ok
      select case (code)
      case (LMIX_NONE, LMIX_LEITH, LMIX_SMAGORINSKY, &
            LMIX_BIHARMONIC, LMIX_LEITH_BIHARM)
         ok = .true.
      case default
         ok = .false.
      end select
   end function lateral_closure_is_implemented