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 @ 719

Last change on this file since 719 was 719, checked in by ctlod, 17 years ago

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