Ignore:
Timestamp:
2016-06-21T12:54:31+02:00 (5 years ago)
Author:
jpalmier
Message:

JPALM —21-06-2016— debug age tracer par_age

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/AGE/par_age.F90

    r6715 r6726  
    2727   IMPLICIT NONE 
    2828 
    29    INTEGER, PARAMETER ::   jp_lm      =  jp_pisces     + jp_cfc     + jp_c14b     !:  
    30    INTEGER, PARAMETER ::   jp_lm_2d   =  jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d  !: 
    31    INTEGER, PARAMETER ::   jp_lm_3d   =  jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d  !: 
    32    INTEGER, PARAMETER ::   jp_lm_trd  =  jp_pisces_trd + jp_cfc_trd + jp_c14b_trd !: 
     29   INTEGER, PARAMETER ::   jp_lm      =  jp_pisces     + jp_medusa     +            & 
     30                      jp_idtra      + jp_cfc     + jp_c14b     !:  cum. number of pass. tracers 
     31   INTEGER, PARAMETER ::   jp_lm_2d   =  jp_pisces_2d  + jp_medusa_2d  +            & 
     32                      jp_idtra_2d   + jp_cfc_2d  + jp_c14b_2d  !: 
     33   INTEGER, PARAMETER ::   jp_lm_3d   =  jp_pisces_3d  + jp_medusa_3d  +            & 
     34                      jp_idtra_3d   + jp_cfc_3d  + jp_c14b_3d  !: 
     35   INTEGER, PARAMETER ::   jp_lm_trd  =  jp_pisces_trd + jp_medusa_trd +            & 
     36                      jp_idtra_trd  + jp_cfc_trd + jp_c14b_trd !: 
    3337 
    3438#if defined key_age 
Note: See TracChangeset for help on using the changeset viewer.