ROMS
Loading...
Searching...
No Matches
fennel_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 fennel et al. (2006) ecosystem model input parameters into **
10** output netcdf files. it is included in routine "wrt_info.F". **
11** **
12************************************************************************
13*/
14
15!
16! Write out Fennel et al. (2006) 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, 'AttChl', &
29 & attchl(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, 'PARfrac', &
34 & parfrac(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, 'Vp0', &
39 & vp0(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, 'I_thNH4', &
44 & i_thnh4(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, 'D_p5NH4', &
49 & d_p5nh4(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, 'NitriR', &
54 & nitrir(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, 'K_NO3', &
59 & k_no3(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, 'K_NH4', &
64 & k_nh4(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, 'K_PO4', &
69 & k_po4(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_Phy', &
74 & k_phy(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, 'Chl2C_m', &
79 & chl2c_m(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, 'ChlMin', &
84 & chlmin(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, 'PhyCN', &
89 & phycn(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, 'R_P2N', &
94 & r_p2n(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, 'PhyIP', &
99 & phyip(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, 'PhyIS', &
104 & phyis(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, 'PhyMin', &
109 & phymin(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, 'PhyMR', &
114 & phymr(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, 'ZooAE_N', &
119 & zooae_n(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, 'ZooBM', &
124 & zoobm(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, 'ZooCN', &
129 & zoocn(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, 'ZooER', &
134 & zooer(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, 'ZooGR', &
139 & zoogr(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, 'ZooMin', &
144 & zoomin(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, 'ZooMR', &
149 & zoomr(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, 'LDeRRN', &
154 & lderrn(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, 'LDeRRC', &
159 & lderrc(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, 'CoagR', &
164 & coagr(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, 'SDeRRN', &
169 & sderrn(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, 'SDeRRC', &
174 & sderrc(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, 'RDeRRN', &
179 & rderrn(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, 'RDeRRC', &
184 & rderrc(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, 'wPhy', &
189 & wphy(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, 'wLDet', &
194 & wldet(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, 'wSDet', &
199 & wsdet(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, 'pCO2air', &
204 & pco2air(ng), (/0/), (/0/), &
205 & piofile = piofile)
206 IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
subroutine output(ng)
Definition output.F:4