Added FATAL if trying to use parameterization in non-Boussinesq mode

- Per feedback on #1156
mom-ocean · Jul 10, 2020 · 4307fa5 · 4307fa5
1 parent ec0946c
commit 4307fa5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/core/MOM_PressureForce_FV.F90 b/src/core/MOM_PressureForce_FV.F90
@@ -160,6 +160,9 @@ subroutine PressureForce_FV_nonBouss(h, tv, PFu, PFv, G, GV, US, CS, ALE_CSp, p_
 
   if (.not.associated(CS)) call MOM_error(FATAL, &
        "MOM_PressureForce_FV_nonBouss: Module must be initialized before it is used.")
+  if (CS%Stanley_T2_det_coeff>=0.) call MOM_error(FATAL, &
+       "MOM_PressureForce_FV_nonBouss: The Stanley parameterization is not yet"//&
+       "implemented in non-Boussinesq mode.")
 
   use_p_atm = .false.
   if (present(p_atm)) then ; if (associated(p_atm)) use_p_atm = .true. ; endif