Changeset 7046 for branches

Timestamp:

2016-10-19T18:00:34+02:00 (8 years ago)

Author:

cetlod

Message:

ROBUST5_CNRS: Minor changes

Location:

branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC

Files:

• par_trc.F90 (modified) (1 diff)
• trcnam.F90 (modified) (1 diff)

branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/par_trc.F90

@@ -20 +20 @@
    IMPLICIT NONE
 
-   INTEGER, PUBLIC, PARAMETER  :: jptra_max = 100    !   Maximum number of passive tracers
-   INTEGER, PUBLIC             :: jptra     ! Total number of tracers
-   INTEGER, PUBLIC             :: jp_lc     ! Total number of tracers
+   INTEGER, PUBLIC,  PARAMETER :: jpmaxtrc = 100  ! Maximum number of tracers
+   INTEGER, PUBLIC             :: jptra           ! Total number of tracers
+   INTEGER, PUBLIC             :: jp_lc           ! Total number of tracers
 
-   ! Passive tracers : Maximum number of tracers. Needed to define data structures
-   ! --------------- 
-   INTEGER, PUBLIC,  PARAMETER ::   jpmaxtrc = 100
-   REAL(wp), PUBLIC  :: rtrn  = 0.5 * EPSILON( 1.e0 )    !: truncation value
+   REAL(wp), PUBLIC            :: rtrn  = 0.5 * EPSILON( 1.e0 )    !: truncation value
 
-   !!----------------------------------------------------------------------
-   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
-   !! $Id$ 
-   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
-   !!======================================================================
 END MODULE par_trc

branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

@@ -179 +179 @@
       INTEGER  ::   jn                    ! dummy loop indice
       !
-      TYPE(PTRACER), DIMENSION(jptra_max) :: sn_tracer  ! type of tracer for saving if not key_iomput
+      TYPE(PTRACER), DIMENSION(jpmaxtrc) :: sn_tracer  ! type of tracer for saving if not key_iomput
       !!
       NAMELIST/namtrc/ln_age, ln_cfc11, ln_cfc12, ln_c14, sn_tracer, ln_trcdta, ln_trcdmp, ln_trcdmp_clo