Changeset 1253 for trunk/NEMO
- Timestamp:
- 2009-01-13T10:55:38+01:00 (16 years ago)
- Location:
- trunk/NEMO/TOP_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/CFC/par_cfc.F90
r1152 r1253 34 34 LOGICAL, PUBLIC, PARAMETER :: lk_cfc = .TRUE. !: CFC flag 35 35 INTEGER, PUBLIC, PARAMETER :: jp_cfc = 2 !: number of passive tracers 36 INTEGER, PUBLIC, PARAMETER :: jp_cfc_2d = 0!: additional 2d output arrays ('key_trc_diaadd')36 INTEGER, PUBLIC, PARAMETER :: jp_cfc_2d = 2 !: additional 2d output arrays ('key_trc_diaadd') 37 37 INTEGER, PUBLIC, PARAMETER :: jp_cfc_3d = 0 !: additional 3d output arrays ('key_trc_diaadd') 38 38 INTEGER, PUBLIC, PARAMETER :: jp_cfc_trd = 0 !: number of sms trends for CFC 39 39 40 40 ! assign an index in trc arrays for each CFC prognostic variables 41 INTEGER, PUBLIC, PARAMETER :: jp 11 = jp_lp + 1 !: CFC-1142 INTEGER, PUBLIC, PARAMETER :: jp 12 = jp_lp + 2 !: CFC-1241 INTEGER, PUBLIC, PARAMETER :: jpc11 = jp_lp + 1 !: CFC-11 42 INTEGER, PUBLIC, PARAMETER :: jpc12 = jp_lp + 2 !: CFC-12 43 43 #else 44 44 !!--------------------------------------------------------------------- -
trunk/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90
r1162 r1253 7 7 !!---------------------------------------------------------------------- 8 8 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 9 !! $Id :$9 !! $Id$ 10 10 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 11 11 !!---------------------------------------------------------------------- … … 25 25 USE par_cfc , ONLY : jp_cfc_trd !: number of tracers in CFC 26 26 27 USE par_c14b , ONLY : jp_c14b !: number of tracers in C14 28 USE par_c14b , ONLY : jp_c14b_2d !: number of tracers in C14 29 USE par_c14b , ONLY : jp_c14b_3d !: number of tracers in C14 30 USE par_c14b , ONLY : jp_c14b_trd !: number of tracers in C14 31 27 32 IMPLICIT NONE 28 33 PUBLIC 29 34 30 INTEGER, PUBLIC, PARAMETER :: jp_lpc = jp_lobster + jp_pisces + jp_cfc !: cumulative number of TRC31 INTEGER, PUBLIC, PARAMETER :: jp_lpc_2d = jp_lobster_2d + jp_pisces_2d + jp_cfc_2d !:32 INTEGER, PUBLIC, PARAMETER :: jp_lpc_3d = jp_lobster_3d + jp_pisces_3d + jp_cfc_3d !:33 INTEGER, PUBLIC, PARAMETER :: jp_lpc_trd = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd !:35 INTEGER, PUBLIC, PARAMETER :: jp_lpc = jp_lobster + jp_pisces + jp_cfc + jp_c14b !: 36 INTEGER, PUBLIC, PARAMETER :: jp_lpc_2d = jp_lobster_2d + jp_pisces_2d + jp_cfc_2d + jp_c14b_2d !: 37 INTEGER, PUBLIC, PARAMETER :: jp_lpc_3d = jp_lobster_3d + jp_pisces_3d + jp_cfc_3d + jp_c14b_3d !: 38 INTEGER, PUBLIC, PARAMETER :: jp_lpc_trd = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_c14b_trd !: 34 39 35 40 #if defined key_my_trc
Note: See TracChangeset
for help on using the changeset viewer.