Changeset 8003 for branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P5Z/p5zpoc.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/P5Z/p5zpoc.F90 (modified) (7 diffs)

branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P5Z/p5zpoc.F90

@@ -70 +70 @@
       REAL(wp) ::   zsizek, zsizek1, alphat, remint
       REAL(wp) ::   solgoc, zpoc
-#if ! defined key_kriest
       REAL(wp) ::   zofer2, zofer3
-#endif
       REAL(wp) ::   step, zrfact2
       CHARACTER (len=25) :: charout
@@ -111 +109 @@
       END DO
 
-#if ! defined key_kriest
 ! -----------------------------------------------------------------------
 ! Lability parameterization. This is the big particles part (GOC)
@@ -203 +200 @@
             DO ji = 1, jpi
                zstep   = xstep
-# if defined key_degrad
-               zstep = zstep * facvol(ji,jj,jk)
-# endif
                ! POC disaggregation by turbulence and bacterial activity. 
                ! --------------------------------------------------------
@@ -380 +374 @@
          END DO
       END DO
-#endif
 
       DO jk = 1, jpkm1
@@ -386 +379 @@
             DO ji = 1, jpi
                zstep   = xstep
-# if defined key_degrad
-               zstep = zstep * facvol(ji,jj,jk)
-# endif
                ! POC disaggregation by turbulence and bacterial activity. 
                ! --------------------------------------------------------
@@ -397 +387 @@
                zopop  = xremipp / xremipc * zremip * trb(ji,jj,jk,jppop)
                zofer  = zremip * trb(ji,jj,jk,jpsfe)
-#if defined key_kriest
-               zopoc2 = xremipc * zremip * trb(ji,jj,jk,jpnum)
-#endif
 
                ! Update the appropriate tracers trends
@@ -411 +398 @@
                tra(ji,jj,jk,jpdop) = tra(ji,jj,jk,jpdop) + zopop 
                tra(ji,jj,jk,jpfer) = tra(ji,jj,jk,jpfer) + zofer 
-#if defined key_kriest
-               tra(ji,jj,jk,jpnum) = tra(ji,jj,jk,jpnum) - zopoc2
-#endif
             END DO
          END DO