ROMS
Loading...
Searching...
No Matches
ecosim_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 ecosim bio-optical model input parameters into output **
10** netcdf files. it is included in routine "wrt_info.F". **
11** **
12************************************************************************
13*/
14
15!
16! Write out EcoSim bio-optical 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_lvar (ng, model, ncname, 'RtUVR_flag', &
24 & rtuvr_flag(ng), (/0/), (/0/), &
25 & piofile = piofile)
26 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
27
28 CALL pio_netcdf_put_lvar (ng, model, ncname, 'NFIX_flag', &
29 & nfix_flag(ng), (/0/), (/0/), &
30 & piofile = piofile)
31 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
32
33 CALL pio_netcdf_put_lvar (ng, model, ncname, 'Regen_flag', &
34 & regen_flag(ng), (/0/), (/0/), &
35 & piofile = piofile)
36 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
37
38 IF (fileh.ne.dia(ng)%pioFile%fh) THEN
39 CALL pio_netcdf_put_fvar (ng, model, ncname, 'light', &
40 & ec_wave_ab, (/1/), (/nbands/), &
41 & piofile = piofile)
42#ifdef DIAGNOSTICS_BIO
43 ELSE
44 CALL pio_netcdf_put_fvar (ng, model, ncname, 'light', &
45 & dia_light, (/1/), (/ndbands/), &
46 & piofile = piofile)
47#endif
48 END IF
49 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
50
51 CALL pio_netcdf_put_fvar (ng, model, ncname, 'HsNO3', &
52 & hsno3(:,ng), (/1/), (/nphy/), &
53 & piofile = piofile)
54 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
55
56 CALL pio_netcdf_put_fvar (ng, model, ncname, 'HsNH4', &
57 & hsnh4(:,ng), (/1/), (/nphy/), &
58 & piofile = piofile)
59 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
60
61 CALL pio_netcdf_put_fvar (ng, model, ncname, 'HsSiO', &
62 & hssio(:,ng), (/1/), (/nphy/), &
63 & piofile = piofile)
64 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
65
66 CALL pio_netcdf_put_fvar (ng, model, ncname, 'HsPO4', &
67 & hspo4(:,ng), (/1/), (/nphy/), &
68 & piofile = piofile)
69 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
70
71 CALL pio_netcdf_put_fvar (ng, model, ncname, 'HsFe', &
72 & hsfe(:,ng), (/1/), (/nphy/), &
73 & piofile = piofile)
74 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
75
76 CALL pio_netcdf_put_fvar (ng, model, ncname, 'GtALG_max', &
77 & gtalg_max(:,ng), (/1/), (/nphy/), &
78 & piofile = piofile)
79 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
80
81 CALL pio_netcdf_put_fvar (ng, model, ncname, 'PhyTbase', &
82 & phytbase(:,ng), (/1/), (/nphy/), &
83 & piofile = piofile)
84 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
85
86 CALL pio_netcdf_put_fvar (ng, model, ncname, 'PhyTfac', &
87 & phytfac(:,ng), (/1/), (/nphy/), &
88 & piofile = piofile)
89 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
90
91 CALL pio_netcdf_put_fvar (ng, model, ncname, 'BET_', &
92 & bet_(:,ng), (/1/), (/nphy/), &
93 & piofile = piofile)
94 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
95
96 CALL pio_netcdf_put_fvar (ng, model, ncname, 'maxC2nALG', &
97 & maxc2nalg(:,ng), (/1/), (/nphy/), &
98 & piofile = piofile)
99 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
100
101 CALL pio_netcdf_put_fvar (ng, model, ncname, 'minC2nALG', &
102 & minc2nalg(:,ng), (/1/), (/nphy/), &
103 & piofile = piofile)
104 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
105
106 CALL pio_netcdf_put_fvar (ng, model, ncname, 'C2nALGminABS', &
107 & c2nalgminabs(:,ng), (/1/), (/nphy/), &
108 & piofile = piofile)
109 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
110
111 CALL pio_netcdf_put_fvar (ng, model, ncname, 'maxC2SiALG', &
112 & maxc2sialg(:,ng), (/1/), (/nphy/), &
113 & piofile = piofile)
114 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
115
116 CALL pio_netcdf_put_fvar (ng, model, ncname, 'minC2SiALG', &
117 & minc2sialg(:,ng), (/1/), (/nphy/), &
118 & piofile = piofile)
119 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
120
121 CALL pio_netcdf_put_fvar (ng, model, ncname, 'C2SiALGminABS', &
122 & c2sialgminabs(:,ng), (/1/), (/nphy/), &
123 & piofile = piofile)
124 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
125
126 CALL pio_netcdf_put_fvar (ng, model, ncname, 'maxC2pALG', &
127 & maxc2palg(:,ng), (/1/), (/nphy/), &
128 & piofile = piofile)
129 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
130
131 CALL pio_netcdf_put_fvar (ng, model, ncname, 'minC2pALG', &
132 & minc2palg(:,ng), (/1/), (/nphy/), &
133 & piofile = piofile)
134 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
135
136 CALL pio_netcdf_put_fvar (ng, model, ncname, 'C2pALGminABS', &
137 & c2palgminabs(:,ng), (/1/), (/nphy/), &
138 & piofile = piofile)
139 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
140
141 CALL pio_netcdf_put_fvar (ng, model, ncname, 'maxC2FeALG', &
142 & maxc2fealg(:,ng), (/1/), (/nphy/), &
143 & piofile = piofile)
144 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
145
146 CALL pio_netcdf_put_fvar (ng, model, ncname, 'minC2FeALG', &
147 & minc2fealg(:,ng), (/1/), (/nphy/), &
148 & piofile = piofile)
149 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
150
151 CALL pio_netcdf_put_fvar (ng, model, ncname, 'C2FeALGminABS', &
152 & c2fealgminabs(:,ng), (/1/), (/nphy/), &
153 & piofile = piofile)
154 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
155
156 CALL pio_netcdf_put_fvar (ng, model, ncname, 'qu_yld', &
157 & qu_yld(:,ng), (/1/), (/nphy/), &
158 & piofile = piofile)
159 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
160
161 CALL pio_netcdf_put_fvar (ng, model, ncname, 'E0_comp', &
162 & e0_comp(:,ng), (/1/), (/nphy/), &
163 & piofile = piofile)
164 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
165
166 CALL pio_netcdf_put_fvar (ng, model, ncname, 'E0_inhib', &
167 & e0_inhib(:,ng), (/1/), (/nphy/), &
168 & piofile = piofile)
169 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
170
171 CALL pio_netcdf_put_fvar (ng, model, ncname, 'inhib_fac', &
172 & inhib_fac(:,ng), (/1/), (/nphy/), &
173 & piofile = piofile)
174 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
175
176 CALL pio_netcdf_put_fvar (ng, model, ncname, 'C2CHL_max', &
177 & c2chl_max(:,ng), (/1/), (/nphy/), &
178 & piofile = piofile)
179 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
180
181 CALL pio_netcdf_put_fvar (ng, model, ncname, 'mxC2Cl', &
182 & mxc2cl(:,ng), (/1/), (/nphy/), &
183 & piofile = piofile)
184 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
185
186 CALL pio_netcdf_put_fvar (ng, model, ncname, 'b_C2Cl', &
187 & b_c2cl(:,ng), (/1/), (/nphy/), &
188 & piofile = piofile)
189 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
190
191 CALL pio_netcdf_put_fvar (ng, model, ncname, 'mxC2Cn', &
192 & mxc2cn(:,ng), (/1/), (/nphy/), &
193 & piofile = piofile)
194 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
195
196 CALL pio_netcdf_put_fvar (ng, model, ncname, 'b_C2Cn', &
197 & b_c2cn(:,ng), (/1/), (/nphy/), &
198 & piofile = piofile)
199 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
200
201 CALL pio_netcdf_put_fvar (ng, model, ncname, 'mxPacEff', &
202 & mxpaceff(:,ng), (/1/), (/nphy/), &
203 & piofile = piofile)
204 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
205
206 CALL pio_netcdf_put_fvar (ng, model, ncname, 'b_PacEff', &
207 & b_paceff(:,ng), (/1/), (/nphy/), &
208 & piofile = piofile)
209 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
210
211 CALL pio_netcdf_put_fvar (ng, model, ncname, 'mxChlB', &
212 & mxchlb(:,ng), (/1/), (/nphy/), &
213 & piofile = piofile)
214 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
215
216 CALL pio_netcdf_put_fvar (ng, model, ncname, 'b_ChlB', &
217 & b_chlb(:,ng), (/1/), (/nphy/), &
218 & piofile = piofile)
219 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
220
221 CALL pio_netcdf_put_fvar (ng, model, ncname, 'mxChlC', &
222 & mxchlc(:,ng), (/1/), (/nphy/), &
223 & piofile = piofile)
224 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
225
226 CALL pio_netcdf_put_fvar (ng, model, ncname, 'b_ChlC', &
227 & b_chlc(:,ng), (/1/), (/nphy/), &
228 & piofile = piofile)
229 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
230
231 CALL pio_netcdf_put_fvar (ng, model, ncname, 'mxPSC', &
232 & mxpsc(:,ng), (/1/), (/nphy/), &
233 & piofile = piofile)
234 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
235
236 CALL pio_netcdf_put_fvar (ng, model, ncname, 'b_PSC', &
237 & b_psc(:,ng), (/1/), (/nphy/), &
238 & piofile = piofile)
239 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
240
241 CALL pio_netcdf_put_fvar (ng, model, ncname, 'mxPPC', &
242 & mxppc(:,ng), (/1/), (/nphy/), &
243 & piofile = piofile)
244 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
245
246 CALL pio_netcdf_put_fvar (ng, model, ncname, 'b_PPC', &
247 & b_ppc(:,ng), (/1/), (/nphy/), &
248 & piofile = piofile)
249 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
250
251 CALL pio_netcdf_put_fvar (ng, model, ncname, 'mxLPUb', &
252 & mxlpub(:,ng), (/1/), (/nphy/), &
253 & piofile = piofile)
254 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
255
256 CALL pio_netcdf_put_fvar (ng, model, ncname, 'b_LPUb', &
257 & b_lpub(:,ng), (/1/), (/nphy/), &
258 & piofile = piofile)
259 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
260
261 CALL pio_netcdf_put_fvar (ng, model, ncname, 'mxHPUb', &
262 & mxhpub(:,ng), (/1/), (/nphy/), &
263 & piofile = piofile)
264 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
265
266 CALL pio_netcdf_put_fvar (ng, model, ncname, 'b_HPUb', &
267 & b_hpub(:,ng), (/1/), (/nphy/), &
268 & piofile = piofile)
269 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
270
271 CALL pio_netcdf_put_fvar (ng, model, ncname, 'FecDOC', &
272 & fecdoc(:,ng), (/1/), (/nphy/), &
273 & piofile = piofile)
274 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
275
276 CALL pio_netcdf_put_fvar (ng, model, ncname, 'FecPEL', &
277 & fecpel(:,:,ng), (/1,1/), (/nphy,nfec/), &
278 & piofile = piofile)
279 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
280
281 CALL pio_netcdf_put_fvar (ng, model, ncname, 'FecCYC', &
282 & feccyc(:,ng), (/1/), (/nphy/), &
283 & piofile = piofile)
284 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
285
286 CALL pio_netcdf_put_fvar (ng, model, ncname, 'ExALG', &
287 & exalg(:,ng), (/1/), (/nphy/), &
288 & piofile = piofile)
289 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
290
291 CALL pio_netcdf_put_fvar (ng, model, ncname, 'WS', &
292 & ws(:,ng), (/1/), (/nphy/), &
293 & piofile = piofile)
294 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
295
296 CALL pio_netcdf_put_fvar (ng, model, ncname, 'HsGRZ', &
297 & hsgrz(:,ng), (/1/), (/nphy/), &
298 & piofile = piofile)
299 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
300
301 CALL pio_netcdf_put_fvar (ng, model, ncname, 'MinRefuge', &
302 & minrefuge(:,ng), (/1/), (/nphy/), &
303 & piofile = piofile)
304 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
305
306 CALL pio_netcdf_put_fvar (ng, model, ncname, 'RefugeDep', &
307 & refugedep(:,ng), (/1/), (/nphy/), &
308 & piofile = piofile)
309 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
310
311 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Norm_Vol', &
312 & norm_vol(:,ng), (/1/), (/nphy/), &
313 & piofile = piofile)
314 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
315
316 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Norm_Surf', &
317 & norm_surf(:,ng), (/1/), (/nphy/), &
318 & piofile = piofile)
319 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
320
321 CALL pio_netcdf_put_fvar (ng, model, ncname, 'HsDOP', &
322 & hsdop(:,ng), (/1/), (/nphy/), &
323 & piofile = piofile)
324 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
325
326 CALL pio_netcdf_put_fvar (ng, model, ncname, 'C2pALKPHOS', &
327 & c2palkphos(:,ng), (/1/), (/nphy/), &
328 & piofile = piofile)
329 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
330
331 CALL pio_netcdf_put_fvar (ng, model, ncname, 'HsDON', &
332 & hsdon(:,ng), (/1/), (/nphy/), &
333 & piofile = piofile)
334 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
335
336 CALL pio_netcdf_put_fvar (ng, model, ncname, 'C2nNupDON', &
337 & c2nnupdon(:,ng), (/1/), (/nphy/), &
338 & piofile = piofile)
339 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
340
341 CALL pio_netcdf_put_fvar (ng, model, ncname, 'HsDOC_ba', &
342 & hsdoc_ba(:,ng), (/1/), (/nbac/), &
343 & piofile = piofile)
344 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
345
346 CALL pio_netcdf_put_fvar (ng, model, ncname, 'GtBAC_max', &
347 & gtbac_max(:,ng), (/1/), (/nbac/), &
348 & piofile = piofile)
349 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
350
351 CALL pio_netcdf_put_fvar (ng, model, ncname, 'BacTbase', &
352 & bactbase(:,ng), (/1/), (/nbac/), &
353 & piofile = piofile)
354 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
355
356 CALL pio_netcdf_put_fvar (ng, model, ncname, 'BacTfac', &
357 & bactfac(:,ng), (/1/), (/nbac/), &
358 & piofile = piofile)
359 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
360
361 CALL pio_netcdf_put_fvar (ng, model, ncname, 'C2nBAC', &
362 & c2nbac(ng), (/0/), (/0/), &
363 & piofile = piofile)
364 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
365
366 CALL pio_netcdf_put_fvar (ng, model, ncname, 'C2pBAC', &
367 & c2pbac(ng), (/0/), (/0/), &
368 & piofile = piofile)
369 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
370
371 CALL pio_netcdf_put_fvar (ng, model, ncname, 'C2FeBAC', &
372 & c2febac(ng), (/0/), (/0/), &
373 & piofile = piofile)
374 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
375
376 CALL pio_netcdf_put_fvar (ng, model, ncname, 'BacDOC', &
377 & bacdoc(ng), (/0/), (/0/), &
378 & piofile = piofile)
379 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
380
381 CALL pio_netcdf_put_fvar (ng, model, ncname, 'BacPEL', &
382 & bacpel(ng), (/0/), (/0/), &
383 & piofile = piofile)
384 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
385
386 CALL pio_netcdf_put_fvar (ng, model, ncname, 'BacCYC', &
387 & baccyc(ng), (/0/), (/0/), &
388 & piofile = piofile)
389 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
390
391 CALL pio_netcdf_put_fvar (ng, model, ncname, 'ExBAC_c', &
392 & exbac_c(ng), (/0/), (/0/), &
393 & piofile = piofile)
394 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
395
396 CALL pio_netcdf_put_fvar (ng, model, ncname, 'ExBacC2N', &
397 & exbacc2n(ng), (/0/), (/0/), &
398 & piofile = piofile)
399 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
400
401 CALL pio_netcdf_put_fvar (ng, model, ncname, 'Bac_Ceff', &
402 & bac_ceff(ng), (/0/), (/0/), &
403 & piofile = piofile)
404 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
405
406 CALL pio_netcdf_put_fvar (ng, model, ncname, 'RtNIT', &
407 & rtnit(ng), (/0/), (/0/), &
408 & piofile = piofile)
409 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
410
411 CALL pio_netcdf_put_fvar (ng, model, ncname, 'HsNIT', &
412 & hsnit(ng), (/0/), (/0/), &
413 & piofile = piofile)
414 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
415
416 CALL pio_netcdf_put_fvar (ng, model, ncname, 'cDOCfrac_c', &
417 & cdocfrac_c(:,ng), (/1/), (/ndom/), &
418 & piofile = piofile)
419 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
420
421 CALL pio_netcdf_put_fvar (ng, model, ncname, 'RtUVR_DIC', &
422 & rtuvr_dic(ng), (/0/), (/0/), &
423 & piofile = piofile)
424 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
425
426 CALL pio_netcdf_put_fvar (ng, model, ncname, 'RtUVR_DOC', &
427 & rtuvr_dic(ng), (/0/), (/0/), &
428 & piofile = piofile)
429 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
430
431 CALL pio_netcdf_put_fvar (ng, model, ncname, 'WF', &
432 & wf(:,ng), (/1/), (/nfec/), &
433 & piofile = piofile)
434 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
435
436 CALL pio_netcdf_put_fvar (ng, model, ncname, 'RegTbase', &
437 & regtbase(:,ng), (/1/), (/nfec/), &
438 & piofile = piofile)
439 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
440
441 CALL pio_netcdf_put_fvar (ng, model, ncname, 'RegTfac', &
442 & regtfac(:,ng), (/1/), (/nfec/), &
443 & piofile = piofile)
444 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
445
446 CALL pio_netcdf_put_fvar (ng, model, ncname, 'RegCR', &
447 & regcr(:,ng), (/1/), (/nfec/), &
448 & piofile = piofile)
449 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
450
451 CALL pio_netcdf_put_fvar (ng, model, ncname, 'RegNR', &
452 & regnr(:,ng), (/1/), (/nfec/), &
453 & piofile = piofile)
454 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
455
456 CALL pio_netcdf_put_fvar (ng, model, ncname, 'RegSR', &
457 & regsr(:,ng), (/1/), (/nfec/), &
458 & piofile = piofile)
459 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
460
461 CALL pio_netcdf_put_fvar (ng, model, ncname, 'RegPR', &
462 & regpr(:,ng), (/1/), (/nfec/), &
463 & piofile = piofile)
464 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
465
466 CALL pio_netcdf_put_fvar (ng, model, ncname, 'RegFR', &
467 & regfr(:,ng), (/1/), (/nfec/), &
468 & piofile = piofile)
469 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
output
subroutine output(ng)
Definition output.F:4