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 CALL wrf_ext_read_field ( &
8 fid , & ! DataHandle
9 current_date(1:19) , & ! DateStr
10 'LU_INDEX' , & ! Data Name
11 grid%lu_index , & ! Field
12 WRF_FLOAT , & ! FieldType
13 grid%communicator , & ! Comm
14 grid%iocommunicator , & ! Comm
15 grid%domdesc , & ! Comm
16 grid%bdy_mask , & ! bdy_mask
17 'XY' , & ! MemoryOrder
18 '' , & ! Stagger
19 'inc/wrf_auxinput2in.inc ext_read_field LU_INDEX memorder XY' , & ! Debug message
20 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
21 ims , ime , jms , jme , 1 , 1 , &
22 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
23 ierr )
24 DO itrace = PARAM_FIRST_SCALAR , num_moist
25 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
26 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
27 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
28 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
29 CALL wrf_ext_read_field ( &
30 fid , & ! DataHandle
31 current_date(1:19) , & ! DateStr
32 TRIM(moist_dname_table( grid%id, itrace )), & !data name
33 grid%moist(ims,jms,kms,itrace) , & ! Field
34 WRF_FLOAT , & ! FieldType
35 grid%communicator , & ! Comm
36 grid%iocommunicator , & ! Comm
37 grid%domdesc , & ! Comm
38 grid%bdy_mask , & ! bdy_mask
39 'XYZ' , & ! MemoryOrder
40 '' , & ! Stagger
41 'inc/wrf_auxinput2in.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
42 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
43 ims , ime , jms , jme , kms , kme , &
44 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
45 ierr )
46 ENDIF
47 ENDIF
48 ENDDO
49 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
50 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
51 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
52 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
53 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
54 CALL wrf_ext_read_field ( &
55 fid , & ! DataHandle
56 current_date(1:19) , & ! DateStr
57 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
58 grid%a_moist(ims,jms,kms,itrace) , & ! Field
59 WRF_FLOAT , & ! FieldType
60 grid%communicator , & ! Comm
61 grid%iocommunicator , & ! Comm
62 grid%domdesc , & ! Comm
63 grid%bdy_mask , & ! bdy_mask
64 'XYZ' , & ! MemoryOrder
65 '' , & ! Stagger
66 'inc/wrf_auxinput2in.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
67 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
68 ims , ime , jms , jme , kms , kme , &
69 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
70 ierr )
71 ENDIF
72 ENDIF
73 ENDDO
74 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
75 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
76 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
77 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
78 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
79 CALL wrf_ext_read_field ( &
80 fid , & ! DataHandle
81 current_date(1:19) , & ! DateStr
82 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
83 grid%g_moist(ims,jms,kms,itrace) , & ! Field
84 WRF_FLOAT , & ! FieldType
85 grid%communicator , & ! Comm
86 grid%iocommunicator , & ! Comm
87 grid%domdesc , & ! Comm
88 grid%bdy_mask , & ! bdy_mask
89 'XYZ' , & ! MemoryOrder
90 '' , & ! Stagger
91 'inc/wrf_auxinput2in.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
92 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
93 ims , ime , jms , jme , kms , kme , &
94 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
95 ierr )
96 ENDIF
97 ENDIF
98 ENDDO
99 DO itrace = PARAM_FIRST_SCALAR , num_scalar
100 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
101 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
102 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
103 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
104 CALL wrf_ext_read_field ( &
105 fid , & ! DataHandle
106 current_date(1:19) , & ! DateStr
107 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
108 grid%scalar(ims,jms,kms,itrace) , & ! Field
109 WRF_FLOAT , & ! FieldType
110 grid%communicator , & ! Comm
111 grid%iocommunicator , & ! Comm
112 grid%domdesc , & ! Comm
113 grid%bdy_mask , & ! bdy_mask
114 'XYZ' , & ! MemoryOrder
115 '' , & ! Stagger
116 'inc/wrf_auxinput2in.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
117 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
118 ims , ime , jms , jme , kms , kme , &
119 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
120 ierr )
121 ENDIF
122 ENDIF
123 ENDDO
124 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
125 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
126 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
127 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
128 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
129 CALL wrf_ext_read_field ( &
130 fid , & ! DataHandle
131 current_date(1:19) , & ! DateStr
132 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
133 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
134 WRF_FLOAT , & ! FieldType
135 grid%communicator , & ! Comm
136 grid%iocommunicator , & ! Comm
137 grid%domdesc , & ! Comm
138 grid%bdy_mask , & ! bdy_mask
139 'XYZ' , & ! MemoryOrder
140 '' , & ! Stagger
141 'inc/wrf_auxinput2in.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
142 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
143 ims , ime , jms , jme , kms , kme , &
144 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
145 ierr )
146 ENDIF
147 ENDIF
148 ENDDO
149 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
150 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
151 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
152 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
153 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
154 CALL wrf_ext_read_field ( &
155 fid , & ! DataHandle
156 current_date(1:19) , & ! DateStr
157 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
158 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
159 WRF_FLOAT , & ! FieldType
160 grid%communicator , & ! Comm
161 grid%iocommunicator , & ! Comm
162 grid%domdesc , & ! Comm
163 grid%bdy_mask , & ! bdy_mask
164 'XYZ' , & ! MemoryOrder
165 '' , & ! Stagger
166 'inc/wrf_auxinput2in.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
167 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
168 ims , ime , jms , jme , kms , kme , &
169 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
170 ierr )
171 ENDIF
172 ENDIF
173 ENDDO
174 CALL wrf_ext_read_field ( &
175 fid , & ! DataHandle
176 current_date(1:19) , & ! DateStr
177 'LANDMASK' , & ! Data Name
178 grid%landmask , & ! 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 LANDMASK 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 'SHDMAX' , & ! Data Name
195 grid%shdmax , & ! 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 SHDMAX 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 'SHDMIN' , & ! Data Name
212 grid%shdmin , & ! 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 SHDMIN 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 'SNOALB' , & ! Data Name
229 grid%snoalb , & ! Field
230 WRF_FLOAT , & ! FieldType
231 grid%communicator , & ! Comm
232 grid%iocommunicator , & ! Comm
233 grid%domdesc , & ! Comm
234 grid%bdy_mask , & ! bdy_mask
235 'XY' , & ! MemoryOrder
236 '' , & ! Stagger
237 'inc/wrf_auxinput2in.inc ext_read_field SNOALB memorder XY' , & ! Debug message
238 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
239 ims , ime , jms , jme , 1 , 1 , &
240 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
241 ierr )
242 CALL wrf_ext_read_field ( &
243 fid , & ! DataHandle
244 current_date(1:19) , & ! DateStr
245 'TSLB' , & ! Data Name
246 grid%tslb , & ! 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 TSLB 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 'SMOIS' , & ! Data Name
263 grid%smois , & ! 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 SMOIS 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 'SH2O' , & ! Data Name
280 grid%sh2o , & ! Field
281 WRF_FLOAT , & ! FieldType
282 grid%communicator , & ! Comm
283 grid%iocommunicator , & ! Comm
284 grid%domdesc , & ! Comm
285 grid%bdy_mask , & ! bdy_mask
286 'XYZ' , & ! MemoryOrder
287 'Z' , & ! Stagger
288 'inc/wrf_auxinput2in.inc ext_read_field SH2O memorder XYZ' , & ! Debug message
289 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
290 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
291 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
292 ierr )
293 CALL wrf_ext_read_field ( &
294 fid , & ! DataHandle
295 current_date(1:19) , & ! DateStr
296 'XICE' , & ! Data Name
297 grid%xice , & ! Field
298 WRF_FLOAT , & ! 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 XICE 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 'IVGTYP' , & ! Data Name
314 grid%ivgtyp , & ! 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 IVGTYP 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 'ISLTYP' , & ! Data Name
331 grid%isltyp , & ! Field
332 WRF_integer , & ! 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 ISLTYP 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 'VEGFRA' , & ! Data Name
348 grid%vegfra , & ! 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 VEGFRA 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 'SNOW' , & ! Data Name
365 grid%snow , & ! 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 SNOW 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 'SNOWH' , & ! Data Name
382 grid%snowh , & ! 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 '' , & ! Stagger
390 'inc/wrf_auxinput2in.inc ext_read_field SNOWH memorder XY' , & ! Debug message
391 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
392 ims , ime , jms , jme , 1 , 1 , &
393 ips , MIN( (ide-1), 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 'RHOSN' , & ! Data Name
399 grid%rhosn , & ! 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 '' , & ! Stagger
407 'inc/wrf_auxinput2in.inc ext_read_field RHOSN memorder XY' , & ! Debug message
408 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
409 ims , ime , jms , jme , 1 , 1 , &
410 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
411 ierr )
412 CALL wrf_ext_read_field ( &
413 fid , & ! DataHandle
414 current_date(1:19) , & ! DateStr
415 'CANWAT' , & ! Data Name
416 grid%canwat , & ! 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 CANWAT 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 'SST' , & ! Data Name
433 grid%sst , & ! 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 SST 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 'MAPFAC_M' , & ! Data Name
450 grid%msft , & ! 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 MAPFAC_M 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 'MAPFAC_U' , & ! Data Name
467 grid%msfu , & ! 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 'X' , & ! Stagger
475 'inc/wrf_auxinput2in.inc ext_read_field MAPFAC_U memorder XY' , & ! Debug message
476 ids , ide , jds , (jde-1) , 1 , 1 , &
477 ims , ime , jms , jme , 1 , 1 , &
478 ips , MIN( ide, 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 'MAPFAC_V' , & ! Data Name
484 grid%msfv , & ! 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 'Y' , & ! Stagger
492 'inc/wrf_auxinput2in.inc ext_read_field MAPFAC_V memorder XY' , & ! Debug message
493 ids , (ide-1) , jds , jde , 1 , 1 , &
494 ims , ime , jms , jme , 1 , 1 , &
495 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
496 ierr )
497 CALL wrf_ext_read_field ( &
498 fid , & ! DataHandle
499 current_date(1:19) , & ! DateStr
500 'F' , & ! Data Name
501 grid%f , & ! 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 F 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 'E' , & ! Data Name
518 grid%e , & ! 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 E 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 'SINALPHA' , & ! Data Name
535 grid%sina , & ! 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 SINALPHA 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 CALL wrf_ext_read_field ( &
549 fid , & ! DataHandle
550 current_date(1:19) , & ! DateStr
551 'COSALPHA' , & ! Data Name
552 grid%cosa , & ! Field
553 WRF_FLOAT , & ! FieldType
554 grid%communicator , & ! Comm
555 grid%iocommunicator , & ! Comm
556 grid%domdesc , & ! Comm
557 grid%bdy_mask , & ! bdy_mask
558 'XY' , & ! MemoryOrder
559 '' , & ! Stagger
560 'inc/wrf_auxinput2in.inc ext_read_field COSALPHA memorder XY' , & ! Debug message
561 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
562 ims , ime , jms , jme , 1 , 1 , &
563 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
564 ierr )
565 CALL wrf_ext_read_field ( &
566 fid , & ! DataHandle
567 current_date(1:19) , & ! DateStr
568 'HGT' , & ! Data Name
569 grid%ht , & ! Field
570 WRF_FLOAT , & ! FieldType
571 grid%communicator , & ! Comm
572 grid%iocommunicator , & ! Comm
573 grid%domdesc , & ! Comm
574 grid%bdy_mask , & ! bdy_mask
575 'XY' , & ! MemoryOrder
576 '' , & ! Stagger
577 'inc/wrf_auxinput2in.inc ext_read_field HGT memorder XY' , & ! Debug message
578 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
579 ims , ime , jms , jme , 1 , 1 , &
580 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
581 ierr )
582 CALL wrf_ext_read_field ( &
583 fid , & ! DataHandle
584 current_date(1:19) , & ! DateStr
585 'TSK' , & ! Data Name
586 grid%tsk , & ! Field
587 WRF_FLOAT , & ! FieldType
588 grid%communicator , & ! Comm
589 grid%iocommunicator , & ! Comm
590 grid%domdesc , & ! Comm
591 grid%bdy_mask , & ! bdy_mask
592 'XY' , & ! MemoryOrder
593 '' , & ! Stagger
594 'inc/wrf_auxinput2in.inc ext_read_field TSK memorder XY' , & ! Debug message
595 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
596 ims , ime , jms , jme , 1 , 1 , &
597 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
598 ierr )
599 CALL wrf_ext_read_field ( &
600 fid , & ! DataHandle
601 current_date(1:19) , & ! DateStr
602 'XLAT' , & ! Data Name
603 grid%xlat , & ! Field
604 WRF_FLOAT , & ! FieldType
605 grid%communicator , & ! Comm
606 grid%iocommunicator , & ! Comm
607 grid%domdesc , & ! Comm
608 grid%bdy_mask , & ! bdy_mask
609 'XY' , & ! MemoryOrder
610 '' , & ! Stagger
611 'inc/wrf_auxinput2in.inc ext_read_field XLAT memorder XY' , & ! Debug message
612 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
613 ims , ime , jms , jme , 1 , 1 , &
614 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
615 ierr )
616 CALL wrf_ext_read_field ( &
617 fid , & ! DataHandle
618 current_date(1:19) , & ! DateStr
619 'XLONG' , & ! Data Name
620 grid%xlong , & ! Field
621 WRF_FLOAT , & ! FieldType
622 grid%communicator , & ! Comm
623 grid%iocommunicator , & ! Comm
624 grid%domdesc , & ! Comm
625 grid%bdy_mask , & ! bdy_mask
626 'XY' , & ! MemoryOrder
627 '' , & ! Stagger
628 'inc/wrf_auxinput2in.inc ext_read_field XLONG memorder XY' , & ! Debug message
629 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
630 ims , ime , jms , jme , 1 , 1 , &
631 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
632 ierr )
633 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
634 CALL wrf_ext_read_field ( &
635 fid , & ! DataHandle
636 current_date(1:19) , & ! DateStr
637 'XLAT_U' , & ! Data Name
638 grid%em_xlat_u , & ! Field
639 WRF_FLOAT , & ! FieldType
640 grid%communicator , & ! Comm
641 grid%iocommunicator , & ! Comm
642 grid%domdesc , & ! Comm
643 grid%bdy_mask , & ! bdy_mask
644 'XY' , & ! MemoryOrder
645 'X' , & ! Stagger
646 'inc/wrf_auxinput2in.inc ext_read_field XLAT_U memorder XY' , & ! Debug message
647 ids , ide , jds , (jde-1) , 1 , 1 , &
648 ims , ime , jms , jme , 1 , 1 , &
649 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
650 ierr )
651 END IF
652 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
653 CALL wrf_ext_read_field ( &
654 fid , & ! DataHandle
655 current_date(1:19) , & ! DateStr
656 'XLONG_U' , & ! Data Name
657 grid%em_xlong_u , & ! Field
658 WRF_FLOAT , & ! FieldType
659 grid%communicator , & ! Comm
660 grid%iocommunicator , & ! Comm
661 grid%domdesc , & ! Comm
662 grid%bdy_mask , & ! bdy_mask
663 'XY' , & ! MemoryOrder
664 'X' , & ! Stagger
665 'inc/wrf_auxinput2in.inc ext_read_field XLONG_U memorder XY' , & ! Debug message
666 ids , ide , jds , (jde-1) , 1 , 1 , &
667 ims , ime , jms , jme , 1 , 1 , &
668 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
669 ierr )
670 END IF
671 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
672 CALL wrf_ext_read_field ( &
673 fid , & ! DataHandle
674 current_date(1:19) , & ! DateStr
675 'XLAT_V' , & ! Data Name
676 grid%em_xlat_v , & ! Field
677 WRF_FLOAT , & ! FieldType
678 grid%communicator , & ! Comm
679 grid%iocommunicator , & ! Comm
680 grid%domdesc , & ! Comm
681 grid%bdy_mask , & ! bdy_mask
682 'XY' , & ! MemoryOrder
683 'Y' , & ! Stagger
684 'inc/wrf_auxinput2in.inc ext_read_field XLAT_V memorder XY' , & ! Debug message
685 ids , (ide-1) , jds , jde , 1 , 1 , &
686 ims , ime , jms , jme , 1 , 1 , &
687 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
688 ierr )
689 END IF
690 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
691 CALL wrf_ext_read_field ( &
692 fid , & ! DataHandle
693 current_date(1:19) , & ! DateStr
694 'XLONG_V' , & ! Data Name
695 grid%em_xlong_v , & ! 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 'Y' , & ! Stagger
703 'inc/wrf_auxinput2in.inc ext_read_field XLONG_V memorder XY' , & ! Debug message
704 ids , (ide-1) , jds , jde , 1 , 1 , &
705 ims , ime , jms , jme , 1 , 1 , &
706 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
707 ierr )
708 END IF
709 CALL wrf_ext_read_field ( &
710 fid , & ! DataHandle
711 current_date(1:19) , & ! DateStr
712 'ALBBCK' , & ! Data Name
713 grid%albbck , & ! Field
714 WRF_FLOAT , & ! FieldType
715 grid%communicator , & ! Comm
716 grid%iocommunicator , & ! Comm
717 grid%domdesc , & ! Comm
718 grid%bdy_mask , & ! bdy_mask
719 'XY' , & ! MemoryOrder
720 '' , & ! Stagger
721 'inc/wrf_auxinput2in.inc ext_read_field ALBBCK memorder XY' , & ! Debug message
722 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
723 ims , ime , jms , jme , 1 , 1 , &
724 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
725 ierr )
726 CALL wrf_ext_read_field ( &
727 fid , & ! DataHandle
728 current_date(1:19) , & ! DateStr
729 'TMN' , & ! Data Name
730 grid%tmn , & ! Field
731 WRF_FLOAT , & ! FieldType
732 grid%communicator , & ! Comm
733 grid%iocommunicator , & ! Comm
734 grid%domdesc , & ! Comm
735 grid%bdy_mask , & ! bdy_mask
736 'XY' , & ! MemoryOrder
737 '' , & ! Stagger
738 'inc/wrf_auxinput2in.inc ext_read_field TMN memorder XY' , & ! Debug message
739 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
740 ims , ime , jms , jme , 1 , 1 , &
741 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
742 ierr )
743 CALL wrf_ext_read_field ( &
744 fid , & ! DataHandle
745 current_date(1:19) , & ! DateStr
746 'XLAND' , & ! Data Name
747 grid%xland , & ! Field
748 WRF_FLOAT , & ! FieldType
749 grid%communicator , & ! Comm
750 grid%iocommunicator , & ! Comm
751 grid%domdesc , & ! Comm
752 grid%bdy_mask , & ! bdy_mask
753 'XY' , & ! MemoryOrder
754 '' , & ! Stagger
755 'inc/wrf_auxinput2in.inc ext_read_field XLAND memorder XY' , & ! Debug message
756 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
757 ims , ime , jms , jme , 1 , 1 , &
758 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
759 ierr )
760 !ENDOFREGISTRYGENERATEDINCLUDE