New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
par_pisces.F90 in branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES – NEMO

source: branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/par_pisces.F90 @ 7041

Last change on this file since 7041 was 7041, checked in by cetlod, 7 years ago

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

  • Property svn:keywords set to Id
File size: 3.6 KB
RevLine 
[935]1MODULE par_pisces
2   !!======================================================================
3   !!                        ***  par_pisces  ***
4   !! TOP :   set the PISCES parameters
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
7   !!----------------------------------------------------------------------
[2528]8   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
[1152]9   !! $Id$
[2528]10   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
[935]11   !!----------------------------------------------------------------------
12
13   IMPLICIT NONE
14
[7041]15   INTEGER, PUBLIC    ::   jp_pisces   !: number of passive tracers in PISCES
16
17#if defined key_pisces
[3680]18   !!---------------------------------------------------------------------
[7041]19   !!   'key_pisces   :                                PISCES bio-model
[3680]20   !!---------------------------------------------------------------------
21   LOGICAL, PUBLIC, PARAMETER ::   lk_pisces     = .TRUE.  !: PISCES flag
22   ! productive layer depth
[7041]23   INTEGER, PUBLIC ::   jpkb     !: first vertical layers where biology is active
24   INTEGER, PUBLIC ::   jpkbm1   !: first vertical layers where biology is active
[3680]25
[7041]26#else
[935]27   !!---------------------------------------------------------------------
[7041]28   LOGICAL, PUBLIC, PARAMETER ::   lk_pisces     = .FALSE.  !: PISCES flag
29#endif
[935]30
31   ! assign an index in trc arrays for each LOBSTER prognostic variables
[7041]32   INTEGER, PUBLIC ::   jpdet     !: detritus                   
33   INTEGER, PUBLIC ::   jpdom     !: dissolved organic matter
34   INTEGER, PUBLIC ::   jpdic     !: dissolved inoganic carbon concentration
35   INTEGER, PUBLIC ::   jptal     !: total alkalinity
36   INTEGER, PUBLIC ::   jpoxy     !: oxygen carbon concentration
37   INTEGER, PUBLIC ::   jpcal     !: calcite  concentration
38   INTEGER, PUBLIC ::   jppo4     !: phosphate concentration
39   INTEGER, PUBLIC ::   jppoc     !: small particulate organic phosphate concentration
40   INTEGER, PUBLIC ::   jpsil     !: silicate concentration
41   INTEGER, PUBLIC ::   jpphy     !: phytoplancton concentration
42   INTEGER, PUBLIC ::   jpzoo     !: zooplancton concentration
43   INTEGER, PUBLIC ::   jpdoc     !: dissolved organic carbon concentration
44   INTEGER, PUBLIC ::   jpdia     !: Diatoms Concentration
45   INTEGER, PUBLIC ::   jpmes     !: Mesozooplankton Concentration
46   INTEGER, PUBLIC ::   jpdsi     !: Diatoms Silicate Concentration
47   INTEGER, PUBLIC ::   jpfer     !: Iron Concentration
48   INTEGER, PUBLIC ::   jpbfe     !: Big iron particles Concentration
49   INTEGER, PUBLIC ::   jpgoc     !: big particulate organic phosphate concentration
50   INTEGER, PUBLIC ::   jpsfe     !: Small iron particles Concentration
51   INTEGER, PUBLIC ::   jpdfe     !: Diatoms iron Concentration
52   INTEGER, PUBLIC ::   jpgsi     !: (big) Silicate Concentration
53   INTEGER, PUBLIC ::   jpnfe     !: Nano iron Concentration
54   INTEGER, PUBLIC ::   jpnch     !: Nano Chlorophyll Concentration
55   INTEGER, PUBLIC ::   jpdch     !: Diatoms Chlorophyll Concentration
56   INTEGER, PUBLIC ::   jpno3     !: Nitrates Concentration
57   INTEGER, PUBLIC ::   jpnh4     !: Ammonium Concentration
[935]58   !!---------------------------------------------------------------------
59   !!   Default                                   No CFC geochemical model
60   ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done)
[7041]61   INTEGER, PUBLIC  ::   jp_pcs0                    !: First index of PISCES tracers
62   INTEGER, PUBLIC  ::   jp_pcs1                   !: Last  index of PISCES tracers
[935]63
64   !!======================================================================
65END MODULE par_pisces
Note: See TracBrowser for help on using the repository browser.