wrf_auxinput2in.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxinput2in.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 DO itrace = PARAM_FIRST_SCALAR , num_moist
8 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
9 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
10 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
11 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
12 CALL wrf_ext_read_field ( &
13 fid , & ! DataHandle
14 current_date(1:19) , & ! DateStr
15 TRIM(moist_dname_table( grid%id, itrace )), & !data name
16 grid%moist(ims,jms,kms,itrace) , & ! Field
17 WRF_FLOAT , & ! FieldType
18 grid%communicator , & ! Comm
19 grid%iocommunicator , & ! Comm
20 grid%domdesc , & ! Comm
21 grid%bdy_mask , & ! bdy_mask
22 'XYZ' , & ! MemoryOrder
23 '' , & ! Stagger
24 'inc/wrf_auxinput2in.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
25 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
26 ims , ime , jms , jme , kms , kme , &
27 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
28 ierr )
29 ENDIF
30 ENDIF
31 ENDDO
32 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
33 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
34 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
35 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
36 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
37 CALL wrf_ext_read_field ( &
38 fid , & ! DataHandle
39 current_date(1:19) , & ! DateStr
40 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
41 grid%a_moist(ims,jms,kms,itrace) , & ! Field
42 WRF_FLOAT , & ! FieldType
43 grid%communicator , & ! Comm
44 grid%iocommunicator , & ! Comm
45 grid%domdesc , & ! Comm
46 grid%bdy_mask , & ! bdy_mask
47 'XYZ' , & ! MemoryOrder
48 '' , & ! Stagger
49 'inc/wrf_auxinput2in.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
50 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
51 ims , ime , jms , jme , kms , kme , &
52 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
53 ierr )
54 ENDIF
55 ENDIF
56 ENDDO
57 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
58 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
59 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
60 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
61 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
62 CALL wrf_ext_read_field ( &
63 fid , & ! DataHandle
64 current_date(1:19) , & ! DateStr
65 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
66 grid%g_moist(ims,jms,kms,itrace) , & ! Field
67 WRF_FLOAT , & ! FieldType
68 grid%communicator , & ! Comm
69 grid%iocommunicator , & ! Comm
70 grid%domdesc , & ! Comm
71 grid%bdy_mask , & ! bdy_mask
72 'XYZ' , & ! MemoryOrder
73 '' , & ! Stagger
74 'inc/wrf_auxinput2in.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
75 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
76 ims , ime , jms , jme , kms , kme , &
77 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
78 ierr )
79 ENDIF
80 ENDIF
81 ENDDO
82 DO itrace = PARAM_FIRST_SCALAR , num_scalar
83 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
84 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
85 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
86 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
87 CALL wrf_ext_read_field ( &
88 fid , & ! DataHandle
89 current_date(1:19) , & ! DateStr
90 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
91 grid%scalar(ims,jms,kms,itrace) , & ! Field
92 WRF_FLOAT , & ! FieldType
93 grid%communicator , & ! Comm
94 grid%iocommunicator , & ! Comm
95 grid%domdesc , & ! Comm
96 grid%bdy_mask , & ! bdy_mask
97 'XYZ' , & ! MemoryOrder
98 '' , & ! Stagger
99 'inc/wrf_auxinput2in.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
100 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
101 ims , ime , jms , jme , kms , kme , &
102 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
103 ierr )
104 ENDIF
105 ENDIF
106 ENDDO
107 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
108 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
109 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
110 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
111 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
112 CALL wrf_ext_read_field ( &
113 fid , & ! DataHandle
114 current_date(1:19) , & ! DateStr
115 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
116 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
117 WRF_FLOAT , & ! FieldType
118 grid%communicator , & ! Comm
119 grid%iocommunicator , & ! Comm
120 grid%domdesc , & ! Comm
121 grid%bdy_mask , & ! bdy_mask
122 'XYZ' , & ! MemoryOrder
123 '' , & ! Stagger
124 'inc/wrf_auxinput2in.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
125 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
126 ims , ime , jms , jme , kms , kme , &
127 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
128 ierr )
129 ENDIF
130 ENDIF
131 ENDDO
132 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
133 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
134 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
135 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
136 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
137 CALL wrf_ext_read_field ( &
138 fid , & ! DataHandle
139 current_date(1:19) , & ! DateStr
140 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
141 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
142 WRF_FLOAT , & ! FieldType
143 grid%communicator , & ! Comm
144 grid%iocommunicator , & ! Comm
145 grid%domdesc , & ! Comm
146 grid%bdy_mask , & ! bdy_mask
147 'XYZ' , & ! MemoryOrder
148 '' , & ! Stagger
149 'inc/wrf_auxinput2in.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
150 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
151 ims , ime , jms , jme , kms , kme , &
152 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
153 ierr )
154 ENDIF
155 ENDIF
156 ENDDO
157 CALL wrf_ext_read_field ( &
158 fid , & ! DataHandle
159 current_date(1:19) , & ! DateStr
160 'LANDMASK' , & ! Data Name
161 grid%landmask , & ! Field
162 WRF_FLOAT , & ! FieldType
163 grid%communicator , & ! Comm
164 grid%iocommunicator , & ! Comm
165 grid%domdesc , & ! Comm
166 grid%bdy_mask , & ! bdy_mask
167 'XY' , & ! MemoryOrder
168 '' , & ! Stagger
169 'inc/wrf_auxinput2in.inc ext_read_field LANDMASK memorder XY' , & ! Debug message
170 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
171 ims , ime , jms , jme , 1 , 1 , &
172 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
173 ierr )
174 CALL wrf_ext_read_field ( &
175 fid , & ! DataHandle
176 current_date(1:19) , & ! DateStr
177 'SHDMAX' , & ! Data Name
178 grid%shdmax , & ! Field
179 WRF_FLOAT , & ! FieldType
180 grid%communicator , & ! Comm
181 grid%iocommunicator , & ! Comm
182 grid%domdesc , & ! Comm
183 grid%bdy_mask , & ! bdy_mask
184 'XY' , & ! MemoryOrder
185 '' , & ! Stagger
186 'inc/wrf_auxinput2in.inc ext_read_field SHDMAX memorder XY' , & ! Debug message
187 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
188 ims , ime , jms , jme , 1 , 1 , &
189 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
190 ierr )
191 CALL wrf_ext_read_field ( &
192 fid , & ! DataHandle
193 current_date(1:19) , & ! DateStr
194 'SHDMIN' , & ! Data Name
195 grid%shdmin , & ! Field
196 WRF_FLOAT , & ! FieldType
197 grid%communicator , & ! Comm
198 grid%iocommunicator , & ! Comm
199 grid%domdesc , & ! Comm
200 grid%bdy_mask , & ! bdy_mask
201 'XY' , & ! MemoryOrder
202 '' , & ! Stagger
203 'inc/wrf_auxinput2in.inc ext_read_field SHDMIN memorder XY' , & ! Debug message
204 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
205 ims , ime , jms , jme , 1 , 1 , &
206 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
207 ierr )
208 CALL wrf_ext_read_field ( &
209 fid , & ! DataHandle
210 current_date(1:19) , & ! DateStr
211 'SNOALB' , & ! Data Name
212 grid%snoalb , & ! Field
213 WRF_FLOAT , & ! FieldType
214 grid%communicator , & ! Comm
215 grid%iocommunicator , & ! Comm
216 grid%domdesc , & ! Comm
217 grid%bdy_mask , & ! bdy_mask
218 'XY' , & ! MemoryOrder
219 '' , & ! Stagger
220 'inc/wrf_auxinput2in.inc ext_read_field SNOALB memorder XY' , & ! Debug message
221 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
222 ims , ime , jms , jme , 1 , 1 , &
223 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
224 ierr )
225 CALL wrf_ext_read_field ( &
226 fid , & ! DataHandle
227 current_date(1:19) , & ! DateStr
228 'TSLB' , & ! Data Name
229 grid%tslb , & ! 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_auxinput2in.inc ext_read_field TSLB memorder XYZ' , & ! Debug message
238 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
239 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
240 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
241 ierr )
242 CALL wrf_ext_read_field ( &
243 fid , & ! DataHandle
244 current_date(1:19) , & ! DateStr
245 'SMOIS' , & ! Data Name
246 grid%smois , & ! Field
247 WRF_FLOAT , & ! FieldType
248 grid%communicator , & ! Comm
249 grid%iocommunicator , & ! Comm
250 grid%domdesc , & ! Comm
251 grid%bdy_mask , & ! bdy_mask
252 'XYZ' , & ! MemoryOrder
253 'Z' , & ! Stagger
254 'inc/wrf_auxinput2in.inc ext_read_field SMOIS memorder XYZ' , & ! Debug message
255 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
256 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
257 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
258 ierr )
259 CALL wrf_ext_read_field ( &
260 fid , & ! DataHandle
261 current_date(1:19) , & ! DateStr
262 'SH2O' , & ! Data Name
263 grid%sh2o , & ! Field
264 WRF_FLOAT , & ! FieldType
265 grid%communicator , & ! Comm
266 grid%iocommunicator , & ! Comm
267 grid%domdesc , & ! Comm
268 grid%bdy_mask , & ! bdy_mask
269 'XYZ' , & ! MemoryOrder
270 'Z' , & ! Stagger
271 'inc/wrf_auxinput2in.inc ext_read_field SH2O memorder XYZ' , & ! Debug message
272 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
273 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
274 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
275 ierr )
276 CALL wrf_ext_read_field ( &
277 fid , & ! DataHandle
278 current_date(1:19) , & ! DateStr
279 'XICE' , & ! Data Name
280 grid%xice , & ! Field
281 WRF_FLOAT , & ! FieldType
282 grid%communicator , & ! Comm
283 grid%iocommunicator , & ! Comm
284 grid%domdesc , & ! Comm
285 grid%bdy_mask , & ! bdy_mask
286 'XY' , & ! MemoryOrder
287 '' , & ! Stagger
288 'inc/wrf_auxinput2in.inc ext_read_field XICE memorder XY' , & ! Debug message
289 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
290 ims , ime , jms , jme , 1 , 1 , &
291 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
292 ierr )
293 CALL wrf_ext_read_field ( &
294 fid , & ! DataHandle
295 current_date(1:19) , & ! DateStr
296 'IVGTYP' , & ! Data Name
297 grid%ivgtyp , & ! Field
298 WRF_integer , & ! FieldType
299 grid%communicator , & ! Comm
300 grid%iocommunicator , & ! Comm
301 grid%domdesc , & ! Comm
302 grid%bdy_mask , & ! bdy_mask
303 'XY' , & ! MemoryOrder
304 '' , & ! Stagger
305 'inc/wrf_auxinput2in.inc ext_read_field IVGTYP memorder XY' , & ! Debug message
306 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
307 ims , ime , jms , jme , 1 , 1 , &
308 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
309 ierr )
310 CALL wrf_ext_read_field ( &
311 fid , & ! DataHandle
312 current_date(1:19) , & ! DateStr
313 'ISLTYP' , & ! Data Name
314 grid%isltyp , & ! Field
315 WRF_integer , & ! FieldType
316 grid%communicator , & ! Comm
317 grid%iocommunicator , & ! Comm
318 grid%domdesc , & ! Comm
319 grid%bdy_mask , & ! bdy_mask
320 'XY' , & ! MemoryOrder
321 '' , & ! Stagger
322 'inc/wrf_auxinput2in.inc ext_read_field ISLTYP memorder XY' , & ! Debug message
323 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
324 ims , ime , jms , jme , 1 , 1 , &
325 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
326 ierr )
327 CALL wrf_ext_read_field ( &
328 fid , & ! DataHandle
329 current_date(1:19) , & ! DateStr
330 'VEGFRA' , & ! Data Name
331 grid%vegfra , & ! Field
332 WRF_FLOAT , & ! FieldType
333 grid%communicator , & ! Comm
334 grid%iocommunicator , & ! Comm
335 grid%domdesc , & ! Comm
336 grid%bdy_mask , & ! bdy_mask
337 'XY' , & ! MemoryOrder
338 '' , & ! Stagger
339 'inc/wrf_auxinput2in.inc ext_read_field VEGFRA memorder XY' , & ! Debug message
340 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
341 ims , ime , jms , jme , 1 , 1 , &
342 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
343 ierr )
344 CALL wrf_ext_read_field ( &
345 fid , & ! DataHandle
346 current_date(1:19) , & ! DateStr
347 'SST' , & ! Data Name
348 grid%sst , & ! 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_auxinput2in.inc ext_read_field SST 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 CALL wrf_ext_read_field ( &
362 fid , & ! DataHandle
363 current_date(1:19) , & ! DateStr
364 'MAPFAC_M' , & ! Data Name
365 grid%msft , & ! Field
366 WRF_FLOAT , & ! FieldType
367 grid%communicator , & ! Comm
368 grid%iocommunicator , & ! Comm
369 grid%domdesc , & ! Comm
370 grid%bdy_mask , & ! bdy_mask
371 'XY' , & ! MemoryOrder
372 '' , & ! Stagger
373 'inc/wrf_auxinput2in.inc ext_read_field MAPFAC_M memorder XY' , & ! Debug message
374 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
375 ims , ime , jms , jme , 1 , 1 , &
376 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
377 ierr )
378 CALL wrf_ext_read_field ( &
379 fid , & ! DataHandle
380 current_date(1:19) , & ! DateStr
381 'MAPFAC_U' , & ! Data Name
382 grid%msfu , & ! Field
383 WRF_FLOAT , & ! FieldType
384 grid%communicator , & ! Comm
385 grid%iocommunicator , & ! Comm
386 grid%domdesc , & ! Comm
387 grid%bdy_mask , & ! bdy_mask
388 'XY' , & ! MemoryOrder
389 'X' , & ! Stagger
390 'inc/wrf_auxinput2in.inc ext_read_field MAPFAC_U memorder XY' , & ! Debug message
391 ids , ide , jds , (jde-1) , 1 , 1 , &
392 ims , ime , jms , jme , 1 , 1 , &
393 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
394 ierr )
395 CALL wrf_ext_read_field ( &
396 fid , & ! DataHandle
397 current_date(1:19) , & ! DateStr
398 'MAPFAC_V' , & ! Data Name
399 grid%msfv , & ! Field
400 WRF_FLOAT , & ! FieldType
401 grid%communicator , & ! Comm
402 grid%iocommunicator , & ! Comm
403 grid%domdesc , & ! Comm
404 grid%bdy_mask , & ! bdy_mask
405 'XY' , & ! MemoryOrder
406 'Y' , & ! Stagger
407 'inc/wrf_auxinput2in.inc ext_read_field MAPFAC_V memorder XY' , & ! Debug message
408 ids , (ide-1) , jds , jde , 1 , 1 , &
409 ims , ime , jms , jme , 1 , 1 , &
410 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
411 ierr )
412 CALL wrf_ext_read_field ( &
413 fid , & ! DataHandle
414 current_date(1:19) , & ! DateStr
415 'F' , & ! Data Name
416 grid%f , & ! Field
417 WRF_FLOAT , & ! FieldType
418 grid%communicator , & ! Comm
419 grid%iocommunicator , & ! Comm
420 grid%domdesc , & ! Comm
421 grid%bdy_mask , & ! bdy_mask
422 'XY' , & ! MemoryOrder
423 '' , & ! Stagger
424 'inc/wrf_auxinput2in.inc ext_read_field F memorder XY' , & ! Debug message
425 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
426 ims , ime , jms , jme , 1 , 1 , &
427 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
428 ierr )
429 CALL wrf_ext_read_field ( &
430 fid , & ! DataHandle
431 current_date(1:19) , & ! DateStr
432 'E' , & ! Data Name
433 grid%e , & ! Field
434 WRF_FLOAT , & ! FieldType
435 grid%communicator , & ! Comm
436 grid%iocommunicator , & ! Comm
437 grid%domdesc , & ! Comm
438 grid%bdy_mask , & ! bdy_mask
439 'XY' , & ! MemoryOrder
440 '' , & ! Stagger
441 'inc/wrf_auxinput2in.inc ext_read_field E memorder XY' , & ! Debug message
442 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
443 ims , ime , jms , jme , 1 , 1 , &
444 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
445 ierr )
446 CALL wrf_ext_read_field ( &
447 fid , & ! DataHandle
448 current_date(1:19) , & ! DateStr
449 'SINALPHA' , & ! Data Name
450 grid%sina , & ! Field
451 WRF_FLOAT , & ! FieldType
452 grid%communicator , & ! Comm
453 grid%iocommunicator , & ! Comm
454 grid%domdesc , & ! Comm
455 grid%bdy_mask , & ! bdy_mask
456 'XY' , & ! MemoryOrder
457 '' , & ! Stagger
458 'inc/wrf_auxinput2in.inc ext_read_field SINALPHA memorder XY' , & ! Debug message
459 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
460 ims , ime , jms , jme , 1 , 1 , &
461 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
462 ierr )
463 CALL wrf_ext_read_field ( &
464 fid , & ! DataHandle
465 current_date(1:19) , & ! DateStr
466 'COSALPHA' , & ! Data Name
467 grid%cosa , & ! Field
468 WRF_FLOAT , & ! FieldType
469 grid%communicator , & ! Comm
470 grid%iocommunicator , & ! Comm
471 grid%domdesc , & ! Comm
472 grid%bdy_mask , & ! bdy_mask
473 'XY' , & ! MemoryOrder
474 '' , & ! Stagger
475 'inc/wrf_auxinput2in.inc ext_read_field COSALPHA memorder XY' , & ! Debug message
476 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
477 ims , ime , jms , jme , 1 , 1 , &
478 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
479 ierr )
480 CALL wrf_ext_read_field ( &
481 fid , & ! DataHandle
482 current_date(1:19) , & ! DateStr
483 'HGT' , & ! Data Name
484 grid%ht , & ! Field
485 WRF_FLOAT , & ! FieldType
486 grid%communicator , & ! Comm
487 grid%iocommunicator , & ! Comm
488 grid%domdesc , & ! Comm
489 grid%bdy_mask , & ! bdy_mask
490 'XY' , & ! MemoryOrder
491 '' , & ! Stagger
492 'inc/wrf_auxinput2in.inc ext_read_field HGT memorder XY' , & ! Debug message
493 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
494 ims , ime , jms , jme , 1 , 1 , &
495 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
496 ierr )
497 CALL wrf_ext_read_field ( &
498 fid , & ! DataHandle
499 current_date(1:19) , & ! DateStr
500 'TSK' , & ! Data Name
501 grid%tsk , & ! Field
502 WRF_FLOAT , & ! FieldType
503 grid%communicator , & ! Comm
504 grid%iocommunicator , & ! Comm
505 grid%domdesc , & ! Comm
506 grid%bdy_mask , & ! bdy_mask
507 'XY' , & ! MemoryOrder
508 '' , & ! Stagger
509 'inc/wrf_auxinput2in.inc ext_read_field TSK memorder XY' , & ! Debug message
510 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
511 ims , ime , jms , jme , 1 , 1 , &
512 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
513 ierr )
514 CALL wrf_ext_read_field ( &
515 fid , & ! DataHandle
516 current_date(1:19) , & ! DateStr
517 'XLAT' , & ! Data Name
518 grid%xlat , & ! Field
519 WRF_FLOAT , & ! FieldType
520 grid%communicator , & ! Comm
521 grid%iocommunicator , & ! Comm
522 grid%domdesc , & ! Comm
523 grid%bdy_mask , & ! bdy_mask
524 'XY' , & ! MemoryOrder
525 '' , & ! Stagger
526 'inc/wrf_auxinput2in.inc ext_read_field XLAT memorder XY' , & ! Debug message
527 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
528 ims , ime , jms , jme , 1 , 1 , &
529 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
530 ierr )
531 CALL wrf_ext_read_field ( &
532 fid , & ! DataHandle
533 current_date(1:19) , & ! DateStr
534 'XLONG' , & ! Data Name
535 grid%xlong , & ! Field
536 WRF_FLOAT , & ! FieldType
537 grid%communicator , & ! Comm
538 grid%iocommunicator , & ! Comm
539 grid%domdesc , & ! Comm
540 grid%bdy_mask , & ! bdy_mask
541 'XY' , & ! MemoryOrder
542 '' , & ! Stagger
543 'inc/wrf_auxinput2in.inc ext_read_field XLONG memorder XY' , & ! Debug message
544 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
545 ims , ime , jms , jme , 1 , 1 , &
546 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
547 ierr )
548 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
549 CALL wrf_ext_read_field ( &
550 fid , & ! DataHandle
551 current_date(1:19) , & ! DateStr
552 'XLAT_U' , & ! Data Name
553 grid%em_xlat_u , & ! Field
554 WRF_FLOAT , & ! FieldType
555 grid%communicator , & ! Comm
556 grid%iocommunicator , & ! Comm
557 grid%domdesc , & ! Comm
558 grid%bdy_mask , & ! bdy_mask
559 'XY' , & ! MemoryOrder
560 'X' , & ! Stagger
561 'inc/wrf_auxinput2in.inc ext_read_field XLAT_U memorder XY' , & ! Debug message
562 ids , ide , jds , (jde-1) , 1 , 1 , &
563 ims , ime , jms , jme , 1 , 1 , &
564 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
565 ierr )
566 END IF
567 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
568 CALL wrf_ext_read_field ( &
569 fid , & ! DataHandle
570 current_date(1:19) , & ! DateStr
571 'XLONG_U' , & ! Data Name
572 grid%em_xlong_u , & ! Field
573 WRF_FLOAT , & ! FieldType
574 grid%communicator , & ! Comm
575 grid%iocommunicator , & ! Comm
576 grid%domdesc , & ! Comm
577 grid%bdy_mask , & ! bdy_mask
578 'XY' , & ! MemoryOrder
579 'X' , & ! Stagger
580 'inc/wrf_auxinput2in.inc ext_read_field XLONG_U memorder XY' , & ! Debug message
581 ids , ide , jds , (jde-1) , 1 , 1 , &
582 ims , ime , jms , jme , 1 , 1 , &
583 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
584 ierr )
585 END IF
586 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
587 CALL wrf_ext_read_field ( &
588 fid , & ! DataHandle
589 current_date(1:19) , & ! DateStr
590 'XLAT_V' , & ! Data Name
591 grid%em_xlat_v , & ! Field
592 WRF_FLOAT , & ! FieldType
593 grid%communicator , & ! Comm
594 grid%iocommunicator , & ! Comm
595 grid%domdesc , & ! Comm
596 grid%bdy_mask , & ! bdy_mask
597 'XY' , & ! MemoryOrder
598 'Y' , & ! Stagger
599 'inc/wrf_auxinput2in.inc ext_read_field XLAT_V memorder XY' , & ! Debug message
600 ids , (ide-1) , jds , jde , 1 , 1 , &
601 ims , ime , jms , jme , 1 , 1 , &
602 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
603 ierr )
604 END IF
605 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
606 CALL wrf_ext_read_field ( &
607 fid , & ! DataHandle
608 current_date(1:19) , & ! DateStr
609 'XLONG_V' , & ! Data Name
610 grid%em_xlong_v , & ! 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_auxinput2in.inc ext_read_field XLONG_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 END IF
624 CALL wrf_ext_read_field ( &
625 fid , & ! DataHandle
626 current_date(1:19) , & ! DateStr
627 'ALBBCK' , & ! Data Name
628 grid%albbck , & ! Field
629 WRF_FLOAT , & ! FieldType
630 grid%communicator , & ! Comm
631 grid%iocommunicator , & ! Comm
632 grid%domdesc , & ! Comm
633 grid%bdy_mask , & ! bdy_mask
634 'XY' , & ! MemoryOrder
635 '' , & ! Stagger
636 'inc/wrf_auxinput2in.inc ext_read_field ALBBCK memorder XY' , & ! Debug message
637 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
638 ims , ime , jms , jme , 1 , 1 , &
639 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
640 ierr )
641 CALL wrf_ext_read_field ( &
642 fid , & ! DataHandle
643 current_date(1:19) , & ! DateStr
644 'TMN' , & ! Data Name
645 grid%tmn , & ! Field
646 WRF_FLOAT , & ! FieldType
647 grid%communicator , & ! Comm
648 grid%iocommunicator , & ! Comm
649 grid%domdesc , & ! Comm
650 grid%bdy_mask , & ! bdy_mask
651 'XY' , & ! MemoryOrder
652 '' , & ! Stagger
653 'inc/wrf_auxinput2in.inc ext_read_field TMN memorder XY' , & ! Debug message
654 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
655 ims , ime , jms , jme , 1 , 1 , &
656 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
657 ierr )
658 CALL wrf_ext_read_field ( &
659 fid , & ! DataHandle
660 current_date(1:19) , & ! DateStr
661 'XLAND' , & ! Data Name
662 grid%xland , & ! Field
663 WRF_FLOAT , & ! FieldType
664 grid%communicator , & ! Comm
665 grid%iocommunicator , & ! Comm
666 grid%domdesc , & ! Comm
667 grid%bdy_mask , & ! bdy_mask
668 'XY' , & ! MemoryOrder
669 '' , & ! Stagger
670 'inc/wrf_auxinput2in.inc ext_read_field XLAND memorder XY' , & ! Debug message
671 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
672 ims , ime , jms , jme , 1 , 1 , &
673 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
674 ierr )
675 !ENDOFREGISTRYGENERATEDINCLUDE