MODULE par_pisces !!====================================================================== !! *** par_pisces *** !! TOP : set the PISCES parameters !!====================================================================== !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) revised architecture !!---------------------------------------------------------------------- !! NEMO/TOP 3.3 , NEMO Consortium (2010) !! $Id$ !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- IMPLICIT NONE INTEGER, PUBLIC :: jp_pisces !: number of passive tracers in PISCES #if defined key_pisces !!--------------------------------------------------------------------- !! 'key_pisces : PISCES bio-model !!--------------------------------------------------------------------- LOGICAL, PUBLIC, PARAMETER :: lk_pisces = .TRUE. !: PISCES flag ! productive layer depth INTEGER, PUBLIC :: jpkb !: first vertical layers where biology is active INTEGER, PUBLIC :: jpkbm1 !: first vertical layers where biology is active #else !!--------------------------------------------------------------------- LOGICAL, PUBLIC, PARAMETER :: lk_pisces = .FALSE. !: PISCES flag #endif ! assign an index in trc arrays for each LOBSTER prognostic variables INTEGER, PUBLIC :: jpdet !: detritus INTEGER, PUBLIC :: jpdom !: dissolved organic matter INTEGER, PUBLIC :: jpdic !: dissolved inoganic carbon concentration INTEGER, PUBLIC :: jptal !: total alkalinity INTEGER, PUBLIC :: jpoxy !: oxygen carbon concentration INTEGER, PUBLIC :: jpcal !: calcite concentration INTEGER, PUBLIC :: jppo4 !: phosphate concentration INTEGER, PUBLIC :: jppoc !: small particulate organic phosphate concentration INTEGER, PUBLIC :: jpsil !: silicate concentration INTEGER, PUBLIC :: jpphy !: phytoplancton concentration INTEGER, PUBLIC :: jpzoo !: zooplancton concentration INTEGER, PUBLIC :: jpdoc !: dissolved organic carbon concentration INTEGER, PUBLIC :: jpdia !: Diatoms Concentration INTEGER, PUBLIC :: jpmes !: Mesozooplankton Concentration INTEGER, PUBLIC :: jpdsi !: Diatoms Silicate Concentration INTEGER, PUBLIC :: jpfer !: Iron Concentration INTEGER, PUBLIC :: jpbfe !: Big iron particles Concentration INTEGER, PUBLIC :: jpgoc !: big particulate organic phosphate concentration INTEGER, PUBLIC :: jpsfe !: Small iron particles Concentration INTEGER, PUBLIC :: jpdfe !: Diatoms iron Concentration INTEGER, PUBLIC :: jpgsi !: (big) Silicate Concentration INTEGER, PUBLIC :: jpnfe !: Nano iron Concentration INTEGER, PUBLIC :: jpnch !: Nano Chlorophyll Concentration INTEGER, PUBLIC :: jpdch !: Diatoms Chlorophyll Concentration INTEGER, PUBLIC :: jpno3 !: Nitrates Concentration INTEGER, PUBLIC :: jpnh4 !: Ammonium Concentration !!--------------------------------------------------------------------- !! Default No CFC geochemical model ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done) INTEGER, PUBLIC :: jp_pcs0 !: First index of PISCES tracers INTEGER, PUBLIC :: jp_pcs1 !: Last index of PISCES tracers !!====================================================================== END MODULE par_pisces