Changeset 14306 for NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/SED/sedini.F90

Timestamp:

2021-01-15T13:35:15+01:00 (3 years ago)

Author:

aumont

Message:

small bug fixes and improvements in the diagenetic module

File:

• NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/SED/sedini.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/SED/sedini.F90

@@ -40 +40 @@
 
    REAL(wp), PUBLIC    ::  &
-      redO2    =  172.  ,  &  !: Redfield coef for Oxygen
+      redO2    =  133.  ,  &  !: Redfield coef for Oxygen
       redNo3   =   16.  ,  &  !: Redfield coef for Nitrate
       redPo4   =    1.  ,  &  !: Redfield coef for Phosphate
@@ -70 +70 @@
 
    REAL(wp), DIMENSION(jpwat), PUBLIC  :: diff1
-   DATA diff1/4.59E-6, 1.104E-5, 4.81E-6 , 9.78E-6, 3.58E-6, 4.01E-6, 9.8E-6, 9.73E-6, 5.0E-6, 3.31E-6 /
+   DATA diff1/4.59E-6, 1.104E-5, 4.81E-6 , 9.78E-6, 3.58E-6, 4.81E-6, 9.8E-6, 9.73E-6, 5.0E-6, 3.31E-6 /
 
    REAL(wp), DIMENSION(jpwat), PUBLIC  :: diff2
-   DATA diff2/1.74E-7, 4.47E-7, 2.51E-7, 3.89E-7, 1.77E-7, 2.5E-7, 3.89E-7, 3.06E-7, 2.5E-7, 1.5E-7 /
+   DATA diff2/1.74E-7, 4.47E-7, 2.51E-7, 3.89E-7, 1.77E-7, 2.51E-7, 3.89E-7, 3.06E-7, 2.5E-7, 1.5E-7 /
 
 
@@ -217 +217 @@
       ! --------------------------------
       IF (ln_sediment_offline) THEN
-         CALL trc_dta_ini(jptra)
          CALL trc_dmp_sed_ini
       ENDIF