New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7198 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/par_trc.F90 – NEMO

Ignore:
Timestamp:
2016-11-04T18:58:24+01:00 (7 years ago)
Author:
lovato
Message:

New top interface : merge with dev_r7012_ROBUST5_CMCC (#1783) and update sette.sh

File:
1 edited

Legend:

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

    r7068 r7198  
    2121   INTEGER, PUBLIC,  PARAMETER :: jpmaxtrc = 100  ! Maximum number of tracers 
    2222 
    23    INTEGER, PUBLIC             :: jptra           ! Total number of tracers 
     23   INTEGER, PUBLIC             :: jptra           !: Total number of passive tracers 
    2424   INTEGER, PUBLIC             :: jp_pisces       !: number of passive tracers in PISCES model 
    2525   INTEGER, PUBLIC             :: jp_cfc          !: number of CFC passive tracers  
    2626   INTEGER, PUBLIC             :: jp_my_trc       !: number of passive tracers in MY_TRC model 
     27   INTEGER, PUBLIC             :: jp_bgc          !: number of passive tracers for the BGC model 
     28 
     29   INTEGER, PUBLIC             :: jp_dia3d        !: number of 3D diagnostic variables 
     30   INTEGER, PUBLIC             :: jp_dia2d        !: number of 2D diagnostic variables 
    2731 
    2832   LOGICAL, PUBLIC             :: ln_pisces       !: PISCES flag  
     
    3438   LOGICAL, PUBLIC             :: ln_my_trc       !: MY_TRC flag  
    3539 
    36  
    37    INTEGER, PUBLIC             :: jp_bgc          !: number of passive tracers for the BGC model 
    38  
    3940   REAL(wp), PUBLIC            :: rtrn  = 0.5 * EPSILON( 1.e0 )    !: truncation value 
    4041 
Note: See TracChangeset for help on using the changeset viewer.