Changeset 7046


Ignore:
Timestamp:
2016-10-19T18:00:34+02:00 (4 years ago)
Author:
cetlod
Message:

ROBUST5_CNRS: Minor changes

Location:
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/par_trc.F90

    r7041 r7046  
    2020   IMPLICIT NONE 
    2121 
    22    INTEGER, PUBLIC, PARAMETER  :: jptra_max = 100    !   Maximum number of passive tracers 
    23    INTEGER, PUBLIC             :: jptra     ! Total number of tracers 
    24    INTEGER, PUBLIC             :: jp_lc     ! Total number of tracers 
     22   INTEGER, PUBLIC,  PARAMETER :: jpmaxtrc = 100  ! Maximum number of tracers 
     23   INTEGER, PUBLIC             :: jptra           ! Total number of tracers 
     24   INTEGER, PUBLIC             :: jp_lc           ! Total number of tracers 
    2525 
    26    ! Passive tracers : Maximum number of tracers. Needed to define data structures 
    27    ! ---------------  
    28    INTEGER, PUBLIC,  PARAMETER ::   jpmaxtrc = 100 
    29    REAL(wp), PUBLIC  :: rtrn  = 0.5 * EPSILON( 1.e0 )    !: truncation value 
     26   REAL(wp), PUBLIC            :: rtrn  = 0.5 * EPSILON( 1.e0 )    !: truncation value 
    3027 
    31    !!---------------------------------------------------------------------- 
    32    !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
    33    !! $Id$  
    34    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    35    !!====================================================================== 
    3628END MODULE par_trc 
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r7041 r7046  
    179179      INTEGER  ::   jn                    ! dummy loop indice 
    180180      ! 
    181       TYPE(PTRACER), DIMENSION(jptra_max) :: sn_tracer  ! type of tracer for saving if not key_iomput 
     181      TYPE(PTRACER), DIMENSION(jpmaxtrc) :: sn_tracer  ! type of tracer for saving if not key_iomput 
    182182      !! 
    183183      NAMELIST/namtrc/ln_age, ln_cfc11, ln_cfc12, ln_c14, sn_tracer, ln_trcdta, ln_trcdmp, ln_trcdmp_clo 
Note: See TracChangeset for help on using the changeset viewer.