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 fennel et al. (2006) ecosystem model input parameters into **
10**
output netcdf 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,
'AttChl', &
29 & attchl(ng), (/0/), (/0/), &
31 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
33 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PARfrac', &
34 & parfrac(ng), (/0/), (/0/), &
36 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
38 CALL pio_netcdf_put_fvar (ng, model, ncname,
'Vp0', &
39 & vp0(ng), (/0/), (/0/), &
41 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
43 CALL pio_netcdf_put_fvar (ng, model, ncname,
'I_thNH4', &
44 & i_thnh4(ng), (/0/), (/0/), &
46 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
48 CALL pio_netcdf_put_fvar (ng, model, ncname,
'D_p5NH4', &
49 & d_p5nh4(ng), (/0/), (/0/), &
51 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
53 CALL pio_netcdf_put_fvar (ng, model, ncname,
'NitriR', &
54 & nitrir(ng), (/0/), (/0/), &
56 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
58 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_NO3', &
59 & k_no3(ng), (/0/), (/0/), &
61 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
63 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_NH4', &
64 & k_nh4(ng), (/0/), (/0/), &
66 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
68 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_PO4', &
69 & k_po4(ng), (/0/), (/0/), &
71 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
73 CALL pio_netcdf_put_fvar (ng, model, ncname,
'K_Phy', &
74 & k_phy(ng), (/0/), (/0/), &
76 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
78 CALL pio_netcdf_put_fvar (ng, model, ncname,
'Chl2C_m', &
79 & chl2c_m(ng), (/0/), (/0/), &
81 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
83 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ChlMin', &
84 & chlmin(ng), (/0/), (/0/), &
86 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
88 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PhyCN', &
89 & phycn(ng), (/0/), (/0/), &
91 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
93 CALL pio_netcdf_put_fvar (ng, model, ncname,
'R_P2N', &
94 & r_p2n(ng), (/0/), (/0/), &
96 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
98 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PhyIP', &
99 & phyip(ng), (/0/), (/0/), &
101 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
103 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PhyIS', &
104 & phyis(ng), (/0/), (/0/), &
106 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
108 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PhyMin', &
109 & phymin(ng), (/0/), (/0/), &
111 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
113 CALL pio_netcdf_put_fvar (ng, model, ncname,
'PhyMR', &
114 & phymr(ng), (/0/), (/0/), &
116 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
118 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZooAE_N', &
119 & zooae_n(ng), (/0/), (/0/), &
121 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
123 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZooBM', &
124 & zoobm(ng), (/0/), (/0/), &
126 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
128 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZooCN', &
129 & zoocn(ng), (/0/), (/0/), &
131 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
133 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZooER', &
134 & zooer(ng), (/0/), (/0/), &
136 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
138 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZooGR', &
139 & zoogr(ng), (/0/), (/0/), &
141 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
143 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZooMin', &
144 & zoomin(ng), (/0/), (/0/), &
146 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
148 CALL pio_netcdf_put_fvar (ng, model, ncname,
'ZooMR', &
149 & zoomr(ng), (/0/), (/0/), &
151 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
153 CALL pio_netcdf_put_fvar (ng, model, ncname,
'LDeRRN', &
154 & lderrn(ng), (/0/), (/0/), &
156 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
158 CALL pio_netcdf_put_fvar (ng, model, ncname,
'LDeRRC', &
159 & lderrc(ng), (/0/), (/0/), &
161 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
163 CALL pio_netcdf_put_fvar (ng, model, ncname,
'CoagR', &
164 & coagr(ng), (/0/), (/0/), &
166 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
168 CALL pio_netcdf_put_fvar (ng, model, ncname,
'SDeRRN', &
169 & sderrn(ng), (/0/), (/0/), &
171 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
173 CALL pio_netcdf_put_fvar (ng, model, ncname,
'SDeRRC', &
174 & sderrc(ng), (/0/), (/0/), &
176 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
178 CALL pio_netcdf_put_fvar (ng, model, ncname,
'RDeRRN', &
179 & rderrn(ng), (/0/), (/0/), &
181 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
183 CALL pio_netcdf_put_fvar (ng, model, ncname,
'RDeRRC', &
184 & rderrc(ng), (/0/), (/0/), &
186 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
188 CALL pio_netcdf_put_fvar (ng, model, ncname,
'wPhy', &
189 & wphy(ng), (/0/), (/0/), &
191 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
193 CALL pio_netcdf_put_fvar (ng, model, ncname,
'wLDet', &
194 & wldet(ng), (/0/), (/0/), &
196 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
198 CALL pio_netcdf_put_fvar (ng, model, ncname,
'wSDet', &
199 & wsdet(ng), (/0/), (/0/), &
201 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN
203 CALL pio_netcdf_put_fvar (ng, model, ncname,
'pCO2air', &
204 & pco2air(ng), (/0/), (/0/), &
206 IF (founderror(exit_flag, noerror, __line__, myfile))
RETURN