lateral_closure_conflicts_smag_ah Function

public pure function lateral_closure_conflicts_smag_ah(code, smag_ah) result(conflict)

.true. iff the closure is LMIX_LEITH_BIHARM and smag_ah is on — both would fill nu4_face_* and smag_ah runs last, so it would silently overwrite the Leith-biharmonic fill (we do not max-combine biharmonic closures). Drives a fail-loud guard.

Arguments

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

Return Value logical


Called by

proc~~lateral_closure_conflicts_smag_ah~~CalledByGraph proc~lateral_closure_conflicts_smag_ah lateral_closure_conflicts_smag_ah proc~validate_config validate_config proc~validate_config->proc~lateral_closure_conflicts_smag_ah 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_conflicts_smag_ah(code, smag_ah) result(conflict)
      !! `.true.` iff the closure is `LMIX_LEITH_BIHARM` and `smag_ah` is
      !! on — both would fill `nu4_face_*` and `smag_ah` runs last, so it
      !! would silently overwrite the Leith-biharmonic fill (we do not
      !! max-combine biharmonic closures).  Drives a fail-loud guard.
      integer, intent(in) :: code
      logical, intent(in) :: smag_ah
      logical :: conflict
      conflict = (code == LMIX_LEITH_BIHARM) .and. smag_ah
   end function lateral_closure_conflicts_smag_ah