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