wrf_auxhist3in.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxhist3in.inc'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit. Your changes to this file will be lost.
6 !
7 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
8 CALL wrf_ext_read_field ( &
9 fid , & ! DataHandle
10 current_date(1:19) , & ! DateStr
11 'U' , & ! Data Name
12 grid%em_u_2 , & ! Field
13 WRF_FLOAT , & ! FieldType
14 grid%communicator , & ! Comm
15 grid%iocommunicator , & ! Comm
16 grid%domdesc , & ! Comm
17 grid%bdy_mask , & ! bdy_mask
18 'XYZ' , & ! MemoryOrder
19 'X' , & ! Stagger
20 'inc/wrf_auxhist3in.inc ext_read_field U memorder XYZ' , & ! Debug message
21 ids , ide , jds , (jde-1) , kds , (kde-1) , &
22 ims , ime , jms , jme , kms , kme , &
23 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
24 ierr )
25 END IF
26 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
27 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
28 CALL wrf_ext_read_field ( &
29 fid , & ! DataHandle
30 current_date(1:19) , & ! DateStr
31 'A_U' , & ! Data Name
32 grid%em_a_u_2 , & ! Field
33 WRF_FLOAT , & ! FieldType
34 grid%communicator , & ! Comm
35 grid%iocommunicator , & ! Comm
36 grid%domdesc , & ! Comm
37 grid%bdy_mask , & ! bdy_mask
38 'XYZ' , & ! MemoryOrder
39 'X' , & ! Stagger
40 'inc/wrf_auxhist3in.inc ext_read_field A_U memorder XYZ' , & ! Debug message
41 ids , ide , jds , (jde-1) , kds , (kde-1) , &
42 ims , ime , jms , jme , kms , kme , &
43 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
44 ierr )
45 END IF
46 END IF
47 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
48 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
49 CALL wrf_ext_read_field ( &
50 fid , & ! DataHandle
51 current_date(1:19) , & ! DateStr
52 'G_U' , & ! Data Name
53 grid%em_g_u_2 , & ! Field
54 WRF_FLOAT , & ! FieldType
55 grid%communicator , & ! Comm
56 grid%iocommunicator , & ! Comm
57 grid%domdesc , & ! Comm
58 grid%bdy_mask , & ! bdy_mask
59 'XYZ' , & ! MemoryOrder
60 'X' , & ! Stagger
61 'inc/wrf_auxhist3in.inc ext_read_field G_U memorder XYZ' , & ! Debug message
62 ids , ide , jds , (jde-1) , kds , (kde-1) , &
63 ims , ime , jms , jme , kms , kme , &
64 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
65 ierr )
66 END IF
67 END IF
68 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
69 CALL wrf_ext_read_field ( &
70 fid , & ! DataHandle
71 current_date(1:19) , & ! DateStr
72 'V' , & ! Data Name
73 grid%em_v_2 , & ! Field
74 WRF_FLOAT , & ! FieldType
75 grid%communicator , & ! Comm
76 grid%iocommunicator , & ! Comm
77 grid%domdesc , & ! Comm
78 grid%bdy_mask , & ! bdy_mask
79 'XYZ' , & ! MemoryOrder
80 'Y' , & ! Stagger
81 'inc/wrf_auxhist3in.inc ext_read_field V memorder XYZ' , & ! Debug message
82 ids , (ide-1) , jds , jde , kds , (kde-1) , &
83 ims , ime , jms , jme , kms , kme , &
84 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
85 ierr )
86 END IF
87 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
88 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
89 CALL wrf_ext_read_field ( &
90 fid , & ! DataHandle
91 current_date(1:19) , & ! DateStr
92 'A_V' , & ! Data Name
93 grid%em_a_v_2 , & ! Field
94 WRF_FLOAT , & ! FieldType
95 grid%communicator , & ! Comm
96 grid%iocommunicator , & ! Comm
97 grid%domdesc , & ! Comm
98 grid%bdy_mask , & ! bdy_mask
99 'XYZ' , & ! MemoryOrder
100 'Y' , & ! Stagger
101 'inc/wrf_auxhist3in.inc ext_read_field A_V memorder XYZ' , & ! Debug message
102 ids , (ide-1) , jds , jde , kds , (kde-1) , &
103 ims , ime , jms , jme , kms , kme , &
104 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
105 ierr )
106 END IF
107 END IF
108 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
109 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
110 CALL wrf_ext_read_field ( &
111 fid , & ! DataHandle
112 current_date(1:19) , & ! DateStr
113 'G_V' , & ! Data Name
114 grid%em_g_v_2 , & ! Field
115 WRF_FLOAT , & ! FieldType
116 grid%communicator , & ! Comm
117 grid%iocommunicator , & ! Comm
118 grid%domdesc , & ! Comm
119 grid%bdy_mask , & ! bdy_mask
120 'XYZ' , & ! MemoryOrder
121 'Y' , & ! Stagger
122 'inc/wrf_auxhist3in.inc ext_read_field G_V memorder XYZ' , & ! Debug message
123 ids , (ide-1) , jds , jde , kds , (kde-1) , &
124 ims , ime , jms , jme , kms , kme , &
125 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
126 ierr )
127 END IF
128 END IF
129 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
130 CALL wrf_ext_read_field ( &
131 fid , & ! DataHandle
132 current_date(1:19) , & ! DateStr
133 'W' , & ! Data Name
134 grid%em_w_2 , & ! Field
135 WRF_FLOAT , & ! FieldType
136 grid%communicator , & ! Comm
137 grid%iocommunicator , & ! Comm
138 grid%domdesc , & ! Comm
139 grid%bdy_mask , & ! bdy_mask
140 'XYZ' , & ! MemoryOrder
141 'Z' , & ! Stagger
142 'inc/wrf_auxhist3in.inc ext_read_field W memorder XYZ' , & ! Debug message
143 ids , (ide-1) , jds , (jde-1) , kds , kde , &
144 ims , ime , jms , jme , kms , kme , &
145 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
146 ierr )
147 END IF
148 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
149 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
150 CALL wrf_ext_read_field ( &
151 fid , & ! DataHandle
152 current_date(1:19) , & ! DateStr
153 'A_W' , & ! Data Name
154 grid%em_a_w_2 , & ! Field
155 WRF_FLOAT , & ! FieldType
156 grid%communicator , & ! Comm
157 grid%iocommunicator , & ! Comm
158 grid%domdesc , & ! Comm
159 grid%bdy_mask , & ! bdy_mask
160 'XYZ' , & ! MemoryOrder
161 'Z' , & ! Stagger
162 'inc/wrf_auxhist3in.inc ext_read_field A_W memorder XYZ' , & ! Debug message
163 ids , (ide-1) , jds , (jde-1) , kds , kde , &
164 ims , ime , jms , jme , kms , kme , &
165 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
166 ierr )
167 END IF
168 END IF
169 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
170 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
171 CALL wrf_ext_read_field ( &
172 fid , & ! DataHandle
173 current_date(1:19) , & ! DateStr
174 'G_W' , & ! Data Name
175 grid%em_g_w_2 , & ! Field
176 WRF_FLOAT , & ! FieldType
177 grid%communicator , & ! Comm
178 grid%iocommunicator , & ! Comm
179 grid%domdesc , & ! Comm
180 grid%bdy_mask , & ! bdy_mask
181 'XYZ' , & ! MemoryOrder
182 'Z' , & ! Stagger
183 'inc/wrf_auxhist3in.inc ext_read_field G_W memorder XYZ' , & ! Debug message
184 ids , (ide-1) , jds , (jde-1) , kds , kde , &
185 ims , ime , jms , jme , kms , kme , &
186 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
187 ierr )
188 END IF
189 END IF
190 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
191 CALL wrf_ext_read_field ( &
192 fid , & ! DataHandle
193 current_date(1:19) , & ! DateStr
194 'PH' , & ! Data Name
195 grid%em_ph_2 , & ! Field
196 WRF_FLOAT , & ! FieldType
197 grid%communicator , & ! Comm
198 grid%iocommunicator , & ! Comm
199 grid%domdesc , & ! Comm
200 grid%bdy_mask , & ! bdy_mask
201 'XYZ' , & ! MemoryOrder
202 'Z' , & ! Stagger
203 'inc/wrf_auxhist3in.inc ext_read_field PH memorder XYZ' , & ! Debug message
204 ids , (ide-1) , jds , (jde-1) , kds , kde , &
205 ims , ime , jms , jme , kms , kme , &
206 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
207 ierr )
208 END IF
209 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
210 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
211 CALL wrf_ext_read_field ( &
212 fid , & ! DataHandle
213 current_date(1:19) , & ! DateStr
214 'A_PH' , & ! Data Name
215 grid%em_a_ph_2 , & ! Field
216 WRF_FLOAT , & ! FieldType
217 grid%communicator , & ! Comm
218 grid%iocommunicator , & ! Comm
219 grid%domdesc , & ! Comm
220 grid%bdy_mask , & ! bdy_mask
221 'XYZ' , & ! MemoryOrder
222 'Z' , & ! Stagger
223 'inc/wrf_auxhist3in.inc ext_read_field A_PH memorder XYZ' , & ! Debug message
224 ids , (ide-1) , jds , (jde-1) , kds , kde , &
225 ims , ime , jms , jme , kms , kme , &
226 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
227 ierr )
228 END IF
229 END IF
230 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
231 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
232 CALL wrf_ext_read_field ( &
233 fid , & ! DataHandle
234 current_date(1:19) , & ! DateStr
235 'G_PH' , & ! Data Name
236 grid%em_g_ph_2 , & ! Field
237 WRF_FLOAT , & ! FieldType
238 grid%communicator , & ! Comm
239 grid%iocommunicator , & ! Comm
240 grid%domdesc , & ! Comm
241 grid%bdy_mask , & ! bdy_mask
242 'XYZ' , & ! MemoryOrder
243 'Z' , & ! Stagger
244 'inc/wrf_auxhist3in.inc ext_read_field G_PH memorder XYZ' , & ! Debug message
245 ids , (ide-1) , jds , (jde-1) , kds , kde , &
246 ims , ime , jms , jme , kms , kme , &
247 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
248 ierr )
249 END IF
250 END IF
251 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
252 CALL wrf_ext_read_field ( &
253 fid , & ! DataHandle
254 current_date(1:19) , & ! DateStr
255 'T' , & ! Data Name
256 grid%em_t_2 , & ! Field
257 WRF_FLOAT , & ! FieldType
258 grid%communicator , & ! Comm
259 grid%iocommunicator , & ! Comm
260 grid%domdesc , & ! Comm
261 grid%bdy_mask , & ! bdy_mask
262 'XYZ' , & ! MemoryOrder
263 '' , & ! Stagger
264 'inc/wrf_auxhist3in.inc ext_read_field T memorder XYZ' , & ! Debug message
265 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
266 ims , ime , jms , jme , kms , kme , &
267 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
268 ierr )
269 END IF
270 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
271 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
272 CALL wrf_ext_read_field ( &
273 fid , & ! DataHandle
274 current_date(1:19) , & ! DateStr
275 'A_T' , & ! Data Name
276 grid%em_a_t_2 , & ! Field
277 WRF_FLOAT , & ! FieldType
278 grid%communicator , & ! Comm
279 grid%iocommunicator , & ! Comm
280 grid%domdesc , & ! Comm
281 grid%bdy_mask , & ! bdy_mask
282 'XYZ' , & ! MemoryOrder
283 '' , & ! Stagger
284 'inc/wrf_auxhist3in.inc ext_read_field A_T memorder XYZ' , & ! Debug message
285 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
286 ims , ime , jms , jme , kms , kme , &
287 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
288 ierr )
289 END IF
290 END IF
291 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
292 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
293 CALL wrf_ext_read_field ( &
294 fid , & ! DataHandle
295 current_date(1:19) , & ! DateStr
296 'G_T' , & ! Data Name
297 grid%em_g_t_2 , & ! Field
298 WRF_FLOAT , & ! FieldType
299 grid%communicator , & ! Comm
300 grid%iocommunicator , & ! Comm
301 grid%domdesc , & ! Comm
302 grid%bdy_mask , & ! bdy_mask
303 'XYZ' , & ! MemoryOrder
304 '' , & ! Stagger
305 'inc/wrf_auxhist3in.inc ext_read_field G_T memorder XYZ' , & ! Debug message
306 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
307 ims , ime , jms , jme , kms , kme , &
308 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
309 ierr )
310 END IF
311 END IF
312 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
313 CALL wrf_ext_read_field ( &
314 fid , & ! DataHandle
315 current_date(1:19) , & ! DateStr
316 'MU' , & ! Data Name
317 grid%em_mu_2 , & ! Field
318 WRF_FLOAT , & ! FieldType
319 grid%communicator , & ! Comm
320 grid%iocommunicator , & ! Comm
321 grid%domdesc , & ! Comm
322 grid%bdy_mask , & ! bdy_mask
323 'XY' , & ! MemoryOrder
324 '' , & ! Stagger
325 'inc/wrf_auxhist3in.inc ext_read_field MU memorder XY' , & ! Debug message
326 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
327 ims , ime , jms , jme , 1 , 1 , &
328 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
329 ierr )
330 END IF
331 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
332 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
333 CALL wrf_ext_read_field ( &
334 fid , & ! DataHandle
335 current_date(1:19) , & ! DateStr
336 'A_MU' , & ! Data Name
337 grid%em_a_mu_2 , & ! Field
338 WRF_FLOAT , & ! FieldType
339 grid%communicator , & ! Comm
340 grid%iocommunicator , & ! Comm
341 grid%domdesc , & ! Comm
342 grid%bdy_mask , & ! bdy_mask
343 'XY' , & ! MemoryOrder
344 '' , & ! Stagger
345 'inc/wrf_auxhist3in.inc ext_read_field A_MU memorder XY' , & ! Debug message
346 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
347 ims , ime , jms , jme , 1 , 1 , &
348 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
349 ierr )
350 END IF
351 END IF
352 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
353 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
354 CALL wrf_ext_read_field ( &
355 fid , & ! DataHandle
356 current_date(1:19) , & ! DateStr
357 'G_MU' , & ! Data Name
358 grid%em_g_mu_2 , & ! Field
359 WRF_FLOAT , & ! FieldType
360 grid%communicator , & ! Comm
361 grid%iocommunicator , & ! Comm
362 grid%domdesc , & ! Comm
363 grid%bdy_mask , & ! bdy_mask
364 'XY' , & ! MemoryOrder
365 '' , & ! Stagger
366 'inc/wrf_auxhist3in.inc ext_read_field G_MU memorder XY' , & ! Debug message
367 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
368 ims , ime , jms , jme , 1 , 1 , &
369 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
370 ierr )
371 END IF
372 END IF
373 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
374 CALL wrf_ext_read_field ( &
375 fid , & ! DataHandle
376 current_date(1:19) , & ! DateStr
377 'P' , & ! Data Name
378 grid%em_p , & ! Field
379 WRF_FLOAT , & ! FieldType
380 grid%communicator , & ! Comm
381 grid%iocommunicator , & ! Comm
382 grid%domdesc , & ! Comm
383 grid%bdy_mask , & ! bdy_mask
384 'XYZ' , & ! MemoryOrder
385 '' , & ! Stagger
386 'inc/wrf_auxhist3in.inc ext_read_field P memorder XYZ' , & ! Debug message
387 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
388 ims , ime , jms , jme , kms , kme , &
389 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
390 ierr )
391 END IF
392 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
393 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
394 CALL wrf_ext_read_field ( &
395 fid , & ! DataHandle
396 current_date(1:19) , & ! DateStr
397 'A_P' , & ! Data Name
398 grid%em_a_p , & ! Field
399 WRF_FLOAT , & ! FieldType
400 grid%communicator , & ! Comm
401 grid%iocommunicator , & ! Comm
402 grid%domdesc , & ! Comm
403 grid%bdy_mask , & ! bdy_mask
404 'XYZ' , & ! MemoryOrder
405 '' , & ! Stagger
406 'inc/wrf_auxhist3in.inc ext_read_field A_P memorder XYZ' , & ! Debug message
407 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
408 ims , ime , jms , jme , kms , kme , &
409 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
410 ierr )
411 END IF
412 END IF
413 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
414 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
415 CALL wrf_ext_read_field ( &
416 fid , & ! DataHandle
417 current_date(1:19) , & ! DateStr
418 'G_P' , & ! Data Name
419 grid%em_g_p , & ! Field
420 WRF_FLOAT , & ! FieldType
421 grid%communicator , & ! Comm
422 grid%iocommunicator , & ! Comm
423 grid%domdesc , & ! Comm
424 grid%bdy_mask , & ! bdy_mask
425 'XYZ' , & ! MemoryOrder
426 '' , & ! Stagger
427 'inc/wrf_auxhist3in.inc ext_read_field G_P memorder XYZ' , & ! Debug message
428 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
429 ims , ime , jms , jme , kms , kme , &
430 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
431 ierr )
432 END IF
433 END IF
434 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
435 CALL wrf_ext_read_field ( &
436 fid , & ! DataHandle
437 current_date(1:19) , & ! DateStr
438 'ZNW' , & ! Data Name
439 grid%em_znw , & ! Field
440 WRF_FLOAT , & ! FieldType
441 grid%communicator , & ! Comm
442 grid%iocommunicator , & ! Comm
443 grid%domdesc , & ! Comm
444 grid%bdy_mask , & ! bdy_mask
445 'Z' , & ! MemoryOrder
446 'Z' , & ! Stagger
447 'inc/wrf_auxhist3in.inc ext_read_field ZNW memorder Z' , & ! Debug message
448 kds , kde , 1 , 1 , 1 , 1 , &
449 kms , kme , 1 , 1 , 1 , 1 , &
450 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
451 ierr )
452 END IF
453 CALL wrf_ext_read_field ( &
454 fid , & ! DataHandle
455 current_date(1:19) , & ! DateStr
456 'U10' , & ! Data Name
457 grid%u10 , & ! Field
458 WRF_FLOAT , & ! FieldType
459 grid%communicator , & ! Comm
460 grid%iocommunicator , & ! Comm
461 grid%domdesc , & ! Comm
462 grid%bdy_mask , & ! bdy_mask
463 'XY' , & ! MemoryOrder
464 '' , & ! Stagger
465 'inc/wrf_auxhist3in.inc ext_read_field U10 memorder XY' , & ! Debug message
466 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
467 ims , ime , jms , jme , 1 , 1 , &
468 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
469 ierr )
470 CALL wrf_ext_read_field ( &
471 fid , & ! DataHandle
472 current_date(1:19) , & ! DateStr
473 'V10' , & ! Data Name
474 grid%v10 , & ! Field
475 WRF_FLOAT , & ! FieldType
476 grid%communicator , & ! Comm
477 grid%iocommunicator , & ! Comm
478 grid%domdesc , & ! Comm
479 grid%bdy_mask , & ! bdy_mask
480 'XY' , & ! MemoryOrder
481 '' , & ! Stagger
482 'inc/wrf_auxhist3in.inc ext_read_field V10 memorder XY' , & ! Debug message
483 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
484 ims , ime , jms , jme , 1 , 1 , &
485 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
486 ierr )
487 DO itrace = PARAM_FIRST_SCALAR , num_moist
488 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
489 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
490 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
491 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
492 CALL wrf_ext_read_field ( &
493 fid , & ! DataHandle
494 current_date(1:19) , & ! DateStr
495 TRIM(moist_dname_table( grid%id, itrace )), & !data name
496 grid%moist(ims,jms,kms,itrace) , & ! Field
497 WRF_FLOAT , & ! FieldType
498 grid%communicator , & ! Comm
499 grid%iocommunicator , & ! Comm
500 grid%domdesc , & ! Comm
501 grid%bdy_mask , & ! bdy_mask
502 'XYZ' , & ! MemoryOrder
503 '' , & ! Stagger
504 'inc/wrf_auxhist3in.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
505 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
506 ims , ime , jms , jme , kms , kme , &
507 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
508 ierr )
509 ENDIF
510 ENDIF
511 ENDDO
512 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
513 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
514 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
515 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
516 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
517 CALL wrf_ext_read_field ( &
518 fid , & ! DataHandle
519 current_date(1:19) , & ! DateStr
520 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
521 grid%a_moist(ims,jms,kms,itrace) , & ! Field
522 WRF_FLOAT , & ! FieldType
523 grid%communicator , & ! Comm
524 grid%iocommunicator , & ! Comm
525 grid%domdesc , & ! Comm
526 grid%bdy_mask , & ! bdy_mask
527 'XYZ' , & ! MemoryOrder
528 '' , & ! Stagger
529 'inc/wrf_auxhist3in.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
530 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
531 ims , ime , jms , jme , kms , kme , &
532 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
533 ierr )
534 ENDIF
535 ENDIF
536 ENDDO
537 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
538 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
539 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
540 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
541 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
542 CALL wrf_ext_read_field ( &
543 fid , & ! DataHandle
544 current_date(1:19) , & ! DateStr
545 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
546 grid%g_moist(ims,jms,kms,itrace) , & ! Field
547 WRF_FLOAT , & ! FieldType
548 grid%communicator , & ! Comm
549 grid%iocommunicator , & ! Comm
550 grid%domdesc , & ! Comm
551 grid%bdy_mask , & ! bdy_mask
552 'XYZ' , & ! MemoryOrder
553 '' , & ! Stagger
554 'inc/wrf_auxhist3in.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
555 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
556 ims , ime , jms , jme , kms , kme , &
557 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
558 ierr )
559 ENDIF
560 ENDIF
561 ENDDO
562 DO itrace = PARAM_FIRST_SCALAR , num_scalar
563 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
564 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
565 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
566 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
567 CALL wrf_ext_read_field ( &
568 fid , & ! DataHandle
569 current_date(1:19) , & ! DateStr
570 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
571 grid%scalar(ims,jms,kms,itrace) , & ! Field
572 WRF_FLOAT , & ! FieldType
573 grid%communicator , & ! Comm
574 grid%iocommunicator , & ! Comm
575 grid%domdesc , & ! Comm
576 grid%bdy_mask , & ! bdy_mask
577 'XYZ' , & ! MemoryOrder
578 '' , & ! Stagger
579 'inc/wrf_auxhist3in.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
580 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
581 ims , ime , jms , jme , kms , kme , &
582 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
583 ierr )
584 ENDIF
585 ENDIF
586 ENDDO
587 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
588 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
589 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
590 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
591 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
592 CALL wrf_ext_read_field ( &
593 fid , & ! DataHandle
594 current_date(1:19) , & ! DateStr
595 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
596 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
597 WRF_FLOAT , & ! FieldType
598 grid%communicator , & ! Comm
599 grid%iocommunicator , & ! Comm
600 grid%domdesc , & ! Comm
601 grid%bdy_mask , & ! bdy_mask
602 'XYZ' , & ! MemoryOrder
603 '' , & ! Stagger
604 'inc/wrf_auxhist3in.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
605 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
606 ims , ime , jms , jme , kms , kme , &
607 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
608 ierr )
609 ENDIF
610 ENDIF
611 ENDDO
612 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
613 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
614 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
615 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
616 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
617 CALL wrf_ext_read_field ( &
618 fid , & ! DataHandle
619 current_date(1:19) , & ! DateStr
620 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
621 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
622 WRF_FLOAT , & ! FieldType
623 grid%communicator , & ! Comm
624 grid%iocommunicator , & ! Comm
625 grid%domdesc , & ! Comm
626 grid%bdy_mask , & ! bdy_mask
627 'XYZ' , & ! MemoryOrder
628 '' , & ! Stagger
629 'inc/wrf_auxhist3in.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
630 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
631 ims , ime , jms , jme , kms , kme , &
632 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
633 ierr )
634 ENDIF
635 ENDIF
636 ENDDO
637 CALL wrf_ext_read_field ( &
638 fid , & ! DataHandle
639 current_date(1:19) , & ! DateStr
640 'LANDMASK' , & ! Data Name
641 grid%landmask , & ! Field
642 WRF_FLOAT , & ! FieldType
643 grid%communicator , & ! Comm
644 grid%iocommunicator , & ! Comm
645 grid%domdesc , & ! Comm
646 grid%bdy_mask , & ! bdy_mask
647 'XY' , & ! MemoryOrder
648 '' , & ! Stagger
649 'inc/wrf_auxhist3in.inc ext_read_field LANDMASK memorder XY' , & ! Debug message
650 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
651 ims , ime , jms , jme , 1 , 1 , &
652 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
653 ierr )
654 CALL wrf_ext_read_field ( &
655 fid , & ! DataHandle
656 current_date(1:19) , & ! DateStr
657 'TSK' , & ! Data Name
658 grid%tsk , & ! Field
659 WRF_FLOAT , & ! FieldType
660 grid%communicator , & ! Comm
661 grid%iocommunicator , & ! Comm
662 grid%domdesc , & ! Comm
663 grid%bdy_mask , & ! bdy_mask
664 'XY' , & ! MemoryOrder
665 '' , & ! Stagger
666 'inc/wrf_auxhist3in.inc ext_read_field TSK memorder XY' , & ! Debug message
667 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
668 ims , ime , jms , jme , 1 , 1 , &
669 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
670 ierr )
671 !ENDOFREGISTRYGENERATEDINCLUDE