Changeset 649 for trunk/NEMO/TOP_SRC/SMS/p4zche.F
- Timestamp:
- 2007-04-18T11:22:33+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/SMS/p4zche.F
r617 r649 180 180 181 181 C 182 C*2.7 APPARENT SOLUBILITY PRODUCT K'SP OF CALCITE IN SEAWATER 183 C (S=27-43, T=2-25 DEG C) AT pres =0 (ATMOSPH. PRESSURE) 184 C (MUCCI 1983) 185 C ------------------------------------------------------------- 186 C 187 aksp0 = akcc1+akcc2*tkel+akcc3*ztr+akcc4*log10(tkel)+ 188 & (akcc5+akcc6*tkel+ 189 & akcc7*ztr)*zsqrt+akcc8*sal+akcc9*sal15 190 191 192 C 182 193 C* 2.6 K1, K2 OF CARBONIC ACID, KB OF BORIC ACID, KW (H2O) (LIT.?) 183 194 C ----------------------------------------------------------------- … … 195 206 akf = exp(ckf) 196 207 197 198 C199 C*2.7 APPARENT SOLUBILITY PRODUCT K'SP OF CALCITE IN SEAWATER200 C (S=27-43, T=2-25 DEG C) AT pres =0 (ATMOSPH. PRESSURE)201 C (MUCCI 1983)202 C -------------------------------------------------------------203 C204 aksp0 = akcc1+akcc2*tkel+akcc3*ztr+akcc4*log10(tkel)+205 & (akcc5+akcc6*tkel+206 & akcc7*ztr)*zsqrt+akcc8*sal+akcc9*sal15207 208 208 209 C
Note: See TracChangeset
for help on using the changeset viewer.