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 7041 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/par_trc.F90 – NEMO

Ignore:
Timestamp:
2016-10-19T12:55:07+02:00 (8 years ago)
Author:
cetlod
Message:

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4529 r7041  
    1111   USE par_kind          ! kind parameters 
    1212   ! 
    13    USE par_pisces    ! PISCES  model 
    14    USE par_c14b      ! C14 bomb tracer 
    15    USE par_cfc       ! CFC 11 and 12 tracers 
    16    USE par_my_trc    ! user defined passive tracers 
     13   ! 
     14   USE par_pisces 
     15   USE par_c14   
     16   USE par_cfc 
     17   USE par_age  
     18   USE par_my_trc 
    1719 
    1820   IMPLICIT NONE 
     21 
     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 
    1925 
    2026   ! Passive tracers : Maximum number of tracers. Needed to define data structures 
    2127   ! ---------------  
    2228   INTEGER, PUBLIC,  PARAMETER ::   jpmaxtrc = 100 
    23  
    24    ! Passive tracers : Total size 
    25    ! ---------------               ! total number of passive tracers, of 2d and 3d output and trend arrays 
    26    INTEGER, PUBLIC,  PARAMETER ::   jptra    =  jp_pisces     + jp_cfc     + jp_c14b    + jp_my_trc 
    27    INTEGER, PUBLIC,  PARAMETER ::   jpdia2d  =  jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d + jp_my_trc_2d 
    28    INTEGER, PUBLIC,  PARAMETER ::   jpdia3d  =  jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d + jp_my_trc_3d 
    29    !                     ! total number of sms diagnostic arrays 
    30    INTEGER, PUBLIC,  PARAMETER ::   jpdiabio =  jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd 
    31     
    32    !  1D configuration ("key_c1d") 
    33    ! ----------------- 
    34 # if defined key_c1d 
    35    LOGICAL, PUBLIC, PARAMETER ::   lk_trc_c1d   = .TRUE.   !: 1D pass. tracer configuration flag 
    36 # else    
    37    LOGICAL, PUBLIC, PARAMETER ::   lk_trc_c1d   = .FALSE.  !: 1D pass. tracer configuration flag 
    38 # endif 
    39  
    4029   REAL(wp), PUBLIC  :: rtrn  = 0.5 * EPSILON( 1.e0 )    !: truncation value 
    4130 
Note: See TracChangeset for help on using the changeset viewer.