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************************************************************************
9** writes nemuro ecosystem model input parameters into
output netcdf **
10** files. it is included in routine
"wrt_info.F". **
12************************************************************************
18 CALL pio_netcdf_put_ivar (ng, model, ncname,
'BioIter', &
19 & bioiter(ng), (/0/), (/0/), &
21 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
23 CALL pio_netcdf_put_fvar (ng, model, ncname,
'AttSW', &
24 & attsw(ng), (/0/), (/0/), &
26 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
28 CALL pio_netcdf_put_fvar (ng, model, ncname,
'AttPS', &
29 & attps(ng), (/0/), (/0/), &
31 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
33 CALL pio_netcdf_put_fvar (ng, model, ncname,
'AttPL', &
34 & attpl(ng), (/0/), (/0/), &
36 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
38 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PARfrac', &
39 & parfrac(ng), (/0/), (/0/), &
41 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
43 CALL pio_netcdf_put_fvar (ng, model, ncname,
'AlphaPS', &
44 & alphaps(ng), (/0/), (/0/), &
46 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
48 CALL pio_netcdf_put_fvar (ng, model, ncname,
'AlphaPL', &
49 & alphapl(ng), (/0/), (/0/), &
51 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
53 CALL pio_netcdf_put_fvar (ng, model, ncname,
'BetaPS', &
54 & betaps(ng), (/0/), (/0/), &
56 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
58 CALL pio_netcdf_put_fvar (ng, model, ncname,
'BetaPL', &
59 & betapl(ng), (/0/), (/0/), &
61 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
63 CALL pio_netcdf_put_fvar (ng, model, ncname,
'VmaxS', &
64 & vmaxs(ng), (/0/), (/0/), &
66 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
68 CALL pio_netcdf_put_fvar (ng, model, ncname,
'VmaxL', &
69 & vmaxl(ng), (/0/), (/0/), &
71 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
73 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_NO3S', &
74 & kno3s(ng), (/0/), (/0/), &
76 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
78 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_NO3L', &
79 & kno3l(ng), (/0/), (/0/), &
81 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
83 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_NH4S', &
84 & knh4s(ng), (/0/), (/0/), &
86 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
88 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_NH4L', &
89 & knh4l(ng), (/0/), (/0/), &
91 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
93 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_SiL', &
94 & ksil(ng), (/0/), (/0/), &
96 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
98 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PusaiS', &
99 & pusais(ng), (/0/), (/0/), &
101 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
103 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PusaiL', &
104 & pusail(ng), (/0/), (/0/), &
106 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
108 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KGppS', &
109 & kgpps(ng), (/0/), (/0/), &
111 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
113 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KGppL', &
114 & kgppl(ng), (/0/), (/0/), &
116 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
118 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ResPS0', &
119 & resps0(ng), (/0/), (/0/), &
121 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
123 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ResPL0', &
124 & respl0(ng), (/0/), (/0/), &
126 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
128 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KResPS', &
129 & kresps(ng), (/0/), (/0/), &
131 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
133 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KResPL', &
134 & krespl(ng), (/0/), (/0/), &
136 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
138 CALL pio_netcdf_put_fvar (ng, model, ncname,
'GammaS', &
139 & gammas(ng), (/0/), (/0/), &
141 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
143 CALL pio_netcdf_put_fvar (ng, model, ncname,
'GammaL', &
144 & gammal(ng), (/0/), (/0/), &
146 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
148 CALL pio_netcdf_put_fvar (ng, model, ncname,
'MorPS0', &
149 & morps0(ng), (/0/), (/0/), &
151 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
153 CALL pio_netcdf_put_fvar (ng, model, ncname,
'MorPL0', &
154 & morpl0(ng), (/0/), (/0/), &
156 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
158 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KMorPS', &
159 & kmorps(ng), (/0/), (/0/), &
161 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
163 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KMorPL', &
164 & kmorpl(ng), (/0/), (/0/), &
166 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
168 CALL pio_netcdf_put_fvar (ng, model, ncname,
'GRmaxSps', &
169 & grmaxsps(ng), (/0/), (/0/), &
171 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
173 CALL pio_netcdf_put_fvar (ng, model, ncname,
'GRmaxLps', &
174 & grmaxlps(ng), (/0/), (/0/), &
176 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
178 CALL pio_netcdf_put_fvar (ng, model, ncname,
'GRmaxLpl', &
179 & grmaxlpl(ng), (/0/), (/0/), &
181 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
183 CALL pio_netcdf_put_fvar (ng, model, ncname,
'GRmaxLzs', &
184 & grmaxlzs(ng), (/0/), (/0/), &
186 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
188 CALL pio_netcdf_put_fvar (ng, model, ncname,
'GRmaxPpl', &
189 & grmaxppl(ng), (/0/), (/0/), &
191 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
193 CALL pio_netcdf_put_fvar (ng, model, ncname,
'GRmaxPzs', &
194 & grmaxpzs(ng), (/0/), (/0/), &
196 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
198 CALL pio_netcdf_put_fvar (ng, model, ncname,
'GRmaxPzl', &
199 & grmaxpzl(ng), (/0/), (/0/), &
201 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
203 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KGraS', &
204 & kgras(ng), (/0/), (/0/), &
206 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
208 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KGraL', &
209 & kgral(ng), (/0/), (/0/), &
211 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
213 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KGraP', &
214 & kgrap(ng), (/0/), (/0/), &
216 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
218 CALL pio_netcdf_put_fvar (ng, model, ncname,
'LamS', &
219 & lams(ng), (/0/), (/0/), &
221 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
223 CALL pio_netcdf_put_fvar (ng, model, ncname,
'LamL', &
224 & laml(ng), (/0/), (/0/), &
226 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
228 CALL pio_netcdf_put_fvar (ng, model, ncname,
'LamP', &
229 & lamp(ng), (/0/), (/0/), &
231 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
233#ifdef HOLLING_GRAZING
234 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_PS2ZS', &
235 & kps2zs(ng), (/0/), (/0/), &
237 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
239 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_PS2ZL', &
240 & kps2zl(ng), (/0/), (/0/), &
242 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
244 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_PL2ZL', &
245 & kpl2zl(ng), (/0/), (/0/), &
247 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
249 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_ZS2ZL', &
250 & kzs2zl(ng), (/0/), (/0/), &
252 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
254 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_PL2ZP', &
255 & kpl2zp(ng), (/0/), (/0/), &
257 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
259 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_ZS2ZP', &
260 & kzs2zp(ng), (/0/), (/0/), &
262 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
264 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_ZL2ZP', &
265 & kzl2zp(ng), (/0/), (/0/), &
267 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
271 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PS2ZSstar', &
272 & ps2zsstar(ng), (/0/), (/0/), &
274 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
276 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PS2ZLstar', &
277 & ps2zlstar(ng), (/0/), (/0/), &
279 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
281 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PL2ZLstar', &
282 & pl2zlstar(ng), (/0/), (/0/), &
284 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
286 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PL2ZLstar', &
287 & pl2zlstar(ng), (/0/), (/0/), &
289 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
291 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PL2ZPstar', &
292 & pl2zpstar(ng), (/0/), (/0/), &
294 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
296 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZS2ZPstar', &
297 & zs2zpstar(ng), (/0/), (/0/), &
299 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
301 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZL2ZPstar', &
302 & zl2zpstar(ng), (/0/), (/0/), &
304 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
307 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PusaiPL', &
308 & pusaipl(ng), (/0/), (/0/), &
310 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
312 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PusaiZS', &
313 & pusaizs(ng), (/0/), (/0/), &
315 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
317 CALL pio_netcdf_put_fvar (ng, model, ncname,
'MorZS0', &
318 & morzs0(ng), (/0/), (/0/), &
320 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
322 CALL pio_netcdf_put_fvar (ng, model, ncname,
'MorZL0', &
323 & morzl0(ng), (/0/), (/0/), &
325 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
327 CALL pio_netcdf_put_fvar (ng, model, ncname,
'MorZP0', &
328 & morzp0(ng), (/0/), (/0/), &
330 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
332 CALL pio_netcdf_put_fvar (ng, model, ncname,
'AlphaZS', &
333 & alphazs(ng), (/0/), (/0/), &
335 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
337 CALL pio_netcdf_put_fvar (ng, model, ncname,
'AlphaZL', &
338 & alphazl(ng), (/0/), (/0/), &
340 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
342 CALL pio_netcdf_put_fvar (ng, model, ncname,
'AlphaZP', &
343 & alphazp(ng), (/0/), (/0/), &
345 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
347 CALL pio_netcdf_put_fvar (ng, model, ncname,
'BetaZS', &
348 & betazs(ng), (/0/), (/0/), &
350 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
352 CALL pio_netcdf_put_fvar (ng, model, ncname,
'BetaZL', &
353 & betazl(ng), (/0/), (/0/), &
355 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
357 CALL pio_netcdf_put_fvar (ng, model, ncname,
'BetaZP', &
358 & betazp(ng), (/0/), (/0/), &
360 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
362 CALL pio_netcdf_put_fvar (ng, model, ncname,
'Nit0', &
363 & nit0(ng), (/0/), (/0/), &
365 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
367 CALL pio_netcdf_put_fvar (ng, model, ncname,
'VP2N0', &
368 & vp2n0(ng), (/0/), (/0/), &
370 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
372 CALL pio_netcdf_put_fvar (ng, model, ncname,
'VP2D0', &
373 & vp2d0(ng), (/0/), (/0/), &
375 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
377 CALL pio_netcdf_put_fvar (ng, model, ncname,
'VD2N0', &
378 & vd2n0(ng), (/0/), (/0/), &
380 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
382 CALL pio_netcdf_put_fvar (ng, model, ncname,
'VO2S0', &
383 & vo2s0(ng), (/0/), (/0/), &
385 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
387 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KNit', &
388 & knit(ng), (/0/), (/0/), &
390 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
392 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KNit', &
393 & knit(ng), (/0/), (/0/), &
395 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
397 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KP2D', &
398 & kp2d(ng), (/0/), (/0/), &
400 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
402 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KP2N', &
403 & kp2n(ng), (/0/), (/0/), &
405 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
407 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KD2N', &
408 & kd2n(ng), (/0/), (/0/), &
410 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
412 CALL pio_netcdf_put_fvar (ng, model, ncname,
'KO2S', &
413 & ko2s(ng), (/0/), (/0/), &
415 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
417 CALL pio_netcdf_put_fvar (ng, model, ncname,
'RSiN', &
418 & rsin(ng), (/0/), (/0/), &
420 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
422 CALL pio_netcdf_put_fvar (ng, model, ncname,
'setVPON', &
423 & setvpon(ng), (/0/), (/0/), &
425 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
427 CALL pio_netcdf_put_fvar (ng, model, ncname,
'setVOpal', &
428 & setvopal(ng), (/0/), (/0/), &
430 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN