Changeset 7176 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zbio.F90

Timestamp:

2016-11-03T16:15:42+01:00 (7 years ago)

Author:

cetlod

Message:

new top interface : merge aggregation routines (p4z & p5z )

File:

• branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zbio.F90 (modified) (3 diffs)

branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zbio.F90

@@ -25 +25 @@
    USE p5zmicro        !  Sources and sinks of microzooplankton
    USE p5zmeso         !  Sources and sinks of mesozooplankton
-   USE p5zagg          !  Aggregation of particles
    USE p4zrem          !  Remineralisation of organic matter
    USE p4zpoc          !  Remineralization of organic particles
@@ -90 +89 @@
          CALL p4z_micro( kt, knt )           ! microzooplankton
          CALL p4z_meso ( kt, knt )           ! mesozooplankton
-         CALL p4z_agg  ( kt, knt )     ! Aggregation of particles
       ELSE
          CALL p5z_lim  ( kt, knt )     ! co-limitations by the various nutrients
@@ -99 +97 @@
          CALL p5z_micro( kt, knt )           ! microzooplankton
          CALL p5z_meso ( kt, knt )           ! mesozooplankton
-         CALL p5z_agg  ( kt, knt )     ! Aggregation of particles
       ENDIF
       !
+      CALL p4z_agg  ( kt, knt )     ! Aggregation of particles
       CALL p4z_rem     ( kt, knt )     ! remineralization terms of organic matter+scavenging of Fe
       CALL p4z_poc     ( kt, knt )     ! Remineralization of organic particles