Changeset 650 for trunk/NEMO/TOP_SRC

Timestamp:

2007-04-18T11:23:38+02:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_030:CE:correction in computation of water gas exchange for O2

File:

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

trunk/NEMO/TOP_SRC/SMS/p4zflx.F

@@ -136 +136 @@
 C
           ws = vatm(ji,jj)
+          ttc = min(35.,tn(ji,jj,1))
           schmitto2 = 1953.4-128.0*ttc+3.9918*ttc**2
      &      -0.050091*ttc**3
@@ -181 +182 @@
           trc2d(ji,jj,2) = flu16*1000.
           trc2d(ji,jj,3) = kgco2(ji,jj)
-          trc2d(ji,jj,4) = atcco2-h2co3(ji,jj)/(chemc(ji,jj,1)+rtrn)
+          trc2d(ji,jj,4) = atcco2-h2co3(ji,jj)/(chemc(ji,jj,3)+rtrn)
 #    endif
 C