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