ROMS
Loading...
Searching...
No Matches
nemuro_wrt_pio.h
Go to the documentation of this file.
1/*
2** git $id$
3*************************************************** hernan g. arango ***
4** copyright(c) 2002-2025 the roms group **
5** licensed under a mit/x style license **
6** see license_roms.md **
7************************************************************************
8** **
9** writes nemuro ecosystem model input parameters into output netcdf **
10** files. it is included in routine "wrt_info.F". **
11** **
12************************************************************************
13*/
14
15!
16! Write out Nemuro ecosystem model parameters.
17!
18 CALL pio_netcdf_put_ivar (ng, model, ncname, 'BioIter', &
19 & bioiter(ng), (/0/), (/0/), &
20 & piofile = piofile)
21 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
22
23 CALL pio_netcdf_put_fvar (ng, model, ncname, 'AttSW', &
24 & attsw(ng), (/0/), (/0/), &
25 & piofile = piofile)
26 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
27
28 CALL pio_netcdf_put_fvar (ng, model, ncname, 'AttPS', &
29 & attps(ng), (/0/), (/0/), &
30 & piofile = piofile)
31 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
32
33 CALL pio_netcdf_put_fvar (ng, model, ncname, 'AttPL', &
34 & attpl(ng), (/0/), (/0/), &
35 & piofile = piofile)
36 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
37
38 CALL pio_netcdf_put_fvar (ng, model, ncname, 'PARfrac', &
39 & parfrac(ng), (/0/), (/0/), &
40 & piofile = piofile)
41 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
42
43 CALL pio_netcdf_put_fvar (ng, model, ncname, 'AlphaPS', &
44 & alphaps(ng), (/0/), (/0/), &
45 & piofile = piofile)
46 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
47
48 CALL pio_netcdf_put_fvar (ng, model, ncname, 'AlphaPL', &
49 & alphapl(ng), (/0/), (/0/), &
50 & piofile = piofile)
51 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
52
53 CALL pio_netcdf_put_fvar (ng, model, ncname, 'BetaPS', &
54 & betaps(ng), (/0/), (/0/), &
55 & piofile = piofile)
56 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
57
58 CALL pio_netcdf_put_fvar (ng, model, ncname, 'BetaPL', &
59 & betapl(ng), (/0/), (/0/), &
60 & piofile = piofile)
61 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
62
63 CALL pio_netcdf_put_fvar (ng, model, ncname, 'VmaxS', &
64 & vmaxs(ng), (/0/), (/0/), &
65 & piofile = piofile)
66 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
67
68 CALL pio_netcdf_put_fvar (ng, model, ncname, 'VmaxL', &
69 & vmaxl(ng), (/0/), (/0/), &
70 & piofile = piofile)
71 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
72
73 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_NO3S', &
74 & kno3s(ng), (/0/), (/0/), &
75 & piofile = piofile)
76 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
77
78 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_NO3L', &
79 & kno3l(ng), (/0/), (/0/), &
80 & piofile = piofile)
81 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
82
83 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_NH4S', &
84 & knh4s(ng), (/0/), (/0/), &
85 & piofile = piofile)
86 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
87
88 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_NH4L', &
89 & knh4l(ng), (/0/), (/0/), &
90 & piofile = piofile)
91 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
92
93 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_SiL', &
94 & ksil(ng), (/0/), (/0/), &
95 & piofile = piofile)
96 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
97
98 CALL pio_netcdf_put_fvar (ng, model, ncname, 'PusaiS', &
99 & pusais(ng), (/0/), (/0/), &
100 & piofile = piofile)
101 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
102
103 CALL pio_netcdf_put_fvar (ng, model, ncname, 'PusaiL', &
104 & pusail(ng), (/0/), (/0/), &
105 & piofile = piofile)
106 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
107
108 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KGppS', &
109 & kgpps(ng), (/0/), (/0/), &
110 & piofile = piofile)
111 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
112
113 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KGppL', &
114 & kgppl(ng), (/0/), (/0/), &
115 & piofile = piofile)
116 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
117
118 CALL pio_netcdf_put_fvar (ng, model, ncname, 'ResPS0', &
119 & resps0(ng), (/0/), (/0/), &
120 & piofile = piofile)
121 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
122
123 CALL pio_netcdf_put_fvar (ng, model, ncname, 'ResPL0', &
124 & respl0(ng), (/0/), (/0/), &
125 & piofile = piofile)
126 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
127
128 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KResPS', &
129 & kresps(ng), (/0/), (/0/), &
130 & piofile = piofile)
131 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
132
133 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KResPL', &
134 & krespl(ng), (/0/), (/0/), &
135 & piofile = piofile)
136 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
137
138 CALL pio_netcdf_put_fvar (ng, model, ncname, 'GammaS', &
139 & gammas(ng), (/0/), (/0/), &
140 & piofile = piofile)
141 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
142
143 CALL pio_netcdf_put_fvar (ng, model, ncname, 'GammaL', &
144 & gammal(ng), (/0/), (/0/), &
145 & piofile = piofile)
146 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
147
148 CALL pio_netcdf_put_fvar (ng, model, ncname, 'MorPS0', &
149 & morps0(ng), (/0/), (/0/), &
150 & piofile = piofile)
151 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
152
153 CALL pio_netcdf_put_fvar (ng, model, ncname, 'MorPL0', &
154 & morpl0(ng), (/0/), (/0/), &
155 & piofile = piofile)
156 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
157
158 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KMorPS', &
159 & kmorps(ng), (/0/), (/0/), &
160 & piofile = piofile)
161 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
162
163 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KMorPL', &
164 & kmorpl(ng), (/0/), (/0/), &
165 & piofile = piofile)
166 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
167
168 CALL pio_netcdf_put_fvar (ng, model, ncname, 'GRmaxSps', &
169 & grmaxsps(ng), (/0/), (/0/), &
170 & piofile = piofile)
171 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
172
173 CALL pio_netcdf_put_fvar (ng, model, ncname, 'GRmaxLps', &
174 & grmaxlps(ng), (/0/), (/0/), &
175 & piofile = piofile)
176 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
177
178 CALL pio_netcdf_put_fvar (ng, model, ncname, 'GRmaxLpl', &
179 & grmaxlpl(ng), (/0/), (/0/), &
180 & piofile = piofile)
181 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
182
183 CALL pio_netcdf_put_fvar (ng, model, ncname, 'GRmaxLzs', &
184 & grmaxlzs(ng), (/0/), (/0/), &
185 & piofile = piofile)
186 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
187
188 CALL pio_netcdf_put_fvar (ng, model, ncname, 'GRmaxPpl', &
189 & grmaxppl(ng), (/0/), (/0/), &
190 & piofile = piofile)
191 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
192
193 CALL pio_netcdf_put_fvar (ng, model, ncname, 'GRmaxPzs', &
194 & grmaxpzs(ng), (/0/), (/0/), &
195 & piofile = piofile)
196 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
197
198 CALL pio_netcdf_put_fvar (ng, model, ncname, 'GRmaxPzl', &
199 & grmaxpzl(ng), (/0/), (/0/), &
200 & piofile = piofile)
201 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
202
203 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KGraS', &
204 & kgras(ng), (/0/), (/0/), &
205 & piofile = piofile)
206 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
207
208 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KGraL', &
209 & kgral(ng), (/0/), (/0/), &
210 & piofile = piofile)
211 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
212
213 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KGraP', &
214 & kgrap(ng), (/0/), (/0/), &
215 & piofile = piofile)
216 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
217
218 CALL pio_netcdf_put_fvar (ng, model, ncname, 'LamS', &
219 & lams(ng), (/0/), (/0/), &
220 & piofile = piofile)
221 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
222
223 CALL pio_netcdf_put_fvar (ng, model, ncname, 'LamL', &
224 & laml(ng), (/0/), (/0/), &
225 & piofile = piofile)
226 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
227
228 CALL pio_netcdf_put_fvar (ng, model, ncname, 'LamP', &
229 & lamp(ng), (/0/), (/0/), &
230 & piofile = piofile)
231 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
232
233#ifdef HOLLING_GRAZING
234 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_PS2ZS', &
235 & kps2zs(ng), (/0/), (/0/), &
236 & piofile = piofile)
237 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
238
239 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_PS2ZL', &
240 & kps2zl(ng), (/0/), (/0/), &
241 & piofile = piofile)
242 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
243
244 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_PL2ZL', &
245 & kpl2zl(ng), (/0/), (/0/), &
246 & piofile = piofile)
247 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
248
249 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_ZS2ZL', &
250 & kzs2zl(ng), (/0/), (/0/), &
251 & piofile = piofile)
252 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
253
254 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_PL2ZP', &
255 & kpl2zp(ng), (/0/), (/0/), &
256 & piofile = piofile)
257 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
258
259 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_ZS2ZP', &
260 & kzs2zp(ng), (/0/), (/0/), &
261 & piofile = piofile)
262 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
263
264 CALL pio_netcdf_put_fvar (ng, model, ncname, 'K_ZL2ZP', &
265 & kzl2zp(ng), (/0/), (/0/), &
266 & piofile = piofile)
267 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
268
269#else
270
271 CALL pio_netcdf_put_fvar (ng, model, ncname, 'PS2ZSstar', &
272 & ps2zsstar(ng), (/0/), (/0/), &
273 & piofile = piofile)
274 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
275
276 CALL pio_netcdf_put_fvar (ng, model, ncname, 'PS2ZLstar', &
277 & ps2zlstar(ng), (/0/), (/0/), &
278 & piofile = piofile)
279 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
280
281 CALL pio_netcdf_put_fvar (ng, model, ncname, 'PL2ZLstar', &
282 & pl2zlstar(ng), (/0/), (/0/), &
283 & piofile = piofile)
284 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
285
286 CALL pio_netcdf_put_fvar (ng, model, ncname, 'PL2ZLstar', &
287 & pl2zlstar(ng), (/0/), (/0/), &
288 & piofile = piofile)
289 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
290
291 CALL pio_netcdf_put_fvar (ng, model, ncname, 'PL2ZPstar', &
292 & pl2zpstar(ng), (/0/), (/0/), &
293 & piofile = piofile)
294 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
295
296 CALL pio_netcdf_put_fvar (ng, model, ncname, 'ZS2ZPstar', &
297 & zs2zpstar(ng), (/0/), (/0/), &
298 & piofile = piofile)
299 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
300
301 CALL pio_netcdf_put_fvar (ng, model, ncname, 'ZL2ZPstar', &
302 & zl2zpstar(ng), (/0/), (/0/), &
303 & piofile = piofile)
304 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
305#endif
306
307 CALL pio_netcdf_put_fvar (ng, model, ncname, 'PusaiPL', &
308 & pusaipl(ng), (/0/), (/0/), &
309 & piofile = piofile)
310 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
311
312 CALL pio_netcdf_put_fvar (ng, model, ncname, 'PusaiZS', &
313 & pusaizs(ng), (/0/), (/0/), &
314 & piofile = piofile)
315 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
316
317 CALL pio_netcdf_put_fvar (ng, model, ncname, 'MorZS0', &
318 & morzs0(ng), (/0/), (/0/), &
319 & piofile = piofile)
320 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
321
322 CALL pio_netcdf_put_fvar (ng, model, ncname, 'MorZL0', &
323 & morzl0(ng), (/0/), (/0/), &
324 & piofile = piofile)
325 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
326
327 CALL pio_netcdf_put_fvar (ng, model, ncname, 'MorZP0', &
328 & morzp0(ng), (/0/), (/0/), &
329 & piofile = piofile)
330 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
331
332 CALL pio_netcdf_put_fvar (ng, model, ncname, 'AlphaZS', &
333 & alphazs(ng), (/0/), (/0/), &
334 & piofile = piofile)
335 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
336
337 CALL pio_netcdf_put_fvar (ng, model, ncname, 'AlphaZL', &
338 & alphazl(ng), (/0/), (/0/), &
339 & piofile = piofile)
340 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
341
342 CALL pio_netcdf_put_fvar (ng, model, ncname, 'AlphaZP', &
343 & alphazp(ng), (/0/), (/0/), &
344 & piofile = piofile)
345 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
346
347 CALL pio_netcdf_put_fvar (ng, model, ncname, 'BetaZS', &
348 & betazs(ng), (/0/), (/0/), &
349 & piofile = piofile)
350 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
351
352 CALL pio_netcdf_put_fvar (ng, model, ncname, 'BetaZL', &
353 & betazl(ng), (/0/), (/0/), &
354 & piofile = piofile)
355 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
356
357 CALL pio_netcdf_put_fvar (ng, model, ncname, 'BetaZP', &
358 & betazp(ng), (/0/), (/0/), &
359 & piofile = piofile)
360 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
361
362 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Nit0', &
363 & nit0(ng), (/0/), (/0/), &
364 & piofile = piofile)
365 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
366
367 CALL pio_netcdf_put_fvar (ng, model, ncname, 'VP2N0', &
368 & vp2n0(ng), (/0/), (/0/), &
369 & piofile = piofile)
370 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
371
372 CALL pio_netcdf_put_fvar (ng, model, ncname, 'VP2D0', &
373 & vp2d0(ng), (/0/), (/0/), &
374 & piofile = piofile)
375 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
376
377 CALL pio_netcdf_put_fvar (ng, model, ncname, 'VD2N0', &
378 & vd2n0(ng), (/0/), (/0/), &
379 & piofile = piofile)
380 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
381
382 CALL pio_netcdf_put_fvar (ng, model, ncname, 'VO2S0', &
383 & vo2s0(ng), (/0/), (/0/), &
384 & piofile = piofile)
385 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
386
387 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KNit', &
388 & knit(ng), (/0/), (/0/), &
389 & piofile = piofile)
390 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
391
392 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KNit', &
393 & knit(ng), (/0/), (/0/), &
394 & piofile = piofile)
395 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
396
397 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KP2D', &
398 & kp2d(ng), (/0/), (/0/), &
399 & piofile = piofile)
400 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
401
402 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KP2N', &
403 & kp2n(ng), (/0/), (/0/), &
404 & piofile = piofile)
405 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
406
407 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KD2N', &
408 & kd2n(ng), (/0/), (/0/), &
409 & piofile = piofile)
410 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
411
412 CALL pio_netcdf_put_fvar (ng, model, ncname, 'KO2S', &
413 & ko2s(ng), (/0/), (/0/), &
414 & piofile = piofile)
415 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
416
417 CALL pio_netcdf_put_fvar (ng, model, ncname, 'RSiN', &
418 & rsin(ng), (/0/), (/0/), &
419 & piofile = piofile)
420 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
421
422 CALL pio_netcdf_put_fvar (ng, model, ncname, 'setVPON', &
423 & setvpon(ng), (/0/), (/0/), &
424 & piofile = piofile)
425 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
426
427 CALL pio_netcdf_put_fvar (ng, model, ncname, 'setVOpal', &
428 & setvopal(ng), (/0/), (/0/), &
429 & piofile = piofile)
430 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
431
subroutine output(ng)
Definition output.F:4