source: branches/CMIP5_IPSL/NEMO/TOP_SRC/PISCES/sms_pisces.F90 @ 1830

Last change on this file since 1830 was 1830, checked in by cetlod, 11 years ago

Computation of additional diagnostics for PISCES model ( under CPP key key_diaar5 )

  • needed for AR5 outputs (vertical inventories, passive tracers at surface,… )
  • new output file with suffix dbio_T
  • Property svn:keywords set to Id
File size: 4.2 KB
Line 
1MODULE sms_pisces   
2   !!----------------------------------------------------------------------
3   !!                     ***  sms_pisces.F90  *** 
4   !! TOP :   PISCES Source Minus Sink variables
5   !!----------------------------------------------------------------------
6   !! History :   1.0  !  2000-02 (O. Aumont) original code
7   !!             3.2  !  2009-04 (C. Ethe & NEMO team) style
8   !!----------------------------------------------------------------------
9
10#if defined key_pisces
11   !!----------------------------------------------------------------------
12   !!   'key_pisces'                                         PISCES model
13   !!----------------------------------------------------------------------
14   USE par_oce
15   USE par_trc
16
17   IMPLICIT NONE
18   PUBLIC
19
20   !!*  Time variables
21   INTEGER  ::   nrdttrc           !: ???
22   INTEGER  ::   ndayflxtr         !: ???
23   REAL(wp) ::   rfact , rfactr    !: ???
24   REAL(wp) ::   rfact2, rfact2r   !: ???
25
26   !!*  Biological parameters
27   REAL(wp) ::   part              !: ???
28   REAL(wp) ::   rno3              !: ???
29   REAL(wp) ::   o2ut              !: ???
30   REAL(wp) ::   po4r              !: ???
31   REAL(wp) ::   rdenit            !: ???
32   REAL(wp) ::   o2nit             !: ???
33   REAL(wp) ::   wsbio, wsbio2     !: ???
34   REAL(wp) ::   xkmort            !: ???
35   REAL(wp) ::   ferat3            !: ???
36
37   !!* Damping
38   LOGICAL  ::   ln_pisdmp         !: relaxation or not of nutrients to a mean value
39                                   !: when initialize from a restart file
40   LOGICAL  ::   ln_pisclo         !: Restoring or not of nutrients to initial value
41                                   !: on close seas
42
43   !!*  Biological fluxes for light
44   INTEGER , DIMENSION(jpi,jpj)     ::   neln       !: number of T-levels + 1 in the euphotic layer
45   REAL(wp), DIMENSION(jpi,jpj)     ::   heup       !: euphotic layer depth
46
47   !!*  Biological fluxes for primary production
48   REAL(wp), DIMENSION(jpi,jpj)     ::   xksi       !: ???
49   REAL(wp), DIMENSION(jpi,jpj)     ::   xksimax    !: ???
50   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xnanono3   !: ???
51   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xdiatno3   !: ???
52   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xnanonh4   !: ???
53   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xdiatnh4   !: ???
54   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xlimphy    !: ???
55   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xlimdia    !: ???
56   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   concdfe    !: ???
57   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   concnfe    !: ???
58
59   !!*  SMS for the organic matter
60   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xfracal    !: ??
61   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   nitrfac    !: ??
62   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xlimbac    !: ??
63   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xdiss      !: ??
64#if defined key_trc_dia3d
65   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   prodcal    !: Calcite production
66   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   grazing    !: Total zooplankton grazing
67#endif
68
69   !!* Variable for chemistry of the CO2 cycle
70   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   akb3       !: ???
71   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   ak13       !: ???
72   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   ak23       !: ???
73   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   aksp       !: ???
74   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   akw3       !: ???
75   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   borat      !: ???
76   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   hi         !: ???
77
78#if defined key_kriest
79   !!*  Kriest parameter for aggregation
80   REAL(wp) ::   xkr_eta                            !: ???
81   REAL(wp) ::   xkr_zeta                           !: ???
82   REAL(wp) ::   xkr_massp                          !: ???
83   REAL(wp) ::   xkr_mass_min, xkr_mass_max         !: ???
84#endif
85
86#else
87   !!----------------------------------------------------------------------   
88   !!  Empty module :                                     NO PISCES model
89   !!----------------------------------------------------------------------
90#endif
91   
92   !!----------------------------------------------------------------------
93   !! NEMO/TOP 3.2 , LOCEAN-IPSL (2009)
94   !! $Id$
95   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
96   !!======================================================================   
97END MODULE sms_pisces   
Note: See TracBrowser for help on using the repository browser.