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