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