Changeset 14520

Timestamp:

2021-02-21T17:04:39+01:00 (3 years ago)

Author:

agn

Message:

Fix so j_ddh < 2 not allowed unless surrounding u&v water depths all >100m

File:

• NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90 (modified) (1 diff)

NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90

@@ -1577 +1577 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                   IF ( zshear(ji,jj) > 1.e-10 ) THEN
-                     IF ( zri_p(ji,jj) < rn_ri_p_thresh ) THEN
+                     IF ( zri_p(ji,jj) < rn_ri_p_thresh .AND. MIN(hu_n(ji,jj), hu_n(ji-1,jj), hv_n(ji,jj), hv_n(ji,jj-1))>100._wp ) THEN
                         ! Growing shear layer
                         j_ddh(ji,jj) = 0