wrf_bdyin.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_bdyin.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 'U_BXS' , & ! Data Name
12 grid%em_u_bxs(jms,kds,1) , & ! Field
13 WRF_FLOAT , & ! FieldType
14 grid%communicator , & ! Comm
15 grid%iocommunicator , & ! Comm
16 grid%domdesc , & ! Comm
17 grid%bdy_mask , & ! bdy_mask
18 'XSZ' , & ! MemoryOrder
19 'X' , & ! Stagger
20 'inc/wrf_bdyin.inc ext_read_field U_BXS memorder XSZ' , & ! Debug message
21 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
22 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
23 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
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_BXE' , & ! Data Name
31 grid%em_u_bxe(jms,kds,1) , & ! Field
32 WRF_FLOAT , & ! FieldType
33 grid%communicator , & ! Comm
34 grid%iocommunicator , & ! Comm
35 grid%domdesc , & ! Comm
36 grid%bdy_mask , & ! bdy_mask
37 'XEZ' , & ! MemoryOrder
38 'X' , & ! Stagger
39 'inc/wrf_bdyin.inc ext_read_field U_BXE memorder XEZ' , & ! Debug message
40 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
41 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
42 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
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 'U_BYS' , & ! Data Name
50 grid%em_u_bys(ims,kds,1) , & ! Field
51 WRF_FLOAT , & ! FieldType
52 grid%communicator , & ! Comm
53 grid%iocommunicator , & ! Comm
54 grid%domdesc , & ! Comm
55 grid%bdy_mask , & ! bdy_mask
56 'YSZ' , & ! MemoryOrder
57 'X' , & ! Stagger
58 'inc/wrf_bdyin.inc ext_read_field U_BYS memorder YSZ' , & ! Debug message
59 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
60 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
61 MAX(ims,ids), MIN(ime,ide), kds, (kde-1), 1, config_flags%spec_bdy_width, &
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 'U_BYE' , & ! Data Name
69 grid%em_u_bye(ims,kds,1) , & ! Field
70 WRF_FLOAT , & ! FieldType
71 grid%communicator , & ! Comm
72 grid%iocommunicator , & ! Comm
73 grid%domdesc , & ! Comm
74 grid%bdy_mask , & ! bdy_mask
75 'YEZ' , & ! MemoryOrder
76 'X' , & ! Stagger
77 'inc/wrf_bdyin.inc ext_read_field U_BYE memorder YEZ' , & ! Debug message
78 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
79 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
80 MAX(ims,ids), MIN(ime,ide), kds, (kde-1), 1, config_flags%spec_bdy_width, &
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 'U_BTXS' , & ! Data Name
88 grid%em_u_btxs(jms,kds,1) , & ! Field
89 WRF_FLOAT , & ! FieldType
90 grid%communicator , & ! Comm
91 grid%iocommunicator , & ! Comm
92 grid%domdesc , & ! Comm
93 grid%bdy_mask , & ! bdy_mask
94 'XSZ' , & ! MemoryOrder
95 'X' , & ! Stagger
96 'inc/wrf_bdyin.inc ext_read_field U_BTXS memorder XSZ' , & ! Debug message
97 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
98 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
99 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
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 'U_BTXE' , & ! Data Name
107 grid%em_u_btxe(jms,kds,1) , & ! Field
108 WRF_FLOAT , & ! FieldType
109 grid%communicator , & ! Comm
110 grid%iocommunicator , & ! Comm
111 grid%domdesc , & ! Comm
112 grid%bdy_mask , & ! bdy_mask
113 'XEZ' , & ! MemoryOrder
114 'X' , & ! Stagger
115 'inc/wrf_bdyin.inc ext_read_field U_BTXE memorder XEZ' , & ! Debug message
116 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
117 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
118 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
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 'U_BTYS' , & ! Data Name
126 grid%em_u_btys(ims,kds,1) , & ! Field
127 WRF_FLOAT , & ! FieldType
128 grid%communicator , & ! Comm
129 grid%iocommunicator , & ! Comm
130 grid%domdesc , & ! Comm
131 grid%bdy_mask , & ! bdy_mask
132 'YSZ' , & ! MemoryOrder
133 'X' , & ! Stagger
134 'inc/wrf_bdyin.inc ext_read_field U_BTYS memorder YSZ' , & ! Debug message
135 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
136 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
137 MAX(ims,ids), MIN(ime,ide), kds, (kde-1), 1, config_flags%spec_bdy_width, &
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 'U_BTYE' , & ! Data Name
145 grid%em_u_btye(ims,kds,1) , & ! Field
146 WRF_FLOAT , & ! FieldType
147 grid%communicator , & ! Comm
148 grid%iocommunicator , & ! Comm
149 grid%domdesc , & ! Comm
150 grid%bdy_mask , & ! bdy_mask
151 'YEZ' , & ! MemoryOrder
152 'X' , & ! Stagger
153 'inc/wrf_bdyin.inc ext_read_field U_BTYE memorder YEZ' , & ! Debug message
154 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
155 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
156 MAX(ims,ids), MIN(ime,ide), kds, (kde-1), 1, config_flags%spec_bdy_width, &
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_U_BXS' , & ! Data Name
164 grid%a_u_bxs(jms,kds,1) , & ! Field
165 WRF_FLOAT , & ! FieldType
166 grid%communicator , & ! Comm
167 grid%iocommunicator , & ! Comm
168 grid%domdesc , & ! Comm
169 grid%bdy_mask , & ! bdy_mask
170 'XSZ' , & ! MemoryOrder
171 'X' , & ! Stagger
172 'inc/wrf_bdyin.inc ext_read_field A_U_BXS memorder XSZ' , & ! Debug message
173 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
174 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
175 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
176 ierr )
177 END IF
178 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
179 CALL wrf_ext_read_field ( &
180 fid , & ! DataHandle
181 current_date(1:19) , & ! DateStr
182 'A_U_BXE' , & ! Data Name
183 grid%a_u_bxe(jms,kds,1) , & ! Field
184 WRF_FLOAT , & ! FieldType
185 grid%communicator , & ! Comm
186 grid%iocommunicator , & ! Comm
187 grid%domdesc , & ! Comm
188 grid%bdy_mask , & ! bdy_mask
189 'XEZ' , & ! MemoryOrder
190 'X' , & ! Stagger
191 'inc/wrf_bdyin.inc ext_read_field A_U_BXE memorder XEZ' , & ! Debug message
192 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
193 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
194 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
195 ierr )
196 END IF
197 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
198 CALL wrf_ext_read_field ( &
199 fid , & ! DataHandle
200 current_date(1:19) , & ! DateStr
201 'A_U_BYS' , & ! Data Name
202 grid%a_u_bys(ims,kds,1) , & ! Field
203 WRF_FLOAT , & ! FieldType
204 grid%communicator , & ! Comm
205 grid%iocommunicator , & ! Comm
206 grid%domdesc , & ! Comm
207 grid%bdy_mask , & ! bdy_mask
208 'YSZ' , & ! MemoryOrder
209 'X' , & ! Stagger
210 'inc/wrf_bdyin.inc ext_read_field A_U_BYS memorder YSZ' , & ! Debug message
211 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
212 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
213 MAX(ims,ids), MIN(ime,ide), kds, (kde-1), 1, config_flags%spec_bdy_width, &
214 ierr )
215 END IF
216 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
217 CALL wrf_ext_read_field ( &
218 fid , & ! DataHandle
219 current_date(1:19) , & ! DateStr
220 'A_U_BYE' , & ! Data Name
221 grid%a_u_bye(ims,kds,1) , & ! Field
222 WRF_FLOAT , & ! FieldType
223 grid%communicator , & ! Comm
224 grid%iocommunicator , & ! Comm
225 grid%domdesc , & ! Comm
226 grid%bdy_mask , & ! bdy_mask
227 'YEZ' , & ! MemoryOrder
228 'X' , & ! Stagger
229 'inc/wrf_bdyin.inc ext_read_field A_U_BYE memorder YEZ' , & ! Debug message
230 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
231 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
232 MAX(ims,ids), MIN(ime,ide), kds, (kde-1), 1, config_flags%spec_bdy_width, &
233 ierr )
234 END IF
235 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
236 CALL wrf_ext_read_field ( &
237 fid , & ! DataHandle
238 current_date(1:19) , & ! DateStr
239 'A_U_BTXS' , & ! Data Name
240 grid%a_u_btxs(jms,kds,1) , & ! Field
241 WRF_FLOAT , & ! FieldType
242 grid%communicator , & ! Comm
243 grid%iocommunicator , & ! Comm
244 grid%domdesc , & ! Comm
245 grid%bdy_mask , & ! bdy_mask
246 'XSZ' , & ! MemoryOrder
247 'X' , & ! Stagger
248 'inc/wrf_bdyin.inc ext_read_field A_U_BTXS memorder XSZ' , & ! Debug message
249 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
250 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
251 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
252 ierr )
253 END IF
254 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
255 CALL wrf_ext_read_field ( &
256 fid , & ! DataHandle
257 current_date(1:19) , & ! DateStr
258 'A_U_BTXE' , & ! Data Name
259 grid%a_u_btxe(jms,kds,1) , & ! Field
260 WRF_FLOAT , & ! FieldType
261 grid%communicator , & ! Comm
262 grid%iocommunicator , & ! Comm
263 grid%domdesc , & ! Comm
264 grid%bdy_mask , & ! bdy_mask
265 'XEZ' , & ! MemoryOrder
266 'X' , & ! Stagger
267 'inc/wrf_bdyin.inc ext_read_field A_U_BTXE memorder XEZ' , & ! Debug message
268 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
269 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
270 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
271 ierr )
272 END IF
273 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
274 CALL wrf_ext_read_field ( &
275 fid , & ! DataHandle
276 current_date(1:19) , & ! DateStr
277 'A_U_BTYS' , & ! Data Name
278 grid%a_u_btys(ims,kds,1) , & ! Field
279 WRF_FLOAT , & ! FieldType
280 grid%communicator , & ! Comm
281 grid%iocommunicator , & ! Comm
282 grid%domdesc , & ! Comm
283 grid%bdy_mask , & ! bdy_mask
284 'YSZ' , & ! MemoryOrder
285 'X' , & ! Stagger
286 'inc/wrf_bdyin.inc ext_read_field A_U_BTYS memorder YSZ' , & ! Debug message
287 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
288 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
289 MAX(ims,ids), MIN(ime,ide), kds, (kde-1), 1, config_flags%spec_bdy_width, &
290 ierr )
291 END IF
292 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
293 CALL wrf_ext_read_field ( &
294 fid , & ! DataHandle
295 current_date(1:19) , & ! DateStr
296 'A_U_BTYE' , & ! Data Name
297 grid%a_u_btye(ims,kds,1) , & ! Field
298 WRF_FLOAT , & ! FieldType
299 grid%communicator , & ! Comm
300 grid%iocommunicator , & ! Comm
301 grid%domdesc , & ! Comm
302 grid%bdy_mask , & ! bdy_mask
303 'YEZ' , & ! MemoryOrder
304 'X' , & ! Stagger
305 'inc/wrf_bdyin.inc ext_read_field A_U_BTYE memorder YEZ' , & ! Debug message
306 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
307 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
308 MAX(ims,ids), MIN(ime,ide), kds, (kde-1), 1, config_flags%spec_bdy_width, &
309 ierr )
310 END IF
311 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
312 CALL wrf_ext_read_field ( &
313 fid , & ! DataHandle
314 current_date(1:19) , & ! DateStr
315 'G_U_BXS' , & ! Data Name
316 grid%g_u_bxs(jms,kds,1) , & ! Field
317 WRF_FLOAT , & ! FieldType
318 grid%communicator , & ! Comm
319 grid%iocommunicator , & ! Comm
320 grid%domdesc , & ! Comm
321 grid%bdy_mask , & ! bdy_mask
322 'XSZ' , & ! MemoryOrder
323 'X' , & ! Stagger
324 'inc/wrf_bdyin.inc ext_read_field G_U_BXS memorder XSZ' , & ! Debug message
325 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
326 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
327 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
328 ierr )
329 END IF
330 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
331 CALL wrf_ext_read_field ( &
332 fid , & ! DataHandle
333 current_date(1:19) , & ! DateStr
334 'G_U_BXE' , & ! Data Name
335 grid%g_u_bxe(jms,kds,1) , & ! Field
336 WRF_FLOAT , & ! FieldType
337 grid%communicator , & ! Comm
338 grid%iocommunicator , & ! Comm
339 grid%domdesc , & ! Comm
340 grid%bdy_mask , & ! bdy_mask
341 'XEZ' , & ! MemoryOrder
342 'X' , & ! Stagger
343 'inc/wrf_bdyin.inc ext_read_field G_U_BXE memorder XEZ' , & ! Debug message
344 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
345 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
346 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
347 ierr )
348 END IF
349 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
350 CALL wrf_ext_read_field ( &
351 fid , & ! DataHandle
352 current_date(1:19) , & ! DateStr
353 'G_U_BYS' , & ! Data Name
354 grid%g_u_bys(ims,kds,1) , & ! Field
355 WRF_FLOAT , & ! FieldType
356 grid%communicator , & ! Comm
357 grid%iocommunicator , & ! Comm
358 grid%domdesc , & ! Comm
359 grid%bdy_mask , & ! bdy_mask
360 'YSZ' , & ! MemoryOrder
361 'X' , & ! Stagger
362 'inc/wrf_bdyin.inc ext_read_field G_U_BYS memorder YSZ' , & ! Debug message
363 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
364 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
365 MAX(ims,ids), MIN(ime,ide), kds, (kde-1), 1, config_flags%spec_bdy_width, &
366 ierr )
367 END IF
368 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
369 CALL wrf_ext_read_field ( &
370 fid , & ! DataHandle
371 current_date(1:19) , & ! DateStr
372 'G_U_BYE' , & ! Data Name
373 grid%g_u_bye(ims,kds,1) , & ! Field
374 WRF_FLOAT , & ! FieldType
375 grid%communicator , & ! Comm
376 grid%iocommunicator , & ! Comm
377 grid%domdesc , & ! Comm
378 grid%bdy_mask , & ! bdy_mask
379 'YEZ' , & ! MemoryOrder
380 'X' , & ! Stagger
381 'inc/wrf_bdyin.inc ext_read_field G_U_BYE memorder YEZ' , & ! Debug message
382 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
383 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
384 MAX(ims,ids), MIN(ime,ide), kds, (kde-1), 1, config_flags%spec_bdy_width, &
385 ierr )
386 END IF
387 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
388 CALL wrf_ext_read_field ( &
389 fid , & ! DataHandle
390 current_date(1:19) , & ! DateStr
391 'G_U_BTXS' , & ! Data Name
392 grid%g_u_btxs(jms,kds,1) , & ! Field
393 WRF_FLOAT , & ! FieldType
394 grid%communicator , & ! Comm
395 grid%iocommunicator , & ! Comm
396 grid%domdesc , & ! Comm
397 grid%bdy_mask , & ! bdy_mask
398 'XSZ' , & ! MemoryOrder
399 'X' , & ! Stagger
400 'inc/wrf_bdyin.inc ext_read_field G_U_BTXS memorder XSZ' , & ! Debug message
401 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
402 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
403 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
404 ierr )
405 END IF
406 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
407 CALL wrf_ext_read_field ( &
408 fid , & ! DataHandle
409 current_date(1:19) , & ! DateStr
410 'G_U_BTXE' , & ! Data Name
411 grid%g_u_btxe(jms,kds,1) , & ! Field
412 WRF_FLOAT , & ! FieldType
413 grid%communicator , & ! Comm
414 grid%iocommunicator , & ! Comm
415 grid%domdesc , & ! Comm
416 grid%bdy_mask , & ! bdy_mask
417 'XEZ' , & ! MemoryOrder
418 'X' , & ! Stagger
419 'inc/wrf_bdyin.inc ext_read_field G_U_BTXE memorder XEZ' , & ! Debug message
420 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
421 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
422 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
423 ierr )
424 END IF
425 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
426 CALL wrf_ext_read_field ( &
427 fid , & ! DataHandle
428 current_date(1:19) , & ! DateStr
429 'G_U_BTYS' , & ! Data Name
430 grid%g_u_btys(ims,kds,1) , & ! Field
431 WRF_FLOAT , & ! FieldType
432 grid%communicator , & ! Comm
433 grid%iocommunicator , & ! Comm
434 grid%domdesc , & ! Comm
435 grid%bdy_mask , & ! bdy_mask
436 'YSZ' , & ! MemoryOrder
437 'X' , & ! Stagger
438 'inc/wrf_bdyin.inc ext_read_field G_U_BTYS memorder YSZ' , & ! Debug message
439 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
440 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
441 MAX(ims,ids), MIN(ime,ide), kds, (kde-1), 1, config_flags%spec_bdy_width, &
442 ierr )
443 END IF
444 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
445 CALL wrf_ext_read_field ( &
446 fid , & ! DataHandle
447 current_date(1:19) , & ! DateStr
448 'G_U_BTYE' , & ! Data Name
449 grid%g_u_btye(ims,kds,1) , & ! Field
450 WRF_FLOAT , & ! FieldType
451 grid%communicator , & ! Comm
452 grid%iocommunicator , & ! Comm
453 grid%domdesc , & ! Comm
454 grid%bdy_mask , & ! bdy_mask
455 'YEZ' , & ! MemoryOrder
456 'X' , & ! Stagger
457 'inc/wrf_bdyin.inc ext_read_field G_U_BTYE memorder YEZ' , & ! Debug message
458 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
459 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
460 MAX(ims,ids), MIN(ime,ide), kds, (kde-1), 1, config_flags%spec_bdy_width, &
461 ierr )
462 END IF
463 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
464 CALL wrf_ext_read_field ( &
465 fid , & ! DataHandle
466 current_date(1:19) , & ! DateStr
467 'V_BXS' , & ! Data Name
468 grid%em_v_bxs(jms,kds,1) , & ! Field
469 WRF_FLOAT , & ! FieldType
470 grid%communicator , & ! Comm
471 grid%iocommunicator , & ! Comm
472 grid%domdesc , & ! Comm
473 grid%bdy_mask , & ! bdy_mask
474 'XSZ' , & ! MemoryOrder
475 'Y' , & ! Stagger
476 'inc/wrf_bdyin.inc ext_read_field V_BXS memorder XSZ' , & ! Debug message
477 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
478 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
479 MAX(jms,jds), MIN(jme,jde), kds, (kde-1), 1, config_flags%spec_bdy_width, &
480 ierr )
481 END IF
482 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
483 CALL wrf_ext_read_field ( &
484 fid , & ! DataHandle
485 current_date(1:19) , & ! DateStr
486 'V_BXE' , & ! Data Name
487 grid%em_v_bxe(jms,kds,1) , & ! Field
488 WRF_FLOAT , & ! FieldType
489 grid%communicator , & ! Comm
490 grid%iocommunicator , & ! Comm
491 grid%domdesc , & ! Comm
492 grid%bdy_mask , & ! bdy_mask
493 'XEZ' , & ! MemoryOrder
494 'Y' , & ! Stagger
495 'inc/wrf_bdyin.inc ext_read_field V_BXE memorder XEZ' , & ! Debug message
496 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
497 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
498 MAX(jms,jds), MIN(jme,jde), kds, (kde-1), 1, config_flags%spec_bdy_width, &
499 ierr )
500 END IF
501 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
502 CALL wrf_ext_read_field ( &
503 fid , & ! DataHandle
504 current_date(1:19) , & ! DateStr
505 'V_BYS' , & ! Data Name
506 grid%em_v_bys(ims,kds,1) , & ! Field
507 WRF_FLOAT , & ! FieldType
508 grid%communicator , & ! Comm
509 grid%iocommunicator , & ! Comm
510 grid%domdesc , & ! Comm
511 grid%bdy_mask , & ! bdy_mask
512 'YSZ' , & ! MemoryOrder
513 'Y' , & ! Stagger
514 'inc/wrf_bdyin.inc ext_read_field V_BYS memorder YSZ' , & ! Debug message
515 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
516 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
517 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
518 ierr )
519 END IF
520 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
521 CALL wrf_ext_read_field ( &
522 fid , & ! DataHandle
523 current_date(1:19) , & ! DateStr
524 'V_BYE' , & ! Data Name
525 grid%em_v_bye(ims,kds,1) , & ! Field
526 WRF_FLOAT , & ! FieldType
527 grid%communicator , & ! Comm
528 grid%iocommunicator , & ! Comm
529 grid%domdesc , & ! Comm
530 grid%bdy_mask , & ! bdy_mask
531 'YEZ' , & ! MemoryOrder
532 'Y' , & ! Stagger
533 'inc/wrf_bdyin.inc ext_read_field V_BYE memorder YEZ' , & ! Debug message
534 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
535 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
536 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
537 ierr )
538 END IF
539 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
540 CALL wrf_ext_read_field ( &
541 fid , & ! DataHandle
542 current_date(1:19) , & ! DateStr
543 'V_BTXS' , & ! Data Name
544 grid%em_v_btxs(jms,kds,1) , & ! Field
545 WRF_FLOAT , & ! FieldType
546 grid%communicator , & ! Comm
547 grid%iocommunicator , & ! Comm
548 grid%domdesc , & ! Comm
549 grid%bdy_mask , & ! bdy_mask
550 'XSZ' , & ! MemoryOrder
551 'Y' , & ! Stagger
552 'inc/wrf_bdyin.inc ext_read_field V_BTXS memorder XSZ' , & ! Debug message
553 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
554 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
555 MAX(jms,jds), MIN(jme,jde), kds, (kde-1), 1, config_flags%spec_bdy_width, &
556 ierr )
557 END IF
558 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
559 CALL wrf_ext_read_field ( &
560 fid , & ! DataHandle
561 current_date(1:19) , & ! DateStr
562 'V_BTXE' , & ! Data Name
563 grid%em_v_btxe(jms,kds,1) , & ! Field
564 WRF_FLOAT , & ! FieldType
565 grid%communicator , & ! Comm
566 grid%iocommunicator , & ! Comm
567 grid%domdesc , & ! Comm
568 grid%bdy_mask , & ! bdy_mask
569 'XEZ' , & ! MemoryOrder
570 'Y' , & ! Stagger
571 'inc/wrf_bdyin.inc ext_read_field V_BTXE memorder XEZ' , & ! Debug message
572 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
573 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
574 MAX(jms,jds), MIN(jme,jde), kds, (kde-1), 1, config_flags%spec_bdy_width, &
575 ierr )
576 END IF
577 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
578 CALL wrf_ext_read_field ( &
579 fid , & ! DataHandle
580 current_date(1:19) , & ! DateStr
581 'V_BTYS' , & ! Data Name
582 grid%em_v_btys(ims,kds,1) , & ! Field
583 WRF_FLOAT , & ! FieldType
584 grid%communicator , & ! Comm
585 grid%iocommunicator , & ! Comm
586 grid%domdesc , & ! Comm
587 grid%bdy_mask , & ! bdy_mask
588 'YSZ' , & ! MemoryOrder
589 'Y' , & ! Stagger
590 'inc/wrf_bdyin.inc ext_read_field V_BTYS memorder YSZ' , & ! Debug message
591 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
592 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
593 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
594 ierr )
595 END IF
596 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
597 CALL wrf_ext_read_field ( &
598 fid , & ! DataHandle
599 current_date(1:19) , & ! DateStr
600 'V_BTYE' , & ! Data Name
601 grid%em_v_btye(ims,kds,1) , & ! Field
602 WRF_FLOAT , & ! FieldType
603 grid%communicator , & ! Comm
604 grid%iocommunicator , & ! Comm
605 grid%domdesc , & ! Comm
606 grid%bdy_mask , & ! bdy_mask
607 'YEZ' , & ! MemoryOrder
608 'Y' , & ! Stagger
609 'inc/wrf_bdyin.inc ext_read_field V_BTYE memorder YEZ' , & ! Debug message
610 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
611 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
612 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
613 ierr )
614 END IF
615 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
616 CALL wrf_ext_read_field ( &
617 fid , & ! DataHandle
618 current_date(1:19) , & ! DateStr
619 'A_V_BXS' , & ! Data Name
620 grid%a_v_bxs(jms,kds,1) , & ! Field
621 WRF_FLOAT , & ! FieldType
622 grid%communicator , & ! Comm
623 grid%iocommunicator , & ! Comm
624 grid%domdesc , & ! Comm
625 grid%bdy_mask , & ! bdy_mask
626 'XSZ' , & ! MemoryOrder
627 'Y' , & ! Stagger
628 'inc/wrf_bdyin.inc ext_read_field A_V_BXS memorder XSZ' , & ! Debug message
629 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
630 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
631 MAX(jms,jds), MIN(jme,jde), kds, (kde-1), 1, config_flags%spec_bdy_width, &
632 ierr )
633 END IF
634 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
635 CALL wrf_ext_read_field ( &
636 fid , & ! DataHandle
637 current_date(1:19) , & ! DateStr
638 'A_V_BXE' , & ! Data Name
639 grid%a_v_bxe(jms,kds,1) , & ! Field
640 WRF_FLOAT , & ! FieldType
641 grid%communicator , & ! Comm
642 grid%iocommunicator , & ! Comm
643 grid%domdesc , & ! Comm
644 grid%bdy_mask , & ! bdy_mask
645 'XEZ' , & ! MemoryOrder
646 'Y' , & ! Stagger
647 'inc/wrf_bdyin.inc ext_read_field A_V_BXE memorder XEZ' , & ! Debug message
648 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
649 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
650 MAX(jms,jds), MIN(jme,jde), kds, (kde-1), 1, config_flags%spec_bdy_width, &
651 ierr )
652 END IF
653 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
654 CALL wrf_ext_read_field ( &
655 fid , & ! DataHandle
656 current_date(1:19) , & ! DateStr
657 'A_V_BYS' , & ! Data Name
658 grid%a_v_bys(ims,kds,1) , & ! Field
659 WRF_FLOAT , & ! FieldType
660 grid%communicator , & ! Comm
661 grid%iocommunicator , & ! Comm
662 grid%domdesc , & ! Comm
663 grid%bdy_mask , & ! bdy_mask
664 'YSZ' , & ! MemoryOrder
665 'Y' , & ! Stagger
666 'inc/wrf_bdyin.inc ext_read_field A_V_BYS memorder YSZ' , & ! Debug message
667 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
668 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
669 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
670 ierr )
671 END IF
672 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
673 CALL wrf_ext_read_field ( &
674 fid , & ! DataHandle
675 current_date(1:19) , & ! DateStr
676 'A_V_BYE' , & ! Data Name
677 grid%a_v_bye(ims,kds,1) , & ! Field
678 WRF_FLOAT , & ! FieldType
679 grid%communicator , & ! Comm
680 grid%iocommunicator , & ! Comm
681 grid%domdesc , & ! Comm
682 grid%bdy_mask , & ! bdy_mask
683 'YEZ' , & ! MemoryOrder
684 'Y' , & ! Stagger
685 'inc/wrf_bdyin.inc ext_read_field A_V_BYE memorder YEZ' , & ! Debug message
686 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
687 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
688 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
689 ierr )
690 END IF
691 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
692 CALL wrf_ext_read_field ( &
693 fid , & ! DataHandle
694 current_date(1:19) , & ! DateStr
695 'A_V_BTXS' , & ! Data Name
696 grid%a_v_btxs(jms,kds,1) , & ! Field
697 WRF_FLOAT , & ! FieldType
698 grid%communicator , & ! Comm
699 grid%iocommunicator , & ! Comm
700 grid%domdesc , & ! Comm
701 grid%bdy_mask , & ! bdy_mask
702 'XSZ' , & ! MemoryOrder
703 'Y' , & ! Stagger
704 'inc/wrf_bdyin.inc ext_read_field A_V_BTXS memorder XSZ' , & ! Debug message
705 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
706 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
707 MAX(jms,jds), MIN(jme,jde), kds, (kde-1), 1, config_flags%spec_bdy_width, &
708 ierr )
709 END IF
710 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
711 CALL wrf_ext_read_field ( &
712 fid , & ! DataHandle
713 current_date(1:19) , & ! DateStr
714 'A_V_BTXE' , & ! Data Name
715 grid%a_v_btxe(jms,kds,1) , & ! Field
716 WRF_FLOAT , & ! FieldType
717 grid%communicator , & ! Comm
718 grid%iocommunicator , & ! Comm
719 grid%domdesc , & ! Comm
720 grid%bdy_mask , & ! bdy_mask
721 'XEZ' , & ! MemoryOrder
722 'Y' , & ! Stagger
723 'inc/wrf_bdyin.inc ext_read_field A_V_BTXE memorder XEZ' , & ! Debug message
724 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
725 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
726 MAX(jms,jds), MIN(jme,jde), kds, (kde-1), 1, config_flags%spec_bdy_width, &
727 ierr )
728 END IF
729 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
730 CALL wrf_ext_read_field ( &
731 fid , & ! DataHandle
732 current_date(1:19) , & ! DateStr
733 'A_V_BTYS' , & ! Data Name
734 grid%a_v_btys(ims,kds,1) , & ! Field
735 WRF_FLOAT , & ! FieldType
736 grid%communicator , & ! Comm
737 grid%iocommunicator , & ! Comm
738 grid%domdesc , & ! Comm
739 grid%bdy_mask , & ! bdy_mask
740 'YSZ' , & ! MemoryOrder
741 'Y' , & ! Stagger
742 'inc/wrf_bdyin.inc ext_read_field A_V_BTYS memorder YSZ' , & ! Debug message
743 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
744 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
745 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
746 ierr )
747 END IF
748 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
749 CALL wrf_ext_read_field ( &
750 fid , & ! DataHandle
751 current_date(1:19) , & ! DateStr
752 'A_V_BTYE' , & ! Data Name
753 grid%a_v_btye(ims,kds,1) , & ! Field
754 WRF_FLOAT , & ! FieldType
755 grid%communicator , & ! Comm
756 grid%iocommunicator , & ! Comm
757 grid%domdesc , & ! Comm
758 grid%bdy_mask , & ! bdy_mask
759 'YEZ' , & ! MemoryOrder
760 'Y' , & ! Stagger
761 'inc/wrf_bdyin.inc ext_read_field A_V_BTYE memorder YEZ' , & ! Debug message
762 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
763 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
764 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
765 ierr )
766 END IF
767 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
768 CALL wrf_ext_read_field ( &
769 fid , & ! DataHandle
770 current_date(1:19) , & ! DateStr
771 'G_V_BXS' , & ! Data Name
772 grid%g_v_bxs(jms,kds,1) , & ! Field
773 WRF_FLOAT , & ! FieldType
774 grid%communicator , & ! Comm
775 grid%iocommunicator , & ! Comm
776 grid%domdesc , & ! Comm
777 grid%bdy_mask , & ! bdy_mask
778 'XSZ' , & ! MemoryOrder
779 'Y' , & ! Stagger
780 'inc/wrf_bdyin.inc ext_read_field G_V_BXS memorder XSZ' , & ! Debug message
781 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
782 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
783 MAX(jms,jds), MIN(jme,jde), kds, (kde-1), 1, config_flags%spec_bdy_width, &
784 ierr )
785 END IF
786 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
787 CALL wrf_ext_read_field ( &
788 fid , & ! DataHandle
789 current_date(1:19) , & ! DateStr
790 'G_V_BXE' , & ! Data Name
791 grid%g_v_bxe(jms,kds,1) , & ! Field
792 WRF_FLOAT , & ! FieldType
793 grid%communicator , & ! Comm
794 grid%iocommunicator , & ! Comm
795 grid%domdesc , & ! Comm
796 grid%bdy_mask , & ! bdy_mask
797 'XEZ' , & ! MemoryOrder
798 'Y' , & ! Stagger
799 'inc/wrf_bdyin.inc ext_read_field G_V_BXE memorder XEZ' , & ! Debug message
800 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
801 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
802 MAX(jms,jds), MIN(jme,jde), kds, (kde-1), 1, config_flags%spec_bdy_width, &
803 ierr )
804 END IF
805 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
806 CALL wrf_ext_read_field ( &
807 fid , & ! DataHandle
808 current_date(1:19) , & ! DateStr
809 'G_V_BYS' , & ! Data Name
810 grid%g_v_bys(ims,kds,1) , & ! Field
811 WRF_FLOAT , & ! FieldType
812 grid%communicator , & ! Comm
813 grid%iocommunicator , & ! Comm
814 grid%domdesc , & ! Comm
815 grid%bdy_mask , & ! bdy_mask
816 'YSZ' , & ! MemoryOrder
817 'Y' , & ! Stagger
818 'inc/wrf_bdyin.inc ext_read_field G_V_BYS memorder YSZ' , & ! Debug message
819 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
820 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
821 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
822 ierr )
823 END IF
824 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
825 CALL wrf_ext_read_field ( &
826 fid , & ! DataHandle
827 current_date(1:19) , & ! DateStr
828 'G_V_BYE' , & ! Data Name
829 grid%g_v_bye(ims,kds,1) , & ! Field
830 WRF_FLOAT , & ! FieldType
831 grid%communicator , & ! Comm
832 grid%iocommunicator , & ! Comm
833 grid%domdesc , & ! Comm
834 grid%bdy_mask , & ! bdy_mask
835 'YEZ' , & ! MemoryOrder
836 'Y' , & ! Stagger
837 'inc/wrf_bdyin.inc ext_read_field G_V_BYE memorder YEZ' , & ! Debug message
838 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
839 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
840 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
841 ierr )
842 END IF
843 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
844 CALL wrf_ext_read_field ( &
845 fid , & ! DataHandle
846 current_date(1:19) , & ! DateStr
847 'G_V_BTXS' , & ! Data Name
848 grid%g_v_btxs(jms,kds,1) , & ! Field
849 WRF_FLOAT , & ! FieldType
850 grid%communicator , & ! Comm
851 grid%iocommunicator , & ! Comm
852 grid%domdesc , & ! Comm
853 grid%bdy_mask , & ! bdy_mask
854 'XSZ' , & ! MemoryOrder
855 'Y' , & ! Stagger
856 'inc/wrf_bdyin.inc ext_read_field G_V_BTXS memorder XSZ' , & ! Debug message
857 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
858 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
859 MAX(jms,jds), MIN(jme,jde), kds, (kde-1), 1, config_flags%spec_bdy_width, &
860 ierr )
861 END IF
862 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
863 CALL wrf_ext_read_field ( &
864 fid , & ! DataHandle
865 current_date(1:19) , & ! DateStr
866 'G_V_BTXE' , & ! Data Name
867 grid%g_v_btxe(jms,kds,1) , & ! Field
868 WRF_FLOAT , & ! FieldType
869 grid%communicator , & ! Comm
870 grid%iocommunicator , & ! Comm
871 grid%domdesc , & ! Comm
872 grid%bdy_mask , & ! bdy_mask
873 'XEZ' , & ! MemoryOrder
874 'Y' , & ! Stagger
875 'inc/wrf_bdyin.inc ext_read_field G_V_BTXE memorder XEZ' , & ! Debug message
876 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
877 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
878 MAX(jms,jds), MIN(jme,jde), kds, (kde-1), 1, config_flags%spec_bdy_width, &
879 ierr )
880 END IF
881 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
882 CALL wrf_ext_read_field ( &
883 fid , & ! DataHandle
884 current_date(1:19) , & ! DateStr
885 'G_V_BTYS' , & ! Data Name
886 grid%g_v_btys(ims,kds,1) , & ! Field
887 WRF_FLOAT , & ! FieldType
888 grid%communicator , & ! Comm
889 grid%iocommunicator , & ! Comm
890 grid%domdesc , & ! Comm
891 grid%bdy_mask , & ! bdy_mask
892 'YSZ' , & ! MemoryOrder
893 'Y' , & ! Stagger
894 'inc/wrf_bdyin.inc ext_read_field G_V_BTYS memorder YSZ' , & ! Debug message
895 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
896 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
897 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
898 ierr )
899 END IF
900 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
901 CALL wrf_ext_read_field ( &
902 fid , & ! DataHandle
903 current_date(1:19) , & ! DateStr
904 'G_V_BTYE' , & ! Data Name
905 grid%g_v_btye(ims,kds,1) , & ! Field
906 WRF_FLOAT , & ! FieldType
907 grid%communicator , & ! Comm
908 grid%iocommunicator , & ! Comm
909 grid%domdesc , & ! Comm
910 grid%bdy_mask , & ! bdy_mask
911 'YEZ' , & ! MemoryOrder
912 'Y' , & ! Stagger
913 'inc/wrf_bdyin.inc ext_read_field G_V_BTYE memorder YEZ' , & ! Debug message
914 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
915 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
916 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
917 ierr )
918 END IF
919 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
920 CALL wrf_ext_read_field ( &
921 fid , & ! DataHandle
922 current_date(1:19) , & ! DateStr
923 'W_BXS' , & ! Data Name
924 grid%em_w_bxs(jms,kds,1) , & ! Field
925 WRF_FLOAT , & ! FieldType
926 grid%communicator , & ! Comm
927 grid%iocommunicator , & ! Comm
928 grid%domdesc , & ! Comm
929 grid%bdy_mask , & ! bdy_mask
930 'XSZ' , & ! MemoryOrder
931 'Z' , & ! Stagger
932 'inc/wrf_bdyin.inc ext_read_field W_BXS memorder XSZ' , & ! Debug message
933 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
934 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
935 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
936 ierr )
937 END IF
938 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
939 CALL wrf_ext_read_field ( &
940 fid , & ! DataHandle
941 current_date(1:19) , & ! DateStr
942 'W_BXE' , & ! Data Name
943 grid%em_w_bxe(jms,kds,1) , & ! Field
944 WRF_FLOAT , & ! FieldType
945 grid%communicator , & ! Comm
946 grid%iocommunicator , & ! Comm
947 grid%domdesc , & ! Comm
948 grid%bdy_mask , & ! bdy_mask
949 'XEZ' , & ! MemoryOrder
950 'Z' , & ! Stagger
951 'inc/wrf_bdyin.inc ext_read_field W_BXE memorder XEZ' , & ! Debug message
952 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
953 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
954 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
955 ierr )
956 END IF
957 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
958 CALL wrf_ext_read_field ( &
959 fid , & ! DataHandle
960 current_date(1:19) , & ! DateStr
961 'W_BYS' , & ! Data Name
962 grid%em_w_bys(ims,kds,1) , & ! Field
963 WRF_FLOAT , & ! FieldType
964 grid%communicator , & ! Comm
965 grid%iocommunicator , & ! Comm
966 grid%domdesc , & ! Comm
967 grid%bdy_mask , & ! bdy_mask
968 'YSZ' , & ! MemoryOrder
969 'Z' , & ! Stagger
970 'inc/wrf_bdyin.inc ext_read_field W_BYS memorder YSZ' , & ! Debug message
971 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
972 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
973 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
974 ierr )
975 END IF
976 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
977 CALL wrf_ext_read_field ( &
978 fid , & ! DataHandle
979 current_date(1:19) , & ! DateStr
980 'W_BYE' , & ! Data Name
981 grid%em_w_bye(ims,kds,1) , & ! Field
982 WRF_FLOAT , & ! FieldType
983 grid%communicator , & ! Comm
984 grid%iocommunicator , & ! Comm
985 grid%domdesc , & ! Comm
986 grid%bdy_mask , & ! bdy_mask
987 'YEZ' , & ! MemoryOrder
988 'Z' , & ! Stagger
989 'inc/wrf_bdyin.inc ext_read_field W_BYE memorder YEZ' , & ! Debug message
990 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
991 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
992 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
993 ierr )
994 END IF
995 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
996 CALL wrf_ext_read_field ( &
997 fid , & ! DataHandle
998 current_date(1:19) , & ! DateStr
999 'W_BTXS' , & ! Data Name
1000 grid%em_w_btxs(jms,kds,1) , & ! Field
1001 WRF_FLOAT , & ! FieldType
1002 grid%communicator , & ! Comm
1003 grid%iocommunicator , & ! Comm
1004 grid%domdesc , & ! Comm
1005 grid%bdy_mask , & ! bdy_mask
1006 'XSZ' , & ! MemoryOrder
1007 'Z' , & ! Stagger
1008 'inc/wrf_bdyin.inc ext_read_field W_BTXS memorder XSZ' , & ! Debug message
1009 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1010 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1011 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1012 ierr )
1013 END IF
1014 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1015 CALL wrf_ext_read_field ( &
1016 fid , & ! DataHandle
1017 current_date(1:19) , & ! DateStr
1018 'W_BTXE' , & ! Data Name
1019 grid%em_w_btxe(jms,kds,1) , & ! Field
1020 WRF_FLOAT , & ! FieldType
1021 grid%communicator , & ! Comm
1022 grid%iocommunicator , & ! Comm
1023 grid%domdesc , & ! Comm
1024 grid%bdy_mask , & ! bdy_mask
1025 'XEZ' , & ! MemoryOrder
1026 'Z' , & ! Stagger
1027 'inc/wrf_bdyin.inc ext_read_field W_BTXE memorder XEZ' , & ! Debug message
1028 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1029 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1030 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1031 ierr )
1032 END IF
1033 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1034 CALL wrf_ext_read_field ( &
1035 fid , & ! DataHandle
1036 current_date(1:19) , & ! DateStr
1037 'W_BTYS' , & ! Data Name
1038 grid%em_w_btys(ims,kds,1) , & ! Field
1039 WRF_FLOAT , & ! FieldType
1040 grid%communicator , & ! Comm
1041 grid%iocommunicator , & ! Comm
1042 grid%domdesc , & ! Comm
1043 grid%bdy_mask , & ! bdy_mask
1044 'YSZ' , & ! MemoryOrder
1045 'Z' , & ! Stagger
1046 'inc/wrf_bdyin.inc ext_read_field W_BTYS memorder YSZ' , & ! Debug message
1047 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1048 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1049 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1050 ierr )
1051 END IF
1052 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1053 CALL wrf_ext_read_field ( &
1054 fid , & ! DataHandle
1055 current_date(1:19) , & ! DateStr
1056 'W_BTYE' , & ! Data Name
1057 grid%em_w_btye(ims,kds,1) , & ! Field
1058 WRF_FLOAT , & ! FieldType
1059 grid%communicator , & ! Comm
1060 grid%iocommunicator , & ! Comm
1061 grid%domdesc , & ! Comm
1062 grid%bdy_mask , & ! bdy_mask
1063 'YEZ' , & ! MemoryOrder
1064 'Z' , & ! Stagger
1065 'inc/wrf_bdyin.inc ext_read_field W_BTYE memorder YEZ' , & ! Debug message
1066 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1067 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1068 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1069 ierr )
1070 END IF
1071 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1072 CALL wrf_ext_read_field ( &
1073 fid , & ! DataHandle
1074 current_date(1:19) , & ! DateStr
1075 'A_W_BXS' , & ! Data Name
1076 grid%a_w_bxs(jms,kds,1) , & ! Field
1077 WRF_FLOAT , & ! FieldType
1078 grid%communicator , & ! Comm
1079 grid%iocommunicator , & ! Comm
1080 grid%domdesc , & ! Comm
1081 grid%bdy_mask , & ! bdy_mask
1082 'XSZ' , & ! MemoryOrder
1083 'Z' , & ! Stagger
1084 'inc/wrf_bdyin.inc ext_read_field A_W_BXS memorder XSZ' , & ! Debug message
1085 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1086 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1087 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1088 ierr )
1089 END IF
1090 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1091 CALL wrf_ext_read_field ( &
1092 fid , & ! DataHandle
1093 current_date(1:19) , & ! DateStr
1094 'A_W_BXE' , & ! Data Name
1095 grid%a_w_bxe(jms,kds,1) , & ! Field
1096 WRF_FLOAT , & ! FieldType
1097 grid%communicator , & ! Comm
1098 grid%iocommunicator , & ! Comm
1099 grid%domdesc , & ! Comm
1100 grid%bdy_mask , & ! bdy_mask
1101 'XEZ' , & ! MemoryOrder
1102 'Z' , & ! Stagger
1103 'inc/wrf_bdyin.inc ext_read_field A_W_BXE memorder XEZ' , & ! Debug message
1104 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1105 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1106 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1107 ierr )
1108 END IF
1109 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1110 CALL wrf_ext_read_field ( &
1111 fid , & ! DataHandle
1112 current_date(1:19) , & ! DateStr
1113 'A_W_BYS' , & ! Data Name
1114 grid%a_w_bys(ims,kds,1) , & ! Field
1115 WRF_FLOAT , & ! FieldType
1116 grid%communicator , & ! Comm
1117 grid%iocommunicator , & ! Comm
1118 grid%domdesc , & ! Comm
1119 grid%bdy_mask , & ! bdy_mask
1120 'YSZ' , & ! MemoryOrder
1121 'Z' , & ! Stagger
1122 'inc/wrf_bdyin.inc ext_read_field A_W_BYS memorder YSZ' , & ! Debug message
1123 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1124 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1125 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1126 ierr )
1127 END IF
1128 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1129 CALL wrf_ext_read_field ( &
1130 fid , & ! DataHandle
1131 current_date(1:19) , & ! DateStr
1132 'A_W_BYE' , & ! Data Name
1133 grid%a_w_bye(ims,kds,1) , & ! Field
1134 WRF_FLOAT , & ! FieldType
1135 grid%communicator , & ! Comm
1136 grid%iocommunicator , & ! Comm
1137 grid%domdesc , & ! Comm
1138 grid%bdy_mask , & ! bdy_mask
1139 'YEZ' , & ! MemoryOrder
1140 'Z' , & ! Stagger
1141 'inc/wrf_bdyin.inc ext_read_field A_W_BYE memorder YEZ' , & ! Debug message
1142 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1143 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1144 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1145 ierr )
1146 END IF
1147 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1148 CALL wrf_ext_read_field ( &
1149 fid , & ! DataHandle
1150 current_date(1:19) , & ! DateStr
1151 'A_W_BTXS' , & ! Data Name
1152 grid%a_w_btxs(jms,kds,1) , & ! Field
1153 WRF_FLOAT , & ! FieldType
1154 grid%communicator , & ! Comm
1155 grid%iocommunicator , & ! Comm
1156 grid%domdesc , & ! Comm
1157 grid%bdy_mask , & ! bdy_mask
1158 'XSZ' , & ! MemoryOrder
1159 'Z' , & ! Stagger
1160 'inc/wrf_bdyin.inc ext_read_field A_W_BTXS memorder XSZ' , & ! Debug message
1161 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1162 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1163 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1164 ierr )
1165 END IF
1166 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1167 CALL wrf_ext_read_field ( &
1168 fid , & ! DataHandle
1169 current_date(1:19) , & ! DateStr
1170 'A_W_BTXE' , & ! Data Name
1171 grid%a_w_btxe(jms,kds,1) , & ! Field
1172 WRF_FLOAT , & ! FieldType
1173 grid%communicator , & ! Comm
1174 grid%iocommunicator , & ! Comm
1175 grid%domdesc , & ! Comm
1176 grid%bdy_mask , & ! bdy_mask
1177 'XEZ' , & ! MemoryOrder
1178 'Z' , & ! Stagger
1179 'inc/wrf_bdyin.inc ext_read_field A_W_BTXE memorder XEZ' , & ! Debug message
1180 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1181 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1182 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1183 ierr )
1184 END IF
1185 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1186 CALL wrf_ext_read_field ( &
1187 fid , & ! DataHandle
1188 current_date(1:19) , & ! DateStr
1189 'A_W_BTYS' , & ! Data Name
1190 grid%a_w_btys(ims,kds,1) , & ! Field
1191 WRF_FLOAT , & ! FieldType
1192 grid%communicator , & ! Comm
1193 grid%iocommunicator , & ! Comm
1194 grid%domdesc , & ! Comm
1195 grid%bdy_mask , & ! bdy_mask
1196 'YSZ' , & ! MemoryOrder
1197 'Z' , & ! Stagger
1198 'inc/wrf_bdyin.inc ext_read_field A_W_BTYS memorder YSZ' , & ! Debug message
1199 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1200 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1201 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1202 ierr )
1203 END IF
1204 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1205 CALL wrf_ext_read_field ( &
1206 fid , & ! DataHandle
1207 current_date(1:19) , & ! DateStr
1208 'A_W_BTYE' , & ! Data Name
1209 grid%a_w_btye(ims,kds,1) , & ! Field
1210 WRF_FLOAT , & ! FieldType
1211 grid%communicator , & ! Comm
1212 grid%iocommunicator , & ! Comm
1213 grid%domdesc , & ! Comm
1214 grid%bdy_mask , & ! bdy_mask
1215 'YEZ' , & ! MemoryOrder
1216 'Z' , & ! Stagger
1217 'inc/wrf_bdyin.inc ext_read_field A_W_BTYE memorder YEZ' , & ! Debug message
1218 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1219 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1220 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1221 ierr )
1222 END IF
1223 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1224 CALL wrf_ext_read_field ( &
1225 fid , & ! DataHandle
1226 current_date(1:19) , & ! DateStr
1227 'G_W_BXS' , & ! Data Name
1228 grid%g_w_bxs(jms,kds,1) , & ! Field
1229 WRF_FLOAT , & ! FieldType
1230 grid%communicator , & ! Comm
1231 grid%iocommunicator , & ! Comm
1232 grid%domdesc , & ! Comm
1233 grid%bdy_mask , & ! bdy_mask
1234 'XSZ' , & ! MemoryOrder
1235 'Z' , & ! Stagger
1236 'inc/wrf_bdyin.inc ext_read_field G_W_BXS memorder XSZ' , & ! Debug message
1237 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1238 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1239 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1240 ierr )
1241 END IF
1242 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1243 CALL wrf_ext_read_field ( &
1244 fid , & ! DataHandle
1245 current_date(1:19) , & ! DateStr
1246 'G_W_BXE' , & ! Data Name
1247 grid%g_w_bxe(jms,kds,1) , & ! Field
1248 WRF_FLOAT , & ! FieldType
1249 grid%communicator , & ! Comm
1250 grid%iocommunicator , & ! Comm
1251 grid%domdesc , & ! Comm
1252 grid%bdy_mask , & ! bdy_mask
1253 'XEZ' , & ! MemoryOrder
1254 'Z' , & ! Stagger
1255 'inc/wrf_bdyin.inc ext_read_field G_W_BXE memorder XEZ' , & ! Debug message
1256 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1257 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1258 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1259 ierr )
1260 END IF
1261 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1262 CALL wrf_ext_read_field ( &
1263 fid , & ! DataHandle
1264 current_date(1:19) , & ! DateStr
1265 'G_W_BYS' , & ! Data Name
1266 grid%g_w_bys(ims,kds,1) , & ! Field
1267 WRF_FLOAT , & ! FieldType
1268 grid%communicator , & ! Comm
1269 grid%iocommunicator , & ! Comm
1270 grid%domdesc , & ! Comm
1271 grid%bdy_mask , & ! bdy_mask
1272 'YSZ' , & ! MemoryOrder
1273 'Z' , & ! Stagger
1274 'inc/wrf_bdyin.inc ext_read_field G_W_BYS memorder YSZ' , & ! Debug message
1275 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1276 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1277 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1278 ierr )
1279 END IF
1280 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1281 CALL wrf_ext_read_field ( &
1282 fid , & ! DataHandle
1283 current_date(1:19) , & ! DateStr
1284 'G_W_BYE' , & ! Data Name
1285 grid%g_w_bye(ims,kds,1) , & ! Field
1286 WRF_FLOAT , & ! FieldType
1287 grid%communicator , & ! Comm
1288 grid%iocommunicator , & ! Comm
1289 grid%domdesc , & ! Comm
1290 grid%bdy_mask , & ! bdy_mask
1291 'YEZ' , & ! MemoryOrder
1292 'Z' , & ! Stagger
1293 'inc/wrf_bdyin.inc ext_read_field G_W_BYE memorder YEZ' , & ! Debug message
1294 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1295 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1296 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1297 ierr )
1298 END IF
1299 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1300 CALL wrf_ext_read_field ( &
1301 fid , & ! DataHandle
1302 current_date(1:19) , & ! DateStr
1303 'G_W_BTXS' , & ! Data Name
1304 grid%g_w_btxs(jms,kds,1) , & ! Field
1305 WRF_FLOAT , & ! FieldType
1306 grid%communicator , & ! Comm
1307 grid%iocommunicator , & ! Comm
1308 grid%domdesc , & ! Comm
1309 grid%bdy_mask , & ! bdy_mask
1310 'XSZ' , & ! MemoryOrder
1311 'Z' , & ! Stagger
1312 'inc/wrf_bdyin.inc ext_read_field G_W_BTXS memorder XSZ' , & ! Debug message
1313 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1314 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1315 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1316 ierr )
1317 END IF
1318 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1319 CALL wrf_ext_read_field ( &
1320 fid , & ! DataHandle
1321 current_date(1:19) , & ! DateStr
1322 'G_W_BTXE' , & ! Data Name
1323 grid%g_w_btxe(jms,kds,1) , & ! Field
1324 WRF_FLOAT , & ! FieldType
1325 grid%communicator , & ! Comm
1326 grid%iocommunicator , & ! Comm
1327 grid%domdesc , & ! Comm
1328 grid%bdy_mask , & ! bdy_mask
1329 'XEZ' , & ! MemoryOrder
1330 'Z' , & ! Stagger
1331 'inc/wrf_bdyin.inc ext_read_field G_W_BTXE memorder XEZ' , & ! Debug message
1332 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1333 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1334 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1335 ierr )
1336 END IF
1337 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1338 CALL wrf_ext_read_field ( &
1339 fid , & ! DataHandle
1340 current_date(1:19) , & ! DateStr
1341 'G_W_BTYS' , & ! Data Name
1342 grid%g_w_btys(ims,kds,1) , & ! Field
1343 WRF_FLOAT , & ! FieldType
1344 grid%communicator , & ! Comm
1345 grid%iocommunicator , & ! Comm
1346 grid%domdesc , & ! Comm
1347 grid%bdy_mask , & ! bdy_mask
1348 'YSZ' , & ! MemoryOrder
1349 'Z' , & ! Stagger
1350 'inc/wrf_bdyin.inc ext_read_field G_W_BTYS memorder YSZ' , & ! Debug message
1351 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1352 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1353 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1354 ierr )
1355 END IF
1356 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1357 CALL wrf_ext_read_field ( &
1358 fid , & ! DataHandle
1359 current_date(1:19) , & ! DateStr
1360 'G_W_BTYE' , & ! Data Name
1361 grid%g_w_btye(ims,kds,1) , & ! Field
1362 WRF_FLOAT , & ! FieldType
1363 grid%communicator , & ! Comm
1364 grid%iocommunicator , & ! Comm
1365 grid%domdesc , & ! Comm
1366 grid%bdy_mask , & ! bdy_mask
1367 'YEZ' , & ! MemoryOrder
1368 'Z' , & ! Stagger
1369 'inc/wrf_bdyin.inc ext_read_field G_W_BTYE memorder YEZ' , & ! Debug message
1370 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1371 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1372 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1373 ierr )
1374 END IF
1375 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1376 CALL wrf_ext_read_field ( &
1377 fid , & ! DataHandle
1378 current_date(1:19) , & ! DateStr
1379 'PH_BXS' , & ! Data Name
1380 grid%em_ph_bxs(jms,kds,1) , & ! Field
1381 WRF_FLOAT , & ! FieldType
1382 grid%communicator , & ! Comm
1383 grid%iocommunicator , & ! Comm
1384 grid%domdesc , & ! Comm
1385 grid%bdy_mask , & ! bdy_mask
1386 'XSZ' , & ! MemoryOrder
1387 'Z' , & ! Stagger
1388 'inc/wrf_bdyin.inc ext_read_field PH_BXS memorder XSZ' , & ! Debug message
1389 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1390 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1391 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1392 ierr )
1393 END IF
1394 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1395 CALL wrf_ext_read_field ( &
1396 fid , & ! DataHandle
1397 current_date(1:19) , & ! DateStr
1398 'PH_BXE' , & ! Data Name
1399 grid%em_ph_bxe(jms,kds,1) , & ! Field
1400 WRF_FLOAT , & ! FieldType
1401 grid%communicator , & ! Comm
1402 grid%iocommunicator , & ! Comm
1403 grid%domdesc , & ! Comm
1404 grid%bdy_mask , & ! bdy_mask
1405 'XEZ' , & ! MemoryOrder
1406 'Z' , & ! Stagger
1407 'inc/wrf_bdyin.inc ext_read_field PH_BXE memorder XEZ' , & ! Debug message
1408 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1409 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1410 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1411 ierr )
1412 END IF
1413 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1414 CALL wrf_ext_read_field ( &
1415 fid , & ! DataHandle
1416 current_date(1:19) , & ! DateStr
1417 'PH_BYS' , & ! Data Name
1418 grid%em_ph_bys(ims,kds,1) , & ! Field
1419 WRF_FLOAT , & ! FieldType
1420 grid%communicator , & ! Comm
1421 grid%iocommunicator , & ! Comm
1422 grid%domdesc , & ! Comm
1423 grid%bdy_mask , & ! bdy_mask
1424 'YSZ' , & ! MemoryOrder
1425 'Z' , & ! Stagger
1426 'inc/wrf_bdyin.inc ext_read_field PH_BYS memorder YSZ' , & ! Debug message
1427 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1428 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1429 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1430 ierr )
1431 END IF
1432 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1433 CALL wrf_ext_read_field ( &
1434 fid , & ! DataHandle
1435 current_date(1:19) , & ! DateStr
1436 'PH_BYE' , & ! Data Name
1437 grid%em_ph_bye(ims,kds,1) , & ! Field
1438 WRF_FLOAT , & ! FieldType
1439 grid%communicator , & ! Comm
1440 grid%iocommunicator , & ! Comm
1441 grid%domdesc , & ! Comm
1442 grid%bdy_mask , & ! bdy_mask
1443 'YEZ' , & ! MemoryOrder
1444 'Z' , & ! Stagger
1445 'inc/wrf_bdyin.inc ext_read_field PH_BYE memorder YEZ' , & ! Debug message
1446 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1447 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1448 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1449 ierr )
1450 END IF
1451 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1452 CALL wrf_ext_read_field ( &
1453 fid , & ! DataHandle
1454 current_date(1:19) , & ! DateStr
1455 'PH_BTXS' , & ! Data Name
1456 grid%em_ph_btxs(jms,kds,1) , & ! Field
1457 WRF_FLOAT , & ! FieldType
1458 grid%communicator , & ! Comm
1459 grid%iocommunicator , & ! Comm
1460 grid%domdesc , & ! Comm
1461 grid%bdy_mask , & ! bdy_mask
1462 'XSZ' , & ! MemoryOrder
1463 'Z' , & ! Stagger
1464 'inc/wrf_bdyin.inc ext_read_field PH_BTXS memorder XSZ' , & ! Debug message
1465 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1466 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1467 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1468 ierr )
1469 END IF
1470 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1471 CALL wrf_ext_read_field ( &
1472 fid , & ! DataHandle
1473 current_date(1:19) , & ! DateStr
1474 'PH_BTXE' , & ! Data Name
1475 grid%em_ph_btxe(jms,kds,1) , & ! Field
1476 WRF_FLOAT , & ! FieldType
1477 grid%communicator , & ! Comm
1478 grid%iocommunicator , & ! Comm
1479 grid%domdesc , & ! Comm
1480 grid%bdy_mask , & ! bdy_mask
1481 'XEZ' , & ! MemoryOrder
1482 'Z' , & ! Stagger
1483 'inc/wrf_bdyin.inc ext_read_field PH_BTXE memorder XEZ' , & ! Debug message
1484 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1485 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1486 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1487 ierr )
1488 END IF
1489 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1490 CALL wrf_ext_read_field ( &
1491 fid , & ! DataHandle
1492 current_date(1:19) , & ! DateStr
1493 'PH_BTYS' , & ! Data Name
1494 grid%em_ph_btys(ims,kds,1) , & ! Field
1495 WRF_FLOAT , & ! FieldType
1496 grid%communicator , & ! Comm
1497 grid%iocommunicator , & ! Comm
1498 grid%domdesc , & ! Comm
1499 grid%bdy_mask , & ! bdy_mask
1500 'YSZ' , & ! MemoryOrder
1501 'Z' , & ! Stagger
1502 'inc/wrf_bdyin.inc ext_read_field PH_BTYS memorder YSZ' , & ! Debug message
1503 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1504 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1505 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1506 ierr )
1507 END IF
1508 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1509 CALL wrf_ext_read_field ( &
1510 fid , & ! DataHandle
1511 current_date(1:19) , & ! DateStr
1512 'PH_BTYE' , & ! Data Name
1513 grid%em_ph_btye(ims,kds,1) , & ! Field
1514 WRF_FLOAT , & ! FieldType
1515 grid%communicator , & ! Comm
1516 grid%iocommunicator , & ! Comm
1517 grid%domdesc , & ! Comm
1518 grid%bdy_mask , & ! bdy_mask
1519 'YEZ' , & ! MemoryOrder
1520 'Z' , & ! Stagger
1521 'inc/wrf_bdyin.inc ext_read_field PH_BTYE memorder YEZ' , & ! Debug message
1522 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1523 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1524 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1525 ierr )
1526 END IF
1527 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1528 CALL wrf_ext_read_field ( &
1529 fid , & ! DataHandle
1530 current_date(1:19) , & ! DateStr
1531 'A_PH_BXS' , & ! Data Name
1532 grid%a_ph_bxs(jms,kds,1) , & ! Field
1533 WRF_FLOAT , & ! FieldType
1534 grid%communicator , & ! Comm
1535 grid%iocommunicator , & ! Comm
1536 grid%domdesc , & ! Comm
1537 grid%bdy_mask , & ! bdy_mask
1538 'XSZ' , & ! MemoryOrder
1539 'Z' , & ! Stagger
1540 'inc/wrf_bdyin.inc ext_read_field A_PH_BXS memorder XSZ' , & ! Debug message
1541 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1542 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1543 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1544 ierr )
1545 END IF
1546 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1547 CALL wrf_ext_read_field ( &
1548 fid , & ! DataHandle
1549 current_date(1:19) , & ! DateStr
1550 'A_PH_BXE' , & ! Data Name
1551 grid%a_ph_bxe(jms,kds,1) , & ! Field
1552 WRF_FLOAT , & ! FieldType
1553 grid%communicator , & ! Comm
1554 grid%iocommunicator , & ! Comm
1555 grid%domdesc , & ! Comm
1556 grid%bdy_mask , & ! bdy_mask
1557 'XEZ' , & ! MemoryOrder
1558 'Z' , & ! Stagger
1559 'inc/wrf_bdyin.inc ext_read_field A_PH_BXE memorder XEZ' , & ! Debug message
1560 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1561 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1562 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1563 ierr )
1564 END IF
1565 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1566 CALL wrf_ext_read_field ( &
1567 fid , & ! DataHandle
1568 current_date(1:19) , & ! DateStr
1569 'A_PH_BYS' , & ! Data Name
1570 grid%a_ph_bys(ims,kds,1) , & ! Field
1571 WRF_FLOAT , & ! FieldType
1572 grid%communicator , & ! Comm
1573 grid%iocommunicator , & ! Comm
1574 grid%domdesc , & ! Comm
1575 grid%bdy_mask , & ! bdy_mask
1576 'YSZ' , & ! MemoryOrder
1577 'Z' , & ! Stagger
1578 'inc/wrf_bdyin.inc ext_read_field A_PH_BYS memorder YSZ' , & ! Debug message
1579 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1580 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1581 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1582 ierr )
1583 END IF
1584 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1585 CALL wrf_ext_read_field ( &
1586 fid , & ! DataHandle
1587 current_date(1:19) , & ! DateStr
1588 'A_PH_BYE' , & ! Data Name
1589 grid%a_ph_bye(ims,kds,1) , & ! Field
1590 WRF_FLOAT , & ! FieldType
1591 grid%communicator , & ! Comm
1592 grid%iocommunicator , & ! Comm
1593 grid%domdesc , & ! Comm
1594 grid%bdy_mask , & ! bdy_mask
1595 'YEZ' , & ! MemoryOrder
1596 'Z' , & ! Stagger
1597 'inc/wrf_bdyin.inc ext_read_field A_PH_BYE memorder YEZ' , & ! Debug message
1598 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1599 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1600 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1601 ierr )
1602 END IF
1603 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1604 CALL wrf_ext_read_field ( &
1605 fid , & ! DataHandle
1606 current_date(1:19) , & ! DateStr
1607 'A_PH_BTXS' , & ! Data Name
1608 grid%a_ph_btxs(jms,kds,1) , & ! Field
1609 WRF_FLOAT , & ! FieldType
1610 grid%communicator , & ! Comm
1611 grid%iocommunicator , & ! Comm
1612 grid%domdesc , & ! Comm
1613 grid%bdy_mask , & ! bdy_mask
1614 'XSZ' , & ! MemoryOrder
1615 'Z' , & ! Stagger
1616 'inc/wrf_bdyin.inc ext_read_field A_PH_BTXS memorder XSZ' , & ! Debug message
1617 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1618 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1619 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1620 ierr )
1621 END IF
1622 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1623 CALL wrf_ext_read_field ( &
1624 fid , & ! DataHandle
1625 current_date(1:19) , & ! DateStr
1626 'A_PH_BTXE' , & ! Data Name
1627 grid%a_ph_btxe(jms,kds,1) , & ! Field
1628 WRF_FLOAT , & ! FieldType
1629 grid%communicator , & ! Comm
1630 grid%iocommunicator , & ! Comm
1631 grid%domdesc , & ! Comm
1632 grid%bdy_mask , & ! bdy_mask
1633 'XEZ' , & ! MemoryOrder
1634 'Z' , & ! Stagger
1635 'inc/wrf_bdyin.inc ext_read_field A_PH_BTXE memorder XEZ' , & ! Debug message
1636 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1637 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1638 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1639 ierr )
1640 END IF
1641 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1642 CALL wrf_ext_read_field ( &
1643 fid , & ! DataHandle
1644 current_date(1:19) , & ! DateStr
1645 'A_PH_BTYS' , & ! Data Name
1646 grid%a_ph_btys(ims,kds,1) , & ! Field
1647 WRF_FLOAT , & ! FieldType
1648 grid%communicator , & ! Comm
1649 grid%iocommunicator , & ! Comm
1650 grid%domdesc , & ! Comm
1651 grid%bdy_mask , & ! bdy_mask
1652 'YSZ' , & ! MemoryOrder
1653 'Z' , & ! Stagger
1654 'inc/wrf_bdyin.inc ext_read_field A_PH_BTYS memorder YSZ' , & ! Debug message
1655 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1656 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1657 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1658 ierr )
1659 END IF
1660 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1661 CALL wrf_ext_read_field ( &
1662 fid , & ! DataHandle
1663 current_date(1:19) , & ! DateStr
1664 'A_PH_BTYE' , & ! Data Name
1665 grid%a_ph_btye(ims,kds,1) , & ! Field
1666 WRF_FLOAT , & ! FieldType
1667 grid%communicator , & ! Comm
1668 grid%iocommunicator , & ! Comm
1669 grid%domdesc , & ! Comm
1670 grid%bdy_mask , & ! bdy_mask
1671 'YEZ' , & ! MemoryOrder
1672 'Z' , & ! Stagger
1673 'inc/wrf_bdyin.inc ext_read_field A_PH_BTYE memorder YEZ' , & ! Debug message
1674 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1675 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1676 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1677 ierr )
1678 END IF
1679 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1680 CALL wrf_ext_read_field ( &
1681 fid , & ! DataHandle
1682 current_date(1:19) , & ! DateStr
1683 'G_PH_BXS' , & ! Data Name
1684 grid%g_ph_bxs(jms,kds,1) , & ! Field
1685 WRF_FLOAT , & ! FieldType
1686 grid%communicator , & ! Comm
1687 grid%iocommunicator , & ! Comm
1688 grid%domdesc , & ! Comm
1689 grid%bdy_mask , & ! bdy_mask
1690 'XSZ' , & ! MemoryOrder
1691 'Z' , & ! Stagger
1692 'inc/wrf_bdyin.inc ext_read_field G_PH_BXS memorder XSZ' , & ! Debug message
1693 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1694 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1695 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1696 ierr )
1697 END IF
1698 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1699 CALL wrf_ext_read_field ( &
1700 fid , & ! DataHandle
1701 current_date(1:19) , & ! DateStr
1702 'G_PH_BXE' , & ! Data Name
1703 grid%g_ph_bxe(jms,kds,1) , & ! Field
1704 WRF_FLOAT , & ! FieldType
1705 grid%communicator , & ! Comm
1706 grid%iocommunicator , & ! Comm
1707 grid%domdesc , & ! Comm
1708 grid%bdy_mask , & ! bdy_mask
1709 'XEZ' , & ! MemoryOrder
1710 'Z' , & ! Stagger
1711 'inc/wrf_bdyin.inc ext_read_field G_PH_BXE memorder XEZ' , & ! Debug message
1712 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1713 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1714 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1715 ierr )
1716 END IF
1717 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1718 CALL wrf_ext_read_field ( &
1719 fid , & ! DataHandle
1720 current_date(1:19) , & ! DateStr
1721 'G_PH_BYS' , & ! Data Name
1722 grid%g_ph_bys(ims,kds,1) , & ! Field
1723 WRF_FLOAT , & ! FieldType
1724 grid%communicator , & ! Comm
1725 grid%iocommunicator , & ! Comm
1726 grid%domdesc , & ! Comm
1727 grid%bdy_mask , & ! bdy_mask
1728 'YSZ' , & ! MemoryOrder
1729 'Z' , & ! Stagger
1730 'inc/wrf_bdyin.inc ext_read_field G_PH_BYS memorder YSZ' , & ! Debug message
1731 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1732 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1733 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1734 ierr )
1735 END IF
1736 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1737 CALL wrf_ext_read_field ( &
1738 fid , & ! DataHandle
1739 current_date(1:19) , & ! DateStr
1740 'G_PH_BYE' , & ! Data Name
1741 grid%g_ph_bye(ims,kds,1) , & ! Field
1742 WRF_FLOAT , & ! FieldType
1743 grid%communicator , & ! Comm
1744 grid%iocommunicator , & ! Comm
1745 grid%domdesc , & ! Comm
1746 grid%bdy_mask , & ! bdy_mask
1747 'YEZ' , & ! MemoryOrder
1748 'Z' , & ! Stagger
1749 'inc/wrf_bdyin.inc ext_read_field G_PH_BYE memorder YEZ' , & ! Debug message
1750 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1751 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1752 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1753 ierr )
1754 END IF
1755 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1756 CALL wrf_ext_read_field ( &
1757 fid , & ! DataHandle
1758 current_date(1:19) , & ! DateStr
1759 'G_PH_BTXS' , & ! Data Name
1760 grid%g_ph_btxs(jms,kds,1) , & ! Field
1761 WRF_FLOAT , & ! FieldType
1762 grid%communicator , & ! Comm
1763 grid%iocommunicator , & ! Comm
1764 grid%domdesc , & ! Comm
1765 grid%bdy_mask , & ! bdy_mask
1766 'XSZ' , & ! MemoryOrder
1767 'Z' , & ! Stagger
1768 'inc/wrf_bdyin.inc ext_read_field G_PH_BTXS memorder XSZ' , & ! Debug message
1769 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1770 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1771 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1772 ierr )
1773 END IF
1774 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1775 CALL wrf_ext_read_field ( &
1776 fid , & ! DataHandle
1777 current_date(1:19) , & ! DateStr
1778 'G_PH_BTXE' , & ! Data Name
1779 grid%g_ph_btxe(jms,kds,1) , & ! Field
1780 WRF_FLOAT , & ! FieldType
1781 grid%communicator , & ! Comm
1782 grid%iocommunicator , & ! Comm
1783 grid%domdesc , & ! Comm
1784 grid%bdy_mask , & ! bdy_mask
1785 'XEZ' , & ! MemoryOrder
1786 'Z' , & ! Stagger
1787 'inc/wrf_bdyin.inc ext_read_field G_PH_BTXE memorder XEZ' , & ! Debug message
1788 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1789 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1790 MAX(jms,jds), MIN(jme,(jde-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1791 ierr )
1792 END IF
1793 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1794 CALL wrf_ext_read_field ( &
1795 fid , & ! DataHandle
1796 current_date(1:19) , & ! DateStr
1797 'G_PH_BTYS' , & ! Data Name
1798 grid%g_ph_btys(ims,kds,1) , & ! Field
1799 WRF_FLOAT , & ! FieldType
1800 grid%communicator , & ! Comm
1801 grid%iocommunicator , & ! Comm
1802 grid%domdesc , & ! Comm
1803 grid%bdy_mask , & ! bdy_mask
1804 'YSZ' , & ! MemoryOrder
1805 'Z' , & ! Stagger
1806 'inc/wrf_bdyin.inc ext_read_field G_PH_BTYS memorder YSZ' , & ! Debug message
1807 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1808 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1809 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1810 ierr )
1811 END IF
1812 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1813 CALL wrf_ext_read_field ( &
1814 fid , & ! DataHandle
1815 current_date(1:19) , & ! DateStr
1816 'G_PH_BTYE' , & ! Data Name
1817 grid%g_ph_btye(ims,kds,1) , & ! Field
1818 WRF_FLOAT , & ! FieldType
1819 grid%communicator , & ! Comm
1820 grid%iocommunicator , & ! Comm
1821 grid%domdesc , & ! Comm
1822 grid%bdy_mask , & ! bdy_mask
1823 'YEZ' , & ! MemoryOrder
1824 'Z' , & ! Stagger
1825 'inc/wrf_bdyin.inc ext_read_field G_PH_BTYE memorder YEZ' , & ! Debug message
1826 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1827 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1828 MAX(ims,ids), MIN(ime,(ide-1)), kds, kde, 1, config_flags%spec_bdy_width, &
1829 ierr )
1830 END IF
1831 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1832 CALL wrf_ext_read_field ( &
1833 fid , & ! DataHandle
1834 current_date(1:19) , & ! DateStr
1835 'T_BXS' , & ! Data Name
1836 grid%em_t_bxs(jms,kds,1) , & ! Field
1837 WRF_FLOAT , & ! FieldType
1838 grid%communicator , & ! Comm
1839 grid%iocommunicator , & ! Comm
1840 grid%domdesc , & ! Comm
1841 grid%bdy_mask , & ! bdy_mask
1842 'XSZ' , & ! MemoryOrder
1843 '' , & ! Stagger
1844 'inc/wrf_bdyin.inc ext_read_field T_BXS memorder XSZ' , & ! Debug message
1845 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1846 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1847 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1848 ierr )
1849 END IF
1850 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1851 CALL wrf_ext_read_field ( &
1852 fid , & ! DataHandle
1853 current_date(1:19) , & ! DateStr
1854 'T_BXE' , & ! Data Name
1855 grid%em_t_bxe(jms,kds,1) , & ! Field
1856 WRF_FLOAT , & ! FieldType
1857 grid%communicator , & ! Comm
1858 grid%iocommunicator , & ! Comm
1859 grid%domdesc , & ! Comm
1860 grid%bdy_mask , & ! bdy_mask
1861 'XEZ' , & ! MemoryOrder
1862 '' , & ! Stagger
1863 'inc/wrf_bdyin.inc ext_read_field T_BXE memorder XEZ' , & ! Debug message
1864 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1865 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1866 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1867 ierr )
1868 END IF
1869 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1870 CALL wrf_ext_read_field ( &
1871 fid , & ! DataHandle
1872 current_date(1:19) , & ! DateStr
1873 'T_BYS' , & ! Data Name
1874 grid%em_t_bys(ims,kds,1) , & ! Field
1875 WRF_FLOAT , & ! FieldType
1876 grid%communicator , & ! Comm
1877 grid%iocommunicator , & ! Comm
1878 grid%domdesc , & ! Comm
1879 grid%bdy_mask , & ! bdy_mask
1880 'YSZ' , & ! MemoryOrder
1881 '' , & ! Stagger
1882 'inc/wrf_bdyin.inc ext_read_field T_BYS memorder YSZ' , & ! Debug message
1883 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1884 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1885 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1886 ierr )
1887 END IF
1888 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1889 CALL wrf_ext_read_field ( &
1890 fid , & ! DataHandle
1891 current_date(1:19) , & ! DateStr
1892 'T_BYE' , & ! Data Name
1893 grid%em_t_bye(ims,kds,1) , & ! Field
1894 WRF_FLOAT , & ! FieldType
1895 grid%communicator , & ! Comm
1896 grid%iocommunicator , & ! Comm
1897 grid%domdesc , & ! Comm
1898 grid%bdy_mask , & ! bdy_mask
1899 'YEZ' , & ! MemoryOrder
1900 '' , & ! Stagger
1901 'inc/wrf_bdyin.inc ext_read_field T_BYE memorder YEZ' , & ! Debug message
1902 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1903 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1904 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1905 ierr )
1906 END IF
1907 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1908 CALL wrf_ext_read_field ( &
1909 fid , & ! DataHandle
1910 current_date(1:19) , & ! DateStr
1911 'T_BTXS' , & ! Data Name
1912 grid%em_t_btxs(jms,kds,1) , & ! Field
1913 WRF_FLOAT , & ! FieldType
1914 grid%communicator , & ! Comm
1915 grid%iocommunicator , & ! Comm
1916 grid%domdesc , & ! Comm
1917 grid%bdy_mask , & ! bdy_mask
1918 'XSZ' , & ! MemoryOrder
1919 '' , & ! Stagger
1920 'inc/wrf_bdyin.inc ext_read_field T_BTXS memorder XSZ' , & ! Debug message
1921 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1922 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1923 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1924 ierr )
1925 END IF
1926 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1927 CALL wrf_ext_read_field ( &
1928 fid , & ! DataHandle
1929 current_date(1:19) , & ! DateStr
1930 'T_BTXE' , & ! Data Name
1931 grid%em_t_btxe(jms,kds,1) , & ! Field
1932 WRF_FLOAT , & ! FieldType
1933 grid%communicator , & ! Comm
1934 grid%iocommunicator , & ! Comm
1935 grid%domdesc , & ! Comm
1936 grid%bdy_mask , & ! bdy_mask
1937 'XEZ' , & ! MemoryOrder
1938 '' , & ! Stagger
1939 'inc/wrf_bdyin.inc ext_read_field T_BTXE memorder XEZ' , & ! Debug message
1940 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1941 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1942 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1943 ierr )
1944 END IF
1945 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1946 CALL wrf_ext_read_field ( &
1947 fid , & ! DataHandle
1948 current_date(1:19) , & ! DateStr
1949 'T_BTYS' , & ! Data Name
1950 grid%em_t_btys(ims,kds,1) , & ! Field
1951 WRF_FLOAT , & ! FieldType
1952 grid%communicator , & ! Comm
1953 grid%iocommunicator , & ! Comm
1954 grid%domdesc , & ! Comm
1955 grid%bdy_mask , & ! bdy_mask
1956 'YSZ' , & ! MemoryOrder
1957 '' , & ! Stagger
1958 'inc/wrf_bdyin.inc ext_read_field T_BTYS memorder YSZ' , & ! Debug message
1959 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1960 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1961 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1962 ierr )
1963 END IF
1964 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1965 CALL wrf_ext_read_field ( &
1966 fid , & ! DataHandle
1967 current_date(1:19) , & ! DateStr
1968 'T_BTYE' , & ! Data Name
1969 grid%em_t_btye(ims,kds,1) , & ! Field
1970 WRF_FLOAT , & ! FieldType
1971 grid%communicator , & ! Comm
1972 grid%iocommunicator , & ! Comm
1973 grid%domdesc , & ! Comm
1974 grid%bdy_mask , & ! bdy_mask
1975 'YEZ' , & ! MemoryOrder
1976 '' , & ! Stagger
1977 'inc/wrf_bdyin.inc ext_read_field T_BTYE memorder YEZ' , & ! Debug message
1978 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1979 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1980 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1981 ierr )
1982 END IF
1983 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1984 CALL wrf_ext_read_field ( &
1985 fid , & ! DataHandle
1986 current_date(1:19) , & ! DateStr
1987 'A_T_BXS' , & ! Data Name
1988 grid%a_t_bxs(jms,kds,1) , & ! Field
1989 WRF_FLOAT , & ! FieldType
1990 grid%communicator , & ! Comm
1991 grid%iocommunicator , & ! Comm
1992 grid%domdesc , & ! Comm
1993 grid%bdy_mask , & ! bdy_mask
1994 'XSZ' , & ! MemoryOrder
1995 '' , & ! Stagger
1996 'inc/wrf_bdyin.inc ext_read_field A_T_BXS memorder XSZ' , & ! Debug message
1997 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1998 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1999 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2000 ierr )
2001 END IF
2002 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2003 CALL wrf_ext_read_field ( &
2004 fid , & ! DataHandle
2005 current_date(1:19) , & ! DateStr
2006 'A_T_BXE' , & ! Data Name
2007 grid%a_t_bxe(jms,kds,1) , & ! Field
2008 WRF_FLOAT , & ! FieldType
2009 grid%communicator , & ! Comm
2010 grid%iocommunicator , & ! Comm
2011 grid%domdesc , & ! Comm
2012 grid%bdy_mask , & ! bdy_mask
2013 'XEZ' , & ! MemoryOrder
2014 '' , & ! Stagger
2015 'inc/wrf_bdyin.inc ext_read_field A_T_BXE memorder XEZ' , & ! Debug message
2016 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2017 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2018 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2019 ierr )
2020 END IF
2021 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2022 CALL wrf_ext_read_field ( &
2023 fid , & ! DataHandle
2024 current_date(1:19) , & ! DateStr
2025 'A_T_BYS' , & ! Data Name
2026 grid%a_t_bys(ims,kds,1) , & ! Field
2027 WRF_FLOAT , & ! FieldType
2028 grid%communicator , & ! Comm
2029 grid%iocommunicator , & ! Comm
2030 grid%domdesc , & ! Comm
2031 grid%bdy_mask , & ! bdy_mask
2032 'YSZ' , & ! MemoryOrder
2033 '' , & ! Stagger
2034 'inc/wrf_bdyin.inc ext_read_field A_T_BYS memorder YSZ' , & ! Debug message
2035 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2036 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2037 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2038 ierr )
2039 END IF
2040 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2041 CALL wrf_ext_read_field ( &
2042 fid , & ! DataHandle
2043 current_date(1:19) , & ! DateStr
2044 'A_T_BYE' , & ! Data Name
2045 grid%a_t_bye(ims,kds,1) , & ! Field
2046 WRF_FLOAT , & ! FieldType
2047 grid%communicator , & ! Comm
2048 grid%iocommunicator , & ! Comm
2049 grid%domdesc , & ! Comm
2050 grid%bdy_mask , & ! bdy_mask
2051 'YEZ' , & ! MemoryOrder
2052 '' , & ! Stagger
2053 'inc/wrf_bdyin.inc ext_read_field A_T_BYE memorder YEZ' , & ! Debug message
2054 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2055 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2056 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2057 ierr )
2058 END IF
2059 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2060 CALL wrf_ext_read_field ( &
2061 fid , & ! DataHandle
2062 current_date(1:19) , & ! DateStr
2063 'A_T_BTXS' , & ! Data Name
2064 grid%a_t_btxs(jms,kds,1) , & ! Field
2065 WRF_FLOAT , & ! FieldType
2066 grid%communicator , & ! Comm
2067 grid%iocommunicator , & ! Comm
2068 grid%domdesc , & ! Comm
2069 grid%bdy_mask , & ! bdy_mask
2070 'XSZ' , & ! MemoryOrder
2071 '' , & ! Stagger
2072 'inc/wrf_bdyin.inc ext_read_field A_T_BTXS memorder XSZ' , & ! Debug message
2073 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2074 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2075 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2076 ierr )
2077 END IF
2078 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2079 CALL wrf_ext_read_field ( &
2080 fid , & ! DataHandle
2081 current_date(1:19) , & ! DateStr
2082 'A_T_BTXE' , & ! Data Name
2083 grid%a_t_btxe(jms,kds,1) , & ! Field
2084 WRF_FLOAT , & ! FieldType
2085 grid%communicator , & ! Comm
2086 grid%iocommunicator , & ! Comm
2087 grid%domdesc , & ! Comm
2088 grid%bdy_mask , & ! bdy_mask
2089 'XEZ' , & ! MemoryOrder
2090 '' , & ! Stagger
2091 'inc/wrf_bdyin.inc ext_read_field A_T_BTXE memorder XEZ' , & ! Debug message
2092 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2093 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2094 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2095 ierr )
2096 END IF
2097 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2098 CALL wrf_ext_read_field ( &
2099 fid , & ! DataHandle
2100 current_date(1:19) , & ! DateStr
2101 'A_T_BTYS' , & ! Data Name
2102 grid%a_t_btys(ims,kds,1) , & ! Field
2103 WRF_FLOAT , & ! FieldType
2104 grid%communicator , & ! Comm
2105 grid%iocommunicator , & ! Comm
2106 grid%domdesc , & ! Comm
2107 grid%bdy_mask , & ! bdy_mask
2108 'YSZ' , & ! MemoryOrder
2109 '' , & ! Stagger
2110 'inc/wrf_bdyin.inc ext_read_field A_T_BTYS memorder YSZ' , & ! Debug message
2111 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2112 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2113 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2114 ierr )
2115 END IF
2116 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2117 CALL wrf_ext_read_field ( &
2118 fid , & ! DataHandle
2119 current_date(1:19) , & ! DateStr
2120 'A_T_BTYE' , & ! Data Name
2121 grid%a_t_btye(ims,kds,1) , & ! Field
2122 WRF_FLOAT , & ! FieldType
2123 grid%communicator , & ! Comm
2124 grid%iocommunicator , & ! Comm
2125 grid%domdesc , & ! Comm
2126 grid%bdy_mask , & ! bdy_mask
2127 'YEZ' , & ! MemoryOrder
2128 '' , & ! Stagger
2129 'inc/wrf_bdyin.inc ext_read_field A_T_BTYE memorder YEZ' , & ! Debug message
2130 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2131 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2132 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2133 ierr )
2134 END IF
2135 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2136 CALL wrf_ext_read_field ( &
2137 fid , & ! DataHandle
2138 current_date(1:19) , & ! DateStr
2139 'G_T_BXS' , & ! Data Name
2140 grid%g_t_bxs(jms,kds,1) , & ! Field
2141 WRF_FLOAT , & ! FieldType
2142 grid%communicator , & ! Comm
2143 grid%iocommunicator , & ! Comm
2144 grid%domdesc , & ! Comm
2145 grid%bdy_mask , & ! bdy_mask
2146 'XSZ' , & ! MemoryOrder
2147 '' , & ! Stagger
2148 'inc/wrf_bdyin.inc ext_read_field G_T_BXS memorder XSZ' , & ! Debug message
2149 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2150 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2151 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2152 ierr )
2153 END IF
2154 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2155 CALL wrf_ext_read_field ( &
2156 fid , & ! DataHandle
2157 current_date(1:19) , & ! DateStr
2158 'G_T_BXE' , & ! Data Name
2159 grid%g_t_bxe(jms,kds,1) , & ! Field
2160 WRF_FLOAT , & ! FieldType
2161 grid%communicator , & ! Comm
2162 grid%iocommunicator , & ! Comm
2163 grid%domdesc , & ! Comm
2164 grid%bdy_mask , & ! bdy_mask
2165 'XEZ' , & ! MemoryOrder
2166 '' , & ! Stagger
2167 'inc/wrf_bdyin.inc ext_read_field G_T_BXE memorder XEZ' , & ! Debug message
2168 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2169 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2170 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2171 ierr )
2172 END IF
2173 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2174 CALL wrf_ext_read_field ( &
2175 fid , & ! DataHandle
2176 current_date(1:19) , & ! DateStr
2177 'G_T_BYS' , & ! Data Name
2178 grid%g_t_bys(ims,kds,1) , & ! Field
2179 WRF_FLOAT , & ! FieldType
2180 grid%communicator , & ! Comm
2181 grid%iocommunicator , & ! Comm
2182 grid%domdesc , & ! Comm
2183 grid%bdy_mask , & ! bdy_mask
2184 'YSZ' , & ! MemoryOrder
2185 '' , & ! Stagger
2186 'inc/wrf_bdyin.inc ext_read_field G_T_BYS memorder YSZ' , & ! Debug message
2187 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2188 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2189 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2190 ierr )
2191 END IF
2192 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2193 CALL wrf_ext_read_field ( &
2194 fid , & ! DataHandle
2195 current_date(1:19) , & ! DateStr
2196 'G_T_BYE' , & ! Data Name
2197 grid%g_t_bye(ims,kds,1) , & ! Field
2198 WRF_FLOAT , & ! FieldType
2199 grid%communicator , & ! Comm
2200 grid%iocommunicator , & ! Comm
2201 grid%domdesc , & ! Comm
2202 grid%bdy_mask , & ! bdy_mask
2203 'YEZ' , & ! MemoryOrder
2204 '' , & ! Stagger
2205 'inc/wrf_bdyin.inc ext_read_field G_T_BYE memorder YEZ' , & ! Debug message
2206 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2207 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2208 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2209 ierr )
2210 END IF
2211 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2212 CALL wrf_ext_read_field ( &
2213 fid , & ! DataHandle
2214 current_date(1:19) , & ! DateStr
2215 'G_T_BTXS' , & ! Data Name
2216 grid%g_t_btxs(jms,kds,1) , & ! Field
2217 WRF_FLOAT , & ! FieldType
2218 grid%communicator , & ! Comm
2219 grid%iocommunicator , & ! Comm
2220 grid%domdesc , & ! Comm
2221 grid%bdy_mask , & ! bdy_mask
2222 'XSZ' , & ! MemoryOrder
2223 '' , & ! Stagger
2224 'inc/wrf_bdyin.inc ext_read_field G_T_BTXS memorder XSZ' , & ! Debug message
2225 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2226 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2227 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2228 ierr )
2229 END IF
2230 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2231 CALL wrf_ext_read_field ( &
2232 fid , & ! DataHandle
2233 current_date(1:19) , & ! DateStr
2234 'G_T_BTXE' , & ! Data Name
2235 grid%g_t_btxe(jms,kds,1) , & ! Field
2236 WRF_FLOAT , & ! FieldType
2237 grid%communicator , & ! Comm
2238 grid%iocommunicator , & ! Comm
2239 grid%domdesc , & ! Comm
2240 grid%bdy_mask , & ! bdy_mask
2241 'XEZ' , & ! MemoryOrder
2242 '' , & ! Stagger
2243 'inc/wrf_bdyin.inc ext_read_field G_T_BTXE memorder XEZ' , & ! Debug message
2244 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2245 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2246 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2247 ierr )
2248 END IF
2249 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2250 CALL wrf_ext_read_field ( &
2251 fid , & ! DataHandle
2252 current_date(1:19) , & ! DateStr
2253 'G_T_BTYS' , & ! Data Name
2254 grid%g_t_btys(ims,kds,1) , & ! Field
2255 WRF_FLOAT , & ! FieldType
2256 grid%communicator , & ! Comm
2257 grid%iocommunicator , & ! Comm
2258 grid%domdesc , & ! Comm
2259 grid%bdy_mask , & ! bdy_mask
2260 'YSZ' , & ! MemoryOrder
2261 '' , & ! Stagger
2262 'inc/wrf_bdyin.inc ext_read_field G_T_BTYS memorder YSZ' , & ! Debug message
2263 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2264 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2265 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2266 ierr )
2267 END IF
2268 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2269 CALL wrf_ext_read_field ( &
2270 fid , & ! DataHandle
2271 current_date(1:19) , & ! DateStr
2272 'G_T_BTYE' , & ! Data Name
2273 grid%g_t_btye(ims,kds,1) , & ! Field
2274 WRF_FLOAT , & ! FieldType
2275 grid%communicator , & ! Comm
2276 grid%iocommunicator , & ! Comm
2277 grid%domdesc , & ! Comm
2278 grid%bdy_mask , & ! bdy_mask
2279 'YEZ' , & ! MemoryOrder
2280 '' , & ! Stagger
2281 'inc/wrf_bdyin.inc ext_read_field G_T_BTYE memorder YEZ' , & ! Debug message
2282 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2283 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2284 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2285 ierr )
2286 END IF
2287 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2288 CALL wrf_ext_read_field ( &
2289 fid , & ! DataHandle
2290 current_date(1:19) , & ! DateStr
2291 'MU_BXS' , & ! Data Name
2292 grid%em_mu_bxs(jms,kds,1) , & ! Field
2293 WRF_FLOAT , & ! FieldType
2294 grid%communicator , & ! Comm
2295 grid%iocommunicator , & ! Comm
2296 grid%domdesc , & ! Comm
2297 grid%bdy_mask , & ! bdy_mask
2298 'XS' , & ! MemoryOrder
2299 '' , & ! Stagger
2300 'inc/wrf_bdyin.inc ext_read_field MU_BXS memorder XS' , & ! Debug message
2301 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
2302 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
2303 MAX(jms,jds), MIN(jme,(jde-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2304 ierr )
2305 END IF
2306 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2307 CALL wrf_ext_read_field ( &
2308 fid , & ! DataHandle
2309 current_date(1:19) , & ! DateStr
2310 'MU_BXE' , & ! Data Name
2311 grid%em_mu_bxe(jms,kds,1) , & ! Field
2312 WRF_FLOAT , & ! FieldType
2313 grid%communicator , & ! Comm
2314 grid%iocommunicator , & ! Comm
2315 grid%domdesc , & ! Comm
2316 grid%bdy_mask , & ! bdy_mask
2317 'XE' , & ! MemoryOrder
2318 '' , & ! Stagger
2319 'inc/wrf_bdyin.inc ext_read_field MU_BXE memorder XE' , & ! Debug message
2320 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
2321 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
2322 MAX(jms,jds), MIN(jme,(jde-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2323 ierr )
2324 END IF
2325 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2326 CALL wrf_ext_read_field ( &
2327 fid , & ! DataHandle
2328 current_date(1:19) , & ! DateStr
2329 'MU_BYS' , & ! Data Name
2330 grid%em_mu_bys(ims,kds,1) , & ! Field
2331 WRF_FLOAT , & ! FieldType
2332 grid%communicator , & ! Comm
2333 grid%iocommunicator , & ! Comm
2334 grid%domdesc , & ! Comm
2335 grid%bdy_mask , & ! bdy_mask
2336 'YS' , & ! MemoryOrder
2337 '' , & ! Stagger
2338 'inc/wrf_bdyin.inc ext_read_field MU_BYS memorder YS' , & ! Debug message
2339 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
2340 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
2341 MAX(ims,ids), MIN(ime,(ide-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2342 ierr )
2343 END IF
2344 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2345 CALL wrf_ext_read_field ( &
2346 fid , & ! DataHandle
2347 current_date(1:19) , & ! DateStr
2348 'MU_BYE' , & ! Data Name
2349 grid%em_mu_bye(ims,kds,1) , & ! Field
2350 WRF_FLOAT , & ! FieldType
2351 grid%communicator , & ! Comm
2352 grid%iocommunicator , & ! Comm
2353 grid%domdesc , & ! Comm
2354 grid%bdy_mask , & ! bdy_mask
2355 'YE' , & ! MemoryOrder
2356 '' , & ! Stagger
2357 'inc/wrf_bdyin.inc ext_read_field MU_BYE memorder YE' , & ! Debug message
2358 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
2359 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
2360 MAX(ims,ids), MIN(ime,(ide-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2361 ierr )
2362 END IF
2363 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2364 CALL wrf_ext_read_field ( &
2365 fid , & ! DataHandle
2366 current_date(1:19) , & ! DateStr
2367 'MU_BTXS' , & ! Data Name
2368 grid%em_mu_btxs(jms,kds,1) , & ! Field
2369 WRF_FLOAT , & ! FieldType
2370 grid%communicator , & ! Comm
2371 grid%iocommunicator , & ! Comm
2372 grid%domdesc , & ! Comm
2373 grid%bdy_mask , & ! bdy_mask
2374 'XS' , & ! MemoryOrder
2375 '' , & ! Stagger
2376 'inc/wrf_bdyin.inc ext_read_field MU_BTXS memorder XS' , & ! Debug message
2377 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
2378 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
2379 MAX(jms,jds), MIN(jme,(jde-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2380 ierr )
2381 END IF
2382 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2383 CALL wrf_ext_read_field ( &
2384 fid , & ! DataHandle
2385 current_date(1:19) , & ! DateStr
2386 'MU_BTXE' , & ! Data Name
2387 grid%em_mu_btxe(jms,kds,1) , & ! Field
2388 WRF_FLOAT , & ! FieldType
2389 grid%communicator , & ! Comm
2390 grid%iocommunicator , & ! Comm
2391 grid%domdesc , & ! Comm
2392 grid%bdy_mask , & ! bdy_mask
2393 'XE' , & ! MemoryOrder
2394 '' , & ! Stagger
2395 'inc/wrf_bdyin.inc ext_read_field MU_BTXE memorder XE' , & ! Debug message
2396 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
2397 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
2398 MAX(jms,jds), MIN(jme,(jde-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2399 ierr )
2400 END IF
2401 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2402 CALL wrf_ext_read_field ( &
2403 fid , & ! DataHandle
2404 current_date(1:19) , & ! DateStr
2405 'MU_BTYS' , & ! Data Name
2406 grid%em_mu_btys(ims,kds,1) , & ! Field
2407 WRF_FLOAT , & ! FieldType
2408 grid%communicator , & ! Comm
2409 grid%iocommunicator , & ! Comm
2410 grid%domdesc , & ! Comm
2411 grid%bdy_mask , & ! bdy_mask
2412 'YS' , & ! MemoryOrder
2413 '' , & ! Stagger
2414 'inc/wrf_bdyin.inc ext_read_field MU_BTYS memorder YS' , & ! Debug message
2415 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
2416 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
2417 MAX(ims,ids), MIN(ime,(ide-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2418 ierr )
2419 END IF
2420 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2421 CALL wrf_ext_read_field ( &
2422 fid , & ! DataHandle
2423 current_date(1:19) , & ! DateStr
2424 'MU_BTYE' , & ! Data Name
2425 grid%em_mu_btye(ims,kds,1) , & ! Field
2426 WRF_FLOAT , & ! FieldType
2427 grid%communicator , & ! Comm
2428 grid%iocommunicator , & ! Comm
2429 grid%domdesc , & ! Comm
2430 grid%bdy_mask , & ! bdy_mask
2431 'YE' , & ! MemoryOrder
2432 '' , & ! Stagger
2433 'inc/wrf_bdyin.inc ext_read_field MU_BTYE memorder YE' , & ! Debug message
2434 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
2435 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
2436 MAX(ims,ids), MIN(ime,(ide-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2437 ierr )
2438 END IF
2439 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2440 CALL wrf_ext_read_field ( &
2441 fid , & ! DataHandle
2442 current_date(1:19) , & ! DateStr
2443 'A_MU_BXS' , & ! Data Name
2444 grid%a_mu_bxs(jms,kds,1) , & ! Field
2445 WRF_FLOAT , & ! FieldType
2446 grid%communicator , & ! Comm
2447 grid%iocommunicator , & ! Comm
2448 grid%domdesc , & ! Comm
2449 grid%bdy_mask , & ! bdy_mask
2450 'XS' , & ! MemoryOrder
2451 '' , & ! Stagger
2452 'inc/wrf_bdyin.inc ext_read_field A_MU_BXS memorder XS' , & ! Debug message
2453 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
2454 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
2455 MAX(jms,jds), MIN(jme,(jde-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2456 ierr )
2457 END IF
2458 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2459 CALL wrf_ext_read_field ( &
2460 fid , & ! DataHandle
2461 current_date(1:19) , & ! DateStr
2462 'A_MU_BXE' , & ! Data Name
2463 grid%a_mu_bxe(jms,kds,1) , & ! Field
2464 WRF_FLOAT , & ! FieldType
2465 grid%communicator , & ! Comm
2466 grid%iocommunicator , & ! Comm
2467 grid%domdesc , & ! Comm
2468 grid%bdy_mask , & ! bdy_mask
2469 'XE' , & ! MemoryOrder
2470 '' , & ! Stagger
2471 'inc/wrf_bdyin.inc ext_read_field A_MU_BXE memorder XE' , & ! Debug message
2472 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
2473 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
2474 MAX(jms,jds), MIN(jme,(jde-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2475 ierr )
2476 END IF
2477 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2478 CALL wrf_ext_read_field ( &
2479 fid , & ! DataHandle
2480 current_date(1:19) , & ! DateStr
2481 'A_MU_BYS' , & ! Data Name
2482 grid%a_mu_bys(ims,kds,1) , & ! Field
2483 WRF_FLOAT , & ! FieldType
2484 grid%communicator , & ! Comm
2485 grid%iocommunicator , & ! Comm
2486 grid%domdesc , & ! Comm
2487 grid%bdy_mask , & ! bdy_mask
2488 'YS' , & ! MemoryOrder
2489 '' , & ! Stagger
2490 'inc/wrf_bdyin.inc ext_read_field A_MU_BYS memorder YS' , & ! Debug message
2491 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
2492 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
2493 MAX(ims,ids), MIN(ime,(ide-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2494 ierr )
2495 END IF
2496 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2497 CALL wrf_ext_read_field ( &
2498 fid , & ! DataHandle
2499 current_date(1:19) , & ! DateStr
2500 'A_MU_BYE' , & ! Data Name
2501 grid%a_mu_bye(ims,kds,1) , & ! Field
2502 WRF_FLOAT , & ! FieldType
2503 grid%communicator , & ! Comm
2504 grid%iocommunicator , & ! Comm
2505 grid%domdesc , & ! Comm
2506 grid%bdy_mask , & ! bdy_mask
2507 'YE' , & ! MemoryOrder
2508 '' , & ! Stagger
2509 'inc/wrf_bdyin.inc ext_read_field A_MU_BYE memorder YE' , & ! Debug message
2510 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
2511 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
2512 MAX(ims,ids), MIN(ime,(ide-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2513 ierr )
2514 END IF
2515 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2516 CALL wrf_ext_read_field ( &
2517 fid , & ! DataHandle
2518 current_date(1:19) , & ! DateStr
2519 'A_MU_BTXS' , & ! Data Name
2520 grid%a_mu_btxs(jms,kds,1) , & ! Field
2521 WRF_FLOAT , & ! FieldType
2522 grid%communicator , & ! Comm
2523 grid%iocommunicator , & ! Comm
2524 grid%domdesc , & ! Comm
2525 grid%bdy_mask , & ! bdy_mask
2526 'XS' , & ! MemoryOrder
2527 '' , & ! Stagger
2528 'inc/wrf_bdyin.inc ext_read_field A_MU_BTXS memorder XS' , & ! Debug message
2529 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
2530 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
2531 MAX(jms,jds), MIN(jme,(jde-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2532 ierr )
2533 END IF
2534 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2535 CALL wrf_ext_read_field ( &
2536 fid , & ! DataHandle
2537 current_date(1:19) , & ! DateStr
2538 'A_MU_BTXE' , & ! Data Name
2539 grid%a_mu_btxe(jms,kds,1) , & ! Field
2540 WRF_FLOAT , & ! FieldType
2541 grid%communicator , & ! Comm
2542 grid%iocommunicator , & ! Comm
2543 grid%domdesc , & ! Comm
2544 grid%bdy_mask , & ! bdy_mask
2545 'XE' , & ! MemoryOrder
2546 '' , & ! Stagger
2547 'inc/wrf_bdyin.inc ext_read_field A_MU_BTXE memorder XE' , & ! Debug message
2548 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
2549 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
2550 MAX(jms,jds), MIN(jme,(jde-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2551 ierr )
2552 END IF
2553 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2554 CALL wrf_ext_read_field ( &
2555 fid , & ! DataHandle
2556 current_date(1:19) , & ! DateStr
2557 'A_MU_BTYS' , & ! Data Name
2558 grid%a_mu_btys(ims,kds,1) , & ! Field
2559 WRF_FLOAT , & ! FieldType
2560 grid%communicator , & ! Comm
2561 grid%iocommunicator , & ! Comm
2562 grid%domdesc , & ! Comm
2563 grid%bdy_mask , & ! bdy_mask
2564 'YS' , & ! MemoryOrder
2565 '' , & ! Stagger
2566 'inc/wrf_bdyin.inc ext_read_field A_MU_BTYS memorder YS' , & ! Debug message
2567 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
2568 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
2569 MAX(ims,ids), MIN(ime,(ide-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2570 ierr )
2571 END IF
2572 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2573 CALL wrf_ext_read_field ( &
2574 fid , & ! DataHandle
2575 current_date(1:19) , & ! DateStr
2576 'A_MU_BTYE' , & ! Data Name
2577 grid%a_mu_btye(ims,kds,1) , & ! Field
2578 WRF_FLOAT , & ! FieldType
2579 grid%communicator , & ! Comm
2580 grid%iocommunicator , & ! Comm
2581 grid%domdesc , & ! Comm
2582 grid%bdy_mask , & ! bdy_mask
2583 'YE' , & ! MemoryOrder
2584 '' , & ! Stagger
2585 'inc/wrf_bdyin.inc ext_read_field A_MU_BTYE memorder YE' , & ! Debug message
2586 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
2587 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
2588 MAX(ims,ids), MIN(ime,(ide-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2589 ierr )
2590 END IF
2591 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2592 CALL wrf_ext_read_field ( &
2593 fid , & ! DataHandle
2594 current_date(1:19) , & ! DateStr
2595 'G_MU_BXS' , & ! Data Name
2596 grid%g_mu_bxs(jms,kds,1) , & ! Field
2597 WRF_FLOAT , & ! FieldType
2598 grid%communicator , & ! Comm
2599 grid%iocommunicator , & ! Comm
2600 grid%domdesc , & ! Comm
2601 grid%bdy_mask , & ! bdy_mask
2602 'XS' , & ! MemoryOrder
2603 '' , & ! Stagger
2604 'inc/wrf_bdyin.inc ext_read_field G_MU_BXS memorder XS' , & ! Debug message
2605 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
2606 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
2607 MAX(jms,jds), MIN(jme,(jde-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2608 ierr )
2609 END IF
2610 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2611 CALL wrf_ext_read_field ( &
2612 fid , & ! DataHandle
2613 current_date(1:19) , & ! DateStr
2614 'G_MU_BXE' , & ! Data Name
2615 grid%g_mu_bxe(jms,kds,1) , & ! Field
2616 WRF_FLOAT , & ! FieldType
2617 grid%communicator , & ! Comm
2618 grid%iocommunicator , & ! Comm
2619 grid%domdesc , & ! Comm
2620 grid%bdy_mask , & ! bdy_mask
2621 'XE' , & ! MemoryOrder
2622 '' , & ! Stagger
2623 'inc/wrf_bdyin.inc ext_read_field G_MU_BXE memorder XE' , & ! Debug message
2624 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
2625 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
2626 MAX(jms,jds), MIN(jme,(jde-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2627 ierr )
2628 END IF
2629 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2630 CALL wrf_ext_read_field ( &
2631 fid , & ! DataHandle
2632 current_date(1:19) , & ! DateStr
2633 'G_MU_BYS' , & ! Data Name
2634 grid%g_mu_bys(ims,kds,1) , & ! Field
2635 WRF_FLOAT , & ! FieldType
2636 grid%communicator , & ! Comm
2637 grid%iocommunicator , & ! Comm
2638 grid%domdesc , & ! Comm
2639 grid%bdy_mask , & ! bdy_mask
2640 'YS' , & ! MemoryOrder
2641 '' , & ! Stagger
2642 'inc/wrf_bdyin.inc ext_read_field G_MU_BYS memorder YS' , & ! Debug message
2643 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
2644 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
2645 MAX(ims,ids), MIN(ime,(ide-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2646 ierr )
2647 END IF
2648 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2649 CALL wrf_ext_read_field ( &
2650 fid , & ! DataHandle
2651 current_date(1:19) , & ! DateStr
2652 'G_MU_BYE' , & ! Data Name
2653 grid%g_mu_bye(ims,kds,1) , & ! Field
2654 WRF_FLOAT , & ! FieldType
2655 grid%communicator , & ! Comm
2656 grid%iocommunicator , & ! Comm
2657 grid%domdesc , & ! Comm
2658 grid%bdy_mask , & ! bdy_mask
2659 'YE' , & ! MemoryOrder
2660 '' , & ! Stagger
2661 'inc/wrf_bdyin.inc ext_read_field G_MU_BYE memorder YE' , & ! Debug message
2662 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
2663 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
2664 MAX(ims,ids), MIN(ime,(ide-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2665 ierr )
2666 END IF
2667 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2668 CALL wrf_ext_read_field ( &
2669 fid , & ! DataHandle
2670 current_date(1:19) , & ! DateStr
2671 'G_MU_BTXS' , & ! Data Name
2672 grid%g_mu_btxs(jms,kds,1) , & ! Field
2673 WRF_FLOAT , & ! FieldType
2674 grid%communicator , & ! Comm
2675 grid%iocommunicator , & ! Comm
2676 grid%domdesc , & ! Comm
2677 grid%bdy_mask , & ! bdy_mask
2678 'XS' , & ! MemoryOrder
2679 '' , & ! Stagger
2680 'inc/wrf_bdyin.inc ext_read_field G_MU_BTXS memorder XS' , & ! Debug message
2681 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
2682 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
2683 MAX(jms,jds), MIN(jme,(jde-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2684 ierr )
2685 END IF
2686 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2687 CALL wrf_ext_read_field ( &
2688 fid , & ! DataHandle
2689 current_date(1:19) , & ! DateStr
2690 'G_MU_BTXE' , & ! Data Name
2691 grid%g_mu_btxe(jms,kds,1) , & ! Field
2692 WRF_FLOAT , & ! FieldType
2693 grid%communicator , & ! Comm
2694 grid%iocommunicator , & ! Comm
2695 grid%domdesc , & ! Comm
2696 grid%bdy_mask , & ! bdy_mask
2697 'XE' , & ! MemoryOrder
2698 '' , & ! Stagger
2699 'inc/wrf_bdyin.inc ext_read_field G_MU_BTXE memorder XE' , & ! Debug message
2700 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
2701 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
2702 MAX(jms,jds), MIN(jme,(jde-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2703 ierr )
2704 END IF
2705 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2706 CALL wrf_ext_read_field ( &
2707 fid , & ! DataHandle
2708 current_date(1:19) , & ! DateStr
2709 'G_MU_BTYS' , & ! Data Name
2710 grid%g_mu_btys(ims,kds,1) , & ! Field
2711 WRF_FLOAT , & ! FieldType
2712 grid%communicator , & ! Comm
2713 grid%iocommunicator , & ! Comm
2714 grid%domdesc , & ! Comm
2715 grid%bdy_mask , & ! bdy_mask
2716 'YS' , & ! MemoryOrder
2717 '' , & ! Stagger
2718 'inc/wrf_bdyin.inc ext_read_field G_MU_BTYS memorder YS' , & ! Debug message
2719 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
2720 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
2721 MAX(ims,ids), MIN(ime,(ide-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2722 ierr )
2723 END IF
2724 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2725 CALL wrf_ext_read_field ( &
2726 fid , & ! DataHandle
2727 current_date(1:19) , & ! DateStr
2728 'G_MU_BTYE' , & ! Data Name
2729 grid%g_mu_btye(ims,kds,1) , & ! Field
2730 WRF_FLOAT , & ! FieldType
2731 grid%communicator , & ! Comm
2732 grid%iocommunicator , & ! Comm
2733 grid%domdesc , & ! Comm
2734 grid%bdy_mask , & ! bdy_mask
2735 'YE' , & ! MemoryOrder
2736 '' , & ! Stagger
2737 'inc/wrf_bdyin.inc ext_read_field G_MU_BTYE memorder YE' , & ! Debug message
2738 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
2739 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
2740 MAX(ims,ids), MIN(ime,(ide-1)), 1, config_flags%spec_bdy_width, 1, 1, &
2741 ierr )
2742 END IF
2743 DO itrace = PARAM_FIRST_SCALAR , num_moist
2744 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
2745 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2746 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2747 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2748 CALL wrf_ext_read_field ( &
2749 fid , & ! DataHandle
2750 current_date(1:19) , & ! DateStr
2751 TRIM(moist_dname_table( grid%id, itrace )) // '_BXS', & !data name
2752 grid%moist_BXS(jms,kds,1,itrace) , & ! Field
2753 WRF_FLOAT , & ! FieldType
2754 grid%communicator , & ! Comm
2755 grid%iocommunicator , & ! Comm
2756 grid%domdesc , & ! Comm
2757 grid%bdy_mask , & ! bdy_mask
2758 'XSZ' , & ! MemoryOrder
2759 '' , & ! Stagger
2760 'inc/wrf_bdyin.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
2761 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2762 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2763 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2764 ierr )
2765 CALL wrf_ext_read_field ( &
2766 fid , & ! DataHandle
2767 current_date(1:19) , & ! DateStr
2768 TRIM(moist_dname_table( grid%id, itrace )) // '_BXE', & !data name
2769 grid%moist_BXE(jms,kds,1,itrace) , & ! Field
2770 WRF_FLOAT , & ! FieldType
2771 grid%communicator , & ! Comm
2772 grid%iocommunicator , & ! Comm
2773 grid%domdesc , & ! Comm
2774 grid%bdy_mask , & ! bdy_mask
2775 'XEZ' , & ! MemoryOrder
2776 '' , & ! Stagger
2777 'inc/wrf_bdyin.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
2778 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2779 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2780 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2781 ierr )
2782 CALL wrf_ext_read_field ( &
2783 fid , & ! DataHandle
2784 current_date(1:19) , & ! DateStr
2785 TRIM(moist_dname_table( grid%id, itrace )) // '_BYS', & !data name
2786 grid%moist_BYS(ims,kds,1,itrace) , & ! Field
2787 WRF_FLOAT , & ! FieldType
2788 grid%communicator , & ! Comm
2789 grid%iocommunicator , & ! Comm
2790 grid%domdesc , & ! Comm
2791 grid%bdy_mask , & ! bdy_mask
2792 'YSZ' , & ! MemoryOrder
2793 '' , & ! Stagger
2794 'inc/wrf_bdyin.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
2795 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2796 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2797 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2798 ierr )
2799 CALL wrf_ext_read_field ( &
2800 fid , & ! DataHandle
2801 current_date(1:19) , & ! DateStr
2802 TRIM(moist_dname_table( grid%id, itrace )) // '_BYE', & !data name
2803 grid%moist_BYE(ims,kds,1,itrace) , & ! Field
2804 WRF_FLOAT , & ! FieldType
2805 grid%communicator , & ! Comm
2806 grid%iocommunicator , & ! Comm
2807 grid%domdesc , & ! Comm
2808 grid%bdy_mask , & ! bdy_mask
2809 'YEZ' , & ! MemoryOrder
2810 '' , & ! Stagger
2811 'inc/wrf_bdyin.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
2812 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2813 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2814 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2815 ierr )
2816 ENDIF
2817 ENDIF
2818 ENDDO
2819 DO itrace = PARAM_FIRST_SCALAR , num_moist
2820 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
2821 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2822 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2823 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2824 CALL wrf_ext_read_field ( &
2825 fid , & ! DataHandle
2826 current_date(1:19) , & ! DateStr
2827 TRIM(moist_dname_table( grid%id, itrace )) // '_BTXS', & !data name
2828 grid%moist_BTXS(jms,kds,1,itrace) , & ! Field
2829 WRF_FLOAT , & ! FieldType
2830 grid%communicator , & ! Comm
2831 grid%iocommunicator , & ! Comm
2832 grid%domdesc , & ! Comm
2833 grid%bdy_mask , & ! bdy_mask
2834 'XSZ' , & ! MemoryOrder
2835 '' , & ! Stagger
2836 'inc/wrf_bdyin.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
2837 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2838 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2839 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2840 ierr )
2841 CALL wrf_ext_read_field ( &
2842 fid , & ! DataHandle
2843 current_date(1:19) , & ! DateStr
2844 TRIM(moist_dname_table( grid%id, itrace )) // '_BTXE', & !data name
2845 grid%moist_BTXE(jms,kds,1,itrace) , & ! Field
2846 WRF_FLOAT , & ! FieldType
2847 grid%communicator , & ! Comm
2848 grid%iocommunicator , & ! Comm
2849 grid%domdesc , & ! Comm
2850 grid%bdy_mask , & ! bdy_mask
2851 'XEZ' , & ! MemoryOrder
2852 '' , & ! Stagger
2853 'inc/wrf_bdyin.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
2854 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2855 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2856 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2857 ierr )
2858 CALL wrf_ext_read_field ( &
2859 fid , & ! DataHandle
2860 current_date(1:19) , & ! DateStr
2861 TRIM(moist_dname_table( grid%id, itrace )) // '_BTYS', & !data name
2862 grid%moist_BTYS(ims,kds,1,itrace) , & ! Field
2863 WRF_FLOAT , & ! FieldType
2864 grid%communicator , & ! Comm
2865 grid%iocommunicator , & ! Comm
2866 grid%domdesc , & ! Comm
2867 grid%bdy_mask , & ! bdy_mask
2868 'YSZ' , & ! MemoryOrder
2869 '' , & ! Stagger
2870 'inc/wrf_bdyin.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
2871 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2872 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2873 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2874 ierr )
2875 CALL wrf_ext_read_field ( &
2876 fid , & ! DataHandle
2877 current_date(1:19) , & ! DateStr
2878 TRIM(moist_dname_table( grid%id, itrace )) // '_BTYE', & !data name
2879 grid%moist_BTYE(ims,kds,1,itrace) , & ! Field
2880 WRF_FLOAT , & ! FieldType
2881 grid%communicator , & ! Comm
2882 grid%iocommunicator , & ! Comm
2883 grid%domdesc , & ! Comm
2884 grid%bdy_mask , & ! bdy_mask
2885 'YEZ' , & ! MemoryOrder
2886 '' , & ! Stagger
2887 'inc/wrf_bdyin.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
2888 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2889 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2890 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2891 ierr )
2892 ENDIF
2893 ENDIF
2894 ENDDO
2895 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
2896 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
2897 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2898 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2899 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2900 CALL wrf_ext_read_field ( &
2901 fid , & ! DataHandle
2902 current_date(1:19) , & ! DateStr
2903 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BXS', & !data name
2904 grid%a_moist_BXS(jms,kds,1,itrace) , & ! Field
2905 WRF_FLOAT , & ! FieldType
2906 grid%communicator , & ! Comm
2907 grid%iocommunicator , & ! Comm
2908 grid%domdesc , & ! Comm
2909 grid%bdy_mask , & ! bdy_mask
2910 'XSZ' , & ! MemoryOrder
2911 '' , & ! Stagger
2912 'inc/wrf_bdyin.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
2913 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2914 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2915 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2916 ierr )
2917 CALL wrf_ext_read_field ( &
2918 fid , & ! DataHandle
2919 current_date(1:19) , & ! DateStr
2920 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BXE', & !data name
2921 grid%a_moist_BXE(jms,kds,1,itrace) , & ! Field
2922 WRF_FLOAT , & ! FieldType
2923 grid%communicator , & ! Comm
2924 grid%iocommunicator , & ! Comm
2925 grid%domdesc , & ! Comm
2926 grid%bdy_mask , & ! bdy_mask
2927 'XEZ' , & ! MemoryOrder
2928 '' , & ! Stagger
2929 'inc/wrf_bdyin.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
2930 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2931 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2932 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2933 ierr )
2934 CALL wrf_ext_read_field ( &
2935 fid , & ! DataHandle
2936 current_date(1:19) , & ! DateStr
2937 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BYS', & !data name
2938 grid%a_moist_BYS(ims,kds,1,itrace) , & ! Field
2939 WRF_FLOAT , & ! FieldType
2940 grid%communicator , & ! Comm
2941 grid%iocommunicator , & ! Comm
2942 grid%domdesc , & ! Comm
2943 grid%bdy_mask , & ! bdy_mask
2944 'YSZ' , & ! MemoryOrder
2945 '' , & ! Stagger
2946 'inc/wrf_bdyin.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
2947 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2948 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2949 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2950 ierr )
2951 CALL wrf_ext_read_field ( &
2952 fid , & ! DataHandle
2953 current_date(1:19) , & ! DateStr
2954 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BYE', & !data name
2955 grid%a_moist_BYE(ims,kds,1,itrace) , & ! Field
2956 WRF_FLOAT , & ! FieldType
2957 grid%communicator , & ! Comm
2958 grid%iocommunicator , & ! Comm
2959 grid%domdesc , & ! Comm
2960 grid%bdy_mask , & ! bdy_mask
2961 'YEZ' , & ! MemoryOrder
2962 '' , & ! Stagger
2963 'inc/wrf_bdyin.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
2964 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2965 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2966 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2967 ierr )
2968 ENDIF
2969 ENDIF
2970 ENDDO
2971 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
2972 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
2973 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2974 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2975 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2976 CALL wrf_ext_read_field ( &
2977 fid , & ! DataHandle
2978 current_date(1:19) , & ! DateStr
2979 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTXS', & !data name
2980 grid%a_moist_BTXS(jms,kds,1,itrace) , & ! Field
2981 WRF_FLOAT , & ! FieldType
2982 grid%communicator , & ! Comm
2983 grid%iocommunicator , & ! Comm
2984 grid%domdesc , & ! Comm
2985 grid%bdy_mask , & ! bdy_mask
2986 'XSZ' , & ! MemoryOrder
2987 '' , & ! Stagger
2988 'inc/wrf_bdyin.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
2989 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2990 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2991 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2992 ierr )
2993 CALL wrf_ext_read_field ( &
2994 fid , & ! DataHandle
2995 current_date(1:19) , & ! DateStr
2996 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTXE', & !data name
2997 grid%a_moist_BTXE(jms,kds,1,itrace) , & ! Field
2998 WRF_FLOAT , & ! FieldType
2999 grid%communicator , & ! Comm
3000 grid%iocommunicator , & ! Comm
3001 grid%domdesc , & ! Comm
3002 grid%bdy_mask , & ! bdy_mask
3003 'XEZ' , & ! MemoryOrder
3004 '' , & ! Stagger
3005 'inc/wrf_bdyin.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
3006 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3007 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3008 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3009 ierr )
3010 CALL wrf_ext_read_field ( &
3011 fid , & ! DataHandle
3012 current_date(1:19) , & ! DateStr
3013 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTYS', & !data name
3014 grid%a_moist_BTYS(ims,kds,1,itrace) , & ! Field
3015 WRF_FLOAT , & ! FieldType
3016 grid%communicator , & ! Comm
3017 grid%iocommunicator , & ! Comm
3018 grid%domdesc , & ! Comm
3019 grid%bdy_mask , & ! bdy_mask
3020 'YSZ' , & ! MemoryOrder
3021 '' , & ! Stagger
3022 'inc/wrf_bdyin.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
3023 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3024 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3025 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3026 ierr )
3027 CALL wrf_ext_read_field ( &
3028 fid , & ! DataHandle
3029 current_date(1:19) , & ! DateStr
3030 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTYE', & !data name
3031 grid%a_moist_BTYE(ims,kds,1,itrace) , & ! Field
3032 WRF_FLOAT , & ! FieldType
3033 grid%communicator , & ! Comm
3034 grid%iocommunicator , & ! Comm
3035 grid%domdesc , & ! Comm
3036 grid%bdy_mask , & ! bdy_mask
3037 'YEZ' , & ! MemoryOrder
3038 '' , & ! Stagger
3039 'inc/wrf_bdyin.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
3040 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3041 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3042 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3043 ierr )
3044 ENDIF
3045 ENDIF
3046 ENDDO
3047 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
3048 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
3049 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
3050 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
3051 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
3052 CALL wrf_ext_read_field ( &
3053 fid , & ! DataHandle
3054 current_date(1:19) , & ! DateStr
3055 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BXS', & !data name
3056 grid%g_moist_BXS(jms,kds,1,itrace) , & ! Field
3057 WRF_FLOAT , & ! FieldType
3058 grid%communicator , & ! Comm
3059 grid%iocommunicator , & ! Comm
3060 grid%domdesc , & ! Comm
3061 grid%bdy_mask , & ! bdy_mask
3062 'XSZ' , & ! MemoryOrder
3063 '' , & ! Stagger
3064 'inc/wrf_bdyin.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
3065 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3066 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3067 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3068 ierr )
3069 CALL wrf_ext_read_field ( &
3070 fid , & ! DataHandle
3071 current_date(1:19) , & ! DateStr
3072 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BXE', & !data name
3073 grid%g_moist_BXE(jms,kds,1,itrace) , & ! Field
3074 WRF_FLOAT , & ! FieldType
3075 grid%communicator , & ! Comm
3076 grid%iocommunicator , & ! Comm
3077 grid%domdesc , & ! Comm
3078 grid%bdy_mask , & ! bdy_mask
3079 'XEZ' , & ! MemoryOrder
3080 '' , & ! Stagger
3081 'inc/wrf_bdyin.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
3082 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3083 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3084 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3085 ierr )
3086 CALL wrf_ext_read_field ( &
3087 fid , & ! DataHandle
3088 current_date(1:19) , & ! DateStr
3089 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BYS', & !data name
3090 grid%g_moist_BYS(ims,kds,1,itrace) , & ! Field
3091 WRF_FLOAT , & ! FieldType
3092 grid%communicator , & ! Comm
3093 grid%iocommunicator , & ! Comm
3094 grid%domdesc , & ! Comm
3095 grid%bdy_mask , & ! bdy_mask
3096 'YSZ' , & ! MemoryOrder
3097 '' , & ! Stagger
3098 'inc/wrf_bdyin.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
3099 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3100 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3101 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3102 ierr )
3103 CALL wrf_ext_read_field ( &
3104 fid , & ! DataHandle
3105 current_date(1:19) , & ! DateStr
3106 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BYE', & !data name
3107 grid%g_moist_BYE(ims,kds,1,itrace) , & ! Field
3108 WRF_FLOAT , & ! FieldType
3109 grid%communicator , & ! Comm
3110 grid%iocommunicator , & ! Comm
3111 grid%domdesc , & ! Comm
3112 grid%bdy_mask , & ! bdy_mask
3113 'YEZ' , & ! MemoryOrder
3114 '' , & ! Stagger
3115 'inc/wrf_bdyin.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
3116 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3117 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3118 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3119 ierr )
3120 ENDIF
3121 ENDIF
3122 ENDDO
3123 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
3124 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
3125 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
3126 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
3127 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
3128 CALL wrf_ext_read_field ( &
3129 fid , & ! DataHandle
3130 current_date(1:19) , & ! DateStr
3131 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTXS', & !data name
3132 grid%g_moist_BTXS(jms,kds,1,itrace) , & ! Field
3133 WRF_FLOAT , & ! FieldType
3134 grid%communicator , & ! Comm
3135 grid%iocommunicator , & ! Comm
3136 grid%domdesc , & ! Comm
3137 grid%bdy_mask , & ! bdy_mask
3138 'XSZ' , & ! MemoryOrder
3139 '' , & ! Stagger
3140 'inc/wrf_bdyin.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
3141 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3142 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3143 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3144 ierr )
3145 CALL wrf_ext_read_field ( &
3146 fid , & ! DataHandle
3147 current_date(1:19) , & ! DateStr
3148 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTXE', & !data name
3149 grid%g_moist_BTXE(jms,kds,1,itrace) , & ! Field
3150 WRF_FLOAT , & ! FieldType
3151 grid%communicator , & ! Comm
3152 grid%iocommunicator , & ! Comm
3153 grid%domdesc , & ! Comm
3154 grid%bdy_mask , & ! bdy_mask
3155 'XEZ' , & ! MemoryOrder
3156 '' , & ! Stagger
3157 'inc/wrf_bdyin.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
3158 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3159 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3160 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3161 ierr )
3162 CALL wrf_ext_read_field ( &
3163 fid , & ! DataHandle
3164 current_date(1:19) , & ! DateStr
3165 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTYS', & !data name
3166 grid%g_moist_BTYS(ims,kds,1,itrace) , & ! Field
3167 WRF_FLOAT , & ! FieldType
3168 grid%communicator , & ! Comm
3169 grid%iocommunicator , & ! Comm
3170 grid%domdesc , & ! Comm
3171 grid%bdy_mask , & ! bdy_mask
3172 'YSZ' , & ! MemoryOrder
3173 '' , & ! Stagger
3174 'inc/wrf_bdyin.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
3175 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3176 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3177 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3178 ierr )
3179 CALL wrf_ext_read_field ( &
3180 fid , & ! DataHandle
3181 current_date(1:19) , & ! DateStr
3182 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTYE', & !data name
3183 grid%g_moist_BTYE(ims,kds,1,itrace) , & ! Field
3184 WRF_FLOAT , & ! FieldType
3185 grid%communicator , & ! Comm
3186 grid%iocommunicator , & ! Comm
3187 grid%domdesc , & ! Comm
3188 grid%bdy_mask , & ! bdy_mask
3189 'YEZ' , & ! MemoryOrder
3190 '' , & ! Stagger
3191 'inc/wrf_bdyin.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
3192 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3193 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3194 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3195 ierr )
3196 ENDIF
3197 ENDIF
3198 ENDDO
3199 DO itrace = PARAM_FIRST_SCALAR , num_scalar
3200 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
3201 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
3202 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
3203 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
3204 CALL wrf_ext_read_field ( &
3205 fid , & ! DataHandle
3206 current_date(1:19) , & ! DateStr
3207 TRIM(scalar_dname_table( grid%id, itrace )) // '_BXS', & !data name
3208 grid%scalar_BXS(jms,kds,1,itrace) , & ! Field
3209 WRF_FLOAT , & ! FieldType
3210 grid%communicator , & ! Comm
3211 grid%iocommunicator , & ! Comm
3212 grid%domdesc , & ! Comm
3213 grid%bdy_mask , & ! bdy_mask
3214 'XSZ' , & ! MemoryOrder
3215 '' , & ! Stagger
3216 'inc/wrf_bdyin.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
3217 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3218 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3219 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3220 ierr )
3221 CALL wrf_ext_read_field ( &
3222 fid , & ! DataHandle
3223 current_date(1:19) , & ! DateStr
3224 TRIM(scalar_dname_table( grid%id, itrace )) // '_BXE', & !data name
3225 grid%scalar_BXE(jms,kds,1,itrace) , & ! Field
3226 WRF_FLOAT , & ! FieldType
3227 grid%communicator , & ! Comm
3228 grid%iocommunicator , & ! Comm
3229 grid%domdesc , & ! Comm
3230 grid%bdy_mask , & ! bdy_mask
3231 'XEZ' , & ! MemoryOrder
3232 '' , & ! Stagger
3233 'inc/wrf_bdyin.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
3234 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3235 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3236 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3237 ierr )
3238 CALL wrf_ext_read_field ( &
3239 fid , & ! DataHandle
3240 current_date(1:19) , & ! DateStr
3241 TRIM(scalar_dname_table( grid%id, itrace )) // '_BYS', & !data name
3242 grid%scalar_BYS(ims,kds,1,itrace) , & ! Field
3243 WRF_FLOAT , & ! FieldType
3244 grid%communicator , & ! Comm
3245 grid%iocommunicator , & ! Comm
3246 grid%domdesc , & ! Comm
3247 grid%bdy_mask , & ! bdy_mask
3248 'YSZ' , & ! MemoryOrder
3249 '' , & ! Stagger
3250 'inc/wrf_bdyin.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
3251 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3252 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3253 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3254 ierr )
3255 CALL wrf_ext_read_field ( &
3256 fid , & ! DataHandle
3257 current_date(1:19) , & ! DateStr
3258 TRIM(scalar_dname_table( grid%id, itrace )) // '_BYE', & !data name
3259 grid%scalar_BYE(ims,kds,1,itrace) , & ! Field
3260 WRF_FLOAT , & ! FieldType
3261 grid%communicator , & ! Comm
3262 grid%iocommunicator , & ! Comm
3263 grid%domdesc , & ! Comm
3264 grid%bdy_mask , & ! bdy_mask
3265 'YEZ' , & ! MemoryOrder
3266 '' , & ! Stagger
3267 'inc/wrf_bdyin.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
3268 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3269 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3270 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3271 ierr )
3272 ENDIF
3273 ENDIF
3274 ENDDO
3275 DO itrace = PARAM_FIRST_SCALAR , num_scalar
3276 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
3277 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
3278 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
3279 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
3280 CALL wrf_ext_read_field ( &
3281 fid , & ! DataHandle
3282 current_date(1:19) , & ! DateStr
3283 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTXS', & !data name
3284 grid%scalar_BTXS(jms,kds,1,itrace) , & ! Field
3285 WRF_FLOAT , & ! FieldType
3286 grid%communicator , & ! Comm
3287 grid%iocommunicator , & ! Comm
3288 grid%domdesc , & ! Comm
3289 grid%bdy_mask , & ! bdy_mask
3290 'XSZ' , & ! MemoryOrder
3291 '' , & ! Stagger
3292 'inc/wrf_bdyin.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
3293 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3294 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3295 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3296 ierr )
3297 CALL wrf_ext_read_field ( &
3298 fid , & ! DataHandle
3299 current_date(1:19) , & ! DateStr
3300 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTXE', & !data name
3301 grid%scalar_BTXE(jms,kds,1,itrace) , & ! Field
3302 WRF_FLOAT , & ! FieldType
3303 grid%communicator , & ! Comm
3304 grid%iocommunicator , & ! Comm
3305 grid%domdesc , & ! Comm
3306 grid%bdy_mask , & ! bdy_mask
3307 'XEZ' , & ! MemoryOrder
3308 '' , & ! Stagger
3309 'inc/wrf_bdyin.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
3310 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3311 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3312 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3313 ierr )
3314 CALL wrf_ext_read_field ( &
3315 fid , & ! DataHandle
3316 current_date(1:19) , & ! DateStr
3317 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTYS', & !data name
3318 grid%scalar_BTYS(ims,kds,1,itrace) , & ! Field
3319 WRF_FLOAT , & ! FieldType
3320 grid%communicator , & ! Comm
3321 grid%iocommunicator , & ! Comm
3322 grid%domdesc , & ! Comm
3323 grid%bdy_mask , & ! bdy_mask
3324 'YSZ' , & ! MemoryOrder
3325 '' , & ! Stagger
3326 'inc/wrf_bdyin.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
3327 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3328 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3329 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3330 ierr )
3331 CALL wrf_ext_read_field ( &
3332 fid , & ! DataHandle
3333 current_date(1:19) , & ! DateStr
3334 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTYE', & !data name
3335 grid%scalar_BTYE(ims,kds,1,itrace) , & ! Field
3336 WRF_FLOAT , & ! FieldType
3337 grid%communicator , & ! Comm
3338 grid%iocommunicator , & ! Comm
3339 grid%domdesc , & ! Comm
3340 grid%bdy_mask , & ! bdy_mask
3341 'YEZ' , & ! MemoryOrder
3342 '' , & ! Stagger
3343 'inc/wrf_bdyin.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
3344 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3345 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3346 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3347 ierr )
3348 ENDIF
3349 ENDIF
3350 ENDDO
3351 !ENDOFREGISTRYGENERATEDINCLUDE