wrf_histin.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_histin.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 CALL wrf_ext_read_field ( &
8 fid , & ! DataHandle
9 current_date(1:19) , & ! DateStr
10 'LU_INDEX' , & ! Data Name
11 grid%lu_index , & ! Field
12 WRF_FLOAT , & ! FieldType
13 grid%communicator , & ! Comm
14 grid%iocommunicator , & ! Comm
15 grid%domdesc , & ! Comm
16 grid%bdy_mask , & ! bdy_mask
17 'XY' , & ! MemoryOrder
18 '' , & ! Stagger
19 'inc/wrf_histin.inc ext_read_field LU_INDEX memorder XY' , & ! Debug message
20 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
21 ims , ime , jms , jme , 1 , 1 , &
22 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
23 ierr )
24 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
25 CALL wrf_ext_read_field ( &
26 fid , & ! DataHandle
27 current_date(1:19) , & ! DateStr
28 'U' , & ! Data Name
29 grid%em_u_2 , & ! Field
30 WRF_FLOAT , & ! FieldType
31 grid%communicator , & ! Comm
32 grid%iocommunicator , & ! Comm
33 grid%domdesc , & ! Comm
34 grid%bdy_mask , & ! bdy_mask
35 'XYZ' , & ! MemoryOrder
36 'X' , & ! Stagger
37 'inc/wrf_histin.inc ext_read_field U memorder XYZ' , & ! Debug message
38 ids , ide , jds , (jde-1) , kds , (kde-1) , &
39 ims , ime , jms , jme , kms , kme , &
40 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
41 ierr )
42 END IF
43 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
44 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
45 CALL wrf_ext_read_field ( &
46 fid , & ! DataHandle
47 current_date(1:19) , & ! DateStr
48 'A_U' , & ! Data Name
49 grid%em_a_u_2 , & ! Field
50 WRF_FLOAT , & ! FieldType
51 grid%communicator , & ! Comm
52 grid%iocommunicator , & ! Comm
53 grid%domdesc , & ! Comm
54 grid%bdy_mask , & ! bdy_mask
55 'XYZ' , & ! MemoryOrder
56 'X' , & ! Stagger
57 'inc/wrf_histin.inc ext_read_field A_U memorder XYZ' , & ! Debug message
58 ids , ide , jds , (jde-1) , kds , (kde-1) , &
59 ims , ime , jms , jme , kms , kme , &
60 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
61 ierr )
62 END IF
63 END IF
64 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
65 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
66 CALL wrf_ext_read_field ( &
67 fid , & ! DataHandle
68 current_date(1:19) , & ! DateStr
69 'G_U' , & ! Data Name
70 grid%em_g_u_2 , & ! Field
71 WRF_FLOAT , & ! FieldType
72 grid%communicator , & ! Comm
73 grid%iocommunicator , & ! Comm
74 grid%domdesc , & ! Comm
75 grid%bdy_mask , & ! bdy_mask
76 'XYZ' , & ! MemoryOrder
77 'X' , & ! Stagger
78 'inc/wrf_histin.inc ext_read_field G_U memorder XYZ' , & ! Debug message
79 ids , ide , jds , (jde-1) , kds , (kde-1) , &
80 ims , ime , jms , jme , kms , kme , &
81 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
82 ierr )
83 END IF
84 END IF
85 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
86 CALL wrf_ext_read_field ( &
87 fid , & ! DataHandle
88 current_date(1:19) , & ! DateStr
89 'V' , & ! Data Name
90 grid%em_v_2 , & ! Field
91 WRF_FLOAT , & ! FieldType
92 grid%communicator , & ! Comm
93 grid%iocommunicator , & ! Comm
94 grid%domdesc , & ! Comm
95 grid%bdy_mask , & ! bdy_mask
96 'XYZ' , & ! MemoryOrder
97 'Y' , & ! Stagger
98 'inc/wrf_histin.inc ext_read_field V memorder XYZ' , & ! Debug message
99 ids , (ide-1) , jds , jde , kds , (kde-1) , &
100 ims , ime , jms , jme , kms , kme , &
101 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
102 ierr )
103 END IF
104 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
105 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
106 CALL wrf_ext_read_field ( &
107 fid , & ! DataHandle
108 current_date(1:19) , & ! DateStr
109 'A_V' , & ! Data Name
110 grid%em_a_v_2 , & ! Field
111 WRF_FLOAT , & ! FieldType
112 grid%communicator , & ! Comm
113 grid%iocommunicator , & ! Comm
114 grid%domdesc , & ! Comm
115 grid%bdy_mask , & ! bdy_mask
116 'XYZ' , & ! MemoryOrder
117 'Y' , & ! Stagger
118 'inc/wrf_histin.inc ext_read_field A_V memorder XYZ' , & ! Debug message
119 ids , (ide-1) , jds , jde , kds , (kde-1) , &
120 ims , ime , jms , jme , kms , kme , &
121 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
122 ierr )
123 END IF
124 END IF
125 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
126 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
127 CALL wrf_ext_read_field ( &
128 fid , & ! DataHandle
129 current_date(1:19) , & ! DateStr
130 'G_V' , & ! Data Name
131 grid%em_g_v_2 , & ! Field
132 WRF_FLOAT , & ! FieldType
133 grid%communicator , & ! Comm
134 grid%iocommunicator , & ! Comm
135 grid%domdesc , & ! Comm
136 grid%bdy_mask , & ! bdy_mask
137 'XYZ' , & ! MemoryOrder
138 'Y' , & ! Stagger
139 'inc/wrf_histin.inc ext_read_field G_V memorder XYZ' , & ! Debug message
140 ids , (ide-1) , jds , jde , kds , (kde-1) , &
141 ims , ime , jms , jme , kms , kme , &
142 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
143 ierr )
144 END IF
145 END IF
146 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
147 CALL wrf_ext_read_field ( &
148 fid , & ! DataHandle
149 current_date(1:19) , & ! DateStr
150 'W' , & ! Data Name
151 grid%em_w_2 , & ! Field
152 WRF_FLOAT , & ! FieldType
153 grid%communicator , & ! Comm
154 grid%iocommunicator , & ! Comm
155 grid%domdesc , & ! Comm
156 grid%bdy_mask , & ! bdy_mask
157 'XYZ' , & ! MemoryOrder
158 'Z' , & ! Stagger
159 'inc/wrf_histin.inc ext_read_field W memorder XYZ' , & ! Debug message
160 ids , (ide-1) , jds , (jde-1) , kds , kde , &
161 ims , ime , jms , jme , kms , kme , &
162 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
163 ierr )
164 END IF
165 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
166 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
167 CALL wrf_ext_read_field ( &
168 fid , & ! DataHandle
169 current_date(1:19) , & ! DateStr
170 'A_W' , & ! Data Name
171 grid%em_a_w_2 , & ! Field
172 WRF_FLOAT , & ! FieldType
173 grid%communicator , & ! Comm
174 grid%iocommunicator , & ! Comm
175 grid%domdesc , & ! Comm
176 grid%bdy_mask , & ! bdy_mask
177 'XYZ' , & ! MemoryOrder
178 'Z' , & ! Stagger
179 'inc/wrf_histin.inc ext_read_field A_W memorder XYZ' , & ! Debug message
180 ids , (ide-1) , jds , (jde-1) , kds , kde , &
181 ims , ime , jms , jme , kms , kme , &
182 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
183 ierr )
184 END IF
185 END IF
186 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
187 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
188 CALL wrf_ext_read_field ( &
189 fid , & ! DataHandle
190 current_date(1:19) , & ! DateStr
191 'G_W' , & ! Data Name
192 grid%em_g_w_2 , & ! Field
193 WRF_FLOAT , & ! FieldType
194 grid%communicator , & ! Comm
195 grid%iocommunicator , & ! Comm
196 grid%domdesc , & ! Comm
197 grid%bdy_mask , & ! bdy_mask
198 'XYZ' , & ! MemoryOrder
199 'Z' , & ! Stagger
200 'inc/wrf_histin.inc ext_read_field G_W memorder XYZ' , & ! Debug message
201 ids , (ide-1) , jds , (jde-1) , kds , kde , &
202 ims , ime , jms , jme , kms , kme , &
203 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
204 ierr )
205 END IF
206 END IF
207 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
208 CALL wrf_ext_read_field ( &
209 fid , & ! DataHandle
210 current_date(1:19) , & ! DateStr
211 'PH' , & ! Data Name
212 grid%em_ph_2 , & ! Field
213 WRF_FLOAT , & ! FieldType
214 grid%communicator , & ! Comm
215 grid%iocommunicator , & ! Comm
216 grid%domdesc , & ! Comm
217 grid%bdy_mask , & ! bdy_mask
218 'XYZ' , & ! MemoryOrder
219 'Z' , & ! Stagger
220 'inc/wrf_histin.inc ext_read_field PH memorder XYZ' , & ! Debug message
221 ids , (ide-1) , jds , (jde-1) , kds , kde , &
222 ims , ime , jms , jme , kms , kme , &
223 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
224 ierr )
225 END IF
226 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
227 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
228 CALL wrf_ext_read_field ( &
229 fid , & ! DataHandle
230 current_date(1:19) , & ! DateStr
231 'A_PH' , & ! Data Name
232 grid%em_a_ph_2 , & ! Field
233 WRF_FLOAT , & ! FieldType
234 grid%communicator , & ! Comm
235 grid%iocommunicator , & ! Comm
236 grid%domdesc , & ! Comm
237 grid%bdy_mask , & ! bdy_mask
238 'XYZ' , & ! MemoryOrder
239 'Z' , & ! Stagger
240 'inc/wrf_histin.inc ext_read_field A_PH memorder XYZ' , & ! Debug message
241 ids , (ide-1) , jds , (jde-1) , kds , kde , &
242 ims , ime , jms , jme , kms , kme , &
243 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
244 ierr )
245 END IF
246 END IF
247 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
248 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
249 CALL wrf_ext_read_field ( &
250 fid , & ! DataHandle
251 current_date(1:19) , & ! DateStr
252 'G_PH' , & ! Data Name
253 grid%em_g_ph_2 , & ! Field
254 WRF_FLOAT , & ! FieldType
255 grid%communicator , & ! Comm
256 grid%iocommunicator , & ! Comm
257 grid%domdesc , & ! Comm
258 grid%bdy_mask , & ! bdy_mask
259 'XYZ' , & ! MemoryOrder
260 'Z' , & ! Stagger
261 'inc/wrf_histin.inc ext_read_field G_PH memorder XYZ' , & ! Debug message
262 ids , (ide-1) , jds , (jde-1) , kds , kde , &
263 ims , ime , jms , jme , kms , kme , &
264 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
265 ierr )
266 END IF
267 END IF
268 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
269 CALL wrf_ext_read_field ( &
270 fid , & ! DataHandle
271 current_date(1:19) , & ! DateStr
272 'PHB' , & ! Data Name
273 grid%em_phb , & ! Field
274 WRF_FLOAT , & ! FieldType
275 grid%communicator , & ! Comm
276 grid%iocommunicator , & ! Comm
277 grid%domdesc , & ! Comm
278 grid%bdy_mask , & ! bdy_mask
279 'XYZ' , & ! MemoryOrder
280 'Z' , & ! Stagger
281 'inc/wrf_histin.inc ext_read_field PHB memorder XYZ' , & ! Debug message
282 ids , (ide-1) , jds , (jde-1) , kds , kde , &
283 ims , ime , jms , jme , kms , kme , &
284 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
285 ierr )
286 END IF
287 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
288 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
289 CALL wrf_ext_read_field ( &
290 fid , & ! DataHandle
291 current_date(1:19) , & ! DateStr
292 'A_PHB' , & ! Data Name
293 grid%em_a_phb , & ! Field
294 WRF_FLOAT , & ! FieldType
295 grid%communicator , & ! Comm
296 grid%iocommunicator , & ! Comm
297 grid%domdesc , & ! Comm
298 grid%bdy_mask , & ! bdy_mask
299 'XYZ' , & ! MemoryOrder
300 'Z' , & ! Stagger
301 'inc/wrf_histin.inc ext_read_field A_PHB memorder XYZ' , & ! Debug message
302 ids , (ide-1) , jds , (jde-1) , kds , kde , &
303 ims , ime , jms , jme , kms , kme , &
304 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
305 ierr )
306 END IF
307 END IF
308 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
309 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
310 CALL wrf_ext_read_field ( &
311 fid , & ! DataHandle
312 current_date(1:19) , & ! DateStr
313 'G_PHB' , & ! Data Name
314 grid%em_g_phb , & ! Field
315 WRF_FLOAT , & ! FieldType
316 grid%communicator , & ! Comm
317 grid%iocommunicator , & ! Comm
318 grid%domdesc , & ! Comm
319 grid%bdy_mask , & ! bdy_mask
320 'XYZ' , & ! MemoryOrder
321 'Z' , & ! Stagger
322 'inc/wrf_histin.inc ext_read_field G_PHB memorder XYZ' , & ! Debug message
323 ids , (ide-1) , jds , (jde-1) , kds , kde , &
324 ims , ime , jms , jme , kms , kme , &
325 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
326 ierr )
327 END IF
328 END IF
329 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
330 CALL wrf_ext_read_field ( &
331 fid , & ! DataHandle
332 current_date(1:19) , & ! DateStr
333 'T' , & ! Data Name
334 grid%em_t_2 , & ! Field
335 WRF_FLOAT , & ! FieldType
336 grid%communicator , & ! Comm
337 grid%iocommunicator , & ! Comm
338 grid%domdesc , & ! Comm
339 grid%bdy_mask , & ! bdy_mask
340 'XYZ' , & ! MemoryOrder
341 '' , & ! Stagger
342 'inc/wrf_histin.inc ext_read_field T memorder XYZ' , & ! Debug message
343 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
344 ims , ime , jms , jme , kms , kme , &
345 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
346 ierr )
347 END IF
348 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
349 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
350 CALL wrf_ext_read_field ( &
351 fid , & ! DataHandle
352 current_date(1:19) , & ! DateStr
353 'A_T' , & ! Data Name
354 grid%em_a_t_2 , & ! Field
355 WRF_FLOAT , & ! FieldType
356 grid%communicator , & ! Comm
357 grid%iocommunicator , & ! Comm
358 grid%domdesc , & ! Comm
359 grid%bdy_mask , & ! bdy_mask
360 'XYZ' , & ! MemoryOrder
361 '' , & ! Stagger
362 'inc/wrf_histin.inc ext_read_field A_T memorder XYZ' , & ! Debug message
363 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
364 ims , ime , jms , jme , kms , kme , &
365 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
366 ierr )
367 END IF
368 END IF
369 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
370 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
371 CALL wrf_ext_read_field ( &
372 fid , & ! DataHandle
373 current_date(1:19) , & ! DateStr
374 'G_T' , & ! Data Name
375 grid%em_g_t_2 , & ! Field
376 WRF_FLOAT , & ! FieldType
377 grid%communicator , & ! Comm
378 grid%iocommunicator , & ! Comm
379 grid%domdesc , & ! Comm
380 grid%bdy_mask , & ! bdy_mask
381 'XYZ' , & ! MemoryOrder
382 '' , & ! Stagger
383 'inc/wrf_histin.inc ext_read_field G_T memorder XYZ' , & ! Debug message
384 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
385 ims , ime , jms , jme , kms , kme , &
386 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
387 ierr )
388 END IF
389 END IF
390 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
391 CALL wrf_ext_read_field ( &
392 fid , & ! DataHandle
393 current_date(1:19) , & ! DateStr
394 'MU' , & ! Data Name
395 grid%em_mu_2 , & ! Field
396 WRF_FLOAT , & ! FieldType
397 grid%communicator , & ! Comm
398 grid%iocommunicator , & ! Comm
399 grid%domdesc , & ! Comm
400 grid%bdy_mask , & ! bdy_mask
401 'XY' , & ! MemoryOrder
402 '' , & ! Stagger
403 'inc/wrf_histin.inc ext_read_field MU memorder XY' , & ! Debug message
404 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
405 ims , ime , jms , jme , 1 , 1 , &
406 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
407 ierr )
408 END IF
409 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
410 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
411 CALL wrf_ext_read_field ( &
412 fid , & ! DataHandle
413 current_date(1:19) , & ! DateStr
414 'A_MU' , & ! Data Name
415 grid%em_a_mu_2 , & ! Field
416 WRF_FLOAT , & ! FieldType
417 grid%communicator , & ! Comm
418 grid%iocommunicator , & ! Comm
419 grid%domdesc , & ! Comm
420 grid%bdy_mask , & ! bdy_mask
421 'XY' , & ! MemoryOrder
422 '' , & ! Stagger
423 'inc/wrf_histin.inc ext_read_field A_MU memorder XY' , & ! Debug message
424 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
425 ims , ime , jms , jme , 1 , 1 , &
426 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
427 ierr )
428 END IF
429 END IF
430 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
431 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
432 CALL wrf_ext_read_field ( &
433 fid , & ! DataHandle
434 current_date(1:19) , & ! DateStr
435 'G_MU' , & ! Data Name
436 grid%em_g_mu_2 , & ! Field
437 WRF_FLOAT , & ! FieldType
438 grid%communicator , & ! Comm
439 grid%iocommunicator , & ! Comm
440 grid%domdesc , & ! Comm
441 grid%bdy_mask , & ! bdy_mask
442 'XY' , & ! MemoryOrder
443 '' , & ! Stagger
444 'inc/wrf_histin.inc ext_read_field G_MU memorder XY' , & ! Debug message
445 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
446 ims , ime , jms , jme , 1 , 1 , &
447 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
448 ierr )
449 END IF
450 END IF
451 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
452 CALL wrf_ext_read_field ( &
453 fid , & ! DataHandle
454 current_date(1:19) , & ! DateStr
455 'MUB' , & ! Data Name
456 grid%em_mub , & ! Field
457 WRF_FLOAT , & ! FieldType
458 grid%communicator , & ! Comm
459 grid%iocommunicator , & ! Comm
460 grid%domdesc , & ! Comm
461 grid%bdy_mask , & ! bdy_mask
462 'XY' , & ! MemoryOrder
463 '' , & ! Stagger
464 'inc/wrf_histin.inc ext_read_field MUB memorder XY' , & ! Debug message
465 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
466 ims , ime , jms , jme , 1 , 1 , &
467 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
468 ierr )
469 END IF
470 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
471 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
472 CALL wrf_ext_read_field ( &
473 fid , & ! DataHandle
474 current_date(1:19) , & ! DateStr
475 'A_MUB' , & ! Data Name
476 grid%em_a_mub , & ! Field
477 WRF_FLOAT , & ! FieldType
478 grid%communicator , & ! Comm
479 grid%iocommunicator , & ! Comm
480 grid%domdesc , & ! Comm
481 grid%bdy_mask , & ! bdy_mask
482 'XY' , & ! MemoryOrder
483 '' , & ! Stagger
484 'inc/wrf_histin.inc ext_read_field A_MUB memorder XY' , & ! Debug message
485 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
486 ims , ime , jms , jme , 1 , 1 , &
487 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
488 ierr )
489 END IF
490 END IF
491 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
492 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
493 CALL wrf_ext_read_field ( &
494 fid , & ! DataHandle
495 current_date(1:19) , & ! DateStr
496 'G_MUB' , & ! Data Name
497 grid%em_g_mub , & ! Field
498 WRF_FLOAT , & ! FieldType
499 grid%communicator , & ! Comm
500 grid%iocommunicator , & ! Comm
501 grid%domdesc , & ! Comm
502 grid%bdy_mask , & ! bdy_mask
503 'XY' , & ! MemoryOrder
504 '' , & ! Stagger
505 'inc/wrf_histin.inc ext_read_field G_MUB memorder XY' , & ! Debug message
506 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
507 ims , ime , jms , jme , 1 , 1 , &
508 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
509 ierr )
510 END IF
511 END IF
512 CALL wrf_ext_read_field ( &
513 fid , & ! DataHandle
514 current_date(1:19) , & ! DateStr
515 'NEST_POS' , & ! Data Name
516 grid%nest_pos , & ! Field
517 WRF_FLOAT , & ! FieldType
518 grid%communicator , & ! Comm
519 grid%iocommunicator , & ! Comm
520 grid%domdesc , & ! Comm
521 grid%bdy_mask , & ! bdy_mask
522 'XY' , & ! MemoryOrder
523 '' , & ! Stagger
524 'inc/wrf_histin.inc ext_read_field NEST_POS memorder XY' , & ! Debug message
525 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
526 ims , ime , jms , jme , 1 , 1 , &
527 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
528 ierr )
529 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
530 CALL wrf_ext_read_field ( &
531 fid , & ! DataHandle
532 current_date(1:19) , & ! DateStr
533 'P' , & ! Data Name
534 grid%em_p , & ! Field
535 WRF_FLOAT , & ! FieldType
536 grid%communicator , & ! Comm
537 grid%iocommunicator , & ! Comm
538 grid%domdesc , & ! Comm
539 grid%bdy_mask , & ! bdy_mask
540 'XYZ' , & ! MemoryOrder
541 '' , & ! Stagger
542 'inc/wrf_histin.inc ext_read_field P memorder XYZ' , & ! Debug message
543 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
544 ims , ime , jms , jme , kms , kme , &
545 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
546 ierr )
547 END IF
548 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
549 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
550 CALL wrf_ext_read_field ( &
551 fid , & ! DataHandle
552 current_date(1:19) , & ! DateStr
553 'A_P' , & ! Data Name
554 grid%em_a_p , & ! Field
555 WRF_FLOAT , & ! FieldType
556 grid%communicator , & ! Comm
557 grid%iocommunicator , & ! Comm
558 grid%domdesc , & ! Comm
559 grid%bdy_mask , & ! bdy_mask
560 'XYZ' , & ! MemoryOrder
561 '' , & ! Stagger
562 'inc/wrf_histin.inc ext_read_field A_P memorder XYZ' , & ! Debug message
563 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
564 ims , ime , jms , jme , kms , kme , &
565 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
566 ierr )
567 END IF
568 END IF
569 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
570 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
571 CALL wrf_ext_read_field ( &
572 fid , & ! DataHandle
573 current_date(1:19) , & ! DateStr
574 'G_P' , & ! Data Name
575 grid%em_g_p , & ! Field
576 WRF_FLOAT , & ! FieldType
577 grid%communicator , & ! Comm
578 grid%iocommunicator , & ! Comm
579 grid%domdesc , & ! Comm
580 grid%bdy_mask , & ! bdy_mask
581 'XYZ' , & ! MemoryOrder
582 '' , & ! Stagger
583 'inc/wrf_histin.inc ext_read_field G_P memorder XYZ' , & ! Debug message
584 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
585 ims , ime , jms , jme , kms , kme , &
586 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
587 ierr )
588 END IF
589 END IF
590 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
591 CALL wrf_ext_read_field ( &
592 fid , & ! DataHandle
593 current_date(1:19) , & ! DateStr
594 'PB' , & ! Data Name
595 grid%em_pb , & ! Field
596 WRF_FLOAT , & ! FieldType
597 grid%communicator , & ! Comm
598 grid%iocommunicator , & ! Comm
599 grid%domdesc , & ! Comm
600 grid%bdy_mask , & ! bdy_mask
601 'XYZ' , & ! MemoryOrder
602 '' , & ! Stagger
603 'inc/wrf_histin.inc ext_read_field PB memorder XYZ' , & ! Debug message
604 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
605 ims , ime , jms , jme , kms , kme , &
606 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
607 ierr )
608 END IF
609 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
610 CALL wrf_ext_read_field ( &
611 fid , & ! DataHandle
612 current_date(1:19) , & ! DateStr
613 'SR' , & ! Data Name
614 grid%em_sr , & ! Field
615 WRF_FLOAT , & ! FieldType
616 grid%communicator , & ! Comm
617 grid%iocommunicator , & ! Comm
618 grid%domdesc , & ! Comm
619 grid%bdy_mask , & ! bdy_mask
620 'XY' , & ! MemoryOrder
621 '' , & ! Stagger
622 'inc/wrf_histin.inc ext_read_field SR memorder XY' , & ! Debug message
623 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
624 ims , ime , jms , jme , 1 , 1 , &
625 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
626 ierr )
627 END IF
628 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
629 CALL wrf_ext_read_field ( &
630 fid , & ! DataHandle
631 current_date(1:19) , & ! DateStr
632 'FNM' , & ! Data Name
633 grid%em_fnm , & ! Field
634 WRF_FLOAT , & ! FieldType
635 grid%communicator , & ! Comm
636 grid%iocommunicator , & ! Comm
637 grid%domdesc , & ! Comm
638 grid%bdy_mask , & ! bdy_mask
639 'Z' , & ! MemoryOrder
640 '' , & ! Stagger
641 'inc/wrf_histin.inc ext_read_field FNM memorder Z' , & ! Debug message
642 kds , (kde-1) , 1 , 1 , 1 , 1 , &
643 kms , kme , 1 , 1 , 1 , 1 , &
644 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
645 ierr )
646 END IF
647 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
648 CALL wrf_ext_read_field ( &
649 fid , & ! DataHandle
650 current_date(1:19) , & ! DateStr
651 'FNP' , & ! Data Name
652 grid%em_fnp , & ! Field
653 WRF_FLOAT , & ! FieldType
654 grid%communicator , & ! Comm
655 grid%iocommunicator , & ! Comm
656 grid%domdesc , & ! Comm
657 grid%bdy_mask , & ! bdy_mask
658 'Z' , & ! MemoryOrder
659 '' , & ! Stagger
660 'inc/wrf_histin.inc ext_read_field FNP memorder Z' , & ! Debug message
661 kds , (kde-1) , 1 , 1 , 1 , 1 , &
662 kms , kme , 1 , 1 , 1 , 1 , &
663 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
664 ierr )
665 END IF
666 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
667 CALL wrf_ext_read_field ( &
668 fid , & ! DataHandle
669 current_date(1:19) , & ! DateStr
670 'RDNW' , & ! Data Name
671 grid%em_rdnw , & ! Field
672 WRF_FLOAT , & ! FieldType
673 grid%communicator , & ! Comm
674 grid%iocommunicator , & ! Comm
675 grid%domdesc , & ! Comm
676 grid%bdy_mask , & ! bdy_mask
677 'Z' , & ! MemoryOrder
678 '' , & ! Stagger
679 'inc/wrf_histin.inc ext_read_field RDNW memorder Z' , & ! Debug message
680 kds , (kde-1) , 1 , 1 , 1 , 1 , &
681 kms , kme , 1 , 1 , 1 , 1 , &
682 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
683 ierr )
684 END IF
685 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
686 CALL wrf_ext_read_field ( &
687 fid , & ! DataHandle
688 current_date(1:19) , & ! DateStr
689 'RDN' , & ! Data Name
690 grid%em_rdn , & ! Field
691 WRF_FLOAT , & ! FieldType
692 grid%communicator , & ! Comm
693 grid%iocommunicator , & ! Comm
694 grid%domdesc , & ! Comm
695 grid%bdy_mask , & ! bdy_mask
696 'Z' , & ! MemoryOrder
697 '' , & ! Stagger
698 'inc/wrf_histin.inc ext_read_field RDN memorder Z' , & ! Debug message
699 kds , (kde-1) , 1 , 1 , 1 , 1 , &
700 kms , kme , 1 , 1 , 1 , 1 , &
701 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
702 ierr )
703 END IF
704 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
705 CALL wrf_ext_read_field ( &
706 fid , & ! DataHandle
707 current_date(1:19) , & ! DateStr
708 'DNW' , & ! Data Name
709 grid%em_dnw , & ! Field
710 WRF_FLOAT , & ! FieldType
711 grid%communicator , & ! Comm
712 grid%iocommunicator , & ! Comm
713 grid%domdesc , & ! Comm
714 grid%bdy_mask , & ! bdy_mask
715 'Z' , & ! MemoryOrder
716 '' , & ! Stagger
717 'inc/wrf_histin.inc ext_read_field DNW memorder Z' , & ! Debug message
718 kds , (kde-1) , 1 , 1 , 1 , 1 , &
719 kms , kme , 1 , 1 , 1 , 1 , &
720 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
721 ierr )
722 END IF
723 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
724 CALL wrf_ext_read_field ( &
725 fid , & ! DataHandle
726 current_date(1:19) , & ! DateStr
727 'DN ' , & ! Data Name
728 grid%em_dn , & ! Field
729 WRF_FLOAT , & ! FieldType
730 grid%communicator , & ! Comm
731 grid%iocommunicator , & ! Comm
732 grid%domdesc , & ! Comm
733 grid%bdy_mask , & ! bdy_mask
734 'Z' , & ! MemoryOrder
735 '' , & ! Stagger
736 'inc/wrf_histin.inc ext_read_field DN memorder Z' , & ! Debug message
737 kds , (kde-1) , 1 , 1 , 1 , 1 , &
738 kms , kme , 1 , 1 , 1 , 1 , &
739 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
740 ierr )
741 END IF
742 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
743 CALL wrf_ext_read_field ( &
744 fid , & ! DataHandle
745 current_date(1:19) , & ! DateStr
746 'ZNU' , & ! Data Name
747 grid%em_znu , & ! Field
748 WRF_FLOAT , & ! FieldType
749 grid%communicator , & ! Comm
750 grid%iocommunicator , & ! Comm
751 grid%domdesc , & ! Comm
752 grid%bdy_mask , & ! bdy_mask
753 'Z' , & ! MemoryOrder
754 '' , & ! Stagger
755 'inc/wrf_histin.inc ext_read_field ZNU memorder Z' , & ! Debug message
756 kds , (kde-1) , 1 , 1 , 1 , 1 , &
757 kms , kme , 1 , 1 , 1 , 1 , &
758 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
759 ierr )
760 END IF
761 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
762 CALL wrf_ext_read_field ( &
763 fid , & ! DataHandle
764 current_date(1:19) , & ! DateStr
765 'ZNW' , & ! Data Name
766 grid%em_znw , & ! Field
767 WRF_FLOAT , & ! FieldType
768 grid%communicator , & ! Comm
769 grid%iocommunicator , & ! Comm
770 grid%domdesc , & ! Comm
771 grid%bdy_mask , & ! bdy_mask
772 'Z' , & ! MemoryOrder
773 'Z' , & ! Stagger
774 'inc/wrf_histin.inc ext_read_field ZNW memorder Z' , & ! Debug message
775 kds , kde , 1 , 1 , 1 , 1 , &
776 kms , kme , 1 , 1 , 1 , 1 , &
777 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
778 ierr )
779 END IF
780 CALL wrf_ext_read_field ( &
781 fid , & ! DataHandle
782 current_date(1:19) , & ! DateStr
783 'CFN' , & ! Data Name
784 grid%cfn , & ! Field
785 WRF_FLOAT , & ! FieldType
786 grid%communicator , & ! Comm
787 grid%iocommunicator , & ! Comm
788 grid%domdesc , & ! Comm
789 grid%bdy_mask , & ! bdy_mask
790 '0' , & ! MemoryOrder
791 '' , & ! Stagger
792 'inc/wrf_histin.inc ext_read_field CFN memorder 0' , & ! Debug message
793 1 , 1 , 1 , 1 , 1 , 1 , &
794 1 , 1 , 1 , 1 , 1 , 1 , &
795 1 , 1 , 1 , 1 , 1 , 1 , &
796 ierr )
797 CALL wrf_ext_read_field ( &
798 fid , & ! DataHandle
799 current_date(1:19) , & ! DateStr
800 'CFN1' , & ! Data Name
801 grid%cfn1 , & ! Field
802 WRF_FLOAT , & ! FieldType
803 grid%communicator , & ! Comm
804 grid%iocommunicator , & ! Comm
805 grid%domdesc , & ! Comm
806 grid%bdy_mask , & ! bdy_mask
807 '0' , & ! MemoryOrder
808 '' , & ! Stagger
809 'inc/wrf_histin.inc ext_read_field CFN1 memorder 0' , & ! Debug message
810 1 , 1 , 1 , 1 , 1 , 1 , &
811 1 , 1 , 1 , 1 , 1 , 1 , &
812 1 , 1 , 1 , 1 , 1 , 1 , &
813 ierr )
814 CALL wrf_ext_read_field ( &
815 fid , & ! DataHandle
816 current_date(1:19) , & ! DateStr
817 'A' , & ! Data Name
818 grid%kma_a , & ! Field
819 WRF_FLOAT , & ! FieldType
820 grid%communicator , & ! Comm
821 grid%iocommunicator , & ! Comm
822 grid%domdesc , & ! Comm
823 grid%bdy_mask , & ! bdy_mask
824 'Z' , & ! MemoryOrder
825 'Z' , & ! Stagger
826 'inc/wrf_histin.inc ext_read_field A memorder Z' , & ! Debug message
827 kds , kde , 1 , 1 , 1 , 1 , &
828 kms , kme , 1 , 1 , 1 , 1 , &
829 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
830 ierr )
831 CALL wrf_ext_read_field ( &
832 fid , & ! DataHandle
833 current_date(1:19) , & ! DateStr
834 'B' , & ! Data Name
835 grid%kma_b , & ! Field
836 WRF_FLOAT , & ! FieldType
837 grid%communicator , & ! Comm
838 grid%iocommunicator , & ! Comm
839 grid%domdesc , & ! Comm
840 grid%bdy_mask , & ! bdy_mask
841 'Z' , & ! MemoryOrder
842 'Z' , & ! Stagger
843 'inc/wrf_histin.inc ext_read_field B memorder Z' , & ! Debug message
844 kds , kde , 1 , 1 , 1 , 1 , &
845 kms , kme , 1 , 1 , 1 , 1 , &
846 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
847 ierr )
848 CALL wrf_ext_read_field ( &
849 fid , & ! DataHandle
850 current_date(1:19) , & ! DateStr
851 'Q2' , & ! Data Name
852 grid%q2 , & ! Field
853 WRF_FLOAT , & ! FieldType
854 grid%communicator , & ! Comm
855 grid%iocommunicator , & ! Comm
856 grid%domdesc , & ! Comm
857 grid%bdy_mask , & ! bdy_mask
858 'XY' , & ! MemoryOrder
859 '' , & ! Stagger
860 'inc/wrf_histin.inc ext_read_field Q2 memorder XY' , & ! Debug message
861 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
862 ims , ime , jms , jme , 1 , 1 , &
863 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
864 ierr )
865 CALL wrf_ext_read_field ( &
866 fid , & ! DataHandle
867 current_date(1:19) , & ! DateStr
868 'T2' , & ! Data Name
869 grid%t2 , & ! Field
870 WRF_FLOAT , & ! FieldType
871 grid%communicator , & ! Comm
872 grid%iocommunicator , & ! Comm
873 grid%domdesc , & ! Comm
874 grid%bdy_mask , & ! bdy_mask
875 'XY' , & ! MemoryOrder
876 '' , & ! Stagger
877 'inc/wrf_histin.inc ext_read_field T2 memorder XY' , & ! Debug message
878 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
879 ims , ime , jms , jme , 1 , 1 , &
880 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
881 ierr )
882 CALL wrf_ext_read_field ( &
883 fid , & ! DataHandle
884 current_date(1:19) , & ! DateStr
885 'TH2' , & ! Data Name
886 grid%th2 , & ! Field
887 WRF_FLOAT , & ! FieldType
888 grid%communicator , & ! Comm
889 grid%iocommunicator , & ! Comm
890 grid%domdesc , & ! Comm
891 grid%bdy_mask , & ! bdy_mask
892 'XY' , & ! MemoryOrder
893 '' , & ! Stagger
894 'inc/wrf_histin.inc ext_read_field TH2 memorder XY' , & ! Debug message
895 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
896 ims , ime , jms , jme , 1 , 1 , &
897 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
898 ierr )
899 CALL wrf_ext_read_field ( &
900 fid , & ! DataHandle
901 current_date(1:19) , & ! DateStr
902 'PSFC' , & ! Data Name
903 grid%psfc , & ! Field
904 WRF_FLOAT , & ! FieldType
905 grid%communicator , & ! Comm
906 grid%iocommunicator , & ! Comm
907 grid%domdesc , & ! Comm
908 grid%bdy_mask , & ! bdy_mask
909 'XY' , & ! MemoryOrder
910 '' , & ! Stagger
911 'inc/wrf_histin.inc ext_read_field PSFC memorder XY' , & ! Debug message
912 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
913 ims , ime , jms , jme , 1 , 1 , &
914 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
915 ierr )
916 CALL wrf_ext_read_field ( &
917 fid , & ! DataHandle
918 current_date(1:19) , & ! DateStr
919 'U10' , & ! Data Name
920 grid%u10 , & ! Field
921 WRF_FLOAT , & ! FieldType
922 grid%communicator , & ! Comm
923 grid%iocommunicator , & ! Comm
924 grid%domdesc , & ! Comm
925 grid%bdy_mask , & ! bdy_mask
926 'XY' , & ! MemoryOrder
927 '' , & ! Stagger
928 'inc/wrf_histin.inc ext_read_field U10 memorder XY' , & ! Debug message
929 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
930 ims , ime , jms , jme , 1 , 1 , &
931 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
932 ierr )
933 CALL wrf_ext_read_field ( &
934 fid , & ! DataHandle
935 current_date(1:19) , & ! DateStr
936 'V10' , & ! Data Name
937 grid%v10 , & ! Field
938 WRF_FLOAT , & ! FieldType
939 grid%communicator , & ! Comm
940 grid%iocommunicator , & ! Comm
941 grid%domdesc , & ! Comm
942 grid%bdy_mask , & ! bdy_mask
943 'XY' , & ! MemoryOrder
944 '' , & ! Stagger
945 'inc/wrf_histin.inc ext_read_field V10 memorder XY' , & ! Debug message
946 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
947 ims , ime , jms , jme , 1 , 1 , &
948 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
949 ierr )
950 CALL wrf_ext_read_field ( &
951 fid , & ! DataHandle
952 current_date(1:19) , & ! DateStr
953 'RDX' , & ! Data Name
954 grid%rdx , & ! Field
955 WRF_FLOAT , & ! FieldType
956 grid%communicator , & ! Comm
957 grid%iocommunicator , & ! Comm
958 grid%domdesc , & ! Comm
959 grid%bdy_mask , & ! bdy_mask
960 '0' , & ! MemoryOrder
961 '' , & ! Stagger
962 'inc/wrf_histin.inc ext_read_field RDX memorder 0' , & ! Debug message
963 1 , 1 , 1 , 1 , 1 , 1 , &
964 1 , 1 , 1 , 1 , 1 , 1 , &
965 1 , 1 , 1 , 1 , 1 , 1 , &
966 ierr )
967 CALL wrf_ext_read_field ( &
968 fid , & ! DataHandle
969 current_date(1:19) , & ! DateStr
970 'RDY' , & ! Data Name
971 grid%rdy , & ! Field
972 WRF_FLOAT , & ! FieldType
973 grid%communicator , & ! Comm
974 grid%iocommunicator , & ! Comm
975 grid%domdesc , & ! Comm
976 grid%bdy_mask , & ! bdy_mask
977 '0' , & ! MemoryOrder
978 '' , & ! Stagger
979 'inc/wrf_histin.inc ext_read_field RDY memorder 0' , & ! Debug message
980 1 , 1 , 1 , 1 , 1 , 1 , &
981 1 , 1 , 1 , 1 , 1 , 1 , &
982 1 , 1 , 1 , 1 , 1 , 1 , &
983 ierr )
984 CALL wrf_ext_read_field ( &
985 fid , & ! DataHandle
986 current_date(1:19) , & ! DateStr
987 'RESM' , & ! Data Name
988 grid%resm , & ! Field
989 WRF_FLOAT , & ! FieldType
990 grid%communicator , & ! Comm
991 grid%iocommunicator , & ! Comm
992 grid%domdesc , & ! Comm
993 grid%bdy_mask , & ! bdy_mask
994 '0' , & ! MemoryOrder
995 '' , & ! Stagger
996 'inc/wrf_histin.inc ext_read_field RESM memorder 0' , & ! Debug message
997 1 , 1 , 1 , 1 , 1 , 1 , &
998 1 , 1 , 1 , 1 , 1 , 1 , &
999 1 , 1 , 1 , 1 , 1 , 1 , &
1000 ierr )
1001 CALL wrf_ext_read_field ( &
1002 fid , & ! DataHandle
1003 current_date(1:19) , & ! DateStr
1004 'ZETATOP' , & ! Data Name
1005 grid%zetatop , & ! Field
1006 WRF_FLOAT , & ! FieldType
1007 grid%communicator , & ! Comm
1008 grid%iocommunicator , & ! Comm
1009 grid%domdesc , & ! Comm
1010 grid%bdy_mask , & ! bdy_mask
1011 '0' , & ! MemoryOrder
1012 '' , & ! Stagger
1013 'inc/wrf_histin.inc ext_read_field ZETATOP memorder 0' , & ! Debug message
1014 1 , 1 , 1 , 1 , 1 , 1 , &
1015 1 , 1 , 1 , 1 , 1 , 1 , &
1016 1 , 1 , 1 , 1 , 1 , 1 , &
1017 ierr )
1018 CALL wrf_ext_read_field ( &
1019 fid , & ! DataHandle
1020 current_date(1:19) , & ! DateStr
1021 'CF1' , & ! Data Name
1022 grid%cf1 , & ! Field
1023 WRF_FLOAT , & ! FieldType
1024 grid%communicator , & ! Comm
1025 grid%iocommunicator , & ! Comm
1026 grid%domdesc , & ! Comm
1027 grid%bdy_mask , & ! bdy_mask
1028 '0' , & ! MemoryOrder
1029 '' , & ! Stagger
1030 'inc/wrf_histin.inc ext_read_field CF1 memorder 0' , & ! Debug message
1031 1 , 1 , 1 , 1 , 1 , 1 , &
1032 1 , 1 , 1 , 1 , 1 , 1 , &
1033 1 , 1 , 1 , 1 , 1 , 1 , &
1034 ierr )
1035 CALL wrf_ext_read_field ( &
1036 fid , & ! DataHandle
1037 current_date(1:19) , & ! DateStr
1038 'CF2' , & ! Data Name
1039 grid%cf2 , & ! Field
1040 WRF_FLOAT , & ! FieldType
1041 grid%communicator , & ! Comm
1042 grid%iocommunicator , & ! Comm
1043 grid%domdesc , & ! Comm
1044 grid%bdy_mask , & ! bdy_mask
1045 '0' , & ! MemoryOrder
1046 '' , & ! Stagger
1047 'inc/wrf_histin.inc ext_read_field CF2 memorder 0' , & ! Debug message
1048 1 , 1 , 1 , 1 , 1 , 1 , &
1049 1 , 1 , 1 , 1 , 1 , 1 , &
1050 1 , 1 , 1 , 1 , 1 , 1 , &
1051 ierr )
1052 CALL wrf_ext_read_field ( &
1053 fid , & ! DataHandle
1054 current_date(1:19) , & ! DateStr
1055 'CF3' , & ! Data Name
1056 grid%cf3 , & ! Field
1057 WRF_FLOAT , & ! FieldType
1058 grid%communicator , & ! Comm
1059 grid%iocommunicator , & ! Comm
1060 grid%domdesc , & ! Comm
1061 grid%bdy_mask , & ! bdy_mask
1062 '0' , & ! MemoryOrder
1063 '' , & ! Stagger
1064 'inc/wrf_histin.inc ext_read_field CF3 memorder 0' , & ! Debug message
1065 1 , 1 , 1 , 1 , 1 , 1 , &
1066 1 , 1 , 1 , 1 , 1 , 1 , &
1067 1 , 1 , 1 , 1 , 1 , 1 , &
1068 ierr )
1069 CALL wrf_ext_read_field ( &
1070 fid , & ! DataHandle
1071 current_date(1:19) , & ! DateStr
1072 'ITIMESTEP' , & ! Data Name
1073 grid%itimestep , & ! Field
1074 WRF_integer , & ! FieldType
1075 grid%communicator , & ! Comm
1076 grid%iocommunicator , & ! Comm
1077 grid%domdesc , & ! Comm
1078 grid%bdy_mask , & ! bdy_mask
1079 '0' , & ! MemoryOrder
1080 '' , & ! Stagger
1081 'inc/wrf_histin.inc ext_read_field ITIMESTEP memorder 0' , & ! Debug message
1082 1 , 1 , 1 , 1 , 1 , 1 , &
1083 1 , 1 , 1 , 1 , 1 , 1 , &
1084 1 , 1 , 1 , 1 , 1 , 1 , &
1085 ierr )
1086 CALL wrf_ext_read_field ( &
1087 fid , & ! DataHandle
1088 current_date(1:19) , & ! DateStr
1089 'XTIME' , & ! Data Name
1090 grid%xtime , & ! Field
1091 WRF_FLOAT , & ! FieldType
1092 grid%communicator , & ! Comm
1093 grid%iocommunicator , & ! Comm
1094 grid%domdesc , & ! Comm
1095 grid%bdy_mask , & ! bdy_mask
1096 '0' , & ! MemoryOrder
1097 '' , & ! Stagger
1098 'inc/wrf_histin.inc ext_read_field XTIME memorder 0' , & ! Debug message
1099 1 , 1 , 1 , 1 , 1 , 1 , &
1100 1 , 1 , 1 , 1 , 1 , 1 , &
1101 1 , 1 , 1 , 1 , 1 , 1 , &
1102 ierr )
1103 DO itrace = PARAM_FIRST_SCALAR , num_moist
1104 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
1105 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1106 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
1107 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1108 CALL wrf_ext_read_field ( &
1109 fid , & ! DataHandle
1110 current_date(1:19) , & ! DateStr
1111 TRIM(moist_dname_table( grid%id, itrace )), & !data name
1112 grid%moist(ims,jms,kms,itrace) , & ! Field
1113 WRF_FLOAT , & ! FieldType
1114 grid%communicator , & ! Comm
1115 grid%iocommunicator , & ! Comm
1116 grid%domdesc , & ! Comm
1117 grid%bdy_mask , & ! bdy_mask
1118 'XYZ' , & ! MemoryOrder
1119 '' , & ! Stagger
1120 'inc/wrf_histin.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1121 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1122 ims , ime , jms , jme , kms , kme , &
1123 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1124 ierr )
1125 ENDIF
1126 ENDIF
1127 ENDDO
1128 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
1129 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
1130 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1131 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
1132 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1133 CALL wrf_ext_read_field ( &
1134 fid , & ! DataHandle
1135 current_date(1:19) , & ! DateStr
1136 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
1137 grid%a_moist(ims,jms,kms,itrace) , & ! Field
1138 WRF_FLOAT , & ! FieldType
1139 grid%communicator , & ! Comm
1140 grid%iocommunicator , & ! Comm
1141 grid%domdesc , & ! Comm
1142 grid%bdy_mask , & ! bdy_mask
1143 'XYZ' , & ! MemoryOrder
1144 '' , & ! Stagger
1145 'inc/wrf_histin.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1146 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1147 ims , ime , jms , jme , kms , kme , &
1148 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1149 ierr )
1150 ENDIF
1151 ENDIF
1152 ENDDO
1153 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
1154 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
1155 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1156 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
1157 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1158 CALL wrf_ext_read_field ( &
1159 fid , & ! DataHandle
1160 current_date(1:19) , & ! DateStr
1161 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
1162 grid%g_moist(ims,jms,kms,itrace) , & ! Field
1163 WRF_FLOAT , & ! FieldType
1164 grid%communicator , & ! Comm
1165 grid%iocommunicator , & ! Comm
1166 grid%domdesc , & ! Comm
1167 grid%bdy_mask , & ! bdy_mask
1168 'XYZ' , & ! MemoryOrder
1169 '' , & ! Stagger
1170 'inc/wrf_histin.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1171 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1172 ims , ime , jms , jme , kms , kme , &
1173 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1174 ierr )
1175 ENDIF
1176 ENDIF
1177 ENDDO
1178 DO itrace = PARAM_FIRST_SCALAR , num_scalar
1179 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
1180 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1181 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
1182 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1183 CALL wrf_ext_read_field ( &
1184 fid , & ! DataHandle
1185 current_date(1:19) , & ! DateStr
1186 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
1187 grid%scalar(ims,jms,kms,itrace) , & ! Field
1188 WRF_FLOAT , & ! FieldType
1189 grid%communicator , & ! Comm
1190 grid%iocommunicator , & ! Comm
1191 grid%domdesc , & ! Comm
1192 grid%bdy_mask , & ! bdy_mask
1193 'XYZ' , & ! MemoryOrder
1194 '' , & ! Stagger
1195 'inc/wrf_histin.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1196 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1197 ims , ime , jms , jme , kms , kme , &
1198 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1199 ierr )
1200 ENDIF
1201 ENDIF
1202 ENDDO
1203 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
1204 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
1205 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1206 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
1207 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1208 CALL wrf_ext_read_field ( &
1209 fid , & ! DataHandle
1210 current_date(1:19) , & ! DateStr
1211 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
1212 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
1213 WRF_FLOAT , & ! FieldType
1214 grid%communicator , & ! Comm
1215 grid%iocommunicator , & ! Comm
1216 grid%domdesc , & ! Comm
1217 grid%bdy_mask , & ! bdy_mask
1218 'XYZ' , & ! MemoryOrder
1219 '' , & ! Stagger
1220 'inc/wrf_histin.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1221 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1222 ims , ime , jms , jme , kms , kme , &
1223 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1224 ierr )
1225 ENDIF
1226 ENDIF
1227 ENDDO
1228 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
1229 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
1230 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1231 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
1232 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1233 CALL wrf_ext_read_field ( &
1234 fid , & ! DataHandle
1235 current_date(1:19) , & ! DateStr
1236 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
1237 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
1238 WRF_FLOAT , & ! FieldType
1239 grid%communicator , & ! Comm
1240 grid%iocommunicator , & ! Comm
1241 grid%domdesc , & ! Comm
1242 grid%bdy_mask , & ! bdy_mask
1243 'XYZ' , & ! MemoryOrder
1244 '' , & ! Stagger
1245 'inc/wrf_histin.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1246 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1247 ims , ime , jms , jme , kms , kme , &
1248 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1249 ierr )
1250 ENDIF
1251 ENDIF
1252 ENDDO
1253 CALL wrf_ext_read_field ( &
1254 fid , & ! DataHandle
1255 current_date(1:19) , & ! DateStr
1256 'LANDMASK' , & ! Data Name
1257 grid%landmask , & ! Field
1258 WRF_FLOAT , & ! FieldType
1259 grid%communicator , & ! Comm
1260 grid%iocommunicator , & ! Comm
1261 grid%domdesc , & ! Comm
1262 grid%bdy_mask , & ! bdy_mask
1263 'XY' , & ! MemoryOrder
1264 '' , & ! Stagger
1265 'inc/wrf_histin.inc ext_read_field LANDMASK memorder XY' , & ! Debug message
1266 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1267 ims , ime , jms , jme , 1 , 1 , &
1268 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1269 ierr )
1270 CALL wrf_ext_read_field ( &
1271 fid , & ! DataHandle
1272 current_date(1:19) , & ! DateStr
1273 'TSLB' , & ! Data Name
1274 grid%tslb , & ! Field
1275 WRF_FLOAT , & ! FieldType
1276 grid%communicator , & ! Comm
1277 grid%iocommunicator , & ! Comm
1278 grid%domdesc , & ! Comm
1279 grid%bdy_mask , & ! bdy_mask
1280 'XYZ' , & ! MemoryOrder
1281 'Z' , & ! Stagger
1282 'inc/wrf_histin.inc ext_read_field TSLB memorder XYZ' , & ! Debug message
1283 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
1284 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
1285 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
1286 ierr )
1287 CALL wrf_ext_read_field ( &
1288 fid , & ! DataHandle
1289 current_date(1:19) , & ! DateStr
1290 'ZS' , & ! Data Name
1291 grid%zs , & ! Field
1292 WRF_FLOAT , & ! FieldType
1293 grid%communicator , & ! Comm
1294 grid%iocommunicator , & ! Comm
1295 grid%domdesc , & ! Comm
1296 grid%bdy_mask , & ! bdy_mask
1297 'Z' , & ! MemoryOrder
1298 'Z' , & ! Stagger
1299 'inc/wrf_histin.inc ext_read_field ZS memorder Z' , & ! Debug message
1300 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1301 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1302 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1303 ierr )
1304 CALL wrf_ext_read_field ( &
1305 fid , & ! DataHandle
1306 current_date(1:19) , & ! DateStr
1307 'DZS' , & ! Data Name
1308 grid%dzs , & ! Field
1309 WRF_FLOAT , & ! FieldType
1310 grid%communicator , & ! Comm
1311 grid%iocommunicator , & ! Comm
1312 grid%domdesc , & ! Comm
1313 grid%bdy_mask , & ! bdy_mask
1314 'Z' , & ! MemoryOrder
1315 'Z' , & ! Stagger
1316 'inc/wrf_histin.inc ext_read_field DZS memorder Z' , & ! Debug message
1317 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1318 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1319 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1320 ierr )
1321 CALL wrf_ext_read_field ( &
1322 fid , & ! DataHandle
1323 current_date(1:19) , & ! DateStr
1324 'SMOIS' , & ! Data Name
1325 grid%smois , & ! Field
1326 WRF_FLOAT , & ! FieldType
1327 grid%communicator , & ! Comm
1328 grid%iocommunicator , & ! Comm
1329 grid%domdesc , & ! Comm
1330 grid%bdy_mask , & ! bdy_mask
1331 'XYZ' , & ! MemoryOrder
1332 'Z' , & ! Stagger
1333 'inc/wrf_histin.inc ext_read_field SMOIS memorder XYZ' , & ! Debug message
1334 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
1335 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
1336 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
1337 ierr )
1338 CALL wrf_ext_read_field ( &
1339 fid , & ! DataHandle
1340 current_date(1:19) , & ! DateStr
1341 'SH2O' , & ! Data Name
1342 grid%sh2o , & ! Field
1343 WRF_FLOAT , & ! FieldType
1344 grid%communicator , & ! Comm
1345 grid%iocommunicator , & ! Comm
1346 grid%domdesc , & ! Comm
1347 grid%bdy_mask , & ! bdy_mask
1348 'XYZ' , & ! MemoryOrder
1349 'Z' , & ! Stagger
1350 'inc/wrf_histin.inc ext_read_field SH2O memorder XYZ' , & ! Debug message
1351 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
1352 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
1353 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
1354 ierr )
1355 CALL wrf_ext_read_field ( &
1356 fid , & ! DataHandle
1357 current_date(1:19) , & ! DateStr
1358 'XICE' , & ! Data Name
1359 grid%xice , & ! Field
1360 WRF_FLOAT , & ! FieldType
1361 grid%communicator , & ! Comm
1362 grid%iocommunicator , & ! Comm
1363 grid%domdesc , & ! Comm
1364 grid%bdy_mask , & ! bdy_mask
1365 'XY' , & ! MemoryOrder
1366 '' , & ! Stagger
1367 'inc/wrf_histin.inc ext_read_field XICE memorder XY' , & ! Debug message
1368 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1369 ims , ime , jms , jme , 1 , 1 , &
1370 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1371 ierr )
1372 CALL wrf_ext_read_field ( &
1373 fid , & ! DataHandle
1374 current_date(1:19) , & ! DateStr
1375 'SFROFF' , & ! Data Name
1376 grid%sfcrunoff , & ! Field
1377 WRF_FLOAT , & ! FieldType
1378 grid%communicator , & ! Comm
1379 grid%iocommunicator , & ! Comm
1380 grid%domdesc , & ! Comm
1381 grid%bdy_mask , & ! bdy_mask
1382 'XY' , & ! MemoryOrder
1383 '' , & ! Stagger
1384 'inc/wrf_histin.inc ext_read_field SFROFF memorder XY' , & ! Debug message
1385 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1386 ims , ime , jms , jme , 1 , 1 , &
1387 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1388 ierr )
1389 CALL wrf_ext_read_field ( &
1390 fid , & ! DataHandle
1391 current_date(1:19) , & ! DateStr
1392 'UDROFF' , & ! Data Name
1393 grid%udrunoff , & ! Field
1394 WRF_FLOAT , & ! FieldType
1395 grid%communicator , & ! Comm
1396 grid%iocommunicator , & ! Comm
1397 grid%domdesc , & ! Comm
1398 grid%bdy_mask , & ! bdy_mask
1399 'XY' , & ! MemoryOrder
1400 '' , & ! Stagger
1401 'inc/wrf_histin.inc ext_read_field UDROFF memorder XY' , & ! Debug message
1402 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1403 ims , ime , jms , jme , 1 , 1 , &
1404 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1405 ierr )
1406 CALL wrf_ext_read_field ( &
1407 fid , & ! DataHandle
1408 current_date(1:19) , & ! DateStr
1409 'IVGTYP' , & ! Data Name
1410 grid%ivgtyp , & ! Field
1411 WRF_integer , & ! FieldType
1412 grid%communicator , & ! Comm
1413 grid%iocommunicator , & ! Comm
1414 grid%domdesc , & ! Comm
1415 grid%bdy_mask , & ! bdy_mask
1416 'XY' , & ! MemoryOrder
1417 '' , & ! Stagger
1418 'inc/wrf_histin.inc ext_read_field IVGTYP memorder XY' , & ! Debug message
1419 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1420 ims , ime , jms , jme , 1 , 1 , &
1421 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1422 ierr )
1423 CALL wrf_ext_read_field ( &
1424 fid , & ! DataHandle
1425 current_date(1:19) , & ! DateStr
1426 'ISLTYP' , & ! Data Name
1427 grid%isltyp , & ! Field
1428 WRF_integer , & ! FieldType
1429 grid%communicator , & ! Comm
1430 grid%iocommunicator , & ! Comm
1431 grid%domdesc , & ! Comm
1432 grid%bdy_mask , & ! bdy_mask
1433 'XY' , & ! MemoryOrder
1434 '' , & ! Stagger
1435 'inc/wrf_histin.inc ext_read_field ISLTYP memorder XY' , & ! Debug message
1436 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1437 ims , ime , jms , jme , 1 , 1 , &
1438 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1439 ierr )
1440 CALL wrf_ext_read_field ( &
1441 fid , & ! DataHandle
1442 current_date(1:19) , & ! DateStr
1443 'VEGFRA' , & ! Data Name
1444 grid%vegfra , & ! Field
1445 WRF_FLOAT , & ! FieldType
1446 grid%communicator , & ! Comm
1447 grid%iocommunicator , & ! Comm
1448 grid%domdesc , & ! Comm
1449 grid%bdy_mask , & ! bdy_mask
1450 'XY' , & ! MemoryOrder
1451 '' , & ! Stagger
1452 'inc/wrf_histin.inc ext_read_field VEGFRA memorder XY' , & ! Debug message
1453 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1454 ims , ime , jms , jme , 1 , 1 , &
1455 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1456 ierr )
1457 CALL wrf_ext_read_field ( &
1458 fid , & ! DataHandle
1459 current_date(1:19) , & ! DateStr
1460 'SNOW' , & ! Data Name
1461 grid%snow , & ! Field
1462 WRF_FLOAT , & ! FieldType
1463 grid%communicator , & ! Comm
1464 grid%iocommunicator , & ! Comm
1465 grid%domdesc , & ! Comm
1466 grid%bdy_mask , & ! bdy_mask
1467 'XY' , & ! MemoryOrder
1468 '' , & ! Stagger
1469 'inc/wrf_histin.inc ext_read_field SNOW memorder XY' , & ! Debug message
1470 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1471 ims , ime , jms , jme , 1 , 1 , &
1472 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1473 ierr )
1474 CALL wrf_ext_read_field ( &
1475 fid , & ! DataHandle
1476 current_date(1:19) , & ! DateStr
1477 'SNOWH' , & ! Data Name
1478 grid%snowh , & ! Field
1479 WRF_FLOAT , & ! FieldType
1480 grid%communicator , & ! Comm
1481 grid%iocommunicator , & ! Comm
1482 grid%domdesc , & ! Comm
1483 grid%bdy_mask , & ! bdy_mask
1484 'XY' , & ! MemoryOrder
1485 '' , & ! Stagger
1486 'inc/wrf_histin.inc ext_read_field SNOWH memorder XY' , & ! Debug message
1487 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1488 ims , ime , jms , jme , 1 , 1 , &
1489 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1490 ierr )
1491 CALL wrf_ext_read_field ( &
1492 fid , & ! DataHandle
1493 current_date(1:19) , & ! DateStr
1494 'RHOSN' , & ! Data Name
1495 grid%rhosn , & ! Field
1496 WRF_FLOAT , & ! FieldType
1497 grid%communicator , & ! Comm
1498 grid%iocommunicator , & ! Comm
1499 grid%domdesc , & ! Comm
1500 grid%bdy_mask , & ! bdy_mask
1501 'XY' , & ! MemoryOrder
1502 '' , & ! Stagger
1503 'inc/wrf_histin.inc ext_read_field RHOSN memorder XY' , & ! Debug message
1504 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1505 ims , ime , jms , jme , 1 , 1 , &
1506 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1507 ierr )
1508 CALL wrf_ext_read_field ( &
1509 fid , & ! DataHandle
1510 current_date(1:19) , & ! DateStr
1511 'CANWAT' , & ! Data Name
1512 grid%canwat , & ! Field
1513 WRF_FLOAT , & ! FieldType
1514 grid%communicator , & ! Comm
1515 grid%iocommunicator , & ! Comm
1516 grid%domdesc , & ! Comm
1517 grid%bdy_mask , & ! bdy_mask
1518 'XY' , & ! MemoryOrder
1519 '' , & ! Stagger
1520 'inc/wrf_histin.inc ext_read_field CANWAT memorder XY' , & ! Debug message
1521 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1522 ims , ime , jms , jme , 1 , 1 , &
1523 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1524 ierr )
1525 CALL wrf_ext_read_field ( &
1526 fid , & ! DataHandle
1527 current_date(1:19) , & ! DateStr
1528 'SST' , & ! Data Name
1529 grid%sst , & ! Field
1530 WRF_FLOAT , & ! FieldType
1531 grid%communicator , & ! Comm
1532 grid%iocommunicator , & ! Comm
1533 grid%domdesc , & ! Comm
1534 grid%bdy_mask , & ! bdy_mask
1535 'XY' , & ! MemoryOrder
1536 '' , & ! Stagger
1537 'inc/wrf_histin.inc ext_read_field SST memorder XY' , & ! Debug message
1538 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1539 ims , ime , jms , jme , 1 , 1 , &
1540 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1541 ierr )
1542 CALL wrf_ext_read_field ( &
1543 fid , & ! DataHandle
1544 current_date(1:19) , & ! DateStr
1545 'MAPFAC_M' , & ! Data Name
1546 grid%msft , & ! Field
1547 WRF_FLOAT , & ! FieldType
1548 grid%communicator , & ! Comm
1549 grid%iocommunicator , & ! Comm
1550 grid%domdesc , & ! Comm
1551 grid%bdy_mask , & ! bdy_mask
1552 'XY' , & ! MemoryOrder
1553 '' , & ! Stagger
1554 'inc/wrf_histin.inc ext_read_field MAPFAC_M memorder XY' , & ! Debug message
1555 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1556 ims , ime , jms , jme , 1 , 1 , &
1557 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1558 ierr )
1559 CALL wrf_ext_read_field ( &
1560 fid , & ! DataHandle
1561 current_date(1:19) , & ! DateStr
1562 'MAPFAC_U' , & ! Data Name
1563 grid%msfu , & ! Field
1564 WRF_FLOAT , & ! FieldType
1565 grid%communicator , & ! Comm
1566 grid%iocommunicator , & ! Comm
1567 grid%domdesc , & ! Comm
1568 grid%bdy_mask , & ! bdy_mask
1569 'XY' , & ! MemoryOrder
1570 'X' , & ! Stagger
1571 'inc/wrf_histin.inc ext_read_field MAPFAC_U memorder XY' , & ! Debug message
1572 ids , ide , jds , (jde-1) , 1 , 1 , &
1573 ims , ime , jms , jme , 1 , 1 , &
1574 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1575 ierr )
1576 CALL wrf_ext_read_field ( &
1577 fid , & ! DataHandle
1578 current_date(1:19) , & ! DateStr
1579 'MAPFAC_V' , & ! Data Name
1580 grid%msfv , & ! Field
1581 WRF_FLOAT , & ! FieldType
1582 grid%communicator , & ! Comm
1583 grid%iocommunicator , & ! Comm
1584 grid%domdesc , & ! Comm
1585 grid%bdy_mask , & ! bdy_mask
1586 'XY' , & ! MemoryOrder
1587 'Y' , & ! Stagger
1588 'inc/wrf_histin.inc ext_read_field MAPFAC_V memorder XY' , & ! Debug message
1589 ids , (ide-1) , jds , jde , 1 , 1 , &
1590 ims , ime , jms , jme , 1 , 1 , &
1591 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
1592 ierr )
1593 CALL wrf_ext_read_field ( &
1594 fid , & ! DataHandle
1595 current_date(1:19) , & ! DateStr
1596 'F' , & ! Data Name
1597 grid%f , & ! Field
1598 WRF_FLOAT , & ! FieldType
1599 grid%communicator , & ! Comm
1600 grid%iocommunicator , & ! Comm
1601 grid%domdesc , & ! Comm
1602 grid%bdy_mask , & ! bdy_mask
1603 'XY' , & ! MemoryOrder
1604 '' , & ! Stagger
1605 'inc/wrf_histin.inc ext_read_field F memorder XY' , & ! Debug message
1606 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1607 ims , ime , jms , jme , 1 , 1 , &
1608 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1609 ierr )
1610 CALL wrf_ext_read_field ( &
1611 fid , & ! DataHandle
1612 current_date(1:19) , & ! DateStr
1613 'E' , & ! Data Name
1614 grid%e , & ! Field
1615 WRF_FLOAT , & ! FieldType
1616 grid%communicator , & ! Comm
1617 grid%iocommunicator , & ! Comm
1618 grid%domdesc , & ! Comm
1619 grid%bdy_mask , & ! bdy_mask
1620 'XY' , & ! MemoryOrder
1621 '' , & ! Stagger
1622 'inc/wrf_histin.inc ext_read_field E memorder XY' , & ! Debug message
1623 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1624 ims , ime , jms , jme , 1 , 1 , &
1625 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1626 ierr )
1627 CALL wrf_ext_read_field ( &
1628 fid , & ! DataHandle
1629 current_date(1:19) , & ! DateStr
1630 'SINALPHA' , & ! Data Name
1631 grid%sina , & ! Field
1632 WRF_FLOAT , & ! FieldType
1633 grid%communicator , & ! Comm
1634 grid%iocommunicator , & ! Comm
1635 grid%domdesc , & ! Comm
1636 grid%bdy_mask , & ! bdy_mask
1637 'XY' , & ! MemoryOrder
1638 '' , & ! Stagger
1639 'inc/wrf_histin.inc ext_read_field SINALPHA memorder XY' , & ! Debug message
1640 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1641 ims , ime , jms , jme , 1 , 1 , &
1642 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1643 ierr )
1644 CALL wrf_ext_read_field ( &
1645 fid , & ! DataHandle
1646 current_date(1:19) , & ! DateStr
1647 'COSALPHA' , & ! Data Name
1648 grid%cosa , & ! Field
1649 WRF_FLOAT , & ! FieldType
1650 grid%communicator , & ! Comm
1651 grid%iocommunicator , & ! Comm
1652 grid%domdesc , & ! Comm
1653 grid%bdy_mask , & ! bdy_mask
1654 'XY' , & ! MemoryOrder
1655 '' , & ! Stagger
1656 'inc/wrf_histin.inc ext_read_field COSALPHA memorder XY' , & ! Debug message
1657 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1658 ims , ime , jms , jme , 1 , 1 , &
1659 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1660 ierr )
1661 CALL wrf_ext_read_field ( &
1662 fid , & ! DataHandle
1663 current_date(1:19) , & ! DateStr
1664 'HGT' , & ! Data Name
1665 grid%ht , & ! Field
1666 WRF_FLOAT , & ! FieldType
1667 grid%communicator , & ! Comm
1668 grid%iocommunicator , & ! Comm
1669 grid%domdesc , & ! Comm
1670 grid%bdy_mask , & ! bdy_mask
1671 'XY' , & ! MemoryOrder
1672 '' , & ! Stagger
1673 'inc/wrf_histin.inc ext_read_field HGT memorder XY' , & ! Debug message
1674 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1675 ims , ime , jms , jme , 1 , 1 , &
1676 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1677 ierr )
1678 CALL wrf_ext_read_field ( &
1679 fid , & ! DataHandle
1680 current_date(1:19) , & ! DateStr
1681 'TSK' , & ! Data Name
1682 grid%tsk , & ! Field
1683 WRF_FLOAT , & ! FieldType
1684 grid%communicator , & ! Comm
1685 grid%iocommunicator , & ! Comm
1686 grid%domdesc , & ! Comm
1687 grid%bdy_mask , & ! bdy_mask
1688 'XY' , & ! MemoryOrder
1689 '' , & ! Stagger
1690 'inc/wrf_histin.inc ext_read_field TSK memorder XY' , & ! Debug message
1691 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1692 ims , ime , jms , jme , 1 , 1 , &
1693 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1694 ierr )
1695 CALL wrf_ext_read_field ( &
1696 fid , & ! DataHandle
1697 current_date(1:19) , & ! DateStr
1698 'P_TOP' , & ! Data Name
1699 grid%p_top , & ! Field
1700 WRF_FLOAT , & ! FieldType
1701 grid%communicator , & ! Comm
1702 grid%iocommunicator , & ! Comm
1703 grid%domdesc , & ! Comm
1704 grid%bdy_mask , & ! bdy_mask
1705 '0' , & ! MemoryOrder
1706 '' , & ! Stagger
1707 'inc/wrf_histin.inc ext_read_field P_TOP memorder 0' , & ! Debug message
1708 1 , 1 , 1 , 1 , 1 , 1 , &
1709 1 , 1 , 1 , 1 , 1 , 1 , &
1710 1 , 1 , 1 , 1 , 1 , 1 , &
1711 ierr )
1712 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1713 CALL wrf_ext_read_field ( &
1714 fid , & ! DataHandle
1715 current_date(1:19) , & ! DateStr
1716 'LAT_LL_T' , & ! Data Name
1717 grid%em_lat_ll_t , & ! Field
1718 WRF_FLOAT , & ! FieldType
1719 grid%communicator , & ! Comm
1720 grid%iocommunicator , & ! Comm
1721 grid%domdesc , & ! Comm
1722 grid%bdy_mask , & ! bdy_mask
1723 '0' , & ! MemoryOrder
1724 '' , & ! Stagger
1725 'inc/wrf_histin.inc ext_read_field LAT_LL_T memorder 0' , & ! Debug message
1726 1 , 1 , 1 , 1 , 1 , 1 , &
1727 1 , 1 , 1 , 1 , 1 , 1 , &
1728 1 , 1 , 1 , 1 , 1 , 1 , &
1729 ierr )
1730 END IF
1731 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1732 CALL wrf_ext_read_field ( &
1733 fid , & ! DataHandle
1734 current_date(1:19) , & ! DateStr
1735 'LAT_UL_T' , & ! Data Name
1736 grid%em_lat_ul_t , & ! Field
1737 WRF_FLOAT , & ! FieldType
1738 grid%communicator , & ! Comm
1739 grid%iocommunicator , & ! Comm
1740 grid%domdesc , & ! Comm
1741 grid%bdy_mask , & ! bdy_mask
1742 '0' , & ! MemoryOrder
1743 '' , & ! Stagger
1744 'inc/wrf_histin.inc ext_read_field LAT_UL_T memorder 0' , & ! Debug message
1745 1 , 1 , 1 , 1 , 1 , 1 , &
1746 1 , 1 , 1 , 1 , 1 , 1 , &
1747 1 , 1 , 1 , 1 , 1 , 1 , &
1748 ierr )
1749 END IF
1750 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1751 CALL wrf_ext_read_field ( &
1752 fid , & ! DataHandle
1753 current_date(1:19) , & ! DateStr
1754 'LAT_UR_T' , & ! Data Name
1755 grid%em_lat_ur_t , & ! Field
1756 WRF_FLOAT , & ! FieldType
1757 grid%communicator , & ! Comm
1758 grid%iocommunicator , & ! Comm
1759 grid%domdesc , & ! Comm
1760 grid%bdy_mask , & ! bdy_mask
1761 '0' , & ! MemoryOrder
1762 '' , & ! Stagger
1763 'inc/wrf_histin.inc ext_read_field LAT_UR_T memorder 0' , & ! Debug message
1764 1 , 1 , 1 , 1 , 1 , 1 , &
1765 1 , 1 , 1 , 1 , 1 , 1 , &
1766 1 , 1 , 1 , 1 , 1 , 1 , &
1767 ierr )
1768 END IF
1769 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1770 CALL wrf_ext_read_field ( &
1771 fid , & ! DataHandle
1772 current_date(1:19) , & ! DateStr
1773 'LAT_LR_T' , & ! Data Name
1774 grid%em_lat_lr_t , & ! Field
1775 WRF_FLOAT , & ! FieldType
1776 grid%communicator , & ! Comm
1777 grid%iocommunicator , & ! Comm
1778 grid%domdesc , & ! Comm
1779 grid%bdy_mask , & ! bdy_mask
1780 '0' , & ! MemoryOrder
1781 '' , & ! Stagger
1782 'inc/wrf_histin.inc ext_read_field LAT_LR_T memorder 0' , & ! Debug message
1783 1 , 1 , 1 , 1 , 1 , 1 , &
1784 1 , 1 , 1 , 1 , 1 , 1 , &
1785 1 , 1 , 1 , 1 , 1 , 1 , &
1786 ierr )
1787 END IF
1788 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1789 CALL wrf_ext_read_field ( &
1790 fid , & ! DataHandle
1791 current_date(1:19) , & ! DateStr
1792 'LAT_LL_U' , & ! Data Name
1793 grid%em_lat_ll_u , & ! Field
1794 WRF_FLOAT , & ! FieldType
1795 grid%communicator , & ! Comm
1796 grid%iocommunicator , & ! Comm
1797 grid%domdesc , & ! Comm
1798 grid%bdy_mask , & ! bdy_mask
1799 '0' , & ! MemoryOrder
1800 '' , & ! Stagger
1801 'inc/wrf_histin.inc ext_read_field LAT_LL_U memorder 0' , & ! Debug message
1802 1 , 1 , 1 , 1 , 1 , 1 , &
1803 1 , 1 , 1 , 1 , 1 , 1 , &
1804 1 , 1 , 1 , 1 , 1 , 1 , &
1805 ierr )
1806 END IF
1807 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1808 CALL wrf_ext_read_field ( &
1809 fid , & ! DataHandle
1810 current_date(1:19) , & ! DateStr
1811 'LAT_UL_U' , & ! Data Name
1812 grid%em_lat_ul_u , & ! Field
1813 WRF_FLOAT , & ! FieldType
1814 grid%communicator , & ! Comm
1815 grid%iocommunicator , & ! Comm
1816 grid%domdesc , & ! Comm
1817 grid%bdy_mask , & ! bdy_mask
1818 '0' , & ! MemoryOrder
1819 '' , & ! Stagger
1820 'inc/wrf_histin.inc ext_read_field LAT_UL_U memorder 0' , & ! Debug message
1821 1 , 1 , 1 , 1 , 1 , 1 , &
1822 1 , 1 , 1 , 1 , 1 , 1 , &
1823 1 , 1 , 1 , 1 , 1 , 1 , &
1824 ierr )
1825 END IF
1826 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1827 CALL wrf_ext_read_field ( &
1828 fid , & ! DataHandle
1829 current_date(1:19) , & ! DateStr
1830 'LAT_UR_U' , & ! Data Name
1831 grid%em_lat_ur_u , & ! Field
1832 WRF_FLOAT , & ! FieldType
1833 grid%communicator , & ! Comm
1834 grid%iocommunicator , & ! Comm
1835 grid%domdesc , & ! Comm
1836 grid%bdy_mask , & ! bdy_mask
1837 '0' , & ! MemoryOrder
1838 '' , & ! Stagger
1839 'inc/wrf_histin.inc ext_read_field LAT_UR_U memorder 0' , & ! Debug message
1840 1 , 1 , 1 , 1 , 1 , 1 , &
1841 1 , 1 , 1 , 1 , 1 , 1 , &
1842 1 , 1 , 1 , 1 , 1 , 1 , &
1843 ierr )
1844 END IF
1845 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1846 CALL wrf_ext_read_field ( &
1847 fid , & ! DataHandle
1848 current_date(1:19) , & ! DateStr
1849 'LAT_LR_U' , & ! Data Name
1850 grid%em_lat_lr_u , & ! Field
1851 WRF_FLOAT , & ! FieldType
1852 grid%communicator , & ! Comm
1853 grid%iocommunicator , & ! Comm
1854 grid%domdesc , & ! Comm
1855 grid%bdy_mask , & ! bdy_mask
1856 '0' , & ! MemoryOrder
1857 '' , & ! Stagger
1858 'inc/wrf_histin.inc ext_read_field LAT_LR_U memorder 0' , & ! Debug message
1859 1 , 1 , 1 , 1 , 1 , 1 , &
1860 1 , 1 , 1 , 1 , 1 , 1 , &
1861 1 , 1 , 1 , 1 , 1 , 1 , &
1862 ierr )
1863 END IF
1864 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1865 CALL wrf_ext_read_field ( &
1866 fid , & ! DataHandle
1867 current_date(1:19) , & ! DateStr
1868 'LAT_LL_V' , & ! Data Name
1869 grid%em_lat_ll_v , & ! Field
1870 WRF_FLOAT , & ! FieldType
1871 grid%communicator , & ! Comm
1872 grid%iocommunicator , & ! Comm
1873 grid%domdesc , & ! Comm
1874 grid%bdy_mask , & ! bdy_mask
1875 '0' , & ! MemoryOrder
1876 '' , & ! Stagger
1877 'inc/wrf_histin.inc ext_read_field LAT_LL_V memorder 0' , & ! Debug message
1878 1 , 1 , 1 , 1 , 1 , 1 , &
1879 1 , 1 , 1 , 1 , 1 , 1 , &
1880 1 , 1 , 1 , 1 , 1 , 1 , &
1881 ierr )
1882 END IF
1883 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1884 CALL wrf_ext_read_field ( &
1885 fid , & ! DataHandle
1886 current_date(1:19) , & ! DateStr
1887 'LAT_UL_V' , & ! Data Name
1888 grid%em_lat_ul_v , & ! Field
1889 WRF_FLOAT , & ! FieldType
1890 grid%communicator , & ! Comm
1891 grid%iocommunicator , & ! Comm
1892 grid%domdesc , & ! Comm
1893 grid%bdy_mask , & ! bdy_mask
1894 '0' , & ! MemoryOrder
1895 '' , & ! Stagger
1896 'inc/wrf_histin.inc ext_read_field LAT_UL_V memorder 0' , & ! Debug message
1897 1 , 1 , 1 , 1 , 1 , 1 , &
1898 1 , 1 , 1 , 1 , 1 , 1 , &
1899 1 , 1 , 1 , 1 , 1 , 1 , &
1900 ierr )
1901 END IF
1902 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1903 CALL wrf_ext_read_field ( &
1904 fid , & ! DataHandle
1905 current_date(1:19) , & ! DateStr
1906 'LAT_UR_V' , & ! Data Name
1907 grid%em_lat_ur_v , & ! Field
1908 WRF_FLOAT , & ! FieldType
1909 grid%communicator , & ! Comm
1910 grid%iocommunicator , & ! Comm
1911 grid%domdesc , & ! Comm
1912 grid%bdy_mask , & ! bdy_mask
1913 '0' , & ! MemoryOrder
1914 '' , & ! Stagger
1915 'inc/wrf_histin.inc ext_read_field LAT_UR_V memorder 0' , & ! Debug message
1916 1 , 1 , 1 , 1 , 1 , 1 , &
1917 1 , 1 , 1 , 1 , 1 , 1 , &
1918 1 , 1 , 1 , 1 , 1 , 1 , &
1919 ierr )
1920 END IF
1921 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1922 CALL wrf_ext_read_field ( &
1923 fid , & ! DataHandle
1924 current_date(1:19) , & ! DateStr
1925 'LAT_LR_V' , & ! Data Name
1926 grid%em_lat_lr_v , & ! Field
1927 WRF_FLOAT , & ! FieldType
1928 grid%communicator , & ! Comm
1929 grid%iocommunicator , & ! Comm
1930 grid%domdesc , & ! Comm
1931 grid%bdy_mask , & ! bdy_mask
1932 '0' , & ! MemoryOrder
1933 '' , & ! Stagger
1934 'inc/wrf_histin.inc ext_read_field LAT_LR_V memorder 0' , & ! Debug message
1935 1 , 1 , 1 , 1 , 1 , 1 , &
1936 1 , 1 , 1 , 1 , 1 , 1 , &
1937 1 , 1 , 1 , 1 , 1 , 1 , &
1938 ierr )
1939 END IF
1940 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1941 CALL wrf_ext_read_field ( &
1942 fid , & ! DataHandle
1943 current_date(1:19) , & ! DateStr
1944 'LAT_LL_D' , & ! Data Name
1945 grid%em_lat_ll_d , & ! Field
1946 WRF_FLOAT , & ! FieldType
1947 grid%communicator , & ! Comm
1948 grid%iocommunicator , & ! Comm
1949 grid%domdesc , & ! Comm
1950 grid%bdy_mask , & ! bdy_mask
1951 '0' , & ! MemoryOrder
1952 '' , & ! Stagger
1953 'inc/wrf_histin.inc ext_read_field LAT_LL_D memorder 0' , & ! Debug message
1954 1 , 1 , 1 , 1 , 1 , 1 , &
1955 1 , 1 , 1 , 1 , 1 , 1 , &
1956 1 , 1 , 1 , 1 , 1 , 1 , &
1957 ierr )
1958 END IF
1959 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1960 CALL wrf_ext_read_field ( &
1961 fid , & ! DataHandle
1962 current_date(1:19) , & ! DateStr
1963 'LAT_UL_D' , & ! Data Name
1964 grid%em_lat_ul_d , & ! Field
1965 WRF_FLOAT , & ! FieldType
1966 grid%communicator , & ! Comm
1967 grid%iocommunicator , & ! Comm
1968 grid%domdesc , & ! Comm
1969 grid%bdy_mask , & ! bdy_mask
1970 '0' , & ! MemoryOrder
1971 '' , & ! Stagger
1972 'inc/wrf_histin.inc ext_read_field LAT_UL_D memorder 0' , & ! Debug message
1973 1 , 1 , 1 , 1 , 1 , 1 , &
1974 1 , 1 , 1 , 1 , 1 , 1 , &
1975 1 , 1 , 1 , 1 , 1 , 1 , &
1976 ierr )
1977 END IF
1978 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1979 CALL wrf_ext_read_field ( &
1980 fid , & ! DataHandle
1981 current_date(1:19) , & ! DateStr
1982 'LAT_UR_D' , & ! Data Name
1983 grid%em_lat_ur_d , & ! Field
1984 WRF_FLOAT , & ! FieldType
1985 grid%communicator , & ! Comm
1986 grid%iocommunicator , & ! Comm
1987 grid%domdesc , & ! Comm
1988 grid%bdy_mask , & ! bdy_mask
1989 '0' , & ! MemoryOrder
1990 '' , & ! Stagger
1991 'inc/wrf_histin.inc ext_read_field LAT_UR_D memorder 0' , & ! Debug message
1992 1 , 1 , 1 , 1 , 1 , 1 , &
1993 1 , 1 , 1 , 1 , 1 , 1 , &
1994 1 , 1 , 1 , 1 , 1 , 1 , &
1995 ierr )
1996 END IF
1997 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1998 CALL wrf_ext_read_field ( &
1999 fid , & ! DataHandle
2000 current_date(1:19) , & ! DateStr
2001 'LAT_LR_D' , & ! Data Name
2002 grid%em_lat_lr_d , & ! Field
2003 WRF_FLOAT , & ! FieldType
2004 grid%communicator , & ! Comm
2005 grid%iocommunicator , & ! Comm
2006 grid%domdesc , & ! Comm
2007 grid%bdy_mask , & ! bdy_mask
2008 '0' , & ! MemoryOrder
2009 '' , & ! Stagger
2010 'inc/wrf_histin.inc ext_read_field LAT_LR_D memorder 0' , & ! Debug message
2011 1 , 1 , 1 , 1 , 1 , 1 , &
2012 1 , 1 , 1 , 1 , 1 , 1 , &
2013 1 , 1 , 1 , 1 , 1 , 1 , &
2014 ierr )
2015 END IF
2016 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2017 CALL wrf_ext_read_field ( &
2018 fid , & ! DataHandle
2019 current_date(1:19) , & ! DateStr
2020 'LON_LL_T' , & ! Data Name
2021 grid%em_lon_ll_t , & ! Field
2022 WRF_FLOAT , & ! FieldType
2023 grid%communicator , & ! Comm
2024 grid%iocommunicator , & ! Comm
2025 grid%domdesc , & ! Comm
2026 grid%bdy_mask , & ! bdy_mask
2027 '0' , & ! MemoryOrder
2028 '' , & ! Stagger
2029 'inc/wrf_histin.inc ext_read_field LON_LL_T memorder 0' , & ! Debug message
2030 1 , 1 , 1 , 1 , 1 , 1 , &
2031 1 , 1 , 1 , 1 , 1 , 1 , &
2032 1 , 1 , 1 , 1 , 1 , 1 , &
2033 ierr )
2034 END IF
2035 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2036 CALL wrf_ext_read_field ( &
2037 fid , & ! DataHandle
2038 current_date(1:19) , & ! DateStr
2039 'LON_UL_T' , & ! Data Name
2040 grid%em_lon_ul_t , & ! Field
2041 WRF_FLOAT , & ! FieldType
2042 grid%communicator , & ! Comm
2043 grid%iocommunicator , & ! Comm
2044 grid%domdesc , & ! Comm
2045 grid%bdy_mask , & ! bdy_mask
2046 '0' , & ! MemoryOrder
2047 '' , & ! Stagger
2048 'inc/wrf_histin.inc ext_read_field LON_UL_T memorder 0' , & ! Debug message
2049 1 , 1 , 1 , 1 , 1 , 1 , &
2050 1 , 1 , 1 , 1 , 1 , 1 , &
2051 1 , 1 , 1 , 1 , 1 , 1 , &
2052 ierr )
2053 END IF
2054 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2055 CALL wrf_ext_read_field ( &
2056 fid , & ! DataHandle
2057 current_date(1:19) , & ! DateStr
2058 'LON_UR_T' , & ! Data Name
2059 grid%em_lon_ur_t , & ! Field
2060 WRF_FLOAT , & ! FieldType
2061 grid%communicator , & ! Comm
2062 grid%iocommunicator , & ! Comm
2063 grid%domdesc , & ! Comm
2064 grid%bdy_mask , & ! bdy_mask
2065 '0' , & ! MemoryOrder
2066 '' , & ! Stagger
2067 'inc/wrf_histin.inc ext_read_field LON_UR_T memorder 0' , & ! Debug message
2068 1 , 1 , 1 , 1 , 1 , 1 , &
2069 1 , 1 , 1 , 1 , 1 , 1 , &
2070 1 , 1 , 1 , 1 , 1 , 1 , &
2071 ierr )
2072 END IF
2073 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2074 CALL wrf_ext_read_field ( &
2075 fid , & ! DataHandle
2076 current_date(1:19) , & ! DateStr
2077 'LON_LR_T' , & ! Data Name
2078 grid%em_lon_lr_t , & ! Field
2079 WRF_FLOAT , & ! FieldType
2080 grid%communicator , & ! Comm
2081 grid%iocommunicator , & ! Comm
2082 grid%domdesc , & ! Comm
2083 grid%bdy_mask , & ! bdy_mask
2084 '0' , & ! MemoryOrder
2085 '' , & ! Stagger
2086 'inc/wrf_histin.inc ext_read_field LON_LR_T memorder 0' , & ! Debug message
2087 1 , 1 , 1 , 1 , 1 , 1 , &
2088 1 , 1 , 1 , 1 , 1 , 1 , &
2089 1 , 1 , 1 , 1 , 1 , 1 , &
2090 ierr )
2091 END IF
2092 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2093 CALL wrf_ext_read_field ( &
2094 fid , & ! DataHandle
2095 current_date(1:19) , & ! DateStr
2096 'LON_LL_U' , & ! Data Name
2097 grid%em_lon_ll_u , & ! Field
2098 WRF_FLOAT , & ! FieldType
2099 grid%communicator , & ! Comm
2100 grid%iocommunicator , & ! Comm
2101 grid%domdesc , & ! Comm
2102 grid%bdy_mask , & ! bdy_mask
2103 '0' , & ! MemoryOrder
2104 '' , & ! Stagger
2105 'inc/wrf_histin.inc ext_read_field LON_LL_U memorder 0' , & ! Debug message
2106 1 , 1 , 1 , 1 , 1 , 1 , &
2107 1 , 1 , 1 , 1 , 1 , 1 , &
2108 1 , 1 , 1 , 1 , 1 , 1 , &
2109 ierr )
2110 END IF
2111 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2112 CALL wrf_ext_read_field ( &
2113 fid , & ! DataHandle
2114 current_date(1:19) , & ! DateStr
2115 'LON_UL_U' , & ! Data Name
2116 grid%em_lon_ul_u , & ! Field
2117 WRF_FLOAT , & ! FieldType
2118 grid%communicator , & ! Comm
2119 grid%iocommunicator , & ! Comm
2120 grid%domdesc , & ! Comm
2121 grid%bdy_mask , & ! bdy_mask
2122 '0' , & ! MemoryOrder
2123 '' , & ! Stagger
2124 'inc/wrf_histin.inc ext_read_field LON_UL_U memorder 0' , & ! Debug message
2125 1 , 1 , 1 , 1 , 1 , 1 , &
2126 1 , 1 , 1 , 1 , 1 , 1 , &
2127 1 , 1 , 1 , 1 , 1 , 1 , &
2128 ierr )
2129 END IF
2130 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2131 CALL wrf_ext_read_field ( &
2132 fid , & ! DataHandle
2133 current_date(1:19) , & ! DateStr
2134 'LON_UR_U' , & ! Data Name
2135 grid%em_lon_ur_u , & ! Field
2136 WRF_FLOAT , & ! FieldType
2137 grid%communicator , & ! Comm
2138 grid%iocommunicator , & ! Comm
2139 grid%domdesc , & ! Comm
2140 grid%bdy_mask , & ! bdy_mask
2141 '0' , & ! MemoryOrder
2142 '' , & ! Stagger
2143 'inc/wrf_histin.inc ext_read_field LON_UR_U memorder 0' , & ! Debug message
2144 1 , 1 , 1 , 1 , 1 , 1 , &
2145 1 , 1 , 1 , 1 , 1 , 1 , &
2146 1 , 1 , 1 , 1 , 1 , 1 , &
2147 ierr )
2148 END IF
2149 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2150 CALL wrf_ext_read_field ( &
2151 fid , & ! DataHandle
2152 current_date(1:19) , & ! DateStr
2153 'LON_LR_U' , & ! Data Name
2154 grid%em_lon_lr_u , & ! Field
2155 WRF_FLOAT , & ! FieldType
2156 grid%communicator , & ! Comm
2157 grid%iocommunicator , & ! Comm
2158 grid%domdesc , & ! Comm
2159 grid%bdy_mask , & ! bdy_mask
2160 '0' , & ! MemoryOrder
2161 '' , & ! Stagger
2162 'inc/wrf_histin.inc ext_read_field LON_LR_U memorder 0' , & ! Debug message
2163 1 , 1 , 1 , 1 , 1 , 1 , &
2164 1 , 1 , 1 , 1 , 1 , 1 , &
2165 1 , 1 , 1 , 1 , 1 , 1 , &
2166 ierr )
2167 END IF
2168 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2169 CALL wrf_ext_read_field ( &
2170 fid , & ! DataHandle
2171 current_date(1:19) , & ! DateStr
2172 'LON_LL_V' , & ! Data Name
2173 grid%em_lon_ll_v , & ! Field
2174 WRF_FLOAT , & ! FieldType
2175 grid%communicator , & ! Comm
2176 grid%iocommunicator , & ! Comm
2177 grid%domdesc , & ! Comm
2178 grid%bdy_mask , & ! bdy_mask
2179 '0' , & ! MemoryOrder
2180 '' , & ! Stagger
2181 'inc/wrf_histin.inc ext_read_field LON_LL_V memorder 0' , & ! Debug message
2182 1 , 1 , 1 , 1 , 1 , 1 , &
2183 1 , 1 , 1 , 1 , 1 , 1 , &
2184 1 , 1 , 1 , 1 , 1 , 1 , &
2185 ierr )
2186 END IF
2187 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2188 CALL wrf_ext_read_field ( &
2189 fid , & ! DataHandle
2190 current_date(1:19) , & ! DateStr
2191 'LON_UL_V' , & ! Data Name
2192 grid%em_lon_ul_v , & ! Field
2193 WRF_FLOAT , & ! FieldType
2194 grid%communicator , & ! Comm
2195 grid%iocommunicator , & ! Comm
2196 grid%domdesc , & ! Comm
2197 grid%bdy_mask , & ! bdy_mask
2198 '0' , & ! MemoryOrder
2199 '' , & ! Stagger
2200 'inc/wrf_histin.inc ext_read_field LON_UL_V memorder 0' , & ! Debug message
2201 1 , 1 , 1 , 1 , 1 , 1 , &
2202 1 , 1 , 1 , 1 , 1 , 1 , &
2203 1 , 1 , 1 , 1 , 1 , 1 , &
2204 ierr )
2205 END IF
2206 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2207 CALL wrf_ext_read_field ( &
2208 fid , & ! DataHandle
2209 current_date(1:19) , & ! DateStr
2210 'LON_UR_V' , & ! Data Name
2211 grid%em_lon_ur_v , & ! Field
2212 WRF_FLOAT , & ! FieldType
2213 grid%communicator , & ! Comm
2214 grid%iocommunicator , & ! Comm
2215 grid%domdesc , & ! Comm
2216 grid%bdy_mask , & ! bdy_mask
2217 '0' , & ! MemoryOrder
2218 '' , & ! Stagger
2219 'inc/wrf_histin.inc ext_read_field LON_UR_V memorder 0' , & ! Debug message
2220 1 , 1 , 1 , 1 , 1 , 1 , &
2221 1 , 1 , 1 , 1 , 1 , 1 , &
2222 1 , 1 , 1 , 1 , 1 , 1 , &
2223 ierr )
2224 END IF
2225 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2226 CALL wrf_ext_read_field ( &
2227 fid , & ! DataHandle
2228 current_date(1:19) , & ! DateStr
2229 'LON_LR_V' , & ! Data Name
2230 grid%em_lon_lr_v , & ! Field
2231 WRF_FLOAT , & ! FieldType
2232 grid%communicator , & ! Comm
2233 grid%iocommunicator , & ! Comm
2234 grid%domdesc , & ! Comm
2235 grid%bdy_mask , & ! bdy_mask
2236 '0' , & ! MemoryOrder
2237 '' , & ! Stagger
2238 'inc/wrf_histin.inc ext_read_field LON_LR_V memorder 0' , & ! Debug message
2239 1 , 1 , 1 , 1 , 1 , 1 , &
2240 1 , 1 , 1 , 1 , 1 , 1 , &
2241 1 , 1 , 1 , 1 , 1 , 1 , &
2242 ierr )
2243 END IF
2244 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2245 CALL wrf_ext_read_field ( &
2246 fid , & ! DataHandle
2247 current_date(1:19) , & ! DateStr
2248 'LON_LL_D' , & ! Data Name
2249 grid%em_lon_ll_d , & ! Field
2250 WRF_FLOAT , & ! FieldType
2251 grid%communicator , & ! Comm
2252 grid%iocommunicator , & ! Comm
2253 grid%domdesc , & ! Comm
2254 grid%bdy_mask , & ! bdy_mask
2255 '0' , & ! MemoryOrder
2256 '' , & ! Stagger
2257 'inc/wrf_histin.inc ext_read_field LON_LL_D memorder 0' , & ! Debug message
2258 1 , 1 , 1 , 1 , 1 , 1 , &
2259 1 , 1 , 1 , 1 , 1 , 1 , &
2260 1 , 1 , 1 , 1 , 1 , 1 , &
2261 ierr )
2262 END IF
2263 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2264 CALL wrf_ext_read_field ( &
2265 fid , & ! DataHandle
2266 current_date(1:19) , & ! DateStr
2267 'LON_UL_D' , & ! Data Name
2268 grid%em_lon_ul_d , & ! Field
2269 WRF_FLOAT , & ! FieldType
2270 grid%communicator , & ! Comm
2271 grid%iocommunicator , & ! Comm
2272 grid%domdesc , & ! Comm
2273 grid%bdy_mask , & ! bdy_mask
2274 '0' , & ! MemoryOrder
2275 '' , & ! Stagger
2276 'inc/wrf_histin.inc ext_read_field LON_UL_D memorder 0' , & ! Debug message
2277 1 , 1 , 1 , 1 , 1 , 1 , &
2278 1 , 1 , 1 , 1 , 1 , 1 , &
2279 1 , 1 , 1 , 1 , 1 , 1 , &
2280 ierr )
2281 END IF
2282 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2283 CALL wrf_ext_read_field ( &
2284 fid , & ! DataHandle
2285 current_date(1:19) , & ! DateStr
2286 'LON_UR_D' , & ! Data Name
2287 grid%em_lon_ur_d , & ! Field
2288 WRF_FLOAT , & ! FieldType
2289 grid%communicator , & ! Comm
2290 grid%iocommunicator , & ! Comm
2291 grid%domdesc , & ! Comm
2292 grid%bdy_mask , & ! bdy_mask
2293 '0' , & ! MemoryOrder
2294 '' , & ! Stagger
2295 'inc/wrf_histin.inc ext_read_field LON_UR_D memorder 0' , & ! Debug message
2296 1 , 1 , 1 , 1 , 1 , 1 , &
2297 1 , 1 , 1 , 1 , 1 , 1 , &
2298 1 , 1 , 1 , 1 , 1 , 1 , &
2299 ierr )
2300 END IF
2301 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2302 CALL wrf_ext_read_field ( &
2303 fid , & ! DataHandle
2304 current_date(1:19) , & ! DateStr
2305 'LON_LR_D' , & ! Data Name
2306 grid%em_lon_lr_d , & ! Field
2307 WRF_FLOAT , & ! FieldType
2308 grid%communicator , & ! Comm
2309 grid%iocommunicator , & ! Comm
2310 grid%domdesc , & ! Comm
2311 grid%bdy_mask , & ! bdy_mask
2312 '0' , & ! MemoryOrder
2313 '' , & ! Stagger
2314 'inc/wrf_histin.inc ext_read_field LON_LR_D memorder 0' , & ! Debug message
2315 1 , 1 , 1 , 1 , 1 , 1 , &
2316 1 , 1 , 1 , 1 , 1 , 1 , &
2317 1 , 1 , 1 , 1 , 1 , 1 , &
2318 ierr )
2319 END IF
2320 CALL wrf_ext_read_field ( &
2321 fid , & ! DataHandle
2322 current_date(1:19) , & ! DateStr
2323 'RAINC' , & ! Data Name
2324 grid%rainc , & ! Field
2325 WRF_FLOAT , & ! FieldType
2326 grid%communicator , & ! Comm
2327 grid%iocommunicator , & ! Comm
2328 grid%domdesc , & ! Comm
2329 grid%bdy_mask , & ! bdy_mask
2330 'XY' , & ! MemoryOrder
2331 '' , & ! Stagger
2332 'inc/wrf_histin.inc ext_read_field RAINC memorder XY' , & ! Debug message
2333 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2334 ims , ime , jms , jme , 1 , 1 , &
2335 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2336 ierr )
2337 CALL wrf_ext_read_field ( &
2338 fid , & ! DataHandle
2339 current_date(1:19) , & ! DateStr
2340 'RAINNC' , & ! Data Name
2341 grid%rainnc , & ! Field
2342 WRF_FLOAT , & ! FieldType
2343 grid%communicator , & ! Comm
2344 grid%iocommunicator , & ! Comm
2345 grid%domdesc , & ! Comm
2346 grid%bdy_mask , & ! bdy_mask
2347 'XY' , & ! MemoryOrder
2348 '' , & ! Stagger
2349 'inc/wrf_histin.inc ext_read_field RAINNC memorder XY' , & ! Debug message
2350 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2351 ims , ime , jms , jme , 1 , 1 , &
2352 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2353 ierr )
2354 CALL wrf_ext_read_field ( &
2355 fid , & ! DataHandle
2356 current_date(1:19) , & ! DateStr
2357 'SNOWNC' , & ! Data Name
2358 grid%snownc , & ! Field
2359 WRF_FLOAT , & ! FieldType
2360 grid%communicator , & ! Comm
2361 grid%iocommunicator , & ! Comm
2362 grid%domdesc , & ! Comm
2363 grid%bdy_mask , & ! bdy_mask
2364 'XY' , & ! MemoryOrder
2365 '' , & ! Stagger
2366 'inc/wrf_histin.inc ext_read_field SNOWNC memorder XY' , & ! Debug message
2367 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2368 ims , ime , jms , jme , 1 , 1 , &
2369 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2370 ierr )
2371 CALL wrf_ext_read_field ( &
2372 fid , & ! DataHandle
2373 current_date(1:19) , & ! DateStr
2374 'GRAUPELNC' , & ! Data Name
2375 grid%graupelnc , & ! Field
2376 WRF_FLOAT , & ! FieldType
2377 grid%communicator , & ! Comm
2378 grid%iocommunicator , & ! Comm
2379 grid%domdesc , & ! Comm
2380 grid%bdy_mask , & ! bdy_mask
2381 'XY' , & ! MemoryOrder
2382 '' , & ! Stagger
2383 'inc/wrf_histin.inc ext_read_field GRAUPELNC memorder XY' , & ! Debug message
2384 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2385 ims , ime , jms , jme , 1 , 1 , &
2386 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2387 ierr )
2388 CALL wrf_ext_read_field ( &
2389 fid , & ! DataHandle
2390 current_date(1:19) , & ! DateStr
2391 'SWDOWN' , & ! Data Name
2392 grid%swdown , & ! Field
2393 WRF_FLOAT , & ! FieldType
2394 grid%communicator , & ! Comm
2395 grid%iocommunicator , & ! Comm
2396 grid%domdesc , & ! Comm
2397 grid%bdy_mask , & ! bdy_mask
2398 'XY' , & ! MemoryOrder
2399 '' , & ! Stagger
2400 'inc/wrf_histin.inc ext_read_field SWDOWN memorder XY' , & ! Debug message
2401 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2402 ims , ime , jms , jme , 1 , 1 , &
2403 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2404 ierr )
2405 CALL wrf_ext_read_field ( &
2406 fid , & ! DataHandle
2407 current_date(1:19) , & ! DateStr
2408 'GLW' , & ! Data Name
2409 grid%glw , & ! Field
2410 WRF_FLOAT , & ! FieldType
2411 grid%communicator , & ! Comm
2412 grid%iocommunicator , & ! Comm
2413 grid%domdesc , & ! Comm
2414 grid%bdy_mask , & ! bdy_mask
2415 'XY' , & ! MemoryOrder
2416 '' , & ! Stagger
2417 'inc/wrf_histin.inc ext_read_field GLW memorder XY' , & ! Debug message
2418 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2419 ims , ime , jms , jme , 1 , 1 , &
2420 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2421 ierr )
2422 CALL wrf_ext_read_field ( &
2423 fid , & ! DataHandle
2424 current_date(1:19) , & ! DateStr
2425 'SWCF' , & ! Data Name
2426 grid%swcf , & ! Field
2427 WRF_FLOAT , & ! FieldType
2428 grid%communicator , & ! Comm
2429 grid%iocommunicator , & ! Comm
2430 grid%domdesc , & ! Comm
2431 grid%bdy_mask , & ! bdy_mask
2432 'XY' , & ! MemoryOrder
2433 '' , & ! Stagger
2434 'inc/wrf_histin.inc ext_read_field SWCF memorder XY' , & ! Debug message
2435 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2436 ims , ime , jms , jme , 1 , 1 , &
2437 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2438 ierr )
2439 CALL wrf_ext_read_field ( &
2440 fid , & ! DataHandle
2441 current_date(1:19) , & ! DateStr
2442 'LWCF' , & ! Data Name
2443 grid%lwcf , & ! Field
2444 WRF_FLOAT , & ! FieldType
2445 grid%communicator , & ! Comm
2446 grid%iocommunicator , & ! Comm
2447 grid%domdesc , & ! Comm
2448 grid%bdy_mask , & ! bdy_mask
2449 'XY' , & ! MemoryOrder
2450 '' , & ! Stagger
2451 'inc/wrf_histin.inc ext_read_field LWCF memorder XY' , & ! Debug message
2452 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2453 ims , ime , jms , jme , 1 , 1 , &
2454 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2455 ierr )
2456 CALL wrf_ext_read_field ( &
2457 fid , & ! DataHandle
2458 current_date(1:19) , & ! DateStr
2459 'OLR' , & ! Data Name
2460 grid%olr , & ! Field
2461 WRF_FLOAT , & ! FieldType
2462 grid%communicator , & ! Comm
2463 grid%iocommunicator , & ! Comm
2464 grid%domdesc , & ! Comm
2465 grid%bdy_mask , & ! bdy_mask
2466 'XY' , & ! MemoryOrder
2467 '' , & ! Stagger
2468 'inc/wrf_histin.inc ext_read_field OLR memorder XY' , & ! Debug message
2469 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2470 ims , ime , jms , jme , 1 , 1 , &
2471 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2472 ierr )
2473 CALL wrf_ext_read_field ( &
2474 fid , & ! DataHandle
2475 current_date(1:19) , & ! DateStr
2476 'XLAT' , & ! Data Name
2477 grid%xlat , & ! Field
2478 WRF_FLOAT , & ! FieldType
2479 grid%communicator , & ! Comm
2480 grid%iocommunicator , & ! Comm
2481 grid%domdesc , & ! Comm
2482 grid%bdy_mask , & ! bdy_mask
2483 'XY' , & ! MemoryOrder
2484 '' , & ! Stagger
2485 'inc/wrf_histin.inc ext_read_field XLAT memorder XY' , & ! Debug message
2486 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2487 ims , ime , jms , jme , 1 , 1 , &
2488 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2489 ierr )
2490 CALL wrf_ext_read_field ( &
2491 fid , & ! DataHandle
2492 current_date(1:19) , & ! DateStr
2493 'XLONG' , & ! Data Name
2494 grid%xlong , & ! Field
2495 WRF_FLOAT , & ! FieldType
2496 grid%communicator , & ! Comm
2497 grid%iocommunicator , & ! Comm
2498 grid%domdesc , & ! Comm
2499 grid%bdy_mask , & ! bdy_mask
2500 'XY' , & ! MemoryOrder
2501 '' , & ! Stagger
2502 'inc/wrf_histin.inc ext_read_field XLONG memorder XY' , & ! Debug message
2503 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2504 ims , ime , jms , jme , 1 , 1 , &
2505 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2506 ierr )
2507 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2508 CALL wrf_ext_read_field ( &
2509 fid , & ! DataHandle
2510 current_date(1:19) , & ! DateStr
2511 'XLAT_U' , & ! Data Name
2512 grid%em_xlat_u , & ! Field
2513 WRF_FLOAT , & ! FieldType
2514 grid%communicator , & ! Comm
2515 grid%iocommunicator , & ! Comm
2516 grid%domdesc , & ! Comm
2517 grid%bdy_mask , & ! bdy_mask
2518 'XY' , & ! MemoryOrder
2519 'X' , & ! Stagger
2520 'inc/wrf_histin.inc ext_read_field XLAT_U memorder XY' , & ! Debug message
2521 ids , ide , jds , (jde-1) , 1 , 1 , &
2522 ims , ime , jms , jme , 1 , 1 , &
2523 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2524 ierr )
2525 END IF
2526 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2527 CALL wrf_ext_read_field ( &
2528 fid , & ! DataHandle
2529 current_date(1:19) , & ! DateStr
2530 'XLONG_U' , & ! Data Name
2531 grid%em_xlong_u , & ! Field
2532 WRF_FLOAT , & ! FieldType
2533 grid%communicator , & ! Comm
2534 grid%iocommunicator , & ! Comm
2535 grid%domdesc , & ! Comm
2536 grid%bdy_mask , & ! bdy_mask
2537 'XY' , & ! MemoryOrder
2538 'X' , & ! Stagger
2539 'inc/wrf_histin.inc ext_read_field XLONG_U memorder XY' , & ! Debug message
2540 ids , ide , jds , (jde-1) , 1 , 1 , &
2541 ims , ime , jms , jme , 1 , 1 , &
2542 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2543 ierr )
2544 END IF
2545 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2546 CALL wrf_ext_read_field ( &
2547 fid , & ! DataHandle
2548 current_date(1:19) , & ! DateStr
2549 'XLAT_V' , & ! Data Name
2550 grid%em_xlat_v , & ! Field
2551 WRF_FLOAT , & ! FieldType
2552 grid%communicator , & ! Comm
2553 grid%iocommunicator , & ! Comm
2554 grid%domdesc , & ! Comm
2555 grid%bdy_mask , & ! bdy_mask
2556 'XY' , & ! MemoryOrder
2557 'Y' , & ! Stagger
2558 'inc/wrf_histin.inc ext_read_field XLAT_V memorder XY' , & ! Debug message
2559 ids , (ide-1) , jds , jde , 1 , 1 , &
2560 ims , ime , jms , jme , 1 , 1 , &
2561 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
2562 ierr )
2563 END IF
2564 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2565 CALL wrf_ext_read_field ( &
2566 fid , & ! DataHandle
2567 current_date(1:19) , & ! DateStr
2568 'XLONG_V' , & ! Data Name
2569 grid%em_xlong_v , & ! Field
2570 WRF_FLOAT , & ! FieldType
2571 grid%communicator , & ! Comm
2572 grid%iocommunicator , & ! Comm
2573 grid%domdesc , & ! Comm
2574 grid%bdy_mask , & ! bdy_mask
2575 'XY' , & ! MemoryOrder
2576 'Y' , & ! Stagger
2577 'inc/wrf_histin.inc ext_read_field XLONG_V memorder XY' , & ! Debug message
2578 ids , (ide-1) , jds , jde , 1 , 1 , &
2579 ims , ime , jms , jme , 1 , 1 , &
2580 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
2581 ierr )
2582 END IF
2583 CALL wrf_ext_read_field ( &
2584 fid , & ! DataHandle
2585 current_date(1:19) , & ! DateStr
2586 'TMN' , & ! Data Name
2587 grid%tmn , & ! Field
2588 WRF_FLOAT , & ! FieldType
2589 grid%communicator , & ! Comm
2590 grid%iocommunicator , & ! Comm
2591 grid%domdesc , & ! Comm
2592 grid%bdy_mask , & ! bdy_mask
2593 'XY' , & ! MemoryOrder
2594 '' , & ! Stagger
2595 'inc/wrf_histin.inc ext_read_field TMN memorder XY' , & ! Debug message
2596 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2597 ims , ime , jms , jme , 1 , 1 , &
2598 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2599 ierr )
2600 CALL wrf_ext_read_field ( &
2601 fid , & ! DataHandle
2602 current_date(1:19) , & ! DateStr
2603 'XLAND' , & ! Data Name
2604 grid%xland , & ! Field
2605 WRF_FLOAT , & ! FieldType
2606 grid%communicator , & ! Comm
2607 grid%iocommunicator , & ! Comm
2608 grid%domdesc , & ! Comm
2609 grid%bdy_mask , & ! bdy_mask
2610 'XY' , & ! MemoryOrder
2611 '' , & ! Stagger
2612 'inc/wrf_histin.inc ext_read_field XLAND memorder XY' , & ! Debug message
2613 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2614 ims , ime , jms , jme , 1 , 1 , &
2615 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2616 ierr )
2617 CALL wrf_ext_read_field ( &
2618 fid , & ! DataHandle
2619 current_date(1:19) , & ! DateStr
2620 'RMOL' , & ! Data Name
2621 grid%rmol , & ! Field
2622 WRF_FLOAT , & ! FieldType
2623 grid%communicator , & ! Comm
2624 grid%iocommunicator , & ! Comm
2625 grid%domdesc , & ! Comm
2626 grid%bdy_mask , & ! bdy_mask
2627 'XY' , & ! MemoryOrder
2628 '' , & ! Stagger
2629 'inc/wrf_histin.inc ext_read_field RMOL memorder XY' , & ! Debug message
2630 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2631 ims , ime , jms , jme , 1 , 1 , &
2632 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2633 ierr )
2634 CALL wrf_ext_read_field ( &
2635 fid , & ! DataHandle
2636 current_date(1:19) , & ! DateStr
2637 'PBLH' , & ! Data Name
2638 grid%pblh , & ! Field
2639 WRF_FLOAT , & ! FieldType
2640 grid%communicator , & ! Comm
2641 grid%iocommunicator , & ! Comm
2642 grid%domdesc , & ! Comm
2643 grid%bdy_mask , & ! bdy_mask
2644 'XY' , & ! MemoryOrder
2645 '' , & ! Stagger
2646 'inc/wrf_histin.inc ext_read_field PBLH memorder XY' , & ! Debug message
2647 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2648 ims , ime , jms , jme , 1 , 1 , &
2649 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2650 ierr )
2651 CALL wrf_ext_read_field ( &
2652 fid , & ! DataHandle
2653 current_date(1:19) , & ! DateStr
2654 'HFX' , & ! Data Name
2655 grid%hfx , & ! Field
2656 WRF_FLOAT , & ! FieldType
2657 grid%communicator , & ! Comm
2658 grid%iocommunicator , & ! Comm
2659 grid%domdesc , & ! Comm
2660 grid%bdy_mask , & ! bdy_mask
2661 'XY' , & ! MemoryOrder
2662 '' , & ! Stagger
2663 'inc/wrf_histin.inc ext_read_field HFX memorder XY' , & ! Debug message
2664 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2665 ims , ime , jms , jme , 1 , 1 , &
2666 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2667 ierr )
2668 CALL wrf_ext_read_field ( &
2669 fid , & ! DataHandle
2670 current_date(1:19) , & ! DateStr
2671 'QFX' , & ! Data Name
2672 grid%qfx , & ! Field
2673 WRF_FLOAT , & ! FieldType
2674 grid%communicator , & ! Comm
2675 grid%iocommunicator , & ! Comm
2676 grid%domdesc , & ! Comm
2677 grid%bdy_mask , & ! bdy_mask
2678 'XY' , & ! MemoryOrder
2679 '' , & ! Stagger
2680 'inc/wrf_histin.inc ext_read_field QFX memorder XY' , & ! Debug message
2681 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2682 ims , ime , jms , jme , 1 , 1 , &
2683 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2684 ierr )
2685 CALL wrf_ext_read_field ( &
2686 fid , & ! DataHandle
2687 current_date(1:19) , & ! DateStr
2688 'LH' , & ! Data Name
2689 grid%lh , & ! Field
2690 WRF_FLOAT , & ! FieldType
2691 grid%communicator , & ! Comm
2692 grid%iocommunicator , & ! Comm
2693 grid%domdesc , & ! Comm
2694 grid%bdy_mask , & ! bdy_mask
2695 'XY' , & ! MemoryOrder
2696 '' , & ! Stagger
2697 'inc/wrf_histin.inc ext_read_field LH memorder XY' , & ! Debug message
2698 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2699 ims , ime , jms , jme , 1 , 1 , &
2700 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2701 ierr )
2702 CALL wrf_ext_read_field ( &
2703 fid , & ! DataHandle
2704 current_date(1:19) , & ! DateStr
2705 'SNOWC' , & ! Data Name
2706 grid%snowc , & ! Field
2707 WRF_FLOAT , & ! FieldType
2708 grid%communicator , & ! Comm
2709 grid%iocommunicator , & ! Comm
2710 grid%domdesc , & ! Comm
2711 grid%bdy_mask , & ! bdy_mask
2712 'XY' , & ! MemoryOrder
2713 '' , & ! Stagger
2714 'inc/wrf_histin.inc ext_read_field SNOWC memorder XY' , & ! Debug message
2715 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2716 ims , ime , jms , jme , 1 , 1 , &
2717 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2718 ierr )
2719 !ENDOFREGISTRYGENERATEDINCLUDE