Changeset 6231 for branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zmort.F90

Timestamp:

2016-01-12T11:51:52+01:00 (8 years ago)

Author:

aumont

Message:

update PISCES QUOTA to its latest version

File:

• branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zmort.F90 (modified) (3 diffs)

branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zmort.F90

@@ -88 +88 @@
          DO jj = 1, jpj
             DO ji = 1, jpi
-               zcompaph = MAX( ( trn(ji,jj,jk,jpphy) - 1e-8 ), 0.e0 )
+               zcompaph = MAX( ( trn(ji,jj,jk,jpphy) - 1e-9 ), 0.e0 )
                zstep    = xstep
 # if defined key_degrad
@@ -168 +168 @@
          DO jj = 1, jpj
             DO ji = 1, jpi
-               zcompaph = MAX( ( trn(ji,jj,jk,jppic) - 1e-8 ), 0.e0 )
+               zcompaph = MAX( ( trn(ji,jj,jk,jppic) - 1e-9 ), 0.e0 )
                zstep    = xstep
 # if defined key_degrad
@@ -242 +242 @@
             DO ji = 1, jpi
 
-               zcompadi = MAX( ( trn(ji,jj,jk,jpdia) - 1E-8), 0. )
+               zcompadi = MAX( ( trn(ji,jj,jk,jpdia) - 1E-9), 0. )
 
                !   Aggregation term for diatoms is increased in case of nutrient