UPP (develop)
•All Data Structures Files Functions Variables Modules Pages
VRBLS2D_mod.f
Go to the documentation of this file.
1
3 module vrbls2d
4!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
5 implicit none
6!
7 real, allocatable :: &
8 u10(:,:) &
9 ,akms(:,:) &
10 ,akhs(:,:) &
11 ,ths(:,:) &
12 ,qs(:,:) &
13 ,uz0(:,:) &
14 ,vz0(:,:) &
15 ,thz0(:,:) &
16 ,qz0(:,:) &
17 ,sno(:,:) &
18 ,tshltr(:,:) &
19 ,qshltr(:,:) &
20 ,mrshltr(:,:) &
21 ,v10(:,:) &
22 ,acprec(:,:) &
23 ,cuprec(:,:) &
24 ,ancprc(:,:) &
25 ,cuppt(:,:) &
26 ,smstav(:,:) &
27 ,ssroff(:,:) &
28 ,bgroff(:,:) &
29 ,vegfrc(:,:) &
30 ,shdmin(:,:) &
31 ,shdmax(:,:) &
32 ,lai(:,:) &
33 ,acsnow(:,:) &
34 ,acsnom(:,:) &
35 ,cmc(:,:) &
36 ,sst(:,:) &
37 ,rswin(:,:) &
38 ,rlwin(:,:) &
39 ,rlwtoa(:,:) &
40 ,lwdnbc(:,:) &
41 ,lwupbc(:,:) &
42 ,tg(:,:) &
43 ,sfcshx(:,:) &
44 ,pslp(:,:) &
45 ,t700(:,:) &
46 ,z500(:,:) &
47 ,z700(:,:) &
48 ,sfclhx(:,:) &
49 ,fis(:,:) &
50 ,t500(:,:) &
51 ,z1000(:,:) &
52 ,slp(:,:) &
53 ,cfracl(:,:) &
54 ,cfracm(:,:) &
55 ,cfrach(:,:) &
56 ,acfrst(:,:) &
57 ,acfrcv(:,:) &
58 ,ncfrst(:,:) &
59 ,ncfrcv(:,:) &
60 ,hbot(:,:) &
61 ,htop(:,:) &
62 ,aswin(:,:) &
63 ,alwin(:,:) &
64 ,aswout(:,:) &
65 ,alwout(:,:) &
66 ,aswtoa(:,:) &
67 ,alwtoa(:,:) &
68 ,czen(:,:) &
69 ,czmean(:,:) &
70 ,sigt4(:,:) &
71 ,rswout(:,:) &
72 ,radot(:,:) &
73 ,smstot(:,:) &
74 ,pctsno(:,:) &
75 ,pshltr(:,:) &
76 ,th10(:,:) &
77 ,q10(:,:) &
78 ,sr(:,:) &
79 ,prec(:,:) &
80 ,subshx(:,:) &
81 ,snopcx(:,:) &
82 ,sfcuvx(:,:) &
83 ,sfcevp(:,:) &
84 ,potevp(:,:) &
85 ,z0(:,:) &
86 ,ustar(:,:) &
87 ,twbs(:,:) &
88 ,qwbs(:,:) &
89 ,sfcexc(:,:) &
90 ,grnflx(:,:) &
91 ,soiltb(:,:) &
92 ,f(:,:) &
93 ,albedo(:,:) &
94 ,cldfra(:,:) &
95 ,cprate(:,:) &
96 ,cnvcfr(:,:) &
97 ,pblh(:,:) &
98 ,pblhgust(:,:) &
99 ,hbotd(:,:) &
100 ,htopd(:,:) &
101 ,hbots(:,:) &
102 ,htops(:,:) &
103 ,cldefi(:,:) &
104 ,albase(:,:) &
105 ,si(:,:) &
106 ,lspa(:,:) &
107 ,rswinc(:,:) &
108 ,vis(:,:) &
109 ,pd(:,:) &
110 ,mxsnal(:,:) &
111 ,mixht(:,:) &
112 ,snonc(:,:) &
113 ,epsr(:,:) &
114 ,rswtoa(:,:) &
115 ,teql(:,:) &
116! Variables saved for input to IFI
117 ,ifi_apcp(:,:) &
118 ,cape(:,:) &
119 ,cin(:,:) &
120! HWRF additions
121 ,mdltaux(:,:) &
122 ,mdltauy(:,:) &
123 ,cd10(:,:) &
124 ,ch10(:,:) &
125 ,acswupt(:,:) &
126 ,swdnt(:,:) &
127 ,acswdnt(:,:) &
128! NAMB additions
129 ,snoavg(:,:) &
130 ,psfcavg(:,:) &
131 ,t10avg(:,:) &
132 ,akhsavg(:,:) &
133 ,akmsavg(:,:) &
134 ,t10m(:,:) &
135 ,u10max(:,:) &
136 ,v10max(:,:) &
137 ,u10h(:,:) &
138 ,v10h(:,:) &
139 ,prate_max(:,:) &
140 ,fprate_max(:,:) &
141! GSD addition
142 ,wspd10max(:,:) &
143 ,w_up_max(:,:) &
144 ,w_dn_max(:,:) &
145 ,refd_max(:,:) &
146 ,up_heli_max(:,:) &
147 ,up_heli_max16(:,:) &
148 ,grpl_max(:,:) &
149 ,qrmax(:,:) &
150 ,up_heli(:,:) &
151 ,up_heli16(:,:) &
152 ,ltg1_max(:,:) &
153 ,ltg2_max(:,:) &
154 ,ltg3_max(:,:) &
155 ,up_heli_min(:,:) &
156 ,up_heli_min16(:,:) &
157 ,up_heli_max02(:,:) &
158 ,up_heli_min02(:,:) &
159 ,up_heli_max03(:,:) &
160 ,up_heli_min03(:,:) &
161 ,rel_vort_max(:,:) &
162 ,rel_vort_max01(:,:) &
163 ,rel_vort_maxhy1(:,:) &
164 ,wspd10umax(:,:) &
165 ,wspd10vmax(:,:) &
166 ,refdm10c_max(:,:) &
167 ,hail_max2d(:,:) &
168 ,hail_maxk1(:,:) &
169 ,hail_maxhailcast(:,:) &
170 ,nci_ltg(:,:) &
171 ,nca_ltg(:,:) &
172 ,nci_wq(:,:) &
173 ,nca_wq(:,:) &
174 ,nci_refd(:,:) &
175 ,nca_refd(:,:) &
176 ,rainc_bucket1(:,:) &
177 ,rainnc_bucket1(:,:) &
178 ,rainc_bucket(:,:) &
179 ,rainnc_bucket(:,:) &
180 ,snow_bucket(:,:) &
181 ,graup_bucket(:,:) &
182 ,pcp_bucket(:,:) &
183 ,acgraup(:,:) &
184 ,acfrain(:,:) &
185 ,frzrn_bucket(:,:) &
186 ,snow_acm(:,:) &
187 ,snow_bkt(:,:) &
188 ,snow_bucket1(:,:) &
189 ,graup_bucket1(:,:) &
190 ,pcp_bucket1(:,:) &
191 ,snownc(:,:) &
192 ,graupelnc(:,:) &
193 ,tmax(:,:) &
194 ,w_mean(:,:) &
195 ,tsnow(:,:) &
196 ,qvg(:,:) &
197 ,qv2m(:,:) &
198 ,qvl1(:,:) &
199 ,refc_10cm(:,:) &
200 ,ref1km_10cm(:,:) &
201 ,ref4km_10cm(:,:) &
202 ,swradmean(:,:) &
203 ,u10mean(:,:) &
204 ,v10mean(:,:) &
205 ,spduv10mean(:,:) &
206 ,swnormmean(:,:) &
207 ,snfden(:,:) &
208 ,sndepac(:,:) &
209 ,swddni(:,:) &
210 ,swddif(:,:) &
211 ,swdnbc(:,:) &
212 ,swddnic(:,:) &
213 ,swddifc(:,:) &
214 ,swupbc(:,:) &
215 ,swupt(:,:) &
216 ,taod5502d(:,:) &
217 ,aerasy2d(:,:) &
218 ,aerssa2d(:,:) &
219 ,mean_frp(:,:) &
220 ,hwp(:,:) &
221 ,lwp(:,:) &
222 ,iwp(:,:) &
223 ,xlaixy(:,:) &
224 ,smoke_ave(:,:) &
225 ,dust_ave(:,:) &
226 ,coarsepm_ave(:,:) &
227! add new fields for GFS
228 ,sfcux(:,:) &
229 ,sfcvx(:,:) &
230 ,sfcuxi(:,:) &
231 ,sfcvxi(:,:) &
232 ,avgalbedo(:,:) &
233 ,avgcprate(:,:) &
234 ,avgprec(:,:) &
235 ,ptop(:,:) &
236 ,pbot(:,:) &
237 ,avgcfrach(:,:) &
238 ,avgcfracm(:,:) &
239 ,avgcfracl(:,:) &
240 ,avgtcdc(:,:) &
241 ,auvbin(:,:) &
242 ,auvbinc(:,:) &
243 ,ptopl(:,:) &
244 ,pbotl(:,:) &
245 ,ttopl(:,:) &
246 ,ptopm(:,:) &
247 ,pbotm(:,:) &
248 ,ttopm(:,:) &
249 ,ptoph(:,:) &
250 ,pboth(:,:) &
251 ,ttoph(:,:) &
252 ,sfcugs(:,:) &
253 ,sfcvgs(:,:) &
254 ,pblcfr(:,:) &
255 ,cldwork(:,:) &
256 ,gtaux(:,:) &
257 ,gtauy(:,:) &
258 ,runoff(:,:) &
259 ,maxtshltr(:,:) &
260 ,mintshltr(:,:) &
261 ,maxrhshltr(:,:) &
262 ,minrhshltr(:,:) &
263 ,dzice(:,:) &
264 ,maxqshltr(:,:) &
265 ,minqshltr(:,:) &
266 ,alwinc(:,:) &
267 ,alwoutc(:,:) &
268 ,alwtoac(:,:) &
269 ,aswinc(:,:) &
270 ,aswoutc(:,:) &
271 ,aswtoac(:,:) &
272 ,aswintoa(:,:) &
273 ,smcwlt(:,:) &
274 ,suntime(:,:) &
275 ,fieldcapa(:,:) &
276 ,avisbeamswin(:,:) &
277 ,avisdiffswin(:,:) &
278 ,airbeamswin(:,:) &
279 ,airdiffswin(:,:) &
280 ,snowfall(:,:) &
281 ,acond(:,:) &
282 ,edir(:,:) &
283 ,ecan(:,:) &
284 ,etrans(:,:) &
285 ,esnow(:,:) &
286 ,avgedir(:,:) &
287 ,avgecan(:,:) &
288 ,avgetrans(:,:)&
289 ,avgesnow(:,:) &
290 ,avgpotevp(:,:) &
291 ,avgprec_cont(:,:) &
292 ,avgcprate_cont(:,:) &
293 ,ti(:,:) &
294 ,aod550(:,:) &
295 ,du_aod550(:,:) &
296 ,ss_aod550(:,:) &
297 ,su_aod550(:,:) &
298 ,bc_aod550(:,:) &
299 ,oc_aod550(:,:) &
300 ,landfrac(:,:) &
301 ,paha(:,:) &
302 ,pahi(:,:) &
303 ,tecan(:,:) &
304 ,tetran(:,:) &
305 ,tedir(:,:) &
306 ,twa(:,:) &
307 ,fdnsst(:,:) &
308 ,pwat(:,:)
309 integer, allocatable :: ivgtyp(:,:) &
310 ,isltyp(:,:) &
311 ,islope(:,:) &
312 ,ieql(:,:)
313
314! Add 2d aerosol diagnosis fields for GOCART (NEMS-GFS Aerosol Component [NGAC])
315 real, allocatable :: &
316 dusmass(:,:) &
317 ,ducmass(:,:) &
318 ,dusmass25(:,:) &
319 ,ducmass25(:,:) &
320 ,susmass(:,:) &
321 ,sucmass(:,:) &
322 ,susmass25(:,:) &
323 ,sucmass25(:,:) &
324 ,ocsmass(:,:) &
325 ,occmass(:,:) &
326 ,ocsmass25(:,:) &
327 ,occmass25(:,:) &
328 ,bcsmass(:,:) &
329 ,bccmass(:,:) &
330 ,bcsmass25(:,:) &
331 ,bccmass25(:,:) &
332 ,sssmass(:,:) &
333 ,sscmass(:,:) &
334 ,sssmass25(:,:) &
335 ,sscmass25(:,:) &
336 ,dustcb(:,:) &
337 ,sscb(:,:) &
338 ,occb(:,:) &
339 ,bccb(:,:) &
340 ,sulfcb(:,:) &
341 ,dustallcb(:,:) &
342 ,ssallcb(:,:) &
343 ,dustpm(:,:) &
344 ,sspm(:,:) &
345 ,pp25cb(:,:) &
346 ,dustpm10(:,:) &
347 ,pp10cb(:,:) &
348 ,no3cb(:,:) &
349 ,nh4cb(:,:) &
350 ,maod(:,:)
351
352! Add new field for AQM
353 real, allocatable :: aqm_aod550(:,:)
354
355!
356 end module vrbls2d