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 'QV' , & ! Data Name
12 grid%em_qv_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 '' , & ! Stagger
20 'inc/wrf_auxinput1in.inc ext_read_field QV memorder XZY' , & ! Debug message
21 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
22 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
23 ips , MIN( (ide-1), 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 'U' , & ! Data Name
31 grid%em_u_2 , & ! Field
32 WRF_FLOAT , & ! FieldType
33 grid%communicator , & ! Comm
34 grid%iocommunicator , & ! Comm
35 grid%domdesc , & ! Comm
36 grid%bdy_mask , & ! bdy_mask
37 'XYZ' , & ! MemoryOrder
38 'X' , & ! Stagger
39 'inc/wrf_auxinput1in.inc ext_read_field U memorder XYZ' , & ! Debug message
40 ids , ide , jds , (jde-1) , kds , (kde-1) , &
41 ims , ime , jms , jme , kms , kme , &
42 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
43 ierr )
44 END IF
45 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
46 CALL wrf_ext_read_field ( &
47 fid , & ! DataHandle
48 current_date(1:19) , & ! DateStr
49 'A_U' , & ! Data Name
50 grid%a_u_2 , & ! Field
51 WRF_FLOAT , & ! FieldType
52 grid%communicator , & ! Comm
53 grid%iocommunicator , & ! Comm
54 grid%domdesc , & ! Comm
55 grid%bdy_mask , & ! bdy_mask
56 'XYZ' , & ! MemoryOrder
57 'X' , & ! Stagger
58 'inc/wrf_auxinput1in.inc ext_read_field A_U memorder XYZ' , & ! Debug message
59 ids , ide , jds , (jde-1) , kds , (kde-1) , &
60 ims , ime , jms , jme , kms , kme , &
61 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
62 ierr )
63 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_auxinput1in.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 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 'V' , & ! Data Name
88 grid%em_v_2 , & ! Field
89 WRF_FLOAT , & ! FieldType
90 grid%communicator , & ! Comm
91 grid%iocommunicator , & ! Comm
92 grid%domdesc , & ! Comm
93 grid%bdy_mask , & ! bdy_mask
94 'XYZ' , & ! MemoryOrder
95 'Y' , & ! Stagger
96 'inc/wrf_auxinput1in.inc ext_read_field V memorder XYZ' , & ! Debug message
97 ids , (ide-1) , jds , jde , kds , (kde-1) , &
98 ims , ime , jms , jme , kms , kme , &
99 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
100 ierr )
101 END IF
102 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
103 CALL wrf_ext_read_field ( &
104 fid , & ! DataHandle
105 current_date(1:19) , & ! DateStr
106 'A_V' , & ! Data Name
107 grid%a_v_2 , & ! Field
108 WRF_FLOAT , & ! FieldType
109 grid%communicator , & ! Comm
110 grid%iocommunicator , & ! Comm
111 grid%domdesc , & ! Comm
112 grid%bdy_mask , & ! bdy_mask
113 'XYZ' , & ! MemoryOrder
114 'Y' , & ! Stagger
115 'inc/wrf_auxinput1in.inc ext_read_field A_V memorder XYZ' , & ! Debug message
116 ids , (ide-1) , jds , jde , kds , (kde-1) , &
117 ims , ime , jms , jme , kms , kme , &
118 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
119 ierr )
120 END IF
121 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
122 CALL wrf_ext_read_field ( &
123 fid , & ! DataHandle
124 current_date(1:19) , & ! DateStr
125 'G_V' , & ! Data Name
126 grid%g_v_2 , & ! Field
127 WRF_FLOAT , & ! FieldType
128 grid%communicator , & ! Comm
129 grid%iocommunicator , & ! Comm
130 grid%domdesc , & ! Comm
131 grid%bdy_mask , & ! bdy_mask
132 'XYZ' , & ! MemoryOrder
133 'Y' , & ! Stagger
134 'inc/wrf_auxinput1in.inc ext_read_field G_V memorder XYZ' , & ! Debug message
135 ids , (ide-1) , jds , jde , kds , (kde-1) , &
136 ims , ime , jms , jme , kms , kme , &
137 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
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 'T' , & ! Data Name
145 grid%em_t_2 , & ! Field
146 WRF_FLOAT , & ! FieldType
147 grid%communicator , & ! Comm
148 grid%iocommunicator , & ! Comm
149 grid%domdesc , & ! Comm
150 grid%bdy_mask , & ! bdy_mask
151 'XYZ' , & ! MemoryOrder
152 '' , & ! Stagger
153 'inc/wrf_auxinput1in.inc ext_read_field T memorder XYZ' , & ! Debug message
154 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
155 ims , ime , jms , jme , kms , kme , &
156 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
157 ierr )
158 END IF
159 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
160 CALL wrf_ext_read_field ( &
161 fid , & ! DataHandle
162 current_date(1:19) , & ! DateStr
163 'A_T' , & ! Data Name
164 grid%a_t_2 , & ! Field
165 WRF_FLOAT , & ! FieldType
166 grid%communicator , & ! Comm
167 grid%iocommunicator , & ! Comm
168 grid%domdesc , & ! Comm
169 grid%bdy_mask , & ! bdy_mask
170 'XYZ' , & ! MemoryOrder
171 '' , & ! Stagger
172 'inc/wrf_auxinput1in.inc ext_read_field A_T memorder XYZ' , & ! Debug message
173 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
174 ims , ime , jms , jme , kms , kme , &
175 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
176 ierr )
177 END IF
178 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
179 CALL wrf_ext_read_field ( &
180 fid , & ! DataHandle
181 current_date(1:19) , & ! DateStr
182 'G_T' , & ! Data Name
183 grid%g_t_2 , & ! Field
184 WRF_FLOAT , & ! FieldType
185 grid%communicator , & ! Comm
186 grid%iocommunicator , & ! Comm
187 grid%domdesc , & ! Comm
188 grid%bdy_mask , & ! bdy_mask
189 'XYZ' , & ! MemoryOrder
190 '' , & ! Stagger
191 'inc/wrf_auxinput1in.inc ext_read_field G_T memorder XYZ' , & ! Debug message
192 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
193 ims , ime , jms , jme , kms , kme , &
194 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
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 'MU0' , & ! Data Name
202 grid%em_mu0 , & ! 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 MU0 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 'ZNW' , & ! Data Name
221 grid%em_znw , & ! Field
222 WRF_FLOAT , & ! FieldType
223 grid%communicator , & ! Comm
224 grid%iocommunicator , & ! Comm
225 grid%domdesc , & ! Comm
226 grid%bdy_mask , & ! bdy_mask
227 'Z' , & ! MemoryOrder
228 'Z' , & ! Stagger
229 'inc/wrf_auxinput1in.inc ext_read_field ZNW memorder Z' , & ! Debug message
230 kds , kde , 1 , 1 , 1 , 1 , &
231 kms , kme , 1 , 1 , 1 , 1 , &
232 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
233 ierr )
234 END IF
235 DO itrace = PARAM_FIRST_SCALAR , num_moist
236 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
237 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
238 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
239 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
240 CALL wrf_ext_read_field ( &
241 fid , & ! DataHandle
242 current_date(1:19) , & ! DateStr
243 TRIM(moist_dname_table( grid%id, itrace )), & !data name
244 grid%moist(ims,jms,kms,itrace) , & ! Field
245 WRF_FLOAT , & ! FieldType
246 grid%communicator , & ! Comm
247 grid%iocommunicator , & ! Comm
248 grid%domdesc , & ! Comm
249 grid%bdy_mask , & ! bdy_mask
250 'XYZ' , & ! MemoryOrder
251 '' , & ! Stagger
252 'inc/wrf_auxinput1in.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
253 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
254 ims , ime , jms , jme , kms , kme , &
255 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
256 ierr )
257 ENDIF
258 ENDIF
259 ENDDO
260 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
261 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
262 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
263 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
264 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
265 CALL wrf_ext_read_field ( &
266 fid , & ! DataHandle
267 current_date(1:19) , & ! DateStr
268 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
269 grid%a_moist(ims,jms,kms,itrace) , & ! 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 '' , & ! Stagger
277 'inc/wrf_auxinput1in.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
278 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
279 ims , ime , jms , jme , kms , kme , &
280 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
281 ierr )
282 ENDIF
283 ENDIF
284 ENDDO
285 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
286 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
287 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
288 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
289 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
290 CALL wrf_ext_read_field ( &
291 fid , & ! DataHandle
292 current_date(1:19) , & ! DateStr
293 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
294 grid%g_moist(ims,jms,kms,itrace) , & ! Field
295 WRF_FLOAT , & ! FieldType
296 grid%communicator , & ! Comm
297 grid%iocommunicator , & ! Comm
298 grid%domdesc , & ! Comm
299 grid%bdy_mask , & ! bdy_mask
300 'XYZ' , & ! MemoryOrder
301 '' , & ! Stagger
302 'inc/wrf_auxinput1in.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
303 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
304 ims , ime , jms , jme , kms , kme , &
305 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
306 ierr )
307 ENDIF
308 ENDIF
309 ENDDO
310 DO itrace = PARAM_FIRST_SCALAR , num_scalar
311 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
312 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
313 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
314 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
315 CALL wrf_ext_read_field ( &
316 fid , & ! DataHandle
317 current_date(1:19) , & ! DateStr
318 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
319 grid%scalar(ims,jms,kms,itrace) , & ! Field
320 WRF_FLOAT , & ! FieldType
321 grid%communicator , & ! Comm
322 grid%iocommunicator , & ! Comm
323 grid%domdesc , & ! Comm
324 grid%bdy_mask , & ! bdy_mask
325 'XYZ' , & ! MemoryOrder
326 '' , & ! Stagger
327 'inc/wrf_auxinput1in.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
328 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
329 ims , ime , jms , jme , kms , kme , &
330 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
331 ierr )
332 ENDIF
333 ENDIF
334 ENDDO
335 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
336 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
337 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
338 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
339 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
340 CALL wrf_ext_read_field ( &
341 fid , & ! DataHandle
342 current_date(1:19) , & ! DateStr
343 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
344 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
345 WRF_FLOAT , & ! FieldType
346 grid%communicator , & ! Comm
347 grid%iocommunicator , & ! Comm
348 grid%domdesc , & ! Comm
349 grid%bdy_mask , & ! bdy_mask
350 'XYZ' , & ! MemoryOrder
351 '' , & ! Stagger
352 'inc/wrf_auxinput1in.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
353 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
354 ims , ime , jms , jme , kms , kme , &
355 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
356 ierr )
357 ENDIF
358 ENDIF
359 ENDDO
360 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
361 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
362 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
363 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
364 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
365 CALL wrf_ext_read_field ( &
366 fid , & ! DataHandle
367 current_date(1:19) , & ! DateStr
368 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
369 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
370 WRF_FLOAT , & ! FieldType
371 grid%communicator , & ! Comm
372 grid%iocommunicator , & ! Comm
373 grid%domdesc , & ! Comm
374 grid%bdy_mask , & ! bdy_mask
375 'XYZ' , & ! MemoryOrder
376 '' , & ! Stagger
377 'inc/wrf_auxinput1in.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
378 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
379 ims , ime , jms , jme , kms , kme , &
380 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
381 ierr )
382 ENDIF
383 ENDIF
384 ENDDO
385 CALL wrf_ext_read_field ( &
386 fid , & ! DataHandle
387 current_date(1:19) , & ! DateStr
388 'LANDMASK' , & ! Data Name
389 grid%landmask , & ! Field
390 WRF_FLOAT , & ! FieldType
391 grid%communicator , & ! Comm
392 grid%iocommunicator , & ! Comm
393 grid%domdesc , & ! Comm
394 grid%bdy_mask , & ! bdy_mask
395 'XY' , & ! MemoryOrder
396 '' , & ! Stagger
397 'inc/wrf_auxinput1in.inc ext_read_field LANDMASK memorder XY' , & ! Debug message
398 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
399 ims , ime , jms , jme , 1 , 1 , &
400 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
401 ierr )
402 CALL wrf_ext_read_field ( &
403 fid , & ! DataHandle
404 current_date(1:19) , & ! DateStr
405 'SHDMAX' , & ! Data Name
406 grid%shdmax , & ! Field
407 WRF_FLOAT , & ! FieldType
408 grid%communicator , & ! Comm
409 grid%iocommunicator , & ! Comm
410 grid%domdesc , & ! Comm
411 grid%bdy_mask , & ! bdy_mask
412 'XY' , & ! MemoryOrder
413 '' , & ! Stagger
414 'inc/wrf_auxinput1in.inc ext_read_field SHDMAX memorder XY' , & ! Debug message
415 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
416 ims , ime , jms , jme , 1 , 1 , &
417 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
418 ierr )
419 CALL wrf_ext_read_field ( &
420 fid , & ! DataHandle
421 current_date(1:19) , & ! DateStr
422 'SHDMIN' , & ! Data Name
423 grid%shdmin , & ! Field
424 WRF_FLOAT , & ! FieldType
425 grid%communicator , & ! Comm
426 grid%iocommunicator , & ! Comm
427 grid%domdesc , & ! Comm
428 grid%bdy_mask , & ! bdy_mask
429 'XY' , & ! MemoryOrder
430 '' , & ! Stagger
431 'inc/wrf_auxinput1in.inc ext_read_field SHDMIN memorder XY' , & ! Debug message
432 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
433 ims , ime , jms , jme , 1 , 1 , &
434 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
435 ierr )
436 CALL wrf_ext_read_field ( &
437 fid , & ! DataHandle
438 current_date(1:19) , & ! DateStr
439 'SNOALB' , & ! Data Name
440 grid%snoalb , & ! Field
441 WRF_FLOAT , & ! FieldType
442 grid%communicator , & ! Comm
443 grid%iocommunicator , & ! Comm
444 grid%domdesc , & ! Comm
445 grid%bdy_mask , & ! bdy_mask
446 'XY' , & ! MemoryOrder
447 '' , & ! Stagger
448 'inc/wrf_auxinput1in.inc ext_read_field SNOALB memorder XY' , & ! Debug message
449 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
450 ims , ime , jms , jme , 1 , 1 , &
451 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
452 ierr )
453 CALL wrf_ext_read_field ( &
454 fid , & ! DataHandle
455 current_date(1:19) , & ! DateStr
456 'XICE' , & ! Data Name
457 grid%xice , & ! Field
458 WRF_FLOAT , & ! FieldType
459 grid%communicator , & ! Comm
460 grid%iocommunicator , & ! Comm
461 grid%domdesc , & ! Comm
462 grid%bdy_mask , & ! bdy_mask
463 'XY' , & ! MemoryOrder
464 '' , & ! Stagger
465 'inc/wrf_auxinput1in.inc ext_read_field XICE memorder XY' , & ! Debug message
466 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
467 ims , ime , jms , jme , 1 , 1 , &
468 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
469 ierr )
470 CALL wrf_ext_read_field ( &
471 fid , & ! DataHandle
472 current_date(1:19) , & ! DateStr
473 'VEGFRA' , & ! Data Name
474 grid%vegfra , & ! Field
475 WRF_FLOAT , & ! FieldType
476 grid%communicator , & ! Comm
477 grid%iocommunicator , & ! Comm
478 grid%domdesc , & ! Comm
479 grid%bdy_mask , & ! bdy_mask
480 'XY' , & ! MemoryOrder
481 '' , & ! Stagger
482 'inc/wrf_auxinput1in.inc ext_read_field VEGFRA memorder XY' , & ! Debug message
483 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
484 ims , ime , jms , jme , 1 , 1 , &
485 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
486 ierr )
487 CALL wrf_ext_read_field ( &
488 fid , & ! DataHandle
489 current_date(1:19) , & ! DateStr
490 'SNOW' , & ! Data Name
491 grid%snow , & ! Field
492 WRF_FLOAT , & ! FieldType
493 grid%communicator , & ! Comm
494 grid%iocommunicator , & ! Comm
495 grid%domdesc , & ! Comm
496 grid%bdy_mask , & ! bdy_mask
497 'XY' , & ! MemoryOrder
498 '' , & ! Stagger
499 'inc/wrf_auxinput1in.inc ext_read_field SNOW memorder XY' , & ! Debug message
500 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
501 ims , ime , jms , jme , 1 , 1 , &
502 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
503 ierr )
504 CALL wrf_ext_read_field ( &
505 fid , & ! DataHandle
506 current_date(1:19) , & ! DateStr
507 'SNOWH' , & ! Data Name
508 grid%snowh , & ! Field
509 WRF_FLOAT , & ! FieldType
510 grid%communicator , & ! Comm
511 grid%iocommunicator , & ! Comm
512 grid%domdesc , & ! Comm
513 grid%bdy_mask , & ! bdy_mask
514 'XY' , & ! MemoryOrder
515 '' , & ! Stagger
516 'inc/wrf_auxinput1in.inc ext_read_field SNOWH memorder XY' , & ! Debug message
517 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
518 ims , ime , jms , jme , 1 , 1 , &
519 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
520 ierr )
521 CALL wrf_ext_read_field ( &
522 fid , & ! DataHandle
523 current_date(1:19) , & ! DateStr
524 'RHOSN' , & ! Data Name
525 grid%rhosn , & ! Field
526 WRF_FLOAT , & ! FieldType
527 grid%communicator , & ! Comm
528 grid%iocommunicator , & ! Comm
529 grid%domdesc , & ! Comm
530 grid%bdy_mask , & ! bdy_mask
531 'XY' , & ! MemoryOrder
532 '' , & ! Stagger
533 'inc/wrf_auxinput1in.inc ext_read_field RHOSN memorder XY' , & ! Debug message
534 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
535 ims , ime , jms , jme , 1 , 1 , &
536 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
537 ierr )
538 CALL wrf_ext_read_field ( &
539 fid , & ! DataHandle
540 current_date(1:19) , & ! DateStr
541 'CANWAT' , & ! Data Name
542 grid%canwat , & ! Field
543 WRF_FLOAT , & ! FieldType
544 grid%communicator , & ! Comm
545 grid%iocommunicator , & ! Comm
546 grid%domdesc , & ! Comm
547 grid%bdy_mask , & ! bdy_mask
548 'XY' , & ! MemoryOrder
549 '' , & ! Stagger
550 'inc/wrf_auxinput1in.inc ext_read_field CANWAT memorder XY' , & ! Debug message
551 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
552 ims , ime , jms , jme , 1 , 1 , &
553 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
554 ierr )
555 CALL wrf_ext_read_field ( &
556 fid , & ! DataHandle
557 current_date(1:19) , & ! DateStr
558 'SST' , & ! Data Name
559 grid%sst , & ! Field
560 WRF_FLOAT , & ! FieldType
561 grid%communicator , & ! Comm
562 grid%iocommunicator , & ! Comm
563 grid%domdesc , & ! Comm
564 grid%bdy_mask , & ! bdy_mask
565 'XY' , & ! MemoryOrder
566 '' , & ! Stagger
567 'inc/wrf_auxinput1in.inc ext_read_field SST memorder XY' , & ! Debug message
568 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
569 ims , ime , jms , jme , 1 , 1 , &
570 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
571 ierr )
572 CALL wrf_ext_read_field ( &
573 fid , & ! DataHandle
574 current_date(1:19) , & ! DateStr
575 'MAPFAC_M' , & ! Data Name
576 grid%msft , & ! Field
577 WRF_FLOAT , & ! FieldType
578 grid%communicator , & ! Comm
579 grid%iocommunicator , & ! Comm
580 grid%domdesc , & ! Comm
581 grid%bdy_mask , & ! bdy_mask
582 'XY' , & ! MemoryOrder
583 '' , & ! Stagger
584 'inc/wrf_auxinput1in.inc ext_read_field MAPFAC_M memorder XY' , & ! Debug message
585 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
586 ims , ime , jms , jme , 1 , 1 , &
587 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
588 ierr )
589 CALL wrf_ext_read_field ( &
590 fid , & ! DataHandle
591 current_date(1:19) , & ! DateStr
592 'MAPFAC_U' , & ! Data Name
593 grid%msfu , & ! Field
594 WRF_FLOAT , & ! FieldType
595 grid%communicator , & ! Comm
596 grid%iocommunicator , & ! Comm
597 grid%domdesc , & ! Comm
598 grid%bdy_mask , & ! bdy_mask
599 'XY' , & ! MemoryOrder
600 'X' , & ! Stagger
601 'inc/wrf_auxinput1in.inc ext_read_field MAPFAC_U memorder XY' , & ! Debug message
602 ids , ide , jds , (jde-1) , 1 , 1 , &
603 ims , ime , jms , jme , 1 , 1 , &
604 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
605 ierr )
606 CALL wrf_ext_read_field ( &
607 fid , & ! DataHandle
608 current_date(1:19) , & ! DateStr
609 'MAPFAC_V' , & ! Data Name
610 grid%msfv , & ! Field
611 WRF_FLOAT , & ! FieldType
612 grid%communicator , & ! Comm
613 grid%iocommunicator , & ! Comm
614 grid%domdesc , & ! Comm
615 grid%bdy_mask , & ! bdy_mask
616 'XY' , & ! MemoryOrder
617 'Y' , & ! Stagger
618 'inc/wrf_auxinput1in.inc ext_read_field MAPFAC_V memorder XY' , & ! Debug message
619 ids , (ide-1) , jds , jde , 1 , 1 , &
620 ims , ime , jms , jme , 1 , 1 , &
621 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
622 ierr )
623 CALL wrf_ext_read_field ( &
624 fid , & ! DataHandle
625 current_date(1:19) , & ! DateStr
626 'F' , & ! Data Name
627 grid%f , & ! Field
628 WRF_FLOAT , & ! FieldType
629 grid%communicator , & ! Comm
630 grid%iocommunicator , & ! Comm
631 grid%domdesc , & ! Comm
632 grid%bdy_mask , & ! bdy_mask
633 'XY' , & ! MemoryOrder
634 '' , & ! Stagger
635 'inc/wrf_auxinput1in.inc ext_read_field F memorder XY' , & ! Debug message
636 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
637 ims , ime , jms , jme , 1 , 1 , &
638 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
639 ierr )
640 CALL wrf_ext_read_field ( &
641 fid , & ! DataHandle
642 current_date(1:19) , & ! DateStr
643 'E' , & ! Data Name
644 grid%e , & ! Field
645 WRF_FLOAT , & ! FieldType
646 grid%communicator , & ! Comm
647 grid%iocommunicator , & ! Comm
648 grid%domdesc , & ! Comm
649 grid%bdy_mask , & ! bdy_mask
650 'XY' , & ! MemoryOrder
651 '' , & ! Stagger
652 'inc/wrf_auxinput1in.inc ext_read_field E memorder XY' , & ! Debug message
653 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
654 ims , ime , jms , jme , 1 , 1 , &
655 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
656 ierr )
657 CALL wrf_ext_read_field ( &
658 fid , & ! DataHandle
659 current_date(1:19) , & ! DateStr
660 'SINALPHA' , & ! Data Name
661 grid%sina , & ! Field
662 WRF_FLOAT , & ! FieldType
663 grid%communicator , & ! Comm
664 grid%iocommunicator , & ! Comm
665 grid%domdesc , & ! Comm
666 grid%bdy_mask , & ! bdy_mask
667 'XY' , & ! MemoryOrder
668 '' , & ! Stagger
669 'inc/wrf_auxinput1in.inc ext_read_field SINALPHA memorder XY' , & ! Debug message
670 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
671 ims , ime , jms , jme , 1 , 1 , &
672 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
673 ierr )
674 CALL wrf_ext_read_field ( &
675 fid , & ! DataHandle
676 current_date(1:19) , & ! DateStr
677 'COSALPHA' , & ! Data Name
678 grid%cosa , & ! Field
679 WRF_FLOAT , & ! FieldType
680 grid%communicator , & ! Comm
681 grid%iocommunicator , & ! Comm
682 grid%domdesc , & ! Comm
683 grid%bdy_mask , & ! bdy_mask
684 'XY' , & ! MemoryOrder
685 '' , & ! Stagger
686 'inc/wrf_auxinput1in.inc ext_read_field COSALPHA memorder XY' , & ! Debug message
687 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
688 ims , ime , jms , jme , 1 , 1 , &
689 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
690 ierr )
691 CALL wrf_ext_read_field ( &
692 fid , & ! DataHandle
693 current_date(1:19) , & ! DateStr
694 'HGT' , & ! Data Name
695 grid%ht , & ! Field
696 WRF_FLOAT , & ! FieldType
697 grid%communicator , & ! Comm
698 grid%iocommunicator , & ! Comm
699 grid%domdesc , & ! Comm
700 grid%bdy_mask , & ! bdy_mask
701 'XY' , & ! MemoryOrder
702 '' , & ! Stagger
703 'inc/wrf_auxinput1in.inc ext_read_field HGT memorder XY' , & ! Debug message
704 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
705 ims , ime , jms , jme , 1 , 1 , &
706 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
707 ierr )
708 CALL wrf_ext_read_field ( &
709 fid , & ! DataHandle
710 current_date(1:19) , & ! DateStr
711 'TSK' , & ! Data Name
712 grid%tsk , & ! Field
713 WRF_FLOAT , & ! FieldType
714 grid%communicator , & ! Comm
715 grid%iocommunicator , & ! Comm
716 grid%domdesc , & ! Comm
717 grid%bdy_mask , & ! bdy_mask
718 'XY' , & ! MemoryOrder
719 '' , & ! Stagger
720 'inc/wrf_auxinput1in.inc ext_read_field TSK memorder XY' , & ! Debug message
721 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
722 ims , ime , jms , jme , 1 , 1 , &
723 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
724 ierr )
725 CALL wrf_ext_read_field ( &
726 fid , & ! DataHandle
727 current_date(1:19) , & ! DateStr
728 'XLAT' , & ! Data Name
729 grid%xlat , & ! Field
730 WRF_FLOAT , & ! FieldType
731 grid%communicator , & ! Comm
732 grid%iocommunicator , & ! Comm
733 grid%domdesc , & ! Comm
734 grid%bdy_mask , & ! bdy_mask
735 'XY' , & ! MemoryOrder
736 '' , & ! Stagger
737 'inc/wrf_auxinput1in.inc ext_read_field XLAT memorder XY' , & ! Debug message
738 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
739 ims , ime , jms , jme , 1 , 1 , &
740 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
741 ierr )
742 CALL wrf_ext_read_field ( &
743 fid , & ! DataHandle
744 current_date(1:19) , & ! DateStr
745 'XLONG' , & ! Data Name
746 grid%xlong , & ! Field
747 WRF_FLOAT , & ! FieldType
748 grid%communicator , & ! Comm
749 grid%iocommunicator , & ! Comm
750 grid%domdesc , & ! Comm
751 grid%bdy_mask , & ! bdy_mask
752 'XY' , & ! MemoryOrder
753 '' , & ! Stagger
754 'inc/wrf_auxinput1in.inc ext_read_field XLONG memorder XY' , & ! Debug message
755 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
756 ims , ime , jms , jme , 1 , 1 , &
757 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
758 ierr )
759 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
760 CALL wrf_ext_read_field ( &
761 fid , & ! DataHandle
762 current_date(1:19) , & ! DateStr
763 'XLAT_U' , & ! Data Name
764 grid%em_xlat_u , & ! Field
765 WRF_FLOAT , & ! FieldType
766 grid%communicator , & ! Comm
767 grid%iocommunicator , & ! Comm
768 grid%domdesc , & ! Comm
769 grid%bdy_mask , & ! bdy_mask
770 'XY' , & ! MemoryOrder
771 'X' , & ! Stagger
772 'inc/wrf_auxinput1in.inc ext_read_field XLAT_U memorder XY' , & ! Debug message
773 ids , ide , jds , (jde-1) , 1 , 1 , &
774 ims , ime , jms , jme , 1 , 1 , &
775 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
776 ierr )
777 END IF
778 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
779 CALL wrf_ext_read_field ( &
780 fid , & ! DataHandle
781 current_date(1:19) , & ! DateStr
782 'XLONG_U' , & ! Data Name
783 grid%em_xlong_u , & ! Field
784 WRF_FLOAT , & ! FieldType
785 grid%communicator , & ! Comm
786 grid%iocommunicator , & ! Comm
787 grid%domdesc , & ! Comm
788 grid%bdy_mask , & ! bdy_mask
789 'XY' , & ! MemoryOrder
790 'X' , & ! Stagger
791 'inc/wrf_auxinput1in.inc ext_read_field XLONG_U memorder XY' , & ! Debug message
792 ids , ide , jds , (jde-1) , 1 , 1 , &
793 ims , ime , jms , jme , 1 , 1 , &
794 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
795 ierr )
796 END IF
797 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
798 CALL wrf_ext_read_field ( &
799 fid , & ! DataHandle
800 current_date(1:19) , & ! DateStr
801 'XLAT_V' , & ! Data Name
802 grid%em_xlat_v , & ! Field
803 WRF_FLOAT , & ! FieldType
804 grid%communicator , & ! Comm
805 grid%iocommunicator , & ! Comm
806 grid%domdesc , & ! Comm
807 grid%bdy_mask , & ! bdy_mask
808 'XY' , & ! MemoryOrder
809 'Y' , & ! Stagger
810 'inc/wrf_auxinput1in.inc ext_read_field XLAT_V memorder XY' , & ! Debug message
811 ids , (ide-1) , jds , jde , 1 , 1 , &
812 ims , ime , jms , jme , 1 , 1 , &
813 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
814 ierr )
815 END IF
816 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
817 CALL wrf_ext_read_field ( &
818 fid , & ! DataHandle
819 current_date(1:19) , & ! DateStr
820 'XLONG_V' , & ! Data Name
821 grid%em_xlong_v , & ! Field
822 WRF_FLOAT , & ! FieldType
823 grid%communicator , & ! Comm
824 grid%iocommunicator , & ! Comm
825 grid%domdesc , & ! Comm
826 grid%bdy_mask , & ! bdy_mask
827 'XY' , & ! MemoryOrder
828 'Y' , & ! Stagger
829 'inc/wrf_auxinput1in.inc ext_read_field XLONG_V memorder XY' , & ! Debug message
830 ids , (ide-1) , jds , jde , 1 , 1 , &
831 ims , ime , jms , jme , 1 , 1 , &
832 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
833 ierr )
834 END IF
835 CALL wrf_ext_read_field ( &
836 fid , & ! DataHandle
837 current_date(1:19) , & ! DateStr
838 'ALBBCK' , & ! Data Name
839 grid%albbck , & ! 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_auxinput1in.inc ext_read_field ALBBCK 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 'TMN' , & ! Data Name
856 grid%tmn , & ! 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_auxinput1in.inc ext_read_field TMN 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 !ENDOFREGISTRYGENERATEDINCLUDE