MODULE par_LOBSTER !!====================================================================== !! *** par_LOBSTER *** !! TOP : set the LOBSTER 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) !!---------------------------------------------------------------------- IMPLICIT NONE PUBLIC #if defined key_trc_lobster1 !!--------------------------------------------------------------------- !! 'key_trc_lobster1' : LOBSTER model !!--------------------------------------------------------------------- LOGICAL, PUBLIC, PARAMETER :: lk_trc_lobster = .TRUE. !: LOBSTER flag INTEGER, PUBLIC, PARAMETER :: jp_lobster = 6 !: number of LOBSTER tracers INTEGER, PUBLIC, PARAMETER :: jp_lobster_2d = 19 !: additional 2d output arrays ('key_trc_diaadd') INTEGER, PUBLIC, PARAMETER :: jp_lobster_3d = 3 !: additional 3d output arrays ('key_trc_diaadd') INTEGER, PUBLIC, PARAMETER :: jp_lobster_trd = 15 !: number of sms trends for LOBSTER ! assign an index in trc arrays for each LOBSTER prognostic variables INTEGER, PUBLIC, PARAMETER :: jpdet = 1 !: detritus [mmoleN/m3] INTEGER, PUBLIC, PARAMETER :: jpzoo = 2 !: zooplancton concentration [mmoleN/m3] INTEGER, PUBLIC, PARAMETER :: jpphy = 3 !: phytoplancton concentration [mmoleN/m3] INTEGER, PUBLIC, PARAMETER :: jpno3 = 4 !: nitrate concentration [mmoleN/m3] INTEGER, PUBLIC, PARAMETER :: jpnh4 = 5 !: ammonium concentration [mmoleN/m3] INTEGER, PUBLIC, PARAMETER :: jpdom = 6 !: dissolved organic matter [mmoleN/m3] ! productive layer depth INTEGER, PUBLIC, PARAMETER :: jpkb = 12 !: first vertical layers where biology is active INTEGER, PUBLIC, PARAMETER :: jpkbm1 = jpkb - 1 !: first vertical layers where biology is active #else !!--------------------------------------------------------------------- !! Default No LOBSTER model !!--------------------------------------------------------------------- LOGICAL, PUBLIC, PARAMETER :: lk_trc_lobster = .FALSE. !: LOBSTER flag INTEGER, PUBLIC, PARAMETER :: jp_lobster = 0 !: No LOBSTER tracers INTEGER, PUBLIC, PARAMETER :: jp_lobster_2d = 0 !: No LOBSTER additional 2d output arrays INTEGER, PUBLIC, PARAMETER :: jp_lobster_3d = 0 !: No LOBSTER additional 3d output arrays INTEGER, PUBLIC, PARAMETER :: jp_lobster_trd = 0 !: number of sms trends for LOBSTER #endif ! Starting/ending LOBSTER do-loop indices (N.B. no LOBSTER : jpl_lob < jpf_lob the do-loop are never done) INTEGER, PUBLIC, PARAMETER :: jpf_lob = 1 !: First index of LOBSTER tracers INTEGER, PUBLIC, PARAMETER :: jpl_lob = jp_lobster !: Last index of LOBSTER tracers !!====================================================================== END MODULE par_LOBSTER