Changeset 8003 for branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zpoc.F90

Timestamp:

2017-05-09T12:14:45+02:00 (7 years ago)

Author:

aumont

Message:

modification in the code to remove unnecessary parts such as kriest and non iomput options

File:

• branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zpoc.F90 (modified) (7 diffs)

branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zpoc.F90

@@ -65 +65 @@
       REAL(wp) ::   zremip, zremig, zdep, zorem, zorem2, zofer
       REAL(wp) ::   zsizek, zsizek1, alphat, remint, solgoc, zpoc
-#if ! defined key_kriest
       REAL(wp) ::   zofer2, zofer3
-#endif
       REAL(wp) ::   zstep, zrfact2
       CHARACTER (len=25) :: charout
@@ -108 +106 @@
       END DO
 
-#if ! defined key_kriest
 ! -----------------------------------------------------------------------
 ! Lability parameterization. This is the big particles part (GOC)
@@ -200 +197 @@
             DO ji = 1, jpi
                zstep   = xstep
-# if defined key_degrad
-               zstep = zstep * facvol(ji,jj,jk)
-# endif
                ! POC disaggregation by turbulence and bacterial activity. 
                ! --------------------------------------------------------
@@ -371 +365 @@
          END DO
       END DO
-#endif
 
 
@@ -379 +372 @@
                IF (tmask(ji,jj,jk) == 1.) THEN
                  zstep   = xstep
-# if defined key_degrad
-                 zstep = zstep * facvol(ji,jj,jk)
-# endif
                  ! POC disaggregation by turbulence and bacterial activity. 
                  ! --------------------------------------------------------
@@ -387 +377 @@
                  zorem           = zremip * trb(ji,jj,jk,jppoc)
                  zofer           = zremip * trb(ji,jj,jk,jpsfe)
-#if defined key_kriest
-                 zorem2          = zremip * trb(ji,jj,jk,jpnum)
-#endif
 
                  ! Update the appropriate tracers trends
@@ -399 +386 @@
                  zfolimi(ji,jj,jk)   = zfolimi(ji,jj,jk) + zofer
                  tra(ji,jj,jk,jppoc) = tra(ji,jj,jk,jppoc) - zorem
-#if defined key_kriest
-                 tra(ji,jj,jk,jpnum) = tra(ji,jj,jk,jpnum) - zorem2
-#endif
                  tra(ji,jj,jk,jpsfe) = tra(ji,jj,jk,jpsfe) - zofer