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 CALL wrf_ext_read_field ( &
289 fid , & ! DataHandle
290 current_date(1:19) , & ! DateStr
291 'T' , & ! Data Name
292 grid%em_t_2 , & ! Field
293 WRF_FLOAT , & ! FieldType
294 grid%communicator , & ! Comm
295 grid%iocommunicator , & ! Comm
296 grid%domdesc , & ! Comm
297 grid%bdy_mask , & ! bdy_mask
298 'XYZ' , & ! MemoryOrder
299 '' , & ! Stagger
300 'inc/wrf_histin.inc ext_read_field T memorder XYZ' , & ! Debug message
301 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
302 ims , ime , jms , jme , kms , kme , &
303 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
304 ierr )
305 END IF
306 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
307 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
308 CALL wrf_ext_read_field ( &
309 fid , & ! DataHandle
310 current_date(1:19) , & ! DateStr
311 'A_T' , & ! Data Name
312 grid%em_a_t_2 , & ! Field
313 WRF_FLOAT , & ! FieldType
314 grid%communicator , & ! Comm
315 grid%iocommunicator , & ! Comm
316 grid%domdesc , & ! Comm
317 grid%bdy_mask , & ! bdy_mask
318 'XYZ' , & ! MemoryOrder
319 '' , & ! Stagger
320 'inc/wrf_histin.inc ext_read_field A_T memorder XYZ' , & ! Debug message
321 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
322 ims , ime , jms , jme , kms , kme , &
323 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
324 ierr )
325 END IF
326 END IF
327 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
328 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
329 CALL wrf_ext_read_field ( &
330 fid , & ! DataHandle
331 current_date(1:19) , & ! DateStr
332 'G_T' , & ! Data Name
333 grid%em_g_t_2 , & ! Field
334 WRF_FLOAT , & ! FieldType
335 grid%communicator , & ! Comm
336 grid%iocommunicator , & ! Comm
337 grid%domdesc , & ! Comm
338 grid%bdy_mask , & ! bdy_mask
339 'XYZ' , & ! MemoryOrder
340 '' , & ! Stagger
341 'inc/wrf_histin.inc ext_read_field G_T memorder XYZ' , & ! Debug message
342 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
343 ims , ime , jms , jme , kms , kme , &
344 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
345 ierr )
346 END IF
347 END IF
348 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
349 CALL wrf_ext_read_field ( &
350 fid , & ! DataHandle
351 current_date(1:19) , & ! DateStr
352 'MU' , & ! Data Name
353 grid%em_mu_2 , & ! Field
354 WRF_FLOAT , & ! FieldType
355 grid%communicator , & ! Comm
356 grid%iocommunicator , & ! Comm
357 grid%domdesc , & ! Comm
358 grid%bdy_mask , & ! bdy_mask
359 'XY' , & ! MemoryOrder
360 '' , & ! Stagger
361 'inc/wrf_histin.inc ext_read_field MU memorder XY' , & ! Debug message
362 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
363 ims , ime , jms , jme , 1 , 1 , &
364 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
365 ierr )
366 END IF
367 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
368 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
369 CALL wrf_ext_read_field ( &
370 fid , & ! DataHandle
371 current_date(1:19) , & ! DateStr
372 'A_MU' , & ! Data Name
373 grid%em_a_mu_2 , & ! Field
374 WRF_FLOAT , & ! FieldType
375 grid%communicator , & ! Comm
376 grid%iocommunicator , & ! Comm
377 grid%domdesc , & ! Comm
378 grid%bdy_mask , & ! bdy_mask
379 'XY' , & ! MemoryOrder
380 '' , & ! Stagger
381 'inc/wrf_histin.inc ext_read_field A_MU memorder XY' , & ! Debug message
382 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
383 ims , ime , jms , jme , 1 , 1 , &
384 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
385 ierr )
386 END IF
387 END IF
388 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
389 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
390 CALL wrf_ext_read_field ( &
391 fid , & ! DataHandle
392 current_date(1:19) , & ! DateStr
393 'G_MU' , & ! Data Name
394 grid%em_g_mu_2 , & ! Field
395 WRF_FLOAT , & ! FieldType
396 grid%communicator , & ! Comm
397 grid%iocommunicator , & ! Comm
398 grid%domdesc , & ! Comm
399 grid%bdy_mask , & ! bdy_mask
400 'XY' , & ! MemoryOrder
401 '' , & ! Stagger
402 'inc/wrf_histin.inc ext_read_field G_MU memorder XY' , & ! Debug message
403 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
404 ims , ime , jms , jme , 1 , 1 , &
405 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
406 ierr )
407 END IF
408 END IF
409 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
410 CALL wrf_ext_read_field ( &
411 fid , & ! DataHandle
412 current_date(1:19) , & ! DateStr
413 'MUB' , & ! Data Name
414 grid%em_mub , & ! Field
415 WRF_FLOAT , & ! FieldType
416 grid%communicator , & ! Comm
417 grid%iocommunicator , & ! Comm
418 grid%domdesc , & ! Comm
419 grid%bdy_mask , & ! bdy_mask
420 'XY' , & ! MemoryOrder
421 '' , & ! Stagger
422 'inc/wrf_histin.inc ext_read_field MUB memorder XY' , & ! Debug message
423 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
424 ims , ime , jms , jme , 1 , 1 , &
425 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
426 ierr )
427 END IF
428 CALL wrf_ext_read_field ( &
429 fid , & ! DataHandle
430 current_date(1:19) , & ! DateStr
431 'NEST_POS' , & ! Data Name
432 grid%nest_pos , & ! Field
433 WRF_FLOAT , & ! FieldType
434 grid%communicator , & ! Comm
435 grid%iocommunicator , & ! Comm
436 grid%domdesc , & ! Comm
437 grid%bdy_mask , & ! bdy_mask
438 'XY' , & ! MemoryOrder
439 '' , & ! Stagger
440 'inc/wrf_histin.inc ext_read_field NEST_POS memorder XY' , & ! Debug message
441 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
442 ims , ime , jms , jme , 1 , 1 , &
443 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
444 ierr )
445 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
446 CALL wrf_ext_read_field ( &
447 fid , & ! DataHandle
448 current_date(1:19) , & ! DateStr
449 'P' , & ! Data Name
450 grid%em_p , & ! Field
451 WRF_FLOAT , & ! FieldType
452 grid%communicator , & ! Comm
453 grid%iocommunicator , & ! Comm
454 grid%domdesc , & ! Comm
455 grid%bdy_mask , & ! bdy_mask
456 'XYZ' , & ! MemoryOrder
457 '' , & ! Stagger
458 'inc/wrf_histin.inc ext_read_field P memorder XYZ' , & ! Debug message
459 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
460 ims , ime , jms , jme , kms , kme , &
461 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
462 ierr )
463 END IF
464 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
465 CALL wrf_ext_read_field ( &
466 fid , & ! DataHandle
467 current_date(1:19) , & ! DateStr
468 'SR' , & ! Data Name
469 grid%em_sr , & ! Field
470 WRF_FLOAT , & ! FieldType
471 grid%communicator , & ! Comm
472 grid%iocommunicator , & ! Comm
473 grid%domdesc , & ! Comm
474 grid%bdy_mask , & ! bdy_mask
475 'XY' , & ! MemoryOrder
476 '' , & ! Stagger
477 'inc/wrf_histin.inc ext_read_field SR memorder XY' , & ! Debug message
478 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
479 ims , ime , jms , jme , 1 , 1 , &
480 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
481 ierr )
482 END IF
483 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
484 CALL wrf_ext_read_field ( &
485 fid , & ! DataHandle
486 current_date(1:19) , & ! DateStr
487 'FNM' , & ! Data Name
488 grid%em_fnm , & ! Field
489 WRF_FLOAT , & ! FieldType
490 grid%communicator , & ! Comm
491 grid%iocommunicator , & ! Comm
492 grid%domdesc , & ! Comm
493 grid%bdy_mask , & ! bdy_mask
494 'Z' , & ! MemoryOrder
495 '' , & ! Stagger
496 'inc/wrf_histin.inc ext_read_field FNM memorder Z' , & ! Debug message
497 kds , (kde-1) , 1 , 1 , 1 , 1 , &
498 kms , kme , 1 , 1 , 1 , 1 , &
499 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
500 ierr )
501 END IF
502 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
503 CALL wrf_ext_read_field ( &
504 fid , & ! DataHandle
505 current_date(1:19) , & ! DateStr
506 'FNP' , & ! Data Name
507 grid%em_fnp , & ! Field
508 WRF_FLOAT , & ! FieldType
509 grid%communicator , & ! Comm
510 grid%iocommunicator , & ! Comm
511 grid%domdesc , & ! Comm
512 grid%bdy_mask , & ! bdy_mask
513 'Z' , & ! MemoryOrder
514 '' , & ! Stagger
515 'inc/wrf_histin.inc ext_read_field FNP memorder Z' , & ! Debug message
516 kds , (kde-1) , 1 , 1 , 1 , 1 , &
517 kms , kme , 1 , 1 , 1 , 1 , &
518 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
519 ierr )
520 END IF
521 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
522 CALL wrf_ext_read_field ( &
523 fid , & ! DataHandle
524 current_date(1:19) , & ! DateStr
525 'RDNW' , & ! Data Name
526 grid%em_rdnw , & ! Field
527 WRF_FLOAT , & ! FieldType
528 grid%communicator , & ! Comm
529 grid%iocommunicator , & ! Comm
530 grid%domdesc , & ! Comm
531 grid%bdy_mask , & ! bdy_mask
532 'Z' , & ! MemoryOrder
533 '' , & ! Stagger
534 'inc/wrf_histin.inc ext_read_field RDNW memorder Z' , & ! Debug message
535 kds , (kde-1) , 1 , 1 , 1 , 1 , &
536 kms , kme , 1 , 1 , 1 , 1 , &
537 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
538 ierr )
539 END IF
540 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
541 CALL wrf_ext_read_field ( &
542 fid , & ! DataHandle
543 current_date(1:19) , & ! DateStr
544 'RDN' , & ! Data Name
545 grid%em_rdn , & ! Field
546 WRF_FLOAT , & ! FieldType
547 grid%communicator , & ! Comm
548 grid%iocommunicator , & ! Comm
549 grid%domdesc , & ! Comm
550 grid%bdy_mask , & ! bdy_mask
551 'Z' , & ! MemoryOrder
552 '' , & ! Stagger
553 'inc/wrf_histin.inc ext_read_field RDN memorder Z' , & ! Debug message
554 kds , (kde-1) , 1 , 1 , 1 , 1 , &
555 kms , kme , 1 , 1 , 1 , 1 , &
556 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
557 ierr )
558 END IF
559 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
560 CALL wrf_ext_read_field ( &
561 fid , & ! DataHandle
562 current_date(1:19) , & ! DateStr
563 'DNW' , & ! Data Name
564 grid%em_dnw , & ! Field
565 WRF_FLOAT , & ! FieldType
566 grid%communicator , & ! Comm
567 grid%iocommunicator , & ! Comm
568 grid%domdesc , & ! Comm
569 grid%bdy_mask , & ! bdy_mask
570 'Z' , & ! MemoryOrder
571 '' , & ! Stagger
572 'inc/wrf_histin.inc ext_read_field DNW memorder Z' , & ! Debug message
573 kds , (kde-1) , 1 , 1 , 1 , 1 , &
574 kms , kme , 1 , 1 , 1 , 1 , &
575 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
576 ierr )
577 END IF
578 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
579 CALL wrf_ext_read_field ( &
580 fid , & ! DataHandle
581 current_date(1:19) , & ! DateStr
582 'DN ' , & ! Data Name
583 grid%em_dn , & ! Field
584 WRF_FLOAT , & ! FieldType
585 grid%communicator , & ! Comm
586 grid%iocommunicator , & ! Comm
587 grid%domdesc , & ! Comm
588 grid%bdy_mask , & ! bdy_mask
589 'Z' , & ! MemoryOrder
590 '' , & ! Stagger
591 'inc/wrf_histin.inc ext_read_field DN memorder Z' , & ! Debug message
592 kds , (kde-1) , 1 , 1 , 1 , 1 , &
593 kms , kme , 1 , 1 , 1 , 1 , &
594 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
595 ierr )
596 END IF
597 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
598 CALL wrf_ext_read_field ( &
599 fid , & ! DataHandle
600 current_date(1:19) , & ! DateStr
601 'ZNU' , & ! Data Name
602 grid%em_znu , & ! Field
603 WRF_FLOAT , & ! FieldType
604 grid%communicator , & ! Comm
605 grid%iocommunicator , & ! Comm
606 grid%domdesc , & ! Comm
607 grid%bdy_mask , & ! bdy_mask
608 'Z' , & ! MemoryOrder
609 '' , & ! Stagger
610 'inc/wrf_histin.inc ext_read_field ZNU memorder Z' , & ! Debug message
611 kds , (kde-1) , 1 , 1 , 1 , 1 , &
612 kms , kme , 1 , 1 , 1 , 1 , &
613 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
614 ierr )
615 END IF
616 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
617 CALL wrf_ext_read_field ( &
618 fid , & ! DataHandle
619 current_date(1:19) , & ! DateStr
620 'ZNW' , & ! Data Name
621 grid%em_znw , & ! Field
622 WRF_FLOAT , & ! FieldType
623 grid%communicator , & ! Comm
624 grid%iocommunicator , & ! Comm
625 grid%domdesc , & ! Comm
626 grid%bdy_mask , & ! bdy_mask
627 'Z' , & ! MemoryOrder
628 'Z' , & ! Stagger
629 'inc/wrf_histin.inc ext_read_field ZNW memorder Z' , & ! Debug message
630 kds , kde , 1 , 1 , 1 , 1 , &
631 kms , kme , 1 , 1 , 1 , 1 , &
632 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
633 ierr )
634 END IF
635 CALL wrf_ext_read_field ( &
636 fid , & ! DataHandle
637 current_date(1:19) , & ! DateStr
638 'CFN' , & ! Data Name
639 grid%cfn , & ! Field
640 WRF_FLOAT , & ! FieldType
641 grid%communicator , & ! Comm
642 grid%iocommunicator , & ! Comm
643 grid%domdesc , & ! Comm
644 grid%bdy_mask , & ! bdy_mask
645 '0' , & ! MemoryOrder
646 '' , & ! Stagger
647 'inc/wrf_histin.inc ext_read_field CFN memorder 0' , & ! Debug message
648 1 , 1 , 1 , 1 , 1 , 1 , &
649 1 , 1 , 1 , 1 , 1 , 1 , &
650 1 , 1 , 1 , 1 , 1 , 1 , &
651 ierr )
652 CALL wrf_ext_read_field ( &
653 fid , & ! DataHandle
654 current_date(1:19) , & ! DateStr
655 'CFN1' , & ! Data Name
656 grid%cfn1 , & ! Field
657 WRF_FLOAT , & ! FieldType
658 grid%communicator , & ! Comm
659 grid%iocommunicator , & ! Comm
660 grid%domdesc , & ! Comm
661 grid%bdy_mask , & ! bdy_mask
662 '0' , & ! MemoryOrder
663 '' , & ! Stagger
664 'inc/wrf_histin.inc ext_read_field CFN1 memorder 0' , & ! Debug message
665 1 , 1 , 1 , 1 , 1 , 1 , &
666 1 , 1 , 1 , 1 , 1 , 1 , &
667 1 , 1 , 1 , 1 , 1 , 1 , &
668 ierr )
669 CALL wrf_ext_read_field ( &
670 fid , & ! DataHandle
671 current_date(1:19) , & ! DateStr
672 'A' , & ! Data Name
673 grid%kma_a , & ! Field
674 WRF_FLOAT , & ! FieldType
675 grid%communicator , & ! Comm
676 grid%iocommunicator , & ! Comm
677 grid%domdesc , & ! Comm
678 grid%bdy_mask , & ! bdy_mask
679 'Z' , & ! MemoryOrder
680 'Z' , & ! Stagger
681 'inc/wrf_histin.inc ext_read_field A memorder Z' , & ! Debug message
682 kds , kde , 1 , 1 , 1 , 1 , &
683 kms , kme , 1 , 1 , 1 , 1 , &
684 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
685 ierr )
686 CALL wrf_ext_read_field ( &
687 fid , & ! DataHandle
688 current_date(1:19) , & ! DateStr
689 'B' , & ! Data Name
690 grid%kma_b , & ! 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 'Z' , & ! Stagger
698 'inc/wrf_histin.inc ext_read_field B memorder Z' , & ! Debug message
699 kds , kde , 1 , 1 , 1 , 1 , &
700 kms , kme , 1 , 1 , 1 , 1 , &
701 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
702 ierr )
703 CALL wrf_ext_read_field ( &
704 fid , & ! DataHandle
705 current_date(1:19) , & ! DateStr
706 'Q2' , & ! Data Name
707 grid%q2 , & ! Field
708 WRF_FLOAT , & ! FieldType
709 grid%communicator , & ! Comm
710 grid%iocommunicator , & ! Comm
711 grid%domdesc , & ! Comm
712 grid%bdy_mask , & ! bdy_mask
713 'XY' , & ! MemoryOrder
714 '' , & ! Stagger
715 'inc/wrf_histin.inc ext_read_field Q2 memorder XY' , & ! Debug message
716 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
717 ims , ime , jms , jme , 1 , 1 , &
718 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
719 ierr )
720 CALL wrf_ext_read_field ( &
721 fid , & ! DataHandle
722 current_date(1:19) , & ! DateStr
723 'T2' , & ! Data Name
724 grid%t2 , & ! Field
725 WRF_FLOAT , & ! FieldType
726 grid%communicator , & ! Comm
727 grid%iocommunicator , & ! Comm
728 grid%domdesc , & ! Comm
729 grid%bdy_mask , & ! bdy_mask
730 'XY' , & ! MemoryOrder
731 '' , & ! Stagger
732 'inc/wrf_histin.inc ext_read_field T2 memorder XY' , & ! Debug message
733 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
734 ims , ime , jms , jme , 1 , 1 , &
735 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
736 ierr )
737 CALL wrf_ext_read_field ( &
738 fid , & ! DataHandle
739 current_date(1:19) , & ! DateStr
740 'TH2' , & ! Data Name
741 grid%th2 , & ! Field
742 WRF_FLOAT , & ! FieldType
743 grid%communicator , & ! Comm
744 grid%iocommunicator , & ! Comm
745 grid%domdesc , & ! Comm
746 grid%bdy_mask , & ! bdy_mask
747 'XY' , & ! MemoryOrder
748 '' , & ! Stagger
749 'inc/wrf_histin.inc ext_read_field TH2 memorder XY' , & ! Debug message
750 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
751 ims , ime , jms , jme , 1 , 1 , &
752 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
753 ierr )
754 CALL wrf_ext_read_field ( &
755 fid , & ! DataHandle
756 current_date(1:19) , & ! DateStr
757 'PSFC' , & ! Data Name
758 grid%psfc , & ! Field
759 WRF_FLOAT , & ! FieldType
760 grid%communicator , & ! Comm
761 grid%iocommunicator , & ! Comm
762 grid%domdesc , & ! Comm
763 grid%bdy_mask , & ! bdy_mask
764 'XY' , & ! MemoryOrder
765 '' , & ! Stagger
766 'inc/wrf_histin.inc ext_read_field PSFC memorder XY' , & ! Debug message
767 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
768 ims , ime , jms , jme , 1 , 1 , &
769 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
770 ierr )
771 CALL wrf_ext_read_field ( &
772 fid , & ! DataHandle
773 current_date(1:19) , & ! DateStr
774 'U10' , & ! Data Name
775 grid%u10 , & ! Field
776 WRF_FLOAT , & ! FieldType
777 grid%communicator , & ! Comm
778 grid%iocommunicator , & ! Comm
779 grid%domdesc , & ! Comm
780 grid%bdy_mask , & ! bdy_mask
781 'XY' , & ! MemoryOrder
782 '' , & ! Stagger
783 'inc/wrf_histin.inc ext_read_field U10 memorder XY' , & ! Debug message
784 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
785 ims , ime , jms , jme , 1 , 1 , &
786 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
787 ierr )
788 CALL wrf_ext_read_field ( &
789 fid , & ! DataHandle
790 current_date(1:19) , & ! DateStr
791 'V10' , & ! Data Name
792 grid%v10 , & ! Field
793 WRF_FLOAT , & ! FieldType
794 grid%communicator , & ! Comm
795 grid%iocommunicator , & ! Comm
796 grid%domdesc , & ! Comm
797 grid%bdy_mask , & ! bdy_mask
798 'XY' , & ! MemoryOrder
799 '' , & ! Stagger
800 'inc/wrf_histin.inc ext_read_field V10 memorder XY' , & ! Debug message
801 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
802 ims , ime , jms , jme , 1 , 1 , &
803 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
804 ierr )
805 CALL wrf_ext_read_field ( &
806 fid , & ! DataHandle
807 current_date(1:19) , & ! DateStr
808 'RDX' , & ! Data Name
809 grid%rdx , & ! Field
810 WRF_FLOAT , & ! FieldType
811 grid%communicator , & ! Comm
812 grid%iocommunicator , & ! Comm
813 grid%domdesc , & ! Comm
814 grid%bdy_mask , & ! bdy_mask
815 '0' , & ! MemoryOrder
816 '' , & ! Stagger
817 'inc/wrf_histin.inc ext_read_field RDX memorder 0' , & ! Debug message
818 1 , 1 , 1 , 1 , 1 , 1 , &
819 1 , 1 , 1 , 1 , 1 , 1 , &
820 1 , 1 , 1 , 1 , 1 , 1 , &
821 ierr )
822 CALL wrf_ext_read_field ( &
823 fid , & ! DataHandle
824 current_date(1:19) , & ! DateStr
825 'RDY' , & ! Data Name
826 grid%rdy , & ! Field
827 WRF_FLOAT , & ! FieldType
828 grid%communicator , & ! Comm
829 grid%iocommunicator , & ! Comm
830 grid%domdesc , & ! Comm
831 grid%bdy_mask , & ! bdy_mask
832 '0' , & ! MemoryOrder
833 '' , & ! Stagger
834 'inc/wrf_histin.inc ext_read_field RDY memorder 0' , & ! Debug message
835 1 , 1 , 1 , 1 , 1 , 1 , &
836 1 , 1 , 1 , 1 , 1 , 1 , &
837 1 , 1 , 1 , 1 , 1 , 1 , &
838 ierr )
839 CALL wrf_ext_read_field ( &
840 fid , & ! DataHandle
841 current_date(1:19) , & ! DateStr
842 'RESM' , & ! Data Name
843 grid%resm , & ! Field
844 WRF_FLOAT , & ! FieldType
845 grid%communicator , & ! Comm
846 grid%iocommunicator , & ! Comm
847 grid%domdesc , & ! Comm
848 grid%bdy_mask , & ! bdy_mask
849 '0' , & ! MemoryOrder
850 '' , & ! Stagger
851 'inc/wrf_histin.inc ext_read_field RESM memorder 0' , & ! Debug message
852 1 , 1 , 1 , 1 , 1 , 1 , &
853 1 , 1 , 1 , 1 , 1 , 1 , &
854 1 , 1 , 1 , 1 , 1 , 1 , &
855 ierr )
856 CALL wrf_ext_read_field ( &
857 fid , & ! DataHandle
858 current_date(1:19) , & ! DateStr
859 'ZETATOP' , & ! Data Name
860 grid%zetatop , & ! Field
861 WRF_FLOAT , & ! FieldType
862 grid%communicator , & ! Comm
863 grid%iocommunicator , & ! Comm
864 grid%domdesc , & ! Comm
865 grid%bdy_mask , & ! bdy_mask
866 '0' , & ! MemoryOrder
867 '' , & ! Stagger
868 'inc/wrf_histin.inc ext_read_field ZETATOP memorder 0' , & ! Debug message
869 1 , 1 , 1 , 1 , 1 , 1 , &
870 1 , 1 , 1 , 1 , 1 , 1 , &
871 1 , 1 , 1 , 1 , 1 , 1 , &
872 ierr )
873 CALL wrf_ext_read_field ( &
874 fid , & ! DataHandle
875 current_date(1:19) , & ! DateStr
876 'CF1' , & ! Data Name
877 grid%cf1 , & ! Field
878 WRF_FLOAT , & ! FieldType
879 grid%communicator , & ! Comm
880 grid%iocommunicator , & ! Comm
881 grid%domdesc , & ! Comm
882 grid%bdy_mask , & ! bdy_mask
883 '0' , & ! MemoryOrder
884 '' , & ! Stagger
885 'inc/wrf_histin.inc ext_read_field CF1 memorder 0' , & ! Debug message
886 1 , 1 , 1 , 1 , 1 , 1 , &
887 1 , 1 , 1 , 1 , 1 , 1 , &
888 1 , 1 , 1 , 1 , 1 , 1 , &
889 ierr )
890 CALL wrf_ext_read_field ( &
891 fid , & ! DataHandle
892 current_date(1:19) , & ! DateStr
893 'CF2' , & ! Data Name
894 grid%cf2 , & ! Field
895 WRF_FLOAT , & ! FieldType
896 grid%communicator , & ! Comm
897 grid%iocommunicator , & ! Comm
898 grid%domdesc , & ! Comm
899 grid%bdy_mask , & ! bdy_mask
900 '0' , & ! MemoryOrder
901 '' , & ! Stagger
902 'inc/wrf_histin.inc ext_read_field CF2 memorder 0' , & ! Debug message
903 1 , 1 , 1 , 1 , 1 , 1 , &
904 1 , 1 , 1 , 1 , 1 , 1 , &
905 1 , 1 , 1 , 1 , 1 , 1 , &
906 ierr )
907 CALL wrf_ext_read_field ( &
908 fid , & ! DataHandle
909 current_date(1:19) , & ! DateStr
910 'CF3' , & ! Data Name
911 grid%cf3 , & ! Field
912 WRF_FLOAT , & ! FieldType
913 grid%communicator , & ! Comm
914 grid%iocommunicator , & ! Comm
915 grid%domdesc , & ! Comm
916 grid%bdy_mask , & ! bdy_mask
917 '0' , & ! MemoryOrder
918 '' , & ! Stagger
919 'inc/wrf_histin.inc ext_read_field CF3 memorder 0' , & ! Debug message
920 1 , 1 , 1 , 1 , 1 , 1 , &
921 1 , 1 , 1 , 1 , 1 , 1 , &
922 1 , 1 , 1 , 1 , 1 , 1 , &
923 ierr )
924 CALL wrf_ext_read_field ( &
925 fid , & ! DataHandle
926 current_date(1:19) , & ! DateStr
927 'ITIMESTEP' , & ! Data Name
928 grid%itimestep , & ! Field
929 WRF_integer , & ! FieldType
930 grid%communicator , & ! Comm
931 grid%iocommunicator , & ! Comm
932 grid%domdesc , & ! Comm
933 grid%bdy_mask , & ! bdy_mask
934 '0' , & ! MemoryOrder
935 '' , & ! Stagger
936 'inc/wrf_histin.inc ext_read_field ITIMESTEP memorder 0' , & ! Debug message
937 1 , 1 , 1 , 1 , 1 , 1 , &
938 1 , 1 , 1 , 1 , 1 , 1 , &
939 1 , 1 , 1 , 1 , 1 , 1 , &
940 ierr )
941 CALL wrf_ext_read_field ( &
942 fid , & ! DataHandle
943 current_date(1:19) , & ! DateStr
944 'XTIME' , & ! Data Name
945 grid%xtime , & ! Field
946 WRF_FLOAT , & ! FieldType
947 grid%communicator , & ! Comm
948 grid%iocommunicator , & ! Comm
949 grid%domdesc , & ! Comm
950 grid%bdy_mask , & ! bdy_mask
951 '0' , & ! MemoryOrder
952 '' , & ! Stagger
953 'inc/wrf_histin.inc ext_read_field XTIME memorder 0' , & ! Debug message
954 1 , 1 , 1 , 1 , 1 , 1 , &
955 1 , 1 , 1 , 1 , 1 , 1 , &
956 1 , 1 , 1 , 1 , 1 , 1 , &
957 ierr )
958 DO itrace = PARAM_FIRST_SCALAR , num_moist
959 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
960 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
961 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
962 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
963 CALL wrf_ext_read_field ( &
964 fid , & ! DataHandle
965 current_date(1:19) , & ! DateStr
966 TRIM(moist_dname_table( grid%id, itrace )), & !data name
967 grid%moist(ims,jms,kms,itrace) , & ! Field
968 WRF_FLOAT , & ! FieldType
969 grid%communicator , & ! Comm
970 grid%iocommunicator , & ! Comm
971 grid%domdesc , & ! Comm
972 grid%bdy_mask , & ! bdy_mask
973 'XYZ' , & ! MemoryOrder
974 '' , & ! Stagger
975 'inc/wrf_histin.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
976 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
977 ims , ime , jms , jme , kms , kme , &
978 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
979 ierr )
980 ENDIF
981 ENDIF
982 ENDDO
983 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
984 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
985 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
986 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
987 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
988 CALL wrf_ext_read_field ( &
989 fid , & ! DataHandle
990 current_date(1:19) , & ! DateStr
991 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
992 grid%a_moist(ims,jms,kms,itrace) , & ! Field
993 WRF_FLOAT , & ! FieldType
994 grid%communicator , & ! Comm
995 grid%iocommunicator , & ! Comm
996 grid%domdesc , & ! Comm
997 grid%bdy_mask , & ! bdy_mask
998 'XYZ' , & ! MemoryOrder
999 '' , & ! Stagger
1000 'inc/wrf_histin.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1001 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1002 ims , ime , jms , jme , kms , kme , &
1003 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1004 ierr )
1005 ENDIF
1006 ENDIF
1007 ENDDO
1008 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
1009 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
1010 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1011 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
1012 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1013 CALL wrf_ext_read_field ( &
1014 fid , & ! DataHandle
1015 current_date(1:19) , & ! DateStr
1016 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
1017 grid%g_moist(ims,jms,kms,itrace) , & ! Field
1018 WRF_FLOAT , & ! FieldType
1019 grid%communicator , & ! Comm
1020 grid%iocommunicator , & ! Comm
1021 grid%domdesc , & ! Comm
1022 grid%bdy_mask , & ! bdy_mask
1023 'XYZ' , & ! MemoryOrder
1024 '' , & ! Stagger
1025 'inc/wrf_histin.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1026 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1027 ims , ime , jms , jme , kms , kme , &
1028 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1029 ierr )
1030 ENDIF
1031 ENDIF
1032 ENDDO
1033 DO itrace = PARAM_FIRST_SCALAR , num_scalar
1034 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
1035 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1036 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
1037 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1038 CALL wrf_ext_read_field ( &
1039 fid , & ! DataHandle
1040 current_date(1:19) , & ! DateStr
1041 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
1042 grid%scalar(ims,jms,kms,itrace) , & ! Field
1043 WRF_FLOAT , & ! FieldType
1044 grid%communicator , & ! Comm
1045 grid%iocommunicator , & ! Comm
1046 grid%domdesc , & ! Comm
1047 grid%bdy_mask , & ! bdy_mask
1048 'XYZ' , & ! MemoryOrder
1049 '' , & ! Stagger
1050 'inc/wrf_histin.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1051 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1052 ims , ime , jms , jme , kms , kme , &
1053 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1054 ierr )
1055 ENDIF
1056 ENDIF
1057 ENDDO
1058 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
1059 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
1060 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1061 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
1062 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1063 CALL wrf_ext_read_field ( &
1064 fid , & ! DataHandle
1065 current_date(1:19) , & ! DateStr
1066 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
1067 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
1068 WRF_FLOAT , & ! FieldType
1069 grid%communicator , & ! Comm
1070 grid%iocommunicator , & ! Comm
1071 grid%domdesc , & ! Comm
1072 grid%bdy_mask , & ! bdy_mask
1073 'XYZ' , & ! MemoryOrder
1074 '' , & ! Stagger
1075 'inc/wrf_histin.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1076 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1077 ims , ime , jms , jme , kms , kme , &
1078 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1079 ierr )
1080 ENDIF
1081 ENDIF
1082 ENDDO
1083 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
1084 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
1085 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1086 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
1087 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1088 CALL wrf_ext_read_field ( &
1089 fid , & ! DataHandle
1090 current_date(1:19) , & ! DateStr
1091 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
1092 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
1093 WRF_FLOAT , & ! FieldType
1094 grid%communicator , & ! Comm
1095 grid%iocommunicator , & ! Comm
1096 grid%domdesc , & ! Comm
1097 grid%bdy_mask , & ! bdy_mask
1098 'XYZ' , & ! MemoryOrder
1099 '' , & ! Stagger
1100 'inc/wrf_histin.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1101 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1102 ims , ime , jms , jme , kms , kme , &
1103 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1104 ierr )
1105 ENDIF
1106 ENDIF
1107 ENDDO
1108 CALL wrf_ext_read_field ( &
1109 fid , & ! DataHandle
1110 current_date(1:19) , & ! DateStr
1111 'LANDMASK' , & ! Data Name
1112 grid%landmask , & ! Field
1113 WRF_FLOAT , & ! FieldType
1114 grid%communicator , & ! Comm
1115 grid%iocommunicator , & ! Comm
1116 grid%domdesc , & ! Comm
1117 grid%bdy_mask , & ! bdy_mask
1118 'XY' , & ! MemoryOrder
1119 '' , & ! Stagger
1120 'inc/wrf_histin.inc ext_read_field LANDMASK memorder XY' , & ! Debug message
1121 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1122 ims , ime , jms , jme , 1 , 1 , &
1123 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1124 ierr )
1125 CALL wrf_ext_read_field ( &
1126 fid , & ! DataHandle
1127 current_date(1:19) , & ! DateStr
1128 'TSLB' , & ! Data Name
1129 grid%tslb , & ! Field
1130 WRF_FLOAT , & ! FieldType
1131 grid%communicator , & ! Comm
1132 grid%iocommunicator , & ! Comm
1133 grid%domdesc , & ! Comm
1134 grid%bdy_mask , & ! bdy_mask
1135 'XYZ' , & ! MemoryOrder
1136 'Z' , & ! Stagger
1137 'inc/wrf_histin.inc ext_read_field TSLB memorder XYZ' , & ! Debug message
1138 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
1139 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
1140 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
1141 ierr )
1142 CALL wrf_ext_read_field ( &
1143 fid , & ! DataHandle
1144 current_date(1:19) , & ! DateStr
1145 'ZS' , & ! Data Name
1146 grid%zs , & ! Field
1147 WRF_FLOAT , & ! FieldType
1148 grid%communicator , & ! Comm
1149 grid%iocommunicator , & ! Comm
1150 grid%domdesc , & ! Comm
1151 grid%bdy_mask , & ! bdy_mask
1152 'Z' , & ! MemoryOrder
1153 'Z' , & ! Stagger
1154 'inc/wrf_histin.inc ext_read_field ZS memorder Z' , & ! Debug message
1155 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1156 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1157 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1158 ierr )
1159 CALL wrf_ext_read_field ( &
1160 fid , & ! DataHandle
1161 current_date(1:19) , & ! DateStr
1162 'DZS' , & ! Data Name
1163 grid%dzs , & ! Field
1164 WRF_FLOAT , & ! FieldType
1165 grid%communicator , & ! Comm
1166 grid%iocommunicator , & ! Comm
1167 grid%domdesc , & ! Comm
1168 grid%bdy_mask , & ! bdy_mask
1169 'Z' , & ! MemoryOrder
1170 'Z' , & ! Stagger
1171 'inc/wrf_histin.inc ext_read_field DZS memorder Z' , & ! Debug message
1172 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1173 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1174 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
1175 ierr )
1176 CALL wrf_ext_read_field ( &
1177 fid , & ! DataHandle
1178 current_date(1:19) , & ! DateStr
1179 'SMOIS' , & ! Data Name
1180 grid%smois , & ! Field
1181 WRF_FLOAT , & ! FieldType
1182 grid%communicator , & ! Comm
1183 grid%iocommunicator , & ! Comm
1184 grid%domdesc , & ! Comm
1185 grid%bdy_mask , & ! bdy_mask
1186 'XYZ' , & ! MemoryOrder
1187 'Z' , & ! Stagger
1188 'inc/wrf_histin.inc ext_read_field SMOIS memorder XYZ' , & ! Debug message
1189 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
1190 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
1191 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
1192 ierr )
1193 CALL wrf_ext_read_field ( &
1194 fid , & ! DataHandle
1195 current_date(1:19) , & ! DateStr
1196 'SH2O' , & ! Data Name
1197 grid%sh2o , & ! Field
1198 WRF_FLOAT , & ! FieldType
1199 grid%communicator , & ! Comm
1200 grid%iocommunicator , & ! Comm
1201 grid%domdesc , & ! Comm
1202 grid%bdy_mask , & ! bdy_mask
1203 'XYZ' , & ! MemoryOrder
1204 'Z' , & ! Stagger
1205 'inc/wrf_histin.inc ext_read_field SH2O memorder XYZ' , & ! Debug message
1206 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
1207 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
1208 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
1209 ierr )
1210 CALL wrf_ext_read_field ( &
1211 fid , & ! DataHandle
1212 current_date(1:19) , & ! DateStr
1213 'XICE' , & ! Data Name
1214 grid%xice , & ! Field
1215 WRF_FLOAT , & ! FieldType
1216 grid%communicator , & ! Comm
1217 grid%iocommunicator , & ! Comm
1218 grid%domdesc , & ! Comm
1219 grid%bdy_mask , & ! bdy_mask
1220 'XY' , & ! MemoryOrder
1221 '' , & ! Stagger
1222 'inc/wrf_histin.inc ext_read_field XICE memorder XY' , & ! Debug message
1223 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1224 ims , ime , jms , jme , 1 , 1 , &
1225 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1226 ierr )
1227 CALL wrf_ext_read_field ( &
1228 fid , & ! DataHandle
1229 current_date(1:19) , & ! DateStr
1230 'SFROFF' , & ! Data Name
1231 grid%sfcrunoff , & ! Field
1232 WRF_FLOAT , & ! FieldType
1233 grid%communicator , & ! Comm
1234 grid%iocommunicator , & ! Comm
1235 grid%domdesc , & ! Comm
1236 grid%bdy_mask , & ! bdy_mask
1237 'XY' , & ! MemoryOrder
1238 '' , & ! Stagger
1239 'inc/wrf_histin.inc ext_read_field SFROFF memorder XY' , & ! Debug message
1240 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1241 ims , ime , jms , jme , 1 , 1 , &
1242 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1243 ierr )
1244 CALL wrf_ext_read_field ( &
1245 fid , & ! DataHandle
1246 current_date(1:19) , & ! DateStr
1247 'UDROFF' , & ! Data Name
1248 grid%udrunoff , & ! Field
1249 WRF_FLOAT , & ! FieldType
1250 grid%communicator , & ! Comm
1251 grid%iocommunicator , & ! Comm
1252 grid%domdesc , & ! Comm
1253 grid%bdy_mask , & ! bdy_mask
1254 'XY' , & ! MemoryOrder
1255 '' , & ! Stagger
1256 'inc/wrf_histin.inc ext_read_field UDROFF memorder XY' , & ! Debug message
1257 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1258 ims , ime , jms , jme , 1 , 1 , &
1259 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1260 ierr )
1261 CALL wrf_ext_read_field ( &
1262 fid , & ! DataHandle
1263 current_date(1:19) , & ! DateStr
1264 'IVGTYP' , & ! Data Name
1265 grid%ivgtyp , & ! Field
1266 WRF_integer , & ! FieldType
1267 grid%communicator , & ! Comm
1268 grid%iocommunicator , & ! Comm
1269 grid%domdesc , & ! Comm
1270 grid%bdy_mask , & ! bdy_mask
1271 'XY' , & ! MemoryOrder
1272 '' , & ! Stagger
1273 'inc/wrf_histin.inc ext_read_field IVGTYP memorder XY' , & ! Debug message
1274 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1275 ims , ime , jms , jme , 1 , 1 , &
1276 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1277 ierr )
1278 CALL wrf_ext_read_field ( &
1279 fid , & ! DataHandle
1280 current_date(1:19) , & ! DateStr
1281 'ISLTYP' , & ! Data Name
1282 grid%isltyp , & ! Field
1283 WRF_integer , & ! FieldType
1284 grid%communicator , & ! Comm
1285 grid%iocommunicator , & ! Comm
1286 grid%domdesc , & ! Comm
1287 grid%bdy_mask , & ! bdy_mask
1288 'XY' , & ! MemoryOrder
1289 '' , & ! Stagger
1290 'inc/wrf_histin.inc ext_read_field ISLTYP memorder XY' , & ! Debug message
1291 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1292 ims , ime , jms , jme , 1 , 1 , &
1293 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1294 ierr )
1295 CALL wrf_ext_read_field ( &
1296 fid , & ! DataHandle
1297 current_date(1:19) , & ! DateStr
1298 'VEGFRA' , & ! Data Name
1299 grid%vegfra , & ! Field
1300 WRF_FLOAT , & ! FieldType
1301 grid%communicator , & ! Comm
1302 grid%iocommunicator , & ! Comm
1303 grid%domdesc , & ! Comm
1304 grid%bdy_mask , & ! bdy_mask
1305 'XY' , & ! MemoryOrder
1306 '' , & ! Stagger
1307 'inc/wrf_histin.inc ext_read_field VEGFRA memorder XY' , & ! Debug message
1308 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1309 ims , ime , jms , jme , 1 , 1 , &
1310 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1311 ierr )
1312 CALL wrf_ext_read_field ( &
1313 fid , & ! DataHandle
1314 current_date(1:19) , & ! DateStr
1315 'SNOW' , & ! Data Name
1316 grid%snow , & ! Field
1317 WRF_FLOAT , & ! FieldType
1318 grid%communicator , & ! Comm
1319 grid%iocommunicator , & ! Comm
1320 grid%domdesc , & ! Comm
1321 grid%bdy_mask , & ! bdy_mask
1322 'XY' , & ! MemoryOrder
1323 '' , & ! Stagger
1324 'inc/wrf_histin.inc ext_read_field SNOW memorder XY' , & ! Debug message
1325 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1326 ims , ime , jms , jme , 1 , 1 , &
1327 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1328 ierr )
1329 CALL wrf_ext_read_field ( &
1330 fid , & ! DataHandle
1331 current_date(1:19) , & ! DateStr
1332 'SNOWH' , & ! Data Name
1333 grid%snowh , & ! Field
1334 WRF_FLOAT , & ! FieldType
1335 grid%communicator , & ! Comm
1336 grid%iocommunicator , & ! Comm
1337 grid%domdesc , & ! Comm
1338 grid%bdy_mask , & ! bdy_mask
1339 'XY' , & ! MemoryOrder
1340 '' , & ! Stagger
1341 'inc/wrf_histin.inc ext_read_field SNOWH memorder XY' , & ! Debug message
1342 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1343 ims , ime , jms , jme , 1 , 1 , &
1344 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1345 ierr )
1346 CALL wrf_ext_read_field ( &
1347 fid , & ! DataHandle
1348 current_date(1:19) , & ! DateStr
1349 'RHOSN' , & ! Data Name
1350 grid%rhosn , & ! Field
1351 WRF_FLOAT , & ! FieldType
1352 grid%communicator , & ! Comm
1353 grid%iocommunicator , & ! Comm
1354 grid%domdesc , & ! Comm
1355 grid%bdy_mask , & ! bdy_mask
1356 'XY' , & ! MemoryOrder
1357 '' , & ! Stagger
1358 'inc/wrf_histin.inc ext_read_field RHOSN memorder XY' , & ! Debug message
1359 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1360 ims , ime , jms , jme , 1 , 1 , &
1361 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1362 ierr )
1363 CALL wrf_ext_read_field ( &
1364 fid , & ! DataHandle
1365 current_date(1:19) , & ! DateStr
1366 'CANWAT' , & ! Data Name
1367 grid%canwat , & ! Field
1368 WRF_FLOAT , & ! FieldType
1369 grid%communicator , & ! Comm
1370 grid%iocommunicator , & ! Comm
1371 grid%domdesc , & ! Comm
1372 grid%bdy_mask , & ! bdy_mask
1373 'XY' , & ! MemoryOrder
1374 '' , & ! Stagger
1375 'inc/wrf_histin.inc ext_read_field CANWAT memorder XY' , & ! Debug message
1376 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1377 ims , ime , jms , jme , 1 , 1 , &
1378 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1379 ierr )
1380 CALL wrf_ext_read_field ( &
1381 fid , & ! DataHandle
1382 current_date(1:19) , & ! DateStr
1383 'SST' , & ! Data Name
1384 grid%sst , & ! Field
1385 WRF_FLOAT , & ! FieldType
1386 grid%communicator , & ! Comm
1387 grid%iocommunicator , & ! Comm
1388 grid%domdesc , & ! Comm
1389 grid%bdy_mask , & ! bdy_mask
1390 'XY' , & ! MemoryOrder
1391 '' , & ! Stagger
1392 'inc/wrf_histin.inc ext_read_field SST memorder XY' , & ! Debug message
1393 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1394 ims , ime , jms , jme , 1 , 1 , &
1395 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1396 ierr )
1397 CALL wrf_ext_read_field ( &
1398 fid , & ! DataHandle
1399 current_date(1:19) , & ! DateStr
1400 'MAPFAC_M' , & ! Data Name
1401 grid%msft , & ! Field
1402 WRF_FLOAT , & ! FieldType
1403 grid%communicator , & ! Comm
1404 grid%iocommunicator , & ! Comm
1405 grid%domdesc , & ! Comm
1406 grid%bdy_mask , & ! bdy_mask
1407 'XY' , & ! MemoryOrder
1408 '' , & ! Stagger
1409 'inc/wrf_histin.inc ext_read_field MAPFAC_M memorder XY' , & ! Debug message
1410 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1411 ims , ime , jms , jme , 1 , 1 , &
1412 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1413 ierr )
1414 CALL wrf_ext_read_field ( &
1415 fid , & ! DataHandle
1416 current_date(1:19) , & ! DateStr
1417 'MAPFAC_U' , & ! Data Name
1418 grid%msfu , & ! Field
1419 WRF_FLOAT , & ! FieldType
1420 grid%communicator , & ! Comm
1421 grid%iocommunicator , & ! Comm
1422 grid%domdesc , & ! Comm
1423 grid%bdy_mask , & ! bdy_mask
1424 'XY' , & ! MemoryOrder
1425 'X' , & ! Stagger
1426 'inc/wrf_histin.inc ext_read_field MAPFAC_U memorder XY' , & ! Debug message
1427 ids , ide , jds , (jde-1) , 1 , 1 , &
1428 ims , ime , jms , jme , 1 , 1 , &
1429 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1430 ierr )
1431 CALL wrf_ext_read_field ( &
1432 fid , & ! DataHandle
1433 current_date(1:19) , & ! DateStr
1434 'MAPFAC_V' , & ! Data Name
1435 grid%msfv , & ! Field
1436 WRF_FLOAT , & ! FieldType
1437 grid%communicator , & ! Comm
1438 grid%iocommunicator , & ! Comm
1439 grid%domdesc , & ! Comm
1440 grid%bdy_mask , & ! bdy_mask
1441 'XY' , & ! MemoryOrder
1442 'Y' , & ! Stagger
1443 'inc/wrf_histin.inc ext_read_field MAPFAC_V memorder XY' , & ! Debug message
1444 ids , (ide-1) , jds , jde , 1 , 1 , &
1445 ims , ime , jms , jme , 1 , 1 , &
1446 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
1447 ierr )
1448 CALL wrf_ext_read_field ( &
1449 fid , & ! DataHandle
1450 current_date(1:19) , & ! DateStr
1451 'F' , & ! Data Name
1452 grid%f , & ! Field
1453 WRF_FLOAT , & ! FieldType
1454 grid%communicator , & ! Comm
1455 grid%iocommunicator , & ! Comm
1456 grid%domdesc , & ! Comm
1457 grid%bdy_mask , & ! bdy_mask
1458 'XY' , & ! MemoryOrder
1459 '' , & ! Stagger
1460 'inc/wrf_histin.inc ext_read_field F memorder XY' , & ! Debug message
1461 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1462 ims , ime , jms , jme , 1 , 1 , &
1463 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1464 ierr )
1465 CALL wrf_ext_read_field ( &
1466 fid , & ! DataHandle
1467 current_date(1:19) , & ! DateStr
1468 'E' , & ! Data Name
1469 grid%e , & ! Field
1470 WRF_FLOAT , & ! FieldType
1471 grid%communicator , & ! Comm
1472 grid%iocommunicator , & ! Comm
1473 grid%domdesc , & ! Comm
1474 grid%bdy_mask , & ! bdy_mask
1475 'XY' , & ! MemoryOrder
1476 '' , & ! Stagger
1477 'inc/wrf_histin.inc ext_read_field E memorder XY' , & ! Debug message
1478 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1479 ims , ime , jms , jme , 1 , 1 , &
1480 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1481 ierr )
1482 CALL wrf_ext_read_field ( &
1483 fid , & ! DataHandle
1484 current_date(1:19) , & ! DateStr
1485 'SINALPHA' , & ! Data Name
1486 grid%sina , & ! Field
1487 WRF_FLOAT , & ! FieldType
1488 grid%communicator , & ! Comm
1489 grid%iocommunicator , & ! Comm
1490 grid%domdesc , & ! Comm
1491 grid%bdy_mask , & ! bdy_mask
1492 'XY' , & ! MemoryOrder
1493 '' , & ! Stagger
1494 'inc/wrf_histin.inc ext_read_field SINALPHA memorder XY' , & ! Debug message
1495 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1496 ims , ime , jms , jme , 1 , 1 , &
1497 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1498 ierr )
1499 CALL wrf_ext_read_field ( &
1500 fid , & ! DataHandle
1501 current_date(1:19) , & ! DateStr
1502 'COSALPHA' , & ! Data Name
1503 grid%cosa , & ! Field
1504 WRF_FLOAT , & ! FieldType
1505 grid%communicator , & ! Comm
1506 grid%iocommunicator , & ! Comm
1507 grid%domdesc , & ! Comm
1508 grid%bdy_mask , & ! bdy_mask
1509 'XY' , & ! MemoryOrder
1510 '' , & ! Stagger
1511 'inc/wrf_histin.inc ext_read_field COSALPHA memorder XY' , & ! Debug message
1512 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1513 ims , ime , jms , jme , 1 , 1 , &
1514 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1515 ierr )
1516 CALL wrf_ext_read_field ( &
1517 fid , & ! DataHandle
1518 current_date(1:19) , & ! DateStr
1519 'HGT' , & ! Data Name
1520 grid%ht , & ! Field
1521 WRF_FLOAT , & ! FieldType
1522 grid%communicator , & ! Comm
1523 grid%iocommunicator , & ! Comm
1524 grid%domdesc , & ! Comm
1525 grid%bdy_mask , & ! bdy_mask
1526 'XY' , & ! MemoryOrder
1527 '' , & ! Stagger
1528 'inc/wrf_histin.inc ext_read_field HGT memorder XY' , & ! Debug message
1529 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1530 ims , ime , jms , jme , 1 , 1 , &
1531 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1532 ierr )
1533 CALL wrf_ext_read_field ( &
1534 fid , & ! DataHandle
1535 current_date(1:19) , & ! DateStr
1536 'TSK' , & ! Data Name
1537 grid%tsk , & ! Field
1538 WRF_FLOAT , & ! FieldType
1539 grid%communicator , & ! Comm
1540 grid%iocommunicator , & ! Comm
1541 grid%domdesc , & ! Comm
1542 grid%bdy_mask , & ! bdy_mask
1543 'XY' , & ! MemoryOrder
1544 '' , & ! Stagger
1545 'inc/wrf_histin.inc ext_read_field TSK memorder XY' , & ! Debug message
1546 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1547 ims , ime , jms , jme , 1 , 1 , &
1548 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1549 ierr )
1550 CALL wrf_ext_read_field ( &
1551 fid , & ! DataHandle
1552 current_date(1:19) , & ! DateStr
1553 'P_TOP' , & ! Data Name
1554 grid%p_top , & ! Field
1555 WRF_FLOAT , & ! FieldType
1556 grid%communicator , & ! Comm
1557 grid%iocommunicator , & ! Comm
1558 grid%domdesc , & ! Comm
1559 grid%bdy_mask , & ! bdy_mask
1560 '0' , & ! MemoryOrder
1561 '' , & ! Stagger
1562 'inc/wrf_histin.inc ext_read_field P_TOP memorder 0' , & ! Debug message
1563 1 , 1 , 1 , 1 , 1 , 1 , &
1564 1 , 1 , 1 , 1 , 1 , 1 , &
1565 1 , 1 , 1 , 1 , 1 , 1 , &
1566 ierr )
1567 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1568 CALL wrf_ext_read_field ( &
1569 fid , & ! DataHandle
1570 current_date(1:19) , & ! DateStr
1571 'LAT_LL_T' , & ! Data Name
1572 grid%em_lat_ll_t , & ! Field
1573 WRF_FLOAT , & ! FieldType
1574 grid%communicator , & ! Comm
1575 grid%iocommunicator , & ! Comm
1576 grid%domdesc , & ! Comm
1577 grid%bdy_mask , & ! bdy_mask
1578 '0' , & ! MemoryOrder
1579 '' , & ! Stagger
1580 'inc/wrf_histin.inc ext_read_field LAT_LL_T memorder 0' , & ! Debug message
1581 1 , 1 , 1 , 1 , 1 , 1 , &
1582 1 , 1 , 1 , 1 , 1 , 1 , &
1583 1 , 1 , 1 , 1 , 1 , 1 , &
1584 ierr )
1585 END IF
1586 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1587 CALL wrf_ext_read_field ( &
1588 fid , & ! DataHandle
1589 current_date(1:19) , & ! DateStr
1590 'LAT_UL_T' , & ! Data Name
1591 grid%em_lat_ul_t , & ! Field
1592 WRF_FLOAT , & ! FieldType
1593 grid%communicator , & ! Comm
1594 grid%iocommunicator , & ! Comm
1595 grid%domdesc , & ! Comm
1596 grid%bdy_mask , & ! bdy_mask
1597 '0' , & ! MemoryOrder
1598 '' , & ! Stagger
1599 'inc/wrf_histin.inc ext_read_field LAT_UL_T memorder 0' , & ! Debug message
1600 1 , 1 , 1 , 1 , 1 , 1 , &
1601 1 , 1 , 1 , 1 , 1 , 1 , &
1602 1 , 1 , 1 , 1 , 1 , 1 , &
1603 ierr )
1604 END IF
1605 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1606 CALL wrf_ext_read_field ( &
1607 fid , & ! DataHandle
1608 current_date(1:19) , & ! DateStr
1609 'LAT_UR_T' , & ! Data Name
1610 grid%em_lat_ur_t , & ! Field
1611 WRF_FLOAT , & ! FieldType
1612 grid%communicator , & ! Comm
1613 grid%iocommunicator , & ! Comm
1614 grid%domdesc , & ! Comm
1615 grid%bdy_mask , & ! bdy_mask
1616 '0' , & ! MemoryOrder
1617 '' , & ! Stagger
1618 'inc/wrf_histin.inc ext_read_field LAT_UR_T memorder 0' , & ! Debug message
1619 1 , 1 , 1 , 1 , 1 , 1 , &
1620 1 , 1 , 1 , 1 , 1 , 1 , &
1621 1 , 1 , 1 , 1 , 1 , 1 , &
1622 ierr )
1623 END IF
1624 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1625 CALL wrf_ext_read_field ( &
1626 fid , & ! DataHandle
1627 current_date(1:19) , & ! DateStr
1628 'LAT_LR_T' , & ! Data Name
1629 grid%em_lat_lr_t , & ! Field
1630 WRF_FLOAT , & ! FieldType
1631 grid%communicator , & ! Comm
1632 grid%iocommunicator , & ! Comm
1633 grid%domdesc , & ! Comm
1634 grid%bdy_mask , & ! bdy_mask
1635 '0' , & ! MemoryOrder
1636 '' , & ! Stagger
1637 'inc/wrf_histin.inc ext_read_field LAT_LR_T memorder 0' , & ! Debug message
1638 1 , 1 , 1 , 1 , 1 , 1 , &
1639 1 , 1 , 1 , 1 , 1 , 1 , &
1640 1 , 1 , 1 , 1 , 1 , 1 , &
1641 ierr )
1642 END IF
1643 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1644 CALL wrf_ext_read_field ( &
1645 fid , & ! DataHandle
1646 current_date(1:19) , & ! DateStr
1647 'LAT_LL_U' , & ! Data Name
1648 grid%em_lat_ll_u , & ! Field
1649 WRF_FLOAT , & ! FieldType
1650 grid%communicator , & ! Comm
1651 grid%iocommunicator , & ! Comm
1652 grid%domdesc , & ! Comm
1653 grid%bdy_mask , & ! bdy_mask
1654 '0' , & ! MemoryOrder
1655 '' , & ! Stagger
1656 'inc/wrf_histin.inc ext_read_field LAT_LL_U memorder 0' , & ! Debug message
1657 1 , 1 , 1 , 1 , 1 , 1 , &
1658 1 , 1 , 1 , 1 , 1 , 1 , &
1659 1 , 1 , 1 , 1 , 1 , 1 , &
1660 ierr )
1661 END IF
1662 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1663 CALL wrf_ext_read_field ( &
1664 fid , & ! DataHandle
1665 current_date(1:19) , & ! DateStr
1666 'LAT_UL_U' , & ! Data Name
1667 grid%em_lat_ul_u , & ! Field
1668 WRF_FLOAT , & ! FieldType
1669 grid%communicator , & ! Comm
1670 grid%iocommunicator , & ! Comm
1671 grid%domdesc , & ! Comm
1672 grid%bdy_mask , & ! bdy_mask
1673 '0' , & ! MemoryOrder
1674 '' , & ! Stagger
1675 'inc/wrf_histin.inc ext_read_field LAT_UL_U memorder 0' , & ! Debug message
1676 1 , 1 , 1 , 1 , 1 , 1 , &
1677 1 , 1 , 1 , 1 , 1 , 1 , &
1678 1 , 1 , 1 , 1 , 1 , 1 , &
1679 ierr )
1680 END IF
1681 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1682 CALL wrf_ext_read_field ( &
1683 fid , & ! DataHandle
1684 current_date(1:19) , & ! DateStr
1685 'LAT_UR_U' , & ! Data Name
1686 grid%em_lat_ur_u , & ! Field
1687 WRF_FLOAT , & ! FieldType
1688 grid%communicator , & ! Comm
1689 grid%iocommunicator , & ! Comm
1690 grid%domdesc , & ! Comm
1691 grid%bdy_mask , & ! bdy_mask
1692 '0' , & ! MemoryOrder
1693 '' , & ! Stagger
1694 'inc/wrf_histin.inc ext_read_field LAT_UR_U memorder 0' , & ! Debug message
1695 1 , 1 , 1 , 1 , 1 , 1 , &
1696 1 , 1 , 1 , 1 , 1 , 1 , &
1697 1 , 1 , 1 , 1 , 1 , 1 , &
1698 ierr )
1699 END IF
1700 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1701 CALL wrf_ext_read_field ( &
1702 fid , & ! DataHandle
1703 current_date(1:19) , & ! DateStr
1704 'LAT_LR_U' , & ! Data Name
1705 grid%em_lat_lr_u , & ! Field
1706 WRF_FLOAT , & ! FieldType
1707 grid%communicator , & ! Comm
1708 grid%iocommunicator , & ! Comm
1709 grid%domdesc , & ! Comm
1710 grid%bdy_mask , & ! bdy_mask
1711 '0' , & ! MemoryOrder
1712 '' , & ! Stagger
1713 'inc/wrf_histin.inc ext_read_field LAT_LR_U memorder 0' , & ! Debug message
1714 1 , 1 , 1 , 1 , 1 , 1 , &
1715 1 , 1 , 1 , 1 , 1 , 1 , &
1716 1 , 1 , 1 , 1 , 1 , 1 , &
1717 ierr )
1718 END IF
1719 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1720 CALL wrf_ext_read_field ( &
1721 fid , & ! DataHandle
1722 current_date(1:19) , & ! DateStr
1723 'LAT_LL_V' , & ! Data Name
1724 grid%em_lat_ll_v , & ! Field
1725 WRF_FLOAT , & ! FieldType
1726 grid%communicator , & ! Comm
1727 grid%iocommunicator , & ! Comm
1728 grid%domdesc , & ! Comm
1729 grid%bdy_mask , & ! bdy_mask
1730 '0' , & ! MemoryOrder
1731 '' , & ! Stagger
1732 'inc/wrf_histin.inc ext_read_field LAT_LL_V memorder 0' , & ! Debug message
1733 1 , 1 , 1 , 1 , 1 , 1 , &
1734 1 , 1 , 1 , 1 , 1 , 1 , &
1735 1 , 1 , 1 , 1 , 1 , 1 , &
1736 ierr )
1737 END IF
1738 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1739 CALL wrf_ext_read_field ( &
1740 fid , & ! DataHandle
1741 current_date(1:19) , & ! DateStr
1742 'LAT_UL_V' , & ! Data Name
1743 grid%em_lat_ul_v , & ! Field
1744 WRF_FLOAT , & ! FieldType
1745 grid%communicator , & ! Comm
1746 grid%iocommunicator , & ! Comm
1747 grid%domdesc , & ! Comm
1748 grid%bdy_mask , & ! bdy_mask
1749 '0' , & ! MemoryOrder
1750 '' , & ! Stagger
1751 'inc/wrf_histin.inc ext_read_field LAT_UL_V memorder 0' , & ! Debug message
1752 1 , 1 , 1 , 1 , 1 , 1 , &
1753 1 , 1 , 1 , 1 , 1 , 1 , &
1754 1 , 1 , 1 , 1 , 1 , 1 , &
1755 ierr )
1756 END IF
1757 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1758 CALL wrf_ext_read_field ( &
1759 fid , & ! DataHandle
1760 current_date(1:19) , & ! DateStr
1761 'LAT_UR_V' , & ! Data Name
1762 grid%em_lat_ur_v , & ! Field
1763 WRF_FLOAT , & ! FieldType
1764 grid%communicator , & ! Comm
1765 grid%iocommunicator , & ! Comm
1766 grid%domdesc , & ! Comm
1767 grid%bdy_mask , & ! bdy_mask
1768 '0' , & ! MemoryOrder
1769 '' , & ! Stagger
1770 'inc/wrf_histin.inc ext_read_field LAT_UR_V memorder 0' , & ! Debug message
1771 1 , 1 , 1 , 1 , 1 , 1 , &
1772 1 , 1 , 1 , 1 , 1 , 1 , &
1773 1 , 1 , 1 , 1 , 1 , 1 , &
1774 ierr )
1775 END IF
1776 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1777 CALL wrf_ext_read_field ( &
1778 fid , & ! DataHandle
1779 current_date(1:19) , & ! DateStr
1780 'LAT_LR_V' , & ! Data Name
1781 grid%em_lat_lr_v , & ! Field
1782 WRF_FLOAT , & ! FieldType
1783 grid%communicator , & ! Comm
1784 grid%iocommunicator , & ! Comm
1785 grid%domdesc , & ! Comm
1786 grid%bdy_mask , & ! bdy_mask
1787 '0' , & ! MemoryOrder
1788 '' , & ! Stagger
1789 'inc/wrf_histin.inc ext_read_field LAT_LR_V memorder 0' , & ! Debug message
1790 1 , 1 , 1 , 1 , 1 , 1 , &
1791 1 , 1 , 1 , 1 , 1 , 1 , &
1792 1 , 1 , 1 , 1 , 1 , 1 , &
1793 ierr )
1794 END IF
1795 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1796 CALL wrf_ext_read_field ( &
1797 fid , & ! DataHandle
1798 current_date(1:19) , & ! DateStr
1799 'LAT_LL_D' , & ! Data Name
1800 grid%em_lat_ll_d , & ! Field
1801 WRF_FLOAT , & ! FieldType
1802 grid%communicator , & ! Comm
1803 grid%iocommunicator , & ! Comm
1804 grid%domdesc , & ! Comm
1805 grid%bdy_mask , & ! bdy_mask
1806 '0' , & ! MemoryOrder
1807 '' , & ! Stagger
1808 'inc/wrf_histin.inc ext_read_field LAT_LL_D memorder 0' , & ! Debug message
1809 1 , 1 , 1 , 1 , 1 , 1 , &
1810 1 , 1 , 1 , 1 , 1 , 1 , &
1811 1 , 1 , 1 , 1 , 1 , 1 , &
1812 ierr )
1813 END IF
1814 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1815 CALL wrf_ext_read_field ( &
1816 fid , & ! DataHandle
1817 current_date(1:19) , & ! DateStr
1818 'LAT_UL_D' , & ! Data Name
1819 grid%em_lat_ul_d , & ! Field
1820 WRF_FLOAT , & ! FieldType
1821 grid%communicator , & ! Comm
1822 grid%iocommunicator , & ! Comm
1823 grid%domdesc , & ! Comm
1824 grid%bdy_mask , & ! bdy_mask
1825 '0' , & ! MemoryOrder
1826 '' , & ! Stagger
1827 'inc/wrf_histin.inc ext_read_field LAT_UL_D memorder 0' , & ! Debug message
1828 1 , 1 , 1 , 1 , 1 , 1 , &
1829 1 , 1 , 1 , 1 , 1 , 1 , &
1830 1 , 1 , 1 , 1 , 1 , 1 , &
1831 ierr )
1832 END IF
1833 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1834 CALL wrf_ext_read_field ( &
1835 fid , & ! DataHandle
1836 current_date(1:19) , & ! DateStr
1837 'LAT_UR_D' , & ! Data Name
1838 grid%em_lat_ur_d , & ! Field
1839 WRF_FLOAT , & ! FieldType
1840 grid%communicator , & ! Comm
1841 grid%iocommunicator , & ! Comm
1842 grid%domdesc , & ! Comm
1843 grid%bdy_mask , & ! bdy_mask
1844 '0' , & ! MemoryOrder
1845 '' , & ! Stagger
1846 'inc/wrf_histin.inc ext_read_field LAT_UR_D memorder 0' , & ! Debug message
1847 1 , 1 , 1 , 1 , 1 , 1 , &
1848 1 , 1 , 1 , 1 , 1 , 1 , &
1849 1 , 1 , 1 , 1 , 1 , 1 , &
1850 ierr )
1851 END IF
1852 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1853 CALL wrf_ext_read_field ( &
1854 fid , & ! DataHandle
1855 current_date(1:19) , & ! DateStr
1856 'LAT_LR_D' , & ! Data Name
1857 grid%em_lat_lr_d , & ! Field
1858 WRF_FLOAT , & ! FieldType
1859 grid%communicator , & ! Comm
1860 grid%iocommunicator , & ! Comm
1861 grid%domdesc , & ! Comm
1862 grid%bdy_mask , & ! bdy_mask
1863 '0' , & ! MemoryOrder
1864 '' , & ! Stagger
1865 'inc/wrf_histin.inc ext_read_field LAT_LR_D memorder 0' , & ! Debug message
1866 1 , 1 , 1 , 1 , 1 , 1 , &
1867 1 , 1 , 1 , 1 , 1 , 1 , &
1868 1 , 1 , 1 , 1 , 1 , 1 , &
1869 ierr )
1870 END IF
1871 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1872 CALL wrf_ext_read_field ( &
1873 fid , & ! DataHandle
1874 current_date(1:19) , & ! DateStr
1875 'LON_LL_T' , & ! Data Name
1876 grid%em_lon_ll_t , & ! Field
1877 WRF_FLOAT , & ! FieldType
1878 grid%communicator , & ! Comm
1879 grid%iocommunicator , & ! Comm
1880 grid%domdesc , & ! Comm
1881 grid%bdy_mask , & ! bdy_mask
1882 '0' , & ! MemoryOrder
1883 '' , & ! Stagger
1884 'inc/wrf_histin.inc ext_read_field LON_LL_T memorder 0' , & ! Debug message
1885 1 , 1 , 1 , 1 , 1 , 1 , &
1886 1 , 1 , 1 , 1 , 1 , 1 , &
1887 1 , 1 , 1 , 1 , 1 , 1 , &
1888 ierr )
1889 END IF
1890 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1891 CALL wrf_ext_read_field ( &
1892 fid , & ! DataHandle
1893 current_date(1:19) , & ! DateStr
1894 'LON_UL_T' , & ! Data Name
1895 grid%em_lon_ul_t , & ! Field
1896 WRF_FLOAT , & ! FieldType
1897 grid%communicator , & ! Comm
1898 grid%iocommunicator , & ! Comm
1899 grid%domdesc , & ! Comm
1900 grid%bdy_mask , & ! bdy_mask
1901 '0' , & ! MemoryOrder
1902 '' , & ! Stagger
1903 'inc/wrf_histin.inc ext_read_field LON_UL_T memorder 0' , & ! Debug message
1904 1 , 1 , 1 , 1 , 1 , 1 , &
1905 1 , 1 , 1 , 1 , 1 , 1 , &
1906 1 , 1 , 1 , 1 , 1 , 1 , &
1907 ierr )
1908 END IF
1909 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1910 CALL wrf_ext_read_field ( &
1911 fid , & ! DataHandle
1912 current_date(1:19) , & ! DateStr
1913 'LON_UR_T' , & ! Data Name
1914 grid%em_lon_ur_t , & ! Field
1915 WRF_FLOAT , & ! FieldType
1916 grid%communicator , & ! Comm
1917 grid%iocommunicator , & ! Comm
1918 grid%domdesc , & ! Comm
1919 grid%bdy_mask , & ! bdy_mask
1920 '0' , & ! MemoryOrder
1921 '' , & ! Stagger
1922 'inc/wrf_histin.inc ext_read_field LON_UR_T memorder 0' , & ! Debug message
1923 1 , 1 , 1 , 1 , 1 , 1 , &
1924 1 , 1 , 1 , 1 , 1 , 1 , &
1925 1 , 1 , 1 , 1 , 1 , 1 , &
1926 ierr )
1927 END IF
1928 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1929 CALL wrf_ext_read_field ( &
1930 fid , & ! DataHandle
1931 current_date(1:19) , & ! DateStr
1932 'LON_LR_T' , & ! Data Name
1933 grid%em_lon_lr_t , & ! Field
1934 WRF_FLOAT , & ! FieldType
1935 grid%communicator , & ! Comm
1936 grid%iocommunicator , & ! Comm
1937 grid%domdesc , & ! Comm
1938 grid%bdy_mask , & ! bdy_mask
1939 '0' , & ! MemoryOrder
1940 '' , & ! Stagger
1941 'inc/wrf_histin.inc ext_read_field LON_LR_T memorder 0' , & ! Debug message
1942 1 , 1 , 1 , 1 , 1 , 1 , &
1943 1 , 1 , 1 , 1 , 1 , 1 , &
1944 1 , 1 , 1 , 1 , 1 , 1 , &
1945 ierr )
1946 END IF
1947 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1948 CALL wrf_ext_read_field ( &
1949 fid , & ! DataHandle
1950 current_date(1:19) , & ! DateStr
1951 'LON_LL_U' , & ! Data Name
1952 grid%em_lon_ll_u , & ! Field
1953 WRF_FLOAT , & ! FieldType
1954 grid%communicator , & ! Comm
1955 grid%iocommunicator , & ! Comm
1956 grid%domdesc , & ! Comm
1957 grid%bdy_mask , & ! bdy_mask
1958 '0' , & ! MemoryOrder
1959 '' , & ! Stagger
1960 'inc/wrf_histin.inc ext_read_field LON_LL_U memorder 0' , & ! Debug message
1961 1 , 1 , 1 , 1 , 1 , 1 , &
1962 1 , 1 , 1 , 1 , 1 , 1 , &
1963 1 , 1 , 1 , 1 , 1 , 1 , &
1964 ierr )
1965 END IF
1966 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1967 CALL wrf_ext_read_field ( &
1968 fid , & ! DataHandle
1969 current_date(1:19) , & ! DateStr
1970 'LON_UL_U' , & ! Data Name
1971 grid%em_lon_ul_u , & ! Field
1972 WRF_FLOAT , & ! FieldType
1973 grid%communicator , & ! Comm
1974 grid%iocommunicator , & ! Comm
1975 grid%domdesc , & ! Comm
1976 grid%bdy_mask , & ! bdy_mask
1977 '0' , & ! MemoryOrder
1978 '' , & ! Stagger
1979 'inc/wrf_histin.inc ext_read_field LON_UL_U memorder 0' , & ! Debug message
1980 1 , 1 , 1 , 1 , 1 , 1 , &
1981 1 , 1 , 1 , 1 , 1 , 1 , &
1982 1 , 1 , 1 , 1 , 1 , 1 , &
1983 ierr )
1984 END IF
1985 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1986 CALL wrf_ext_read_field ( &
1987 fid , & ! DataHandle
1988 current_date(1:19) , & ! DateStr
1989 'LON_UR_U' , & ! Data Name
1990 grid%em_lon_ur_u , & ! Field
1991 WRF_FLOAT , & ! FieldType
1992 grid%communicator , & ! Comm
1993 grid%iocommunicator , & ! Comm
1994 grid%domdesc , & ! Comm
1995 grid%bdy_mask , & ! bdy_mask
1996 '0' , & ! MemoryOrder
1997 '' , & ! Stagger
1998 'inc/wrf_histin.inc ext_read_field LON_UR_U memorder 0' , & ! Debug message
1999 1 , 1 , 1 , 1 , 1 , 1 , &
2000 1 , 1 , 1 , 1 , 1 , 1 , &
2001 1 , 1 , 1 , 1 , 1 , 1 , &
2002 ierr )
2003 END IF
2004 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2005 CALL wrf_ext_read_field ( &
2006 fid , & ! DataHandle
2007 current_date(1:19) , & ! DateStr
2008 'LON_LR_U' , & ! Data Name
2009 grid%em_lon_lr_u , & ! Field
2010 WRF_FLOAT , & ! FieldType
2011 grid%communicator , & ! Comm
2012 grid%iocommunicator , & ! Comm
2013 grid%domdesc , & ! Comm
2014 grid%bdy_mask , & ! bdy_mask
2015 '0' , & ! MemoryOrder
2016 '' , & ! Stagger
2017 'inc/wrf_histin.inc ext_read_field LON_LR_U memorder 0' , & ! Debug message
2018 1 , 1 , 1 , 1 , 1 , 1 , &
2019 1 , 1 , 1 , 1 , 1 , 1 , &
2020 1 , 1 , 1 , 1 , 1 , 1 , &
2021 ierr )
2022 END IF
2023 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2024 CALL wrf_ext_read_field ( &
2025 fid , & ! DataHandle
2026 current_date(1:19) , & ! DateStr
2027 'LON_LL_V' , & ! Data Name
2028 grid%em_lon_ll_v , & ! Field
2029 WRF_FLOAT , & ! FieldType
2030 grid%communicator , & ! Comm
2031 grid%iocommunicator , & ! Comm
2032 grid%domdesc , & ! Comm
2033 grid%bdy_mask , & ! bdy_mask
2034 '0' , & ! MemoryOrder
2035 '' , & ! Stagger
2036 'inc/wrf_histin.inc ext_read_field LON_LL_V memorder 0' , & ! Debug message
2037 1 , 1 , 1 , 1 , 1 , 1 , &
2038 1 , 1 , 1 , 1 , 1 , 1 , &
2039 1 , 1 , 1 , 1 , 1 , 1 , &
2040 ierr )
2041 END IF
2042 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2043 CALL wrf_ext_read_field ( &
2044 fid , & ! DataHandle
2045 current_date(1:19) , & ! DateStr
2046 'LON_UL_V' , & ! Data Name
2047 grid%em_lon_ul_v , & ! Field
2048 WRF_FLOAT , & ! FieldType
2049 grid%communicator , & ! Comm
2050 grid%iocommunicator , & ! Comm
2051 grid%domdesc , & ! Comm
2052 grid%bdy_mask , & ! bdy_mask
2053 '0' , & ! MemoryOrder
2054 '' , & ! Stagger
2055 'inc/wrf_histin.inc ext_read_field LON_UL_V memorder 0' , & ! Debug message
2056 1 , 1 , 1 , 1 , 1 , 1 , &
2057 1 , 1 , 1 , 1 , 1 , 1 , &
2058 1 , 1 , 1 , 1 , 1 , 1 , &
2059 ierr )
2060 END IF
2061 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2062 CALL wrf_ext_read_field ( &
2063 fid , & ! DataHandle
2064 current_date(1:19) , & ! DateStr
2065 'LON_UR_V' , & ! Data Name
2066 grid%em_lon_ur_v , & ! Field
2067 WRF_FLOAT , & ! FieldType
2068 grid%communicator , & ! Comm
2069 grid%iocommunicator , & ! Comm
2070 grid%domdesc , & ! Comm
2071 grid%bdy_mask , & ! bdy_mask
2072 '0' , & ! MemoryOrder
2073 '' , & ! Stagger
2074 'inc/wrf_histin.inc ext_read_field LON_UR_V memorder 0' , & ! Debug message
2075 1 , 1 , 1 , 1 , 1 , 1 , &
2076 1 , 1 , 1 , 1 , 1 , 1 , &
2077 1 , 1 , 1 , 1 , 1 , 1 , &
2078 ierr )
2079 END IF
2080 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2081 CALL wrf_ext_read_field ( &
2082 fid , & ! DataHandle
2083 current_date(1:19) , & ! DateStr
2084 'LON_LR_V' , & ! Data Name
2085 grid%em_lon_lr_v , & ! Field
2086 WRF_FLOAT , & ! FieldType
2087 grid%communicator , & ! Comm
2088 grid%iocommunicator , & ! Comm
2089 grid%domdesc , & ! Comm
2090 grid%bdy_mask , & ! bdy_mask
2091 '0' , & ! MemoryOrder
2092 '' , & ! Stagger
2093 'inc/wrf_histin.inc ext_read_field LON_LR_V memorder 0' , & ! Debug message
2094 1 , 1 , 1 , 1 , 1 , 1 , &
2095 1 , 1 , 1 , 1 , 1 , 1 , &
2096 1 , 1 , 1 , 1 , 1 , 1 , &
2097 ierr )
2098 END IF
2099 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2100 CALL wrf_ext_read_field ( &
2101 fid , & ! DataHandle
2102 current_date(1:19) , & ! DateStr
2103 'LON_LL_D' , & ! Data Name
2104 grid%em_lon_ll_d , & ! Field
2105 WRF_FLOAT , & ! FieldType
2106 grid%communicator , & ! Comm
2107 grid%iocommunicator , & ! Comm
2108 grid%domdesc , & ! Comm
2109 grid%bdy_mask , & ! bdy_mask
2110 '0' , & ! MemoryOrder
2111 '' , & ! Stagger
2112 'inc/wrf_histin.inc ext_read_field LON_LL_D memorder 0' , & ! Debug message
2113 1 , 1 , 1 , 1 , 1 , 1 , &
2114 1 , 1 , 1 , 1 , 1 , 1 , &
2115 1 , 1 , 1 , 1 , 1 , 1 , &
2116 ierr )
2117 END IF
2118 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2119 CALL wrf_ext_read_field ( &
2120 fid , & ! DataHandle
2121 current_date(1:19) , & ! DateStr
2122 'LON_UL_D' , & ! Data Name
2123 grid%em_lon_ul_d , & ! Field
2124 WRF_FLOAT , & ! FieldType
2125 grid%communicator , & ! Comm
2126 grid%iocommunicator , & ! Comm
2127 grid%domdesc , & ! Comm
2128 grid%bdy_mask , & ! bdy_mask
2129 '0' , & ! MemoryOrder
2130 '' , & ! Stagger
2131 'inc/wrf_histin.inc ext_read_field LON_UL_D memorder 0' , & ! Debug message
2132 1 , 1 , 1 , 1 , 1 , 1 , &
2133 1 , 1 , 1 , 1 , 1 , 1 , &
2134 1 , 1 , 1 , 1 , 1 , 1 , &
2135 ierr )
2136 END IF
2137 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2138 CALL wrf_ext_read_field ( &
2139 fid , & ! DataHandle
2140 current_date(1:19) , & ! DateStr
2141 'LON_UR_D' , & ! Data Name
2142 grid%em_lon_ur_d , & ! Field
2143 WRF_FLOAT , & ! FieldType
2144 grid%communicator , & ! Comm
2145 grid%iocommunicator , & ! Comm
2146 grid%domdesc , & ! Comm
2147 grid%bdy_mask , & ! bdy_mask
2148 '0' , & ! MemoryOrder
2149 '' , & ! Stagger
2150 'inc/wrf_histin.inc ext_read_field LON_UR_D memorder 0' , & ! Debug message
2151 1 , 1 , 1 , 1 , 1 , 1 , &
2152 1 , 1 , 1 , 1 , 1 , 1 , &
2153 1 , 1 , 1 , 1 , 1 , 1 , &
2154 ierr )
2155 END IF
2156 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2157 CALL wrf_ext_read_field ( &
2158 fid , & ! DataHandle
2159 current_date(1:19) , & ! DateStr
2160 'LON_LR_D' , & ! Data Name
2161 grid%em_lon_lr_d , & ! Field
2162 WRF_FLOAT , & ! FieldType
2163 grid%communicator , & ! Comm
2164 grid%iocommunicator , & ! Comm
2165 grid%domdesc , & ! Comm
2166 grid%bdy_mask , & ! bdy_mask
2167 '0' , & ! MemoryOrder
2168 '' , & ! Stagger
2169 'inc/wrf_histin.inc ext_read_field LON_LR_D memorder 0' , & ! Debug message
2170 1 , 1 , 1 , 1 , 1 , 1 , &
2171 1 , 1 , 1 , 1 , 1 , 1 , &
2172 1 , 1 , 1 , 1 , 1 , 1 , &
2173 ierr )
2174 END IF
2175 CALL wrf_ext_read_field ( &
2176 fid , & ! DataHandle
2177 current_date(1:19) , & ! DateStr
2178 'RAINC' , & ! Data Name
2179 grid%rainc , & ! Field
2180 WRF_FLOAT , & ! FieldType
2181 grid%communicator , & ! Comm
2182 grid%iocommunicator , & ! Comm
2183 grid%domdesc , & ! Comm
2184 grid%bdy_mask , & ! bdy_mask
2185 'XY' , & ! MemoryOrder
2186 '' , & ! Stagger
2187 'inc/wrf_histin.inc ext_read_field RAINC memorder XY' , & ! Debug message
2188 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2189 ims , ime , jms , jme , 1 , 1 , &
2190 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2191 ierr )
2192 CALL wrf_ext_read_field ( &
2193 fid , & ! DataHandle
2194 current_date(1:19) , & ! DateStr
2195 'RAINNC' , & ! Data Name
2196 grid%rainnc , & ! Field
2197 WRF_FLOAT , & ! FieldType
2198 grid%communicator , & ! Comm
2199 grid%iocommunicator , & ! Comm
2200 grid%domdesc , & ! Comm
2201 grid%bdy_mask , & ! bdy_mask
2202 'XY' , & ! MemoryOrder
2203 '' , & ! Stagger
2204 'inc/wrf_histin.inc ext_read_field RAINNC memorder XY' , & ! Debug message
2205 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2206 ims , ime , jms , jme , 1 , 1 , &
2207 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2208 ierr )
2209 CALL wrf_ext_read_field ( &
2210 fid , & ! DataHandle
2211 current_date(1:19) , & ! DateStr
2212 'XLAT' , & ! Data Name
2213 grid%xlat , & ! Field
2214 WRF_FLOAT , & ! FieldType
2215 grid%communicator , & ! Comm
2216 grid%iocommunicator , & ! Comm
2217 grid%domdesc , & ! Comm
2218 grid%bdy_mask , & ! bdy_mask
2219 'XY' , & ! MemoryOrder
2220 '' , & ! Stagger
2221 'inc/wrf_histin.inc ext_read_field XLAT memorder XY' , & ! Debug message
2222 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2223 ims , ime , jms , jme , 1 , 1 , &
2224 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2225 ierr )
2226 CALL wrf_ext_read_field ( &
2227 fid , & ! DataHandle
2228 current_date(1:19) , & ! DateStr
2229 'XLONG' , & ! Data Name
2230 grid%xlong , & ! Field
2231 WRF_FLOAT , & ! FieldType
2232 grid%communicator , & ! Comm
2233 grid%iocommunicator , & ! Comm
2234 grid%domdesc , & ! Comm
2235 grid%bdy_mask , & ! bdy_mask
2236 'XY' , & ! MemoryOrder
2237 '' , & ! Stagger
2238 'inc/wrf_histin.inc ext_read_field XLONG memorder XY' , & ! Debug message
2239 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2240 ims , ime , jms , jme , 1 , 1 , &
2241 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2242 ierr )
2243 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2244 CALL wrf_ext_read_field ( &
2245 fid , & ! DataHandle
2246 current_date(1:19) , & ! DateStr
2247 'XLAT_U' , & ! Data Name
2248 grid%em_xlat_u , & ! Field
2249 WRF_FLOAT , & ! FieldType
2250 grid%communicator , & ! Comm
2251 grid%iocommunicator , & ! Comm
2252 grid%domdesc , & ! Comm
2253 grid%bdy_mask , & ! bdy_mask
2254 'XY' , & ! MemoryOrder
2255 'X' , & ! Stagger
2256 'inc/wrf_histin.inc ext_read_field XLAT_U memorder XY' , & ! Debug message
2257 ids , ide , jds , (jde-1) , 1 , 1 , &
2258 ims , ime , jms , jme , 1 , 1 , &
2259 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2260 ierr )
2261 END IF
2262 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2263 CALL wrf_ext_read_field ( &
2264 fid , & ! DataHandle
2265 current_date(1:19) , & ! DateStr
2266 'XLONG_U' , & ! Data Name
2267 grid%em_xlong_u , & ! Field
2268 WRF_FLOAT , & ! FieldType
2269 grid%communicator , & ! Comm
2270 grid%iocommunicator , & ! Comm
2271 grid%domdesc , & ! Comm
2272 grid%bdy_mask , & ! bdy_mask
2273 'XY' , & ! MemoryOrder
2274 'X' , & ! Stagger
2275 'inc/wrf_histin.inc ext_read_field XLONG_U memorder XY' , & ! Debug message
2276 ids , ide , jds , (jde-1) , 1 , 1 , &
2277 ims , ime , jms , jme , 1 , 1 , &
2278 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2279 ierr )
2280 END IF
2281 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2282 CALL wrf_ext_read_field ( &
2283 fid , & ! DataHandle
2284 current_date(1:19) , & ! DateStr
2285 'XLAT_V' , & ! Data Name
2286 grid%em_xlat_v , & ! Field
2287 WRF_FLOAT , & ! FieldType
2288 grid%communicator , & ! Comm
2289 grid%iocommunicator , & ! Comm
2290 grid%domdesc , & ! Comm
2291 grid%bdy_mask , & ! bdy_mask
2292 'XY' , & ! MemoryOrder
2293 'Y' , & ! Stagger
2294 'inc/wrf_histin.inc ext_read_field XLAT_V memorder XY' , & ! Debug message
2295 ids , (ide-1) , jds , jde , 1 , 1 , &
2296 ims , ime , jms , jme , 1 , 1 , &
2297 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
2298 ierr )
2299 END IF
2300 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2301 CALL wrf_ext_read_field ( &
2302 fid , & ! DataHandle
2303 current_date(1:19) , & ! DateStr
2304 'XLONG_V' , & ! Data Name
2305 grid%em_xlong_v , & ! Field
2306 WRF_FLOAT , & ! FieldType
2307 grid%communicator , & ! Comm
2308 grid%iocommunicator , & ! Comm
2309 grid%domdesc , & ! Comm
2310 grid%bdy_mask , & ! bdy_mask
2311 'XY' , & ! MemoryOrder
2312 'Y' , & ! Stagger
2313 'inc/wrf_histin.inc ext_read_field XLONG_V memorder XY' , & ! Debug message
2314 ids , (ide-1) , jds , jde , 1 , 1 , &
2315 ims , ime , jms , jme , 1 , 1 , &
2316 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
2317 ierr )
2318 END IF
2319 CALL wrf_ext_read_field ( &
2320 fid , & ! DataHandle
2321 current_date(1:19) , & ! DateStr
2322 'TMN' , & ! Data Name
2323 grid%tmn , & ! Field
2324 WRF_FLOAT , & ! FieldType
2325 grid%communicator , & ! Comm
2326 grid%iocommunicator , & ! Comm
2327 grid%domdesc , & ! Comm
2328 grid%bdy_mask , & ! bdy_mask
2329 'XY' , & ! MemoryOrder
2330 '' , & ! Stagger
2331 'inc/wrf_histin.inc ext_read_field TMN memorder XY' , & ! Debug message
2332 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2333 ims , ime , jms , jme , 1 , 1 , &
2334 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2335 ierr )
2336 CALL wrf_ext_read_field ( &
2337 fid , & ! DataHandle
2338 current_date(1:19) , & ! DateStr
2339 'XLAND' , & ! Data Name
2340 grid%xland , & ! Field
2341 WRF_FLOAT , & ! FieldType
2342 grid%communicator , & ! Comm
2343 grid%iocommunicator , & ! Comm
2344 grid%domdesc , & ! Comm
2345 grid%bdy_mask , & ! bdy_mask
2346 'XY' , & ! MemoryOrder
2347 '' , & ! Stagger
2348 'inc/wrf_histin.inc ext_read_field XLAND memorder XY' , & ! Debug message
2349 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2350 ims , ime , jms , jme , 1 , 1 , &
2351 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2352 ierr )
2353 CALL wrf_ext_read_field ( &
2354 fid , & ! DataHandle
2355 current_date(1:19) , & ! DateStr
2356 'SNOWC' , & ! Data Name
2357 grid%snowc , & ! Field
2358 WRF_FLOAT , & ! FieldType
2359 grid%communicator , & ! Comm
2360 grid%iocommunicator , & ! Comm
2361 grid%domdesc , & ! Comm
2362 grid%bdy_mask , & ! bdy_mask
2363 'XY' , & ! MemoryOrder
2364 '' , & ! Stagger
2365 'inc/wrf_histin.inc ext_read_field SNOWC memorder XY' , & ! Debug message
2366 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2367 ims , ime , jms , jme , 1 , 1 , &
2368 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2369 ierr )
2370 !ENDOFREGISTRYGENERATEDINCLUDE