Changeset 649 for trunk/NEMO

Timestamp:

2007-04-18T11:22:33+02:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_029:CE:correction in computation of calcite apparent solubility coef

File:

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

trunk/NEMO/TOP_SRC/SMS/p4zche.F

@@ -180 +180 @@
 
 C
+C*2.7 APPARENT SOLUBILITY PRODUCT K'SP OF CALCITE IN SEAWATER
+C       (S=27-43, T=2-25 DEG C) AT pres =0 (ATMOSPH. PRESSURE)
+C       (MUCCI 1983)
+C -------------------------------------------------------------
+C
+            aksp0 = akcc1+akcc2*tkel+akcc3*ztr+akcc4*log10(tkel)+
+     &      (akcc5+akcc6*tkel+
+     &      akcc7*ztr)*zsqrt+akcc8*sal+akcc9*sal15
+
+
+C
 C* 2.6 K1, K2 OF CARBONIC ACID, KB OF BORIC ACID, KW (H2O) (LIT.?)
 C -----------------------------------------------------------------
@@ -195 +206 @@
             akf   = exp(ckf)
 
-
-C
-C*2.7 APPARENT SOLUBILITY PRODUCT K'SP OF CALCITE IN SEAWATER
-C       (S=27-43, T=2-25 DEG C) AT pres =0 (ATMOSPH. PRESSURE)
-C       (MUCCI 1983)
-C -------------------------------------------------------------
-C
-            aksp0 = akcc1+akcc2*tkel+akcc3*ztr+akcc4*log10(tkel)+
-     &      (akcc5+akcc6*tkel+
-     &      akcc7*ztr)*zsqrt+akcc8*sal+akcc9*sal15
 
 C