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