MODULE par_cfc !!====================================================================== !! *** par_cfc *** !! TOP : set the CFC parameters !!====================================================================== !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) revised architecture !!---------------------------------------------------------------------- !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) !! $Id:$ !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- USE par_lobster, ONLY : jp_lobster !: number of tracers in LOBSTER USE par_pisces , ONLY : jp_pisces !: number of tracers in PISCES IMPLICIT NONE PUBLIC INTEGER, PUBLIC, PARAMETER :: jp_lp = jp_lobster + jp_pisces !: cumulative number of passive tracers #if defined key_cfc !!--------------------------------------------------------------------- !! 'key_cfc' : CFC tracers !!--------------------------------------------------------------------- LOGICAL, PUBLIC, PARAMETER :: lk_trc_cfc = .TRUE. !: CFC flag INTEGER, PUBLIC, PARAMETER :: jp_cfc = 2 !: number of passive tracers INTEGER, PUBLIC, PARAMETER :: jp_cfc_2d = 1 !: additional 2d output arrays ('key_trc_diaadd') INTEGER, PUBLIC, PARAMETER :: jp_cfc_3d = 1 !: additional 3d output arrays ('key_trc_diaadd') INTEGER, PUBLIC, PARAMETER :: jp_cfc_trd = 0 !: number of sms trends for CFC ! assign an index in trc arrays for each CFC prognostic variables INTEGER, PUBLIC, PARAMETER :: jp11 = jp_lp + 1 !: CFC-11 INTEGER, PUBLIC, PARAMETER :: jp12 = jp_lp + 2 !: CFC-12 #else !!--------------------------------------------------------------------- !! Default : No CFC tracers !!--------------------------------------------------------------------- LOGICAL, PUBLIC, PARAMETER :: lk_trc_cfc = .FALSE. !: CFC flag INTEGER, PUBLIC, PARAMETER :: jp_cfc = 0 !: No CFC tracers INTEGER, PUBLIC, PARAMETER :: jp_cfc_2d = 0 !: No CFC additional 2d output arrays INTEGER, PUBLIC, PARAMETER :: jp_cfc_3d = 0 !: No CFC additional 3d output arrays INTEGER, PUBLIC, PARAMETER :: jp_cfc_trd = 0 !: number of sms trends for CFC #endif ! Starting/ending CFC do-loop indices (N.B. no CFC : jp_cfc0 > jp_cfc1 the do-loop are never done) INTEGER, PUBLIC, PARAMETER :: jp_cfc0 = jp_lp + 1 !: First index of CFC tracers INTEGER, PUBLIC, PARAMETER :: jp_cfc1 = jp_lp + jp_cfc !: Last index of CFC tracers !!====================================================================== END MODULE par_cfc