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.
sms_pisces.h90 in trunk/NEMO/TOP_SRC/SMS – NEMO

source: trunk/NEMO/TOP_SRC/SMS/sms_pisces.h90 @ 700

Last change on this file since 700 was 699, checked in by smasson, 17 years ago

insert revision Id
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 7.3 KB
Line 
1!!---------------------------------------------------------------------
2!!
3!!                         COMMON passivetrc.pisces.h
4!!                       ******************************
5!!
6!!  purpose :
7!!  ---------
8!!     INCLUDE COMMON FILE for PISCES biological model
9!!
10!!  modifications :
11!!   -------------
12!!      original    : 00-02 (O. Aumont)
13!!
14!!
15   !!----------------------------------------------------------------------
16   !!  TOP 1.0 , LOCEAN-IPSL (2005)
17   !! $Id$
18   !! This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
19   !!----------------------------------------------------------------------
20
21#if defined key_trc_pisces
22!!
23!!----------------------------------------------------------------------
24!!
25!! Variable for chemistry of the CO2 cycle
26!!
27!! ---------------------------------------------------------------------
28!!
29      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &
30         akb3, ak13, ak23, aksp, akw3, &
31         akp13, akp23, akp33, aksi3, aks3, akf3, &
32         hi, borat
33
34      REAL :: &
35         atcco2, atcox
36
37!!
38!!----------------------------------------------------------------------
39!!
40!!  Variable for chemistry of the CO2 cycle
41!!
42!! ---------------------------------------------------------------------
43!!
44      REAL(wp), DIMENSION(10)  :: &
45         devk1, devk2, devk3, devk4, devk5     
46   
47      REAL(wp) :: &
48         akcc1, akcc2, akcc3, akcc4,akcc5, akcc6, akcc7, akcc8, akcc9 , &
49         bor1, bor2, c00, c01, c02, c03, c04, c05, c10, c11, &
50         c12, c13, c20, c21, c22, c23, cb0, cb1, cb2, cb3, &
51         cb4, cb5, cb6, cb7, cb8, cb9, cb10, cb11, c14, &
52         cw3, cw4, cw5, cw6, cw0, cw1, cw2, ox0, ox1, ox2, ox3, ox4,ox5, &
53         salchl, rgas, oxyco, ca0, ca1, ca2, ca3, ca4, ca5, ca6, &
54         cp10, cp11, cp12, cp13, cp14, cp15, cp16, cp20, cp21, &
55         cp22, cp23, cp24, cp25, cp26, cp30, cp31, cp32, cp33, &
56         cp34, cp35, cs10, cs11, cs12, cs13, cs14, cs15, cs16, &
57         cs17, cs18, cs19, cs20, cs21, &
58         st1, st2, ft1, ft2, ks0, ks1, ks2, ks3, ks4, ks5, &
59         ks6, ks7, ks8, ks9, ks10, ks11, ks12, kf0, kf1, &
60         kf2, kf3, kf4
61
62      REAL(wp), DIMENSION(jpi,jpj,3) :: &
63         chemc
64
65!!
66!!----------------------------------------------------------------------
67!!
68!!  Variable for chemistry of Fe and SIO3
69!!
70!! ---------------------------------------------------------------------
71!!
72      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &
73         sio3eq, fekeq
74!!
75!!----------------------------------------------------------------------
76!!
77!!  Variable for simplified sediments
78!!
79!! ---------------------------------------------------------------------
80!!
81      REAL(wp), DIMENSION(jpi,jpj) :: &
82         sedpoc, sedcal, sedsil
83
84      REAL(wp) :: &
85         sedlam,sedlostpoc, sedlostsil,sedlostcal
86
87
88!!
89!!----------------------------------------------------------------------
90!!
91!!  Time variables
92!!
93!! ---------------------------------------------------------------------
94!!
95
96      INTEGER :: &
97         iabsyr, nrdttrc, ndayflxtr
98
99      REAL(wp) :: &
100         tspyr, absyr, xtvit , &
101         rfact, rfactr, rfact2, rfact2r
102
103
104!!
105!!----------------------------------------------------------------------
106!!
107!!  Gas exchange
108!!
109!! ---------------------------------------------------------------------
110!!
111      REAL(wp), DIMENSION(jpi,jpj) :: &
112         strn
113!!---------------------------------------
114!!
115!!  Biological parameters
116!!
117!! --------------------------------------
118!!
119      INTEGER :: &
120         jkopt
121
122      REAL(wp) :: &
123         caco3r, kdca, nca, part, rno3, o2ut, po4r,  &
124         sco2, dispo0, conc0,sumdepsi,rivalkinput,sedfeinput, &
125         calcon, rivpo4input,nitdepinput,oxymin,spocri, &
126         nitrif,rdenit,o2nit,concnnh4,concdnh4, &
127         pislope,excret,wsbio,resrat,mprat,wchl,wchld, &
128         mzrat,grazrat,xprefc,xprefp,unass,xkgraz,xkmort, &
129         xksi1,xksi2,sicmax,xremik,xremip,xkdoc1, &
130         xkdoc2,grosip,resrat2,excret2,mprat2,mzrat2,xprefz, &
131         xkgraz2,grazrat2,xlam1,conc1,conc2,conc3, &
132         unass2,xprefpoc,epsher,epsher2,pislope2,mpratm, &
133         sigma1, sigma2, zprefc, zprefp, zprefd, wchl2, ferat3, &
134         xsirem, fecnm, fecdm, chlcnm, chlcdm
135
136
137
138!!
139!!---------------------------------------------
140!!
141!!  Biological fluxes for light
142!!
143!!---------------------------------------------
144!!
145      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &
146         etot, etot3, emoy
147
148      REAL(wp), DIMENSION(jpi,jpj) :: &
149         zmeu
150
151      REAL(wp), DIMENSION(3,61) :: &
152         xkrgb
153
154
155!!
156!!----------------------------------------------------------
157!!
158!!  Biological fluxes for primary production
159!!
160!!----------------------------------------------------------
161!!
162      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &
163         prmax, tgfunc, tgfunc2, &
164         prcaca, prorca, prorca2, prorca3, &
165         prorca4, prorca5, prorca6, prorca7, &
166         pronew, pronew2, proreg, proreg2, &
167         xnanono3, xdiatno3, xnanonh4, xdiatnh4, &
168         xlimphy, xlimdia, concdfe, concnfe, znegtr
169
170      REAL(wp), DIMENSION(jpi,jpj) :: &     
171         xksimax, xksi
172
173
174
175!!
176!!------------------------------------------
177!!
178!! Sinks for phytoplankton
179!!
180!!------------------------------------------
181!!
182      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &     
183         tortp, tortnf, tortnch, &
184         respp, respp2, respnch, respdch, &
185         tortp2, tortdf, tortdch, tortds, &
186         respds, respdf, respnf
187
188
189!!
190!!------------------------------------
191!!
192!!  SMS for zooplankton
193!!
194!!-------------------------------------
195!!
196      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &   
197         respz, tortz, grazp, grazpf, &
198         grazpch, grazm, grazmf, grazsd, &
199         grazsf, grazss, grazsch, grarem, &
200         grafer,respz2,tortz2,grazd, grazz,grazn, &
201         grazpoc,graznf, graznch, grazs, grazf, &
202         grazdch, grazpof, grarem2, grafer2, grapoc2, &
203         grapoc, grazffe, grazfff
204
205
206!!
207!!---------------------------------------------
208!!
209!!  SMS for the organic matter
210!!
211!!---------------------------------------------
212!!
213      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &   
214         xagg, xaggfe, zdiss, xaggdoc, xaggdfe, xbactfer, &
215         xscave, olimi, orem, orem2, ofer, ofer2, &
216         osil, xaggdoc2, nitrfac, xlimbac, &
217         wsbio4, wsbio3, wscal
218
219      REAL(wp) :: &
220         wsbio2
221
222
223 
224!!
225!!---------------------------------------------------------
226!!
227!! External sources of nutrients in ocean
228!!
229!!---------------------------------------------------------
230!!
231      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &         
232         onitr, denitr, ironsed
233
234      REAL(wp), DIMENSION(jpi,jpj) :: &
235         dust, cotdep, nitdep, rivinp
236
237      REAL(wp), DIMENSION(jpi,jpj,12) ::  & 
238         dustmo
239
240      REAL(wp) :: &
241         areacot
242
243      LOGICAL :: &
244         bdustfer, briver, bndepo, bsedinput
245
246
247
248#if defined key_trc_kriest
249!!
250!!---------------------------------------------------------
251!!
252!!  Kriest parameter for aggregation
253!!
254!!---------------------------------------------------------
255!!
256      REAL(wp) :: &
257         xkr_eta, xkr_zeta, xkr_sfact, xkr_stick,  &
258         xkr_mass_min, xkr_mass_max, xkr_massp, xkr_frac, &
259         xkr_dnano, xkr_ddiat, xkr_dmeso, xkr_daggr, &
260         xkr_nnano, xkr_ndiat, xkr_nmeso, xkr_naggr, &
261         xkr_wsbio_min, xkr_wsbio_max
262     
263      REAL(wp), DIMENSION(jpk) :: &
264         xnumm
265#endif
266
267#endif
268
Note: See TracBrowser for help on using the repository browser.