wrf_auxinput1in.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxinput1in.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 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
8 CALL wrf_ext_read_field ( &
9 fid , & ! DataHandle
10 current_date(1:19) , & ! DateStr
11 'UU' , & ! Data Name
12 grid%em_u_gc , & ! Field
13 WRF_FLOAT , & ! FieldType
14 grid%communicator , & ! Comm
15 grid%iocommunicator , & ! Comm
16 grid%domdesc , & ! Comm
17 grid%bdy_mask , & ! bdy_mask
18 'XZY' , & ! MemoryOrder
19 'X' , & ! Stagger
20 'inc/wrf_auxinput1in.inc ext_read_field UU memorder XZY' , & ! Debug message
21 ids , ide , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
22 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
23 ips , MIN( ide, ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( (jde-1), jpe ) , &
24 ierr )
25 END IF
26 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
27 CALL wrf_ext_read_field ( &
28 fid , & ! DataHandle
29 current_date(1:19) , & ! DateStr
30 'VV' , & ! Data Name
31 grid%em_v_gc , & ! Field
32 WRF_FLOAT , & ! FieldType
33 grid%communicator , & ! Comm
34 grid%iocommunicator , & ! Comm
35 grid%domdesc , & ! Comm
36 grid%bdy_mask , & ! bdy_mask
37 'XZY' , & ! MemoryOrder
38 'Y' , & ! Stagger
39 'inc/wrf_auxinput1in.inc ext_read_field VV memorder XZY' , & ! Debug message
40 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , jde , &
41 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
42 ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( jde, jpe ) , &
43 ierr )
44 END IF
45 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
46 CALL wrf_ext_read_field ( &
47 fid , & ! DataHandle
48 current_date(1:19) , & ! DateStr
49 'TT' , & ! Data Name
50 grid%em_t_gc , & ! Field
51 WRF_FLOAT , & ! FieldType
52 grid%communicator , & ! Comm
53 grid%iocommunicator , & ! Comm
54 grid%domdesc , & ! Comm
55 grid%bdy_mask , & ! bdy_mask
56 'XZY' , & ! MemoryOrder
57 '' , & ! Stagger
58 'inc/wrf_auxinput1in.inc ext_read_field TT memorder XZY' , & ! Debug message
59 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
60 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
61 ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( (jde-1), jpe ) , &
62 ierr )
63 END IF
64 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
65 CALL wrf_ext_read_field ( &
66 fid , & ! DataHandle
67 current_date(1:19) , & ! DateStr
68 'RH' , & ! Data Name
69 grid%em_rh_gc , & ! Field
70 WRF_FLOAT , & ! FieldType
71 grid%communicator , & ! Comm
72 grid%iocommunicator , & ! Comm
73 grid%domdesc , & ! Comm
74 grid%bdy_mask , & ! bdy_mask
75 'XZY' , & ! MemoryOrder
76 '' , & ! Stagger
77 'inc/wrf_auxinput1in.inc ext_read_field RH memorder XZY' , & ! Debug message
78 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
79 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
80 ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( (jde-1), jpe ) , &
81 ierr )
82 END IF
83 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
84 CALL wrf_ext_read_field ( &
85 fid , & ! DataHandle
86 current_date(1:19) , & ! DateStr
87 'GHT' , & ! Data Name
88 grid%em_ght_gc , & ! Field
89 WRF_FLOAT , & ! FieldType
90 grid%communicator , & ! Comm
91 grid%iocommunicator , & ! Comm
92 grid%domdesc , & ! Comm
93 grid%bdy_mask , & ! bdy_mask
94 'XZY' , & ! MemoryOrder
95 '' , & ! Stagger
96 'inc/wrf_auxinput1in.inc ext_read_field GHT memorder XZY' , & ! Debug message
97 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
98 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
99 ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( (jde-1), jpe ) , &
100 ierr )
101 END IF
102 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
103 CALL wrf_ext_read_field ( &
104 fid , & ! DataHandle
105 current_date(1:19) , & ! DateStr
106 'P' , & ! Data Name
107 grid%em_p_gc , & ! Field
108 WRF_FLOAT , & ! FieldType
109 grid%communicator , & ! Comm
110 grid%iocommunicator , & ! Comm
111 grid%domdesc , & ! Comm
112 grid%bdy_mask , & ! bdy_mask
113 'XZY' , & ! MemoryOrder
114 '' , & ! Stagger
115 'inc/wrf_auxinput1in.inc ext_read_field P memorder XZY' , & ! Debug message
116 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
117 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
118 ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( (jde-1), jpe ) , &
119 ierr )
120 END IF
121 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
122 CALL wrf_ext_read_field ( &
123 fid , & ! DataHandle
124 current_date(1:19) , & ! DateStr
125 'XLAT_M' , & ! Data Name
126 grid%em_xlat_gc , & ! Field
127 WRF_FLOAT , & ! FieldType
128 grid%communicator , & ! Comm
129 grid%iocommunicator , & ! Comm
130 grid%domdesc , & ! Comm
131 grid%bdy_mask , & ! bdy_mask
132 'XY' , & ! MemoryOrder
133 '' , & ! Stagger
134 'inc/wrf_auxinput1in.inc ext_read_field XLAT_M memorder XY' , & ! Debug message
135 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
136 ims , ime , jms , jme , 1 , 1 , &
137 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
138 ierr )
139 END IF
140 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
141 CALL wrf_ext_read_field ( &
142 fid , & ! DataHandle
143 current_date(1:19) , & ! DateStr
144 'XLONG_M' , & ! Data Name
145 grid%em_xlong_gc , & ! Field
146 WRF_FLOAT , & ! FieldType
147 grid%communicator , & ! Comm
148 grid%iocommunicator , & ! Comm
149 grid%domdesc , & ! Comm
150 grid%bdy_mask , & ! bdy_mask
151 'XY' , & ! MemoryOrder
152 '' , & ! Stagger
153 'inc/wrf_auxinput1in.inc ext_read_field XLONG_M memorder XY' , & ! Debug message
154 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
155 ims , ime , jms , jme , 1 , 1 , &
156 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
157 ierr )
158 END IF
159 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
160 CALL wrf_ext_read_field ( &
161 fid , & ! DataHandle
162 current_date(1:19) , & ! DateStr
163 'HGT_M' , & ! Data Name
164 grid%em_ht_gc , & ! Field
165 WRF_FLOAT , & ! FieldType
166 grid%communicator , & ! Comm
167 grid%iocommunicator , & ! Comm
168 grid%domdesc , & ! Comm
169 grid%bdy_mask , & ! bdy_mask
170 'XY' , & ! MemoryOrder
171 '' , & ! Stagger
172 'inc/wrf_auxinput1in.inc ext_read_field HGT_M memorder XY' , & ! Debug message
173 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
174 ims , ime , jms , jme , 1 , 1 , &
175 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
176 ierr )
177 END IF
178 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
179 CALL wrf_ext_read_field ( &
180 fid , & ! DataHandle
181 current_date(1:19) , & ! DateStr
182 'SKINTEMP' , & ! Data Name
183 grid%em_tsk_gc , & ! Field
184 WRF_FLOAT , & ! FieldType
185 grid%communicator , & ! Comm
186 grid%iocommunicator , & ! Comm
187 grid%domdesc , & ! Comm
188 grid%bdy_mask , & ! bdy_mask
189 'XY' , & ! MemoryOrder
190 '' , & ! Stagger
191 'inc/wrf_auxinput1in.inc ext_read_field SKINTEMP memorder XY' , & ! Debug message
192 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
193 ims , ime , jms , jme , 1 , 1 , &
194 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
195 ierr )
196 END IF
197 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
198 CALL wrf_ext_read_field ( &
199 fid , & ! DataHandle
200 current_date(1:19) , & ! DateStr
201 'SOILTEMP' , & ! Data Name
202 grid%em_tmn_gc , & ! Field
203 WRF_FLOAT , & ! FieldType
204 grid%communicator , & ! Comm
205 grid%iocommunicator , & ! Comm
206 grid%domdesc , & ! Comm
207 grid%bdy_mask , & ! bdy_mask
208 'XY' , & ! MemoryOrder
209 '' , & ! Stagger
210 'inc/wrf_auxinput1in.inc ext_read_field SOILTEMP memorder XY' , & ! Debug message
211 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
212 ims , ime , jms , jme , 1 , 1 , &
213 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
214 ierr )
215 END IF
216 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
217 CALL wrf_ext_read_field ( &
218 fid , & ! DataHandle
219 current_date(1:19) , & ! DateStr
220 'PMSL' , & ! Data Name
221 grid%em_pslv_gc , & ! Field
222 WRF_FLOAT , & ! FieldType
223 grid%communicator , & ! Comm
224 grid%iocommunicator , & ! Comm
225 grid%domdesc , & ! Comm
226 grid%bdy_mask , & ! bdy_mask
227 'XY' , & ! MemoryOrder
228 '' , & ! Stagger
229 'inc/wrf_auxinput1in.inc ext_read_field PMSL memorder XY' , & ! Debug message
230 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
231 ims , ime , jms , jme , 1 , 1 , &
232 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
233 ierr )
234 END IF
235 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
236 CALL wrf_ext_read_field ( &
237 fid , & ! DataHandle
238 current_date(1:19) , & ! DateStr
239 'GREENFRAC' , & ! Data Name
240 grid%em_greenfrac , & ! Field
241 WRF_FLOAT , & ! FieldType
242 grid%communicator , & ! Comm
243 grid%iocommunicator , & ! Comm
244 grid%domdesc , & ! Comm
245 grid%bdy_mask , & ! bdy_mask
246 'XZY' , & ! MemoryOrder
247 '' , & ! Stagger
248 'inc/wrf_auxinput1in.inc ext_read_field GREENFRAC memorder XZY' , & ! Debug message
249 ids , (ide-1) , 1 , 12 , jds , (jde-1) , &
250 ims , ime , 1 , 12 , jms , jme , &
251 ips , MIN( (ide-1), ipe ) , 1 , 12 , jps , MIN( (jde-1), jpe ) , &
252 ierr )
253 END IF
254 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
255 CALL wrf_ext_read_field ( &
256 fid , & ! DataHandle
257 current_date(1:19) , & ! DateStr
258 'ALBEDO12M' , & ! Data Name
259 grid%em_albedo12m , & ! Field
260 WRF_FLOAT , & ! FieldType
261 grid%communicator , & ! Comm
262 grid%iocommunicator , & ! Comm
263 grid%domdesc , & ! Comm
264 grid%bdy_mask , & ! bdy_mask
265 'XZY' , & ! MemoryOrder
266 '' , & ! Stagger
267 'inc/wrf_auxinput1in.inc ext_read_field ALBEDO12M memorder XZY' , & ! Debug message
268 ids , (ide-1) , 1 , 12 , jds , (jde-1) , &
269 ims , ime , 1 , 12 , jms , jme , &
270 ips , MIN( (ide-1), ipe ) , 1 , 12 , jps , MIN( (jde-1), jpe ) , &
271 ierr )
272 END IF
273 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
274 CALL wrf_ext_read_field ( &
275 fid , & ! DataHandle
276 current_date(1:19) , & ! DateStr
277 'QV' , & ! Data Name
278 grid%em_qv_gc , & ! Field
279 WRF_FLOAT , & ! FieldType
280 grid%communicator , & ! Comm
281 grid%iocommunicator , & ! Comm
282 grid%domdesc , & ! Comm
283 grid%bdy_mask , & ! bdy_mask
284 'XZY' , & ! MemoryOrder
285 '' , & ! Stagger
286 'inc/wrf_auxinput1in.inc ext_read_field QV memorder XZY' , & ! Debug message
287 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
288 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
289 ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( (jde-1), jpe ) , &
290 ierr )
291 END IF
292 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
293 CALL wrf_ext_read_field ( &
294 fid , & ! DataHandle
295 current_date(1:19) , & ! DateStr
296 'U' , & ! Data Name
297 grid%em_u_2 , & ! Field
298 WRF_FLOAT , & ! FieldType
299 grid%communicator , & ! Comm
300 grid%iocommunicator , & ! Comm
301 grid%domdesc , & ! Comm
302 grid%bdy_mask , & ! bdy_mask
303 'XYZ' , & ! MemoryOrder
304 'X' , & ! Stagger
305 'inc/wrf_auxinput1in.inc ext_read_field U memorder XYZ' , & ! Debug message
306 ids , ide , jds , (jde-1) , kds , (kde-1) , &
307 ims , ime , jms , jme , kms , kme , &
308 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
309 ierr )
310 END IF
311 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
312 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
313 CALL wrf_ext_read_field ( &
314 fid , & ! DataHandle
315 current_date(1:19) , & ! DateStr
316 'A_U' , & ! Data Name
317 grid%em_a_u_2 , & ! Field
318 WRF_FLOAT , & ! FieldType
319 grid%communicator , & ! Comm
320 grid%iocommunicator , & ! Comm
321 grid%domdesc , & ! Comm
322 grid%bdy_mask , & ! bdy_mask
323 'XYZ' , & ! MemoryOrder
324 'X' , & ! Stagger
325 'inc/wrf_auxinput1in.inc ext_read_field A_U memorder XYZ' , & ! Debug message
326 ids , ide , jds , (jde-1) , kds , (kde-1) , &
327 ims , ime , jms , jme , kms , kme , &
328 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
329 ierr )
330 END IF
331 END IF
332 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
333 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
334 CALL wrf_ext_read_field ( &
335 fid , & ! DataHandle
336 current_date(1:19) , & ! DateStr
337 'G_U' , & ! Data Name
338 grid%em_g_u_2 , & ! Field
339 WRF_FLOAT , & ! FieldType
340 grid%communicator , & ! Comm
341 grid%iocommunicator , & ! Comm
342 grid%domdesc , & ! Comm
343 grid%bdy_mask , & ! bdy_mask
344 'XYZ' , & ! MemoryOrder
345 'X' , & ! Stagger
346 'inc/wrf_auxinput1in.inc ext_read_field G_U memorder XYZ' , & ! Debug message
347 ids , ide , jds , (jde-1) , kds , (kde-1) , &
348 ims , ime , jms , jme , kms , kme , &
349 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
350 ierr )
351 END IF
352 END IF
353 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
354 CALL wrf_ext_read_field ( &
355 fid , & ! DataHandle
356 current_date(1:19) , & ! DateStr
357 'V' , & ! Data Name
358 grid%em_v_2 , & ! Field
359 WRF_FLOAT , & ! FieldType
360 grid%communicator , & ! Comm
361 grid%iocommunicator , & ! Comm
362 grid%domdesc , & ! Comm
363 grid%bdy_mask , & ! bdy_mask
364 'XYZ' , & ! MemoryOrder
365 'Y' , & ! Stagger
366 'inc/wrf_auxinput1in.inc ext_read_field V memorder XYZ' , & ! Debug message
367 ids , (ide-1) , jds , jde , kds , (kde-1) , &
368 ims , ime , jms , jme , kms , kme , &
369 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
370 ierr )
371 END IF
372 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
373 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
374 CALL wrf_ext_read_field ( &
375 fid , & ! DataHandle
376 current_date(1:19) , & ! DateStr
377 'A_V' , & ! Data Name
378 grid%em_a_v_2 , & ! Field
379 WRF_FLOAT , & ! FieldType
380 grid%communicator , & ! Comm
381 grid%iocommunicator , & ! Comm
382 grid%domdesc , & ! Comm
383 grid%bdy_mask , & ! bdy_mask
384 'XYZ' , & ! MemoryOrder
385 'Y' , & ! Stagger
386 'inc/wrf_auxinput1in.inc ext_read_field A_V memorder XYZ' , & ! Debug message
387 ids , (ide-1) , jds , jde , kds , (kde-1) , &
388 ims , ime , jms , jme , kms , kme , &
389 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
390 ierr )
391 END IF
392 END IF
393 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
394 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
395 CALL wrf_ext_read_field ( &
396 fid , & ! DataHandle
397 current_date(1:19) , & ! DateStr
398 'G_V' , & ! Data Name
399 grid%em_g_v_2 , & ! Field
400 WRF_FLOAT , & ! FieldType
401 grid%communicator , & ! Comm
402 grid%iocommunicator , & ! Comm
403 grid%domdesc , & ! Comm
404 grid%bdy_mask , & ! bdy_mask
405 'XYZ' , & ! MemoryOrder
406 'Y' , & ! Stagger
407 'inc/wrf_auxinput1in.inc ext_read_field G_V memorder XYZ' , & ! Debug message
408 ids , (ide-1) , jds , jde , kds , (kde-1) , &
409 ims , ime , jms , jme , kms , kme , &
410 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
411 ierr )
412 END IF
413 END IF
414 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
415 CALL wrf_ext_read_field ( &
416 fid , & ! DataHandle
417 current_date(1:19) , & ! DateStr
418 'T' , & ! Data Name
419 grid%em_t_2 , & ! Field
420 WRF_FLOAT , & ! FieldType
421 grid%communicator , & ! Comm
422 grid%iocommunicator , & ! Comm
423 grid%domdesc , & ! Comm
424 grid%bdy_mask , & ! bdy_mask
425 'XYZ' , & ! MemoryOrder
426 '' , & ! Stagger
427 'inc/wrf_auxinput1in.inc ext_read_field T memorder XYZ' , & ! Debug message
428 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
429 ims , ime , jms , jme , kms , kme , &
430 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
431 ierr )
432 END IF
433 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
434 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
435 CALL wrf_ext_read_field ( &
436 fid , & ! DataHandle
437 current_date(1:19) , & ! DateStr
438 'A_T' , & ! Data Name
439 grid%em_a_t_2 , & ! Field
440 WRF_FLOAT , & ! FieldType
441 grid%communicator , & ! Comm
442 grid%iocommunicator , & ! Comm
443 grid%domdesc , & ! Comm
444 grid%bdy_mask , & ! bdy_mask
445 'XYZ' , & ! MemoryOrder
446 '' , & ! Stagger
447 'inc/wrf_auxinput1in.inc ext_read_field A_T memorder XYZ' , & ! Debug message
448 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
449 ims , ime , jms , jme , kms , kme , &
450 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
451 ierr )
452 END IF
453 END IF
454 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
455 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
456 CALL wrf_ext_read_field ( &
457 fid , & ! DataHandle
458 current_date(1:19) , & ! DateStr
459 'G_T' , & ! Data Name
460 grid%em_g_t_2 , & ! Field
461 WRF_FLOAT , & ! FieldType
462 grid%communicator , & ! Comm
463 grid%iocommunicator , & ! Comm
464 grid%domdesc , & ! Comm
465 grid%bdy_mask , & ! bdy_mask
466 'XYZ' , & ! MemoryOrder
467 '' , & ! Stagger
468 'inc/wrf_auxinput1in.inc ext_read_field G_T memorder XYZ' , & ! Debug message
469 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
470 ims , ime , jms , jme , kms , kme , &
471 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
472 ierr )
473 END IF
474 END IF
475 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
476 CALL wrf_ext_read_field ( &
477 fid , & ! DataHandle
478 current_date(1:19) , & ! DateStr
479 'MU0' , & ! Data Name
480 grid%em_mu0 , & ! Field
481 WRF_FLOAT , & ! FieldType
482 grid%communicator , & ! Comm
483 grid%iocommunicator , & ! Comm
484 grid%domdesc , & ! Comm
485 grid%bdy_mask , & ! bdy_mask
486 'XY' , & ! MemoryOrder
487 '' , & ! Stagger
488 'inc/wrf_auxinput1in.inc ext_read_field MU0 memorder XY' , & ! Debug message
489 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
490 ims , ime , jms , jme , 1 , 1 , &
491 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
492 ierr )
493 END IF
494 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
495 CALL wrf_ext_read_field ( &
496 fid , & ! DataHandle
497 current_date(1:19) , & ! DateStr
498 'ZNW' , & ! Data Name
499 grid%em_znw , & ! Field
500 WRF_FLOAT , & ! FieldType
501 grid%communicator , & ! Comm
502 grid%iocommunicator , & ! Comm
503 grid%domdesc , & ! Comm
504 grid%bdy_mask , & ! bdy_mask
505 'Z' , & ! MemoryOrder
506 'Z' , & ! Stagger
507 'inc/wrf_auxinput1in.inc ext_read_field ZNW memorder Z' , & ! Debug message
508 kds , kde , 1 , 1 , 1 , 1 , &
509 kms , kme , 1 , 1 , 1 , 1 , &
510 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
511 ierr )
512 END IF
513 DO itrace = PARAM_FIRST_SCALAR , num_moist
514 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
515 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
516 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
517 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
518 CALL wrf_ext_read_field ( &
519 fid , & ! DataHandle
520 current_date(1:19) , & ! DateStr
521 TRIM(moist_dname_table( grid%id, itrace )), & !data name
522 grid%moist(ims,jms,kms,itrace) , & ! Field
523 WRF_FLOAT , & ! FieldType
524 grid%communicator , & ! Comm
525 grid%iocommunicator , & ! Comm
526 grid%domdesc , & ! Comm
527 grid%bdy_mask , & ! bdy_mask
528 'XYZ' , & ! MemoryOrder
529 '' , & ! Stagger
530 'inc/wrf_auxinput1in.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
531 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
532 ims , ime , jms , jme , kms , kme , &
533 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
534 ierr )
535 ENDIF
536 ENDIF
537 ENDDO
538 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
539 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
540 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
541 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
542 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
543 CALL wrf_ext_read_field ( &
544 fid , & ! DataHandle
545 current_date(1:19) , & ! DateStr
546 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
547 grid%a_moist(ims,jms,kms,itrace) , & ! Field
548 WRF_FLOAT , & ! FieldType
549 grid%communicator , & ! Comm
550 grid%iocommunicator , & ! Comm
551 grid%domdesc , & ! Comm
552 grid%bdy_mask , & ! bdy_mask
553 'XYZ' , & ! MemoryOrder
554 '' , & ! Stagger
555 'inc/wrf_auxinput1in.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
556 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
557 ims , ime , jms , jme , kms , kme , &
558 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
559 ierr )
560 ENDIF
561 ENDIF
562 ENDDO
563 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
564 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
565 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
566 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
567 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
568 CALL wrf_ext_read_field ( &
569 fid , & ! DataHandle
570 current_date(1:19) , & ! DateStr
571 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
572 grid%g_moist(ims,jms,kms,itrace) , & ! Field
573 WRF_FLOAT , & ! FieldType
574 grid%communicator , & ! Comm
575 grid%iocommunicator , & ! Comm
576 grid%domdesc , & ! Comm
577 grid%bdy_mask , & ! bdy_mask
578 'XYZ' , & ! MemoryOrder
579 '' , & ! Stagger
580 'inc/wrf_auxinput1in.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
581 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
582 ims , ime , jms , jme , kms , kme , &
583 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
584 ierr )
585 ENDIF
586 ENDIF
587 ENDDO
588 DO itrace = PARAM_FIRST_SCALAR , num_scalar
589 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
590 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
591 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
592 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
593 CALL wrf_ext_read_field ( &
594 fid , & ! DataHandle
595 current_date(1:19) , & ! DateStr
596 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
597 grid%scalar(ims,jms,kms,itrace) , & ! Field
598 WRF_FLOAT , & ! FieldType
599 grid%communicator , & ! Comm
600 grid%iocommunicator , & ! Comm
601 grid%domdesc , & ! Comm
602 grid%bdy_mask , & ! bdy_mask
603 'XYZ' , & ! MemoryOrder
604 '' , & ! Stagger
605 'inc/wrf_auxinput1in.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
606 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
607 ims , ime , jms , jme , kms , kme , &
608 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
609 ierr )
610 ENDIF
611 ENDIF
612 ENDDO
613 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
614 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
615 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
616 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
617 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
618 CALL wrf_ext_read_field ( &
619 fid , & ! DataHandle
620 current_date(1:19) , & ! DateStr
621 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
622 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
623 WRF_FLOAT , & ! FieldType
624 grid%communicator , & ! Comm
625 grid%iocommunicator , & ! Comm
626 grid%domdesc , & ! Comm
627 grid%bdy_mask , & ! bdy_mask
628 'XYZ' , & ! MemoryOrder
629 '' , & ! Stagger
630 'inc/wrf_auxinput1in.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
631 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
632 ims , ime , jms , jme , kms , kme , &
633 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
634 ierr )
635 ENDIF
636 ENDIF
637 ENDDO
638 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
639 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
640 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
641 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
642 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
643 CALL wrf_ext_read_field ( &
644 fid , & ! DataHandle
645 current_date(1:19) , & ! DateStr
646 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
647 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
648 WRF_FLOAT , & ! FieldType
649 grid%communicator , & ! Comm
650 grid%iocommunicator , & ! Comm
651 grid%domdesc , & ! Comm
652 grid%bdy_mask , & ! bdy_mask
653 'XYZ' , & ! MemoryOrder
654 '' , & ! Stagger
655 'inc/wrf_auxinput1in.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
656 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
657 ims , ime , jms , jme , kms , kme , &
658 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
659 ierr )
660 ENDIF
661 ENDIF
662 ENDDO
663 CALL wrf_ext_read_field ( &
664 fid , & ! DataHandle
665 current_date(1:19) , & ! DateStr
666 'LANDMASK' , & ! Data Name
667 grid%landmask , & ! Field
668 WRF_FLOAT , & ! FieldType
669 grid%communicator , & ! Comm
670 grid%iocommunicator , & ! Comm
671 grid%domdesc , & ! Comm
672 grid%bdy_mask , & ! bdy_mask
673 'XY' , & ! MemoryOrder
674 '' , & ! Stagger
675 'inc/wrf_auxinput1in.inc ext_read_field LANDMASK memorder XY' , & ! Debug message
676 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
677 ims , ime , jms , jme , 1 , 1 , &
678 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
679 ierr )
680 CALL wrf_ext_read_field ( &
681 fid , & ! DataHandle
682 current_date(1:19) , & ! DateStr
683 'SHDMAX' , & ! Data Name
684 grid%shdmax , & ! Field
685 WRF_FLOAT , & ! FieldType
686 grid%communicator , & ! Comm
687 grid%iocommunicator , & ! Comm
688 grid%domdesc , & ! Comm
689 grid%bdy_mask , & ! bdy_mask
690 'XY' , & ! MemoryOrder
691 '' , & ! Stagger
692 'inc/wrf_auxinput1in.inc ext_read_field SHDMAX memorder XY' , & ! Debug message
693 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
694 ims , ime , jms , jme , 1 , 1 , &
695 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
696 ierr )
697 CALL wrf_ext_read_field ( &
698 fid , & ! DataHandle
699 current_date(1:19) , & ! DateStr
700 'SHDMIN' , & ! Data Name
701 grid%shdmin , & ! Field
702 WRF_FLOAT , & ! FieldType
703 grid%communicator , & ! Comm
704 grid%iocommunicator , & ! Comm
705 grid%domdesc , & ! Comm
706 grid%bdy_mask , & ! bdy_mask
707 'XY' , & ! MemoryOrder
708 '' , & ! Stagger
709 'inc/wrf_auxinput1in.inc ext_read_field SHDMIN memorder XY' , & ! Debug message
710 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
711 ims , ime , jms , jme , 1 , 1 , &
712 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
713 ierr )
714 CALL wrf_ext_read_field ( &
715 fid , & ! DataHandle
716 current_date(1:19) , & ! DateStr
717 'SNOALB' , & ! Data Name
718 grid%snoalb , & ! Field
719 WRF_FLOAT , & ! FieldType
720 grid%communicator , & ! Comm
721 grid%iocommunicator , & ! Comm
722 grid%domdesc , & ! Comm
723 grid%bdy_mask , & ! bdy_mask
724 'XY' , & ! MemoryOrder
725 '' , & ! Stagger
726 'inc/wrf_auxinput1in.inc ext_read_field SNOALB memorder XY' , & ! Debug message
727 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
728 ims , ime , jms , jme , 1 , 1 , &
729 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
730 ierr )
731 CALL wrf_ext_read_field ( &
732 fid , & ! DataHandle
733 current_date(1:19) , & ! DateStr
734 'XICE' , & ! Data Name
735 grid%xice , & ! Field
736 WRF_FLOAT , & ! FieldType
737 grid%communicator , & ! Comm
738 grid%iocommunicator , & ! Comm
739 grid%domdesc , & ! Comm
740 grid%bdy_mask , & ! bdy_mask
741 'XY' , & ! MemoryOrder
742 '' , & ! Stagger
743 'inc/wrf_auxinput1in.inc ext_read_field XICE memorder XY' , & ! Debug message
744 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
745 ims , ime , jms , jme , 1 , 1 , &
746 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
747 ierr )
748 CALL wrf_ext_read_field ( &
749 fid , & ! DataHandle
750 current_date(1:19) , & ! DateStr
751 'VEGFRA' , & ! Data Name
752 grid%vegfra , & ! Field
753 WRF_FLOAT , & ! FieldType
754 grid%communicator , & ! Comm
755 grid%iocommunicator , & ! Comm
756 grid%domdesc , & ! Comm
757 grid%bdy_mask , & ! bdy_mask
758 'XY' , & ! MemoryOrder
759 '' , & ! Stagger
760 'inc/wrf_auxinput1in.inc ext_read_field VEGFRA memorder XY' , & ! Debug message
761 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
762 ims , ime , jms , jme , 1 , 1 , &
763 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
764 ierr )
765 CALL wrf_ext_read_field ( &
766 fid , & ! DataHandle
767 current_date(1:19) , & ! DateStr
768 'SNOW' , & ! Data Name
769 grid%snow , & ! Field
770 WRF_FLOAT , & ! FieldType
771 grid%communicator , & ! Comm
772 grid%iocommunicator , & ! Comm
773 grid%domdesc , & ! Comm
774 grid%bdy_mask , & ! bdy_mask
775 'XY' , & ! MemoryOrder
776 '' , & ! Stagger
777 'inc/wrf_auxinput1in.inc ext_read_field SNOW memorder XY' , & ! Debug message
778 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
779 ims , ime , jms , jme , 1 , 1 , &
780 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
781 ierr )
782 CALL wrf_ext_read_field ( &
783 fid , & ! DataHandle
784 current_date(1:19) , & ! DateStr
785 'SNOWH' , & ! Data Name
786 grid%snowh , & ! Field
787 WRF_FLOAT , & ! FieldType
788 grid%communicator , & ! Comm
789 grid%iocommunicator , & ! Comm
790 grid%domdesc , & ! Comm
791 grid%bdy_mask , & ! bdy_mask
792 'XY' , & ! MemoryOrder
793 '' , & ! Stagger
794 'inc/wrf_auxinput1in.inc ext_read_field SNOWH memorder XY' , & ! Debug message
795 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
796 ims , ime , jms , jme , 1 , 1 , &
797 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
798 ierr )
799 CALL wrf_ext_read_field ( &
800 fid , & ! DataHandle
801 current_date(1:19) , & ! DateStr
802 'RHOSN' , & ! Data Name
803 grid%rhosn , & ! Field
804 WRF_FLOAT , & ! FieldType
805 grid%communicator , & ! Comm
806 grid%iocommunicator , & ! Comm
807 grid%domdesc , & ! Comm
808 grid%bdy_mask , & ! bdy_mask
809 'XY' , & ! MemoryOrder
810 '' , & ! Stagger
811 'inc/wrf_auxinput1in.inc ext_read_field RHOSN memorder XY' , & ! Debug message
812 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
813 ims , ime , jms , jme , 1 , 1 , &
814 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
815 ierr )
816 CALL wrf_ext_read_field ( &
817 fid , & ! DataHandle
818 current_date(1:19) , & ! DateStr
819 'CANWAT' , & ! Data Name
820 grid%canwat , & ! Field
821 WRF_FLOAT , & ! FieldType
822 grid%communicator , & ! Comm
823 grid%iocommunicator , & ! Comm
824 grid%domdesc , & ! Comm
825 grid%bdy_mask , & ! bdy_mask
826 'XY' , & ! MemoryOrder
827 '' , & ! Stagger
828 'inc/wrf_auxinput1in.inc ext_read_field CANWAT memorder XY' , & ! Debug message
829 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
830 ims , ime , jms , jme , 1 , 1 , &
831 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
832 ierr )
833 CALL wrf_ext_read_field ( &
834 fid , & ! DataHandle
835 current_date(1:19) , & ! DateStr
836 'SST' , & ! Data Name
837 grid%sst , & ! Field
838 WRF_FLOAT , & ! FieldType
839 grid%communicator , & ! Comm
840 grid%iocommunicator , & ! Comm
841 grid%domdesc , & ! Comm
842 grid%bdy_mask , & ! bdy_mask
843 'XY' , & ! MemoryOrder
844 '' , & ! Stagger
845 'inc/wrf_auxinput1in.inc ext_read_field SST memorder XY' , & ! Debug message
846 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
847 ims , ime , jms , jme , 1 , 1 , &
848 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
849 ierr )
850 CALL wrf_ext_read_field ( &
851 fid , & ! DataHandle
852 current_date(1:19) , & ! DateStr
853 'MAPFAC_M' , & ! Data Name
854 grid%msft , & ! Field
855 WRF_FLOAT , & ! FieldType
856 grid%communicator , & ! Comm
857 grid%iocommunicator , & ! Comm
858 grid%domdesc , & ! Comm
859 grid%bdy_mask , & ! bdy_mask
860 'XY' , & ! MemoryOrder
861 '' , & ! Stagger
862 'inc/wrf_auxinput1in.inc ext_read_field MAPFAC_M memorder XY' , & ! Debug message
863 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
864 ims , ime , jms , jme , 1 , 1 , &
865 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
866 ierr )
867 CALL wrf_ext_read_field ( &
868 fid , & ! DataHandle
869 current_date(1:19) , & ! DateStr
870 'MAPFAC_U' , & ! Data Name
871 grid%msfu , & ! Field
872 WRF_FLOAT , & ! FieldType
873 grid%communicator , & ! Comm
874 grid%iocommunicator , & ! Comm
875 grid%domdesc , & ! Comm
876 grid%bdy_mask , & ! bdy_mask
877 'XY' , & ! MemoryOrder
878 'X' , & ! Stagger
879 'inc/wrf_auxinput1in.inc ext_read_field MAPFAC_U memorder XY' , & ! Debug message
880 ids , ide , jds , (jde-1) , 1 , 1 , &
881 ims , ime , jms , jme , 1 , 1 , &
882 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
883 ierr )
884 CALL wrf_ext_read_field ( &
885 fid , & ! DataHandle
886 current_date(1:19) , & ! DateStr
887 'MAPFAC_V' , & ! Data Name
888 grid%msfv , & ! Field
889 WRF_FLOAT , & ! FieldType
890 grid%communicator , & ! Comm
891 grid%iocommunicator , & ! Comm
892 grid%domdesc , & ! Comm
893 grid%bdy_mask , & ! bdy_mask
894 'XY' , & ! MemoryOrder
895 'Y' , & ! Stagger
896 'inc/wrf_auxinput1in.inc ext_read_field MAPFAC_V memorder XY' , & ! Debug message
897 ids , (ide-1) , jds , jde , 1 , 1 , &
898 ims , ime , jms , jme , 1 , 1 , &
899 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
900 ierr )
901 CALL wrf_ext_read_field ( &
902 fid , & ! DataHandle
903 current_date(1:19) , & ! DateStr
904 'F' , & ! Data Name
905 grid%f , & ! Field
906 WRF_FLOAT , & ! FieldType
907 grid%communicator , & ! Comm
908 grid%iocommunicator , & ! Comm
909 grid%domdesc , & ! Comm
910 grid%bdy_mask , & ! bdy_mask
911 'XY' , & ! MemoryOrder
912 '' , & ! Stagger
913 'inc/wrf_auxinput1in.inc ext_read_field F memorder XY' , & ! Debug message
914 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
915 ims , ime , jms , jme , 1 , 1 , &
916 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
917 ierr )
918 CALL wrf_ext_read_field ( &
919 fid , & ! DataHandle
920 current_date(1:19) , & ! DateStr
921 'E' , & ! Data Name
922 grid%e , & ! Field
923 WRF_FLOAT , & ! FieldType
924 grid%communicator , & ! Comm
925 grid%iocommunicator , & ! Comm
926 grid%domdesc , & ! Comm
927 grid%bdy_mask , & ! bdy_mask
928 'XY' , & ! MemoryOrder
929 '' , & ! Stagger
930 'inc/wrf_auxinput1in.inc ext_read_field E memorder XY' , & ! Debug message
931 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
932 ims , ime , jms , jme , 1 , 1 , &
933 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
934 ierr )
935 CALL wrf_ext_read_field ( &
936 fid , & ! DataHandle
937 current_date(1:19) , & ! DateStr
938 'SINALPHA' , & ! Data Name
939 grid%sina , & ! Field
940 WRF_FLOAT , & ! FieldType
941 grid%communicator , & ! Comm
942 grid%iocommunicator , & ! Comm
943 grid%domdesc , & ! Comm
944 grid%bdy_mask , & ! bdy_mask
945 'XY' , & ! MemoryOrder
946 '' , & ! Stagger
947 'inc/wrf_auxinput1in.inc ext_read_field SINALPHA memorder XY' , & ! Debug message
948 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
949 ims , ime , jms , jme , 1 , 1 , &
950 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
951 ierr )
952 CALL wrf_ext_read_field ( &
953 fid , & ! DataHandle
954 current_date(1:19) , & ! DateStr
955 'COSALPHA' , & ! Data Name
956 grid%cosa , & ! Field
957 WRF_FLOAT , & ! FieldType
958 grid%communicator , & ! Comm
959 grid%iocommunicator , & ! Comm
960 grid%domdesc , & ! Comm
961 grid%bdy_mask , & ! bdy_mask
962 'XY' , & ! MemoryOrder
963 '' , & ! Stagger
964 'inc/wrf_auxinput1in.inc ext_read_field COSALPHA memorder XY' , & ! Debug message
965 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
966 ims , ime , jms , jme , 1 , 1 , &
967 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
968 ierr )
969 CALL wrf_ext_read_field ( &
970 fid , & ! DataHandle
971 current_date(1:19) , & ! DateStr
972 'HGT' , & ! Data Name
973 grid%ht , & ! Field
974 WRF_FLOAT , & ! FieldType
975 grid%communicator , & ! Comm
976 grid%iocommunicator , & ! Comm
977 grid%domdesc , & ! Comm
978 grid%bdy_mask , & ! bdy_mask
979 'XY' , & ! MemoryOrder
980 '' , & ! Stagger
981 'inc/wrf_auxinput1in.inc ext_read_field HGT memorder XY' , & ! Debug message
982 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
983 ims , ime , jms , jme , 1 , 1 , &
984 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
985 ierr )
986 CALL wrf_ext_read_field ( &
987 fid , & ! DataHandle
988 current_date(1:19) , & ! DateStr
989 'TSK' , & ! Data Name
990 grid%tsk , & ! Field
991 WRF_FLOAT , & ! FieldType
992 grid%communicator , & ! Comm
993 grid%iocommunicator , & ! Comm
994 grid%domdesc , & ! Comm
995 grid%bdy_mask , & ! bdy_mask
996 'XY' , & ! MemoryOrder
997 '' , & ! Stagger
998 'inc/wrf_auxinput1in.inc ext_read_field TSK memorder XY' , & ! Debug message
999 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1000 ims , ime , jms , jme , 1 , 1 , &
1001 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1002 ierr )
1003 CALL wrf_ext_read_field ( &
1004 fid , & ! DataHandle
1005 current_date(1:19) , & ! DateStr
1006 'XLAT' , & ! Data Name
1007 grid%xlat , & ! Field
1008 WRF_FLOAT , & ! FieldType
1009 grid%communicator , & ! Comm
1010 grid%iocommunicator , & ! Comm
1011 grid%domdesc , & ! Comm
1012 grid%bdy_mask , & ! bdy_mask
1013 'XY' , & ! MemoryOrder
1014 '' , & ! Stagger
1015 'inc/wrf_auxinput1in.inc ext_read_field XLAT memorder XY' , & ! Debug message
1016 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1017 ims , ime , jms , jme , 1 , 1 , &
1018 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1019 ierr )
1020 CALL wrf_ext_read_field ( &
1021 fid , & ! DataHandle
1022 current_date(1:19) , & ! DateStr
1023 'XLONG' , & ! Data Name
1024 grid%xlong , & ! Field
1025 WRF_FLOAT , & ! FieldType
1026 grid%communicator , & ! Comm
1027 grid%iocommunicator , & ! Comm
1028 grid%domdesc , & ! Comm
1029 grid%bdy_mask , & ! bdy_mask
1030 'XY' , & ! MemoryOrder
1031 '' , & ! Stagger
1032 'inc/wrf_auxinput1in.inc ext_read_field XLONG memorder XY' , & ! Debug message
1033 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1034 ims , ime , jms , jme , 1 , 1 , &
1035 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1036 ierr )
1037 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1038 CALL wrf_ext_read_field ( &
1039 fid , & ! DataHandle
1040 current_date(1:19) , & ! DateStr
1041 'XLAT_U' , & ! Data Name
1042 grid%em_xlat_u , & ! Field
1043 WRF_FLOAT , & ! FieldType
1044 grid%communicator , & ! Comm
1045 grid%iocommunicator , & ! Comm
1046 grid%domdesc , & ! Comm
1047 grid%bdy_mask , & ! bdy_mask
1048 'XY' , & ! MemoryOrder
1049 'X' , & ! Stagger
1050 'inc/wrf_auxinput1in.inc ext_read_field XLAT_U memorder XY' , & ! Debug message
1051 ids , ide , jds , (jde-1) , 1 , 1 , &
1052 ims , ime , jms , jme , 1 , 1 , &
1053 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1054 ierr )
1055 END IF
1056 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1057 CALL wrf_ext_read_field ( &
1058 fid , & ! DataHandle
1059 current_date(1:19) , & ! DateStr
1060 'XLONG_U' , & ! Data Name
1061 grid%em_xlong_u , & ! Field
1062 WRF_FLOAT , & ! FieldType
1063 grid%communicator , & ! Comm
1064 grid%iocommunicator , & ! Comm
1065 grid%domdesc , & ! Comm
1066 grid%bdy_mask , & ! bdy_mask
1067 'XY' , & ! MemoryOrder
1068 'X' , & ! Stagger
1069 'inc/wrf_auxinput1in.inc ext_read_field XLONG_U memorder XY' , & ! Debug message
1070 ids , ide , jds , (jde-1) , 1 , 1 , &
1071 ims , ime , jms , jme , 1 , 1 , &
1072 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1073 ierr )
1074 END IF
1075 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1076 CALL wrf_ext_read_field ( &
1077 fid , & ! DataHandle
1078 current_date(1:19) , & ! DateStr
1079 'XLAT_V' , & ! Data Name
1080 grid%em_xlat_v , & ! Field
1081 WRF_FLOAT , & ! FieldType
1082 grid%communicator , & ! Comm
1083 grid%iocommunicator , & ! Comm
1084 grid%domdesc , & ! Comm
1085 grid%bdy_mask , & ! bdy_mask
1086 'XY' , & ! MemoryOrder
1087 'Y' , & ! Stagger
1088 'inc/wrf_auxinput1in.inc ext_read_field XLAT_V memorder XY' , & ! Debug message
1089 ids , (ide-1) , jds , jde , 1 , 1 , &
1090 ims , ime , jms , jme , 1 , 1 , &
1091 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
1092 ierr )
1093 END IF
1094 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1095 CALL wrf_ext_read_field ( &
1096 fid , & ! DataHandle
1097 current_date(1:19) , & ! DateStr
1098 'XLONG_V' , & ! Data Name
1099 grid%em_xlong_v , & ! Field
1100 WRF_FLOAT , & ! FieldType
1101 grid%communicator , & ! Comm
1102 grid%iocommunicator , & ! Comm
1103 grid%domdesc , & ! Comm
1104 grid%bdy_mask , & ! bdy_mask
1105 'XY' , & ! MemoryOrder
1106 'Y' , & ! Stagger
1107 'inc/wrf_auxinput1in.inc ext_read_field XLONG_V memorder XY' , & ! Debug message
1108 ids , (ide-1) , jds , jde , 1 , 1 , &
1109 ims , ime , jms , jme , 1 , 1 , &
1110 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
1111 ierr )
1112 END IF
1113 CALL wrf_ext_read_field ( &
1114 fid , & ! DataHandle
1115 current_date(1:19) , & ! DateStr
1116 'ALBBCK' , & ! Data Name
1117 grid%albbck , & ! Field
1118 WRF_FLOAT , & ! FieldType
1119 grid%communicator , & ! Comm
1120 grid%iocommunicator , & ! Comm
1121 grid%domdesc , & ! Comm
1122 grid%bdy_mask , & ! bdy_mask
1123 'XY' , & ! MemoryOrder
1124 '' , & ! Stagger
1125 'inc/wrf_auxinput1in.inc ext_read_field ALBBCK memorder XY' , & ! Debug message
1126 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1127 ims , ime , jms , jme , 1 , 1 , &
1128 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1129 ierr )
1130 CALL wrf_ext_read_field ( &
1131 fid , & ! DataHandle
1132 current_date(1:19) , & ! DateStr
1133 'TMN' , & ! Data Name
1134 grid%tmn , & ! Field
1135 WRF_FLOAT , & ! FieldType
1136 grid%communicator , & ! Comm
1137 grid%iocommunicator , & ! Comm
1138 grid%domdesc , & ! Comm
1139 grid%bdy_mask , & ! bdy_mask
1140 'XY' , & ! MemoryOrder
1141 '' , & ! Stagger
1142 'inc/wrf_auxinput1in.inc ext_read_field TMN memorder XY' , & ! Debug message
1143 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1144 ims , ime , jms , jme , 1 , 1 , &
1145 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1146 ierr )
1147 !ENDOFREGISTRYGENERATEDINCLUDE