Changeset 14532

Timestamp:

2021-02-23T10:58:10+01:00 (3 years ago)

Author:

dancopsey

Message:

Move turning off of shear paremeterisation to turn it off completely

File:

• NEMO/branches/UKMO/NEMO_4.0.1_FKOSM_m11715/src/OCE/ZDF/zdfosm.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.1_FKOSM_m11715/src/OCE/ZDF/zdfosm.F90

@@ -1588 +1588 @@
 ! full code available                                          !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-            IF ( zshear(ji,jj) > 1.e-10 ) 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
+            IF ( zshear(ji,jj) > 1.e-10 .AND. MIN(hu_n(ji,jj), hu_n(ji-1,jj), hv_n(ji,jj), hv_n(ji,jj-1))>100._wp ) THEN
+              IF ( zri_p(ji,jj) < rn_ri_p_thresh ) THEN
 ! Growing shear layer
                 j_ddh(ji,jj) = 0