Changeset 6848 for branches/CNRS

Timestamp:

2016-08-05T18:28:52+02:00 (8 years ago)

Author:

aumont

Message:

bug fix in p4zprod

File:

• branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90 (modified) (1 diff)

branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90

@@ -137 +137 @@
                IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN
                   zval = MAX( 1., zstrn(ji,jj) )
-!                  zval = 1.5 * zval / ( 12. + zval )
-!                  zmxl_fac(ji,jj,jk) = zval * ( 1. - fr_i(ji,jj))
                   zmxl_fac(ji,jj,jk) = zval
-                  zmxl_chl(ji,jj,jk) = zval / 24. * ( 1. - fr_i(ji,jj))
+                  zmxl_chl(ji,jj,jk) = zval / 24.
                   IF( fsdepw(ji,jj,jk+1) <= hmld(ji,jj) ) THEN
                      zval = MIN(1., heup_01(ji,jj) / ( hmld(ji,jj) + rtrn ))