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/C14b/par_c14b.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/C14b/par_c14b.F90

    r3680 r8353  
    1111   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES 
    1212 
     13   USE par_my_trc , ONLY : jp_my_trc       !: number of tracers in MY_TRC 
     14   USE par_my_trc , ONLY : jp_my_trc_2d    !: number of 2D diag in MY_TRC 
     15   USE par_my_trc , ONLY : jp_my_trc_3d    !: number of 3D diag in MY_TRC 
     16   USE par_my_trc , ONLY : jp_my_trc_trd   !: number of biological diag in MY_TRC 
     17 
    1318   USE par_cfc    , ONLY : jp_cfc          !: number of tracers in CFC 
    1419   USE par_cfc    , ONLY : jp_cfc_2d       !: number of 2D diag in CFC 
     
    1924   IMPLICIT NONE 
    2025 
    21    INTEGER, PARAMETER ::   jp_lb      =  jp_pisces     + jp_cfc     !: cum. number of pass. tracers 
    22    INTEGER, PARAMETER ::   jp_lb_2d   =  jp_pisces_2d  + jp_cfc_2d  !: 
    23    INTEGER, PARAMETER ::   jp_lb_3d   =  jp_pisces_3d  + jp_cfc_3d  !: 
    24    INTEGER, PARAMETER ::   jp_lb_trd  =  jp_pisces_trd + jp_cfc_trd !: 
     26   INTEGER, PARAMETER ::   jp_lb      =  jp_pisces     + jp_my_trc     + jp_cfc     !: cum. number of pass. tracers 
     27   INTEGER, PARAMETER ::   jp_lb_2d   =  jp_pisces_2d  + jp_my_trc_2d  + jp_cfc_2d  !: 
     28   INTEGER, PARAMETER ::   jp_lb_3d   =  jp_pisces_3d  + jp_my_trc_3d  + jp_cfc_3d  !: 
     29   INTEGER, PARAMETER ::   jp_lb_trd  =  jp_pisces_trd + jp_my_trc_trd + jp_cfc_trd !: 
    2530    
    2631#if defined key_c14b 
Note: See TracChangeset for help on using the changeset viewer.