Changeset 1180 for trunk/NEMO/TOP_SRC/PISCES/p4zche.F90

Timestamp:

2008-09-11T18:41:47+02:00 (16 years ago)

Author:

cetlod

Message:

update PISCES modules to couple with the sediment model, see ticket:249

File:

• trunk/NEMO/TOP_SRC/PISCES/p4zche.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/PISCES/p4zche.F90

@@ -105 +105 @@
       kf4  =-0.001005
 
-
    REAL(wp) :: &              ! coeff. for 1. dissoc. of boric acid (Dickson and Goyet, 1994)
       cb0  = -8966.90, &
@@ -129 +128 @@
       cw6 = -0.01615
  
-   REAL(wp) :: &             ! coeff. for dissoc. of phosphate (Millero (1974)
-      cp10 = 115.54    , &
-      cp11 = -4576.752 , &
-      cp12 = -18.453   , &
-      cp13 = -106.736  , &
-      cp14 = 0.69171   , &
-      cp15 = -0.65643  , &
-      cp16 = -0.01844  , &
-      cp20 = 172.1033  , &
-      cp21 = -8814.715 , &
-      cp22 = -27.927   , &
-      cp23 = -160.340  , &
-      cp24 = 1.3566    , &
-      cp25 = 0.37335   , &
-      cp26 = -0.05778  , &
-      cp30 = -18.126   , &
-      cp31 = -3070.75  , &
-      cp32 = 17.27039  , &
-      cp33 = 2.81197   , &
-      cp34 = -44.99486 , &
-      cp35 = -0.09984
-
-   REAL(wp) :: &             ! coeff. for dissoc. of silicates (Millero (1974)  
-      cs10 = 117.385   , &  
-      cs11 = -8904.2   , & 
-      cs12 = -19.334   , & 
-      cs13 = -458.79   , & 
-      cs14 = 3.5913    , & 
-      cs15 = 188.74    , & 
-      cs16 = -1.5998   , & 
-      cs17 = -12.1652  , & 
-      cs18 = 0.07871   , & 
-      cs19 = 0.        , & 
-      cs20 = 1.        , & 
-      cs21 = -0.001005
-
    REAL(wp) :: &              ! volumetric solubility constants for o2 in ml/l (Weiss, 1974)
       ox0 = -58.3877   , &