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 8353 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90 – NEMO

Ignore:
Timestamp:
2017-07-19T16:41:00+02:00 (7 years ago)
Author:
lovato
Message:

3.6 stable: update TOP modules and shared configuraton files for CMIP6 (#1925)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90

    r7494 r8353  
    1515   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES 
    1616 
    17    USE par_cfc    , ONLY : jp_cfc          !: number of tracers in CFC 
    18    USE par_cfc    , ONLY : jp_cfc_2d       !: number of tracers in CFC 
    19    USE par_cfc    , ONLY : jp_cfc_3d       !: number of tracers in CFC 
    20    USE par_cfc    , ONLY : jp_cfc_trd      !: number of tracers in CFC 
    21  
    22    USE par_c14b   , ONLY : jp_c14b         !: number of tracers in C14 
    23    USE par_c14b   , ONLY : jp_c14b_2d      !: number of tracers in C14 
    24    USE par_c14b   , ONLY : jp_c14b_3d      !: number of tracers in C14 
    25    USE par_c14b   , ONLY : jp_c14b_trd     !: number of tracers in C14 
    26  
    27    USE par_age   , ONLY : jp_age         !: number of tracers in AGE 
    28    USE par_age   , ONLY : jp_age_2d      !: number of tracers in AGE 
    29    USE par_age   , ONLY : jp_age_3d      !: number of tracers in AGE 
    30    USE par_age   , ONLY : jp_age_trd     !: number of tracers in AGE 
    31  
    3217   IMPLICIT NONE 
    3318 
    34    INTEGER, PARAMETER ::   jp_lm      =  jp_pisces     + jp_cfc     + jp_c14b     + jp_age      !:  
    35    INTEGER, PARAMETER ::   jp_lm_2d   =  jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d  + jp_age_2d   !: 
    36    INTEGER, PARAMETER ::   jp_lm_3d   =  jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d  + jp_age_3d   !: 
    37    INTEGER, PARAMETER ::   jp_lm_trd  =  jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_age_trd  !: 
     19   INTEGER, PARAMETER ::   jp_lm      =  jp_pisces     !:  
     20   INTEGER, PARAMETER ::   jp_lm_2d   =  jp_pisces_2d  !: 
     21   INTEGER, PARAMETER ::   jp_lm_3d   =  jp_pisces_3d  !: 
     22   INTEGER, PARAMETER ::   jp_lm_trd  =  jp_pisces_trd !: 
    3823 
    3924#if defined key_my_trc 
Note: See TracChangeset for help on using the changeset viewer.