Changeset 651 for trunk/NEMO/TOP_SRC

Timestamp:

2007-04-18T11:24:52+02:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_031:CE:computation of limitation due to light in day not in hour

File:

• trunk/NEMO/TOP_SRC/SMS/p4zprod.F (modified) (2 diffs)

trunk/NEMO/TOP_SRC/SMS/p4zprod.F

@@ -155 +155 @@
          zmxltst=max(0.,hmld(ji,jj)-zmeu(ji,jj))
          zmxlday=zmxltst**2/rjjss
-         zmixnano(ji,jj)=1.-zmxlday/(12.+zmxlday)
-         zmixdiat(ji,jj)=1.-zmxlday/(36.+zmxlday)
+         zmixnano(ji,jj)=1.-zmxlday/(1.+zmxlday)
+         zmixdiat(ji,jj)=1.-zmxlday/(3.+zmxlday)
           END DO
         END DO
@@ -240 +240 @@
         prorca2(ji,jj,jk) = prdia(ji,jj,jk)
      &    *xlimdia(ji,jj,jk)*trn(ji,jj,jk,jpdia)*rfact2
+
 C
         pronew2(ji,jj,jk)=prorca2(ji,jj,jk)*xdiatno3(ji,jj,jk)