Changeset 14404

Timestamp:

2021-02-05T13:46:11+01:00 (3 years ago)

Author:

agn

Message:

Use alternate formulation for zsc_wth_pyc and zsc_ws_pyc

File:

• NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90 (modified) (2 diffs)

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

@@ -957 +957 @@
               IF ( lpyc(ji,jj) ) THEN
 ! Pycnocline scales
-                 zsc_wth_pyc(ji,jj) = -0.2 * zwb0(ji,jj) * zdt_bl(ji,jj) / zdb_bl(ji,jj)
-                 zsc_ws_pyc(ji,jj) = -0.2 * zwb0(ji,jj) * zds_bl(ji,jj) / zdb_bl(ji,jj)
+                 zsc_wth_pyc(ji,jj) = -0.003 * zwstrc(ji,jj) * ( 1.0 - zdh(ji,jj) /zhbl(ji,jj) ) * zdt_ml(ji,jj)
+                 zsc_ws_pyc(ji,jj) = -0.003 * zwstrc(ji,jj) * ( 1.0 - zdh(ji,jj) /zhbl(ji,jj) ) * zds_ml(ji,jj)
                ENDIF
             ELSE
@@ -982 +982 @@
                        &          * ( 1.0 - EXP ( -15.0 * (         1.0 - zznd_ml    ) ) )
                END DO
-!
+               !
+               ! may need to comment out lpyc block
                IF ( lpyc(ji,jj) ) THEN
 ! pycnocline