wrf_bdyout.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_bdyout.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_write_field ( &
9 fid , & ! DataHandle
10 current_date(1:19) , & ! DateStr
11 'U_BXS' , & ! Data Name
12 grid%em_u_bxs(jms,kds,1) , & ! Field
13 WRF_FLOAT , & ! FieldType
14 grid%communicator , & ! Comm
15 grid%iocommunicator , & ! Comm
16 grid%domdesc , & ! Comm
17 grid%bdy_mask , & ! bdy_mask
18 dryrun , & ! flag
19 'XSZ' , & ! MemoryOrder
20 'X' , & ! Stagger
21 'south_north' , & ! Dimname 1
22 'bottom_top' , & ! Dimname 2
23 'bdy_width' , & ! Dimname 3
24 'bdy x-wind component' , & ! Desc
25 'm s-1' , & ! Units
26 'inc/wrf_bdyout.inc ext_write_field U_BXS memorder XSZ' , & ! Debug message
27 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
28 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
29 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
30 ierr )
31 END IF
32 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
33 CALL wrf_ext_write_field ( &
34 fid , & ! DataHandle
35 current_date(1:19) , & ! DateStr
36 'U_BXE' , & ! Data Name
37 grid%em_u_bxe(jms,kds,1) , & ! Field
38 WRF_FLOAT , & ! FieldType
39 grid%communicator , & ! Comm
40 grid%iocommunicator , & ! Comm
41 grid%domdesc , & ! Comm
42 grid%bdy_mask , & ! bdy_mask
43 dryrun , & ! flag
44 'XEZ' , & ! MemoryOrder
45 'X' , & ! Stagger
46 'south_north' , & ! Dimname 1
47 'bottom_top' , & ! Dimname 2
48 'bdy_width' , & ! Dimname 3
49 'bdy x-wind component' , & ! Desc
50 'm s-1' , & ! Units
51 'inc/wrf_bdyout.inc ext_write_field U_BXE memorder XEZ' , & ! Debug message
52 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
53 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
54 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
55 ierr )
56 END IF
57 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
58 CALL wrf_ext_write_field ( &
59 fid , & ! DataHandle
60 current_date(1:19) , & ! DateStr
61 'U_BYS' , & ! Data Name
62 grid%em_u_bys(ims,kds,1) , & ! Field
63 WRF_FLOAT , & ! FieldType
64 grid%communicator , & ! Comm
65 grid%iocommunicator , & ! Comm
66 grid%domdesc , & ! Comm
67 grid%bdy_mask , & ! bdy_mask
68 dryrun , & ! flag
69 'YSZ' , & ! MemoryOrder
70 'X' , & ! Stagger
71 'west_east_stag' , & ! Dimname 1
72 'bottom_top' , & ! Dimname 2
73 'bdy_width' , & ! Dimname 3
74 'bdy x-wind component' , & ! Desc
75 'm s-1' , & ! Units
76 'inc/wrf_bdyout.inc ext_write_field U_BYS memorder YSZ' , & ! Debug message
77 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
78 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
79 ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
80 ierr )
81 END IF
82 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
83 CALL wrf_ext_write_field ( &
84 fid , & ! DataHandle
85 current_date(1:19) , & ! DateStr
86 'U_BYE' , & ! Data Name
87 grid%em_u_bye(ims,kds,1) , & ! Field
88 WRF_FLOAT , & ! FieldType
89 grid%communicator , & ! Comm
90 grid%iocommunicator , & ! Comm
91 grid%domdesc , & ! Comm
92 grid%bdy_mask , & ! bdy_mask
93 dryrun , & ! flag
94 'YEZ' , & ! MemoryOrder
95 'X' , & ! Stagger
96 'west_east_stag' , & ! Dimname 1
97 'bottom_top' , & ! Dimname 2
98 'bdy_width' , & ! Dimname 3
99 'bdy x-wind component' , & ! Desc
100 'm s-1' , & ! Units
101 'inc/wrf_bdyout.inc ext_write_field U_BYE memorder YEZ' , & ! Debug message
102 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
103 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
104 ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
105 ierr )
106 END IF
107 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
108 CALL wrf_ext_write_field ( &
109 fid , & ! DataHandle
110 current_date(1:19) , & ! DateStr
111 'U_BTXS' , & ! Data Name
112 grid%em_u_btxs(jms,kds,1) , & ! Field
113 WRF_FLOAT , & ! FieldType
114 grid%communicator , & ! Comm
115 grid%iocommunicator , & ! Comm
116 grid%domdesc , & ! Comm
117 grid%bdy_mask , & ! bdy_mask
118 dryrun , & ! flag
119 'XSZ' , & ! MemoryOrder
120 'X' , & ! Stagger
121 'south_north' , & ! Dimname 1
122 'bottom_top' , & ! Dimname 2
123 'bdy_width' , & ! Dimname 3
124 'bdy tend x-wind component' , & ! Desc
125 '(m s-1)/dt' , & ! Units
126 'inc/wrf_bdyout.inc ext_write_field U_BTXS memorder XSZ' , & ! Debug message
127 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
128 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
129 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
130 ierr )
131 END IF
132 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
133 CALL wrf_ext_write_field ( &
134 fid , & ! DataHandle
135 current_date(1:19) , & ! DateStr
136 'U_BTXE' , & ! Data Name
137 grid%em_u_btxe(jms,kds,1) , & ! Field
138 WRF_FLOAT , & ! FieldType
139 grid%communicator , & ! Comm
140 grid%iocommunicator , & ! Comm
141 grid%domdesc , & ! Comm
142 grid%bdy_mask , & ! bdy_mask
143 dryrun , & ! flag
144 'XEZ' , & ! MemoryOrder
145 'X' , & ! Stagger
146 'south_north' , & ! Dimname 1
147 'bottom_top' , & ! Dimname 2
148 'bdy_width' , & ! Dimname 3
149 'bdy tend x-wind component' , & ! Desc
150 '(m s-1)/dt' , & ! Units
151 'inc/wrf_bdyout.inc ext_write_field U_BTXE memorder XEZ' , & ! Debug message
152 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
153 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
154 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
155 ierr )
156 END IF
157 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
158 CALL wrf_ext_write_field ( &
159 fid , & ! DataHandle
160 current_date(1:19) , & ! DateStr
161 'U_BTYS' , & ! Data Name
162 grid%em_u_btys(ims,kds,1) , & ! Field
163 WRF_FLOAT , & ! FieldType
164 grid%communicator , & ! Comm
165 grid%iocommunicator , & ! Comm
166 grid%domdesc , & ! Comm
167 grid%bdy_mask , & ! bdy_mask
168 dryrun , & ! flag
169 'YSZ' , & ! MemoryOrder
170 'X' , & ! Stagger
171 'west_east_stag' , & ! Dimname 1
172 'bottom_top' , & ! Dimname 2
173 'bdy_width' , & ! Dimname 3
174 'bdy tend x-wind component' , & ! Desc
175 '(m s-1)/dt' , & ! Units
176 'inc/wrf_bdyout.inc ext_write_field U_BTYS memorder YSZ' , & ! Debug message
177 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
178 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
179 ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
180 ierr )
181 END IF
182 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
183 CALL wrf_ext_write_field ( &
184 fid , & ! DataHandle
185 current_date(1:19) , & ! DateStr
186 'U_BTYE' , & ! Data Name
187 grid%em_u_btye(ims,kds,1) , & ! Field
188 WRF_FLOAT , & ! FieldType
189 grid%communicator , & ! Comm
190 grid%iocommunicator , & ! Comm
191 grid%domdesc , & ! Comm
192 grid%bdy_mask , & ! bdy_mask
193 dryrun , & ! flag
194 'YEZ' , & ! MemoryOrder
195 'X' , & ! Stagger
196 'west_east_stag' , & ! Dimname 1
197 'bottom_top' , & ! Dimname 2
198 'bdy_width' , & ! Dimname 3
199 'bdy tend x-wind component' , & ! Desc
200 '(m s-1)/dt' , & ! Units
201 'inc/wrf_bdyout.inc ext_write_field U_BTYE memorder YEZ' , & ! Debug message
202 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
203 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
204 ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
205 ierr )
206 END IF
207 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
208 CALL wrf_ext_write_field ( &
209 fid , & ! DataHandle
210 current_date(1:19) , & ! DateStr
211 'A_U_BXS' , & ! Data Name
212 grid%a_u_bxs(jms,kds,1) , & ! Field
213 WRF_FLOAT , & ! FieldType
214 grid%communicator , & ! Comm
215 grid%iocommunicator , & ! Comm
216 grid%domdesc , & ! Comm
217 grid%bdy_mask , & ! bdy_mask
218 dryrun , & ! flag
219 'XSZ' , & ! MemoryOrder
220 'X' , & ! Stagger
221 'south_north' , & ! Dimname 1
222 'bottom_top' , & ! Dimname 2
223 'bdy_width' , & ! Dimname 3
224 'bdy x-wind component' , & ! Desc
225 'm s-1' , & ! Units
226 'inc/wrf_bdyout.inc ext_write_field A_U_BXS memorder XSZ' , & ! Debug message
227 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
228 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
229 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
230 ierr )
231 END IF
232 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
233 CALL wrf_ext_write_field ( &
234 fid , & ! DataHandle
235 current_date(1:19) , & ! DateStr
236 'A_U_BXE' , & ! Data Name
237 grid%a_u_bxe(jms,kds,1) , & ! Field
238 WRF_FLOAT , & ! FieldType
239 grid%communicator , & ! Comm
240 grid%iocommunicator , & ! Comm
241 grid%domdesc , & ! Comm
242 grid%bdy_mask , & ! bdy_mask
243 dryrun , & ! flag
244 'XEZ' , & ! MemoryOrder
245 'X' , & ! Stagger
246 'south_north' , & ! Dimname 1
247 'bottom_top' , & ! Dimname 2
248 'bdy_width' , & ! Dimname 3
249 'bdy x-wind component' , & ! Desc
250 'm s-1' , & ! Units
251 'inc/wrf_bdyout.inc ext_write_field A_U_BXE memorder XEZ' , & ! Debug message
252 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
253 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
254 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
255 ierr )
256 END IF
257 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
258 CALL wrf_ext_write_field ( &
259 fid , & ! DataHandle
260 current_date(1:19) , & ! DateStr
261 'A_U_BYS' , & ! Data Name
262 grid%a_u_bys(ims,kds,1) , & ! Field
263 WRF_FLOAT , & ! FieldType
264 grid%communicator , & ! Comm
265 grid%iocommunicator , & ! Comm
266 grid%domdesc , & ! Comm
267 grid%bdy_mask , & ! bdy_mask
268 dryrun , & ! flag
269 'YSZ' , & ! MemoryOrder
270 'X' , & ! Stagger
271 'west_east_stag' , & ! Dimname 1
272 'bottom_top' , & ! Dimname 2
273 'bdy_width' , & ! Dimname 3
274 'bdy x-wind component' , & ! Desc
275 'm s-1' , & ! Units
276 'inc/wrf_bdyout.inc ext_write_field A_U_BYS memorder YSZ' , & ! Debug message
277 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
278 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
279 ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
280 ierr )
281 END IF
282 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
283 CALL wrf_ext_write_field ( &
284 fid , & ! DataHandle
285 current_date(1:19) , & ! DateStr
286 'A_U_BYE' , & ! Data Name
287 grid%a_u_bye(ims,kds,1) , & ! Field
288 WRF_FLOAT , & ! FieldType
289 grid%communicator , & ! Comm
290 grid%iocommunicator , & ! Comm
291 grid%domdesc , & ! Comm
292 grid%bdy_mask , & ! bdy_mask
293 dryrun , & ! flag
294 'YEZ' , & ! MemoryOrder
295 'X' , & ! Stagger
296 'west_east_stag' , & ! Dimname 1
297 'bottom_top' , & ! Dimname 2
298 'bdy_width' , & ! Dimname 3
299 'bdy x-wind component' , & ! Desc
300 'm s-1' , & ! Units
301 'inc/wrf_bdyout.inc ext_write_field A_U_BYE memorder YEZ' , & ! Debug message
302 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
303 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
304 ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
305 ierr )
306 END IF
307 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
308 CALL wrf_ext_write_field ( &
309 fid , & ! DataHandle
310 current_date(1:19) , & ! DateStr
311 'A_U_BTXS' , & ! Data Name
312 grid%a_u_btxs(jms,kds,1) , & ! Field
313 WRF_FLOAT , & ! FieldType
314 grid%communicator , & ! Comm
315 grid%iocommunicator , & ! Comm
316 grid%domdesc , & ! Comm
317 grid%bdy_mask , & ! bdy_mask
318 dryrun , & ! flag
319 'XSZ' , & ! MemoryOrder
320 'X' , & ! Stagger
321 'south_north' , & ! Dimname 1
322 'bottom_top' , & ! Dimname 2
323 'bdy_width' , & ! Dimname 3
324 'bdy tend x-wind component' , & ! Desc
325 '(m s-1)/dt' , & ! Units
326 'inc/wrf_bdyout.inc ext_write_field A_U_BTXS memorder XSZ' , & ! Debug message
327 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
328 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
329 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
330 ierr )
331 END IF
332 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
333 CALL wrf_ext_write_field ( &
334 fid , & ! DataHandle
335 current_date(1:19) , & ! DateStr
336 'A_U_BTXE' , & ! Data Name
337 grid%a_u_btxe(jms,kds,1) , & ! Field
338 WRF_FLOAT , & ! FieldType
339 grid%communicator , & ! Comm
340 grid%iocommunicator , & ! Comm
341 grid%domdesc , & ! Comm
342 grid%bdy_mask , & ! bdy_mask
343 dryrun , & ! flag
344 'XEZ' , & ! MemoryOrder
345 'X' , & ! Stagger
346 'south_north' , & ! Dimname 1
347 'bottom_top' , & ! Dimname 2
348 'bdy_width' , & ! Dimname 3
349 'bdy tend x-wind component' , & ! Desc
350 '(m s-1)/dt' , & ! Units
351 'inc/wrf_bdyout.inc ext_write_field A_U_BTXE memorder XEZ' , & ! Debug message
352 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
353 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
354 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
355 ierr )
356 END IF
357 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
358 CALL wrf_ext_write_field ( &
359 fid , & ! DataHandle
360 current_date(1:19) , & ! DateStr
361 'A_U_BTYS' , & ! Data Name
362 grid%a_u_btys(ims,kds,1) , & ! Field
363 WRF_FLOAT , & ! FieldType
364 grid%communicator , & ! Comm
365 grid%iocommunicator , & ! Comm
366 grid%domdesc , & ! Comm
367 grid%bdy_mask , & ! bdy_mask
368 dryrun , & ! flag
369 'YSZ' , & ! MemoryOrder
370 'X' , & ! Stagger
371 'west_east_stag' , & ! Dimname 1
372 'bottom_top' , & ! Dimname 2
373 'bdy_width' , & ! Dimname 3
374 'bdy tend x-wind component' , & ! Desc
375 '(m s-1)/dt' , & ! Units
376 'inc/wrf_bdyout.inc ext_write_field A_U_BTYS memorder YSZ' , & ! Debug message
377 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
378 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
379 ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
380 ierr )
381 END IF
382 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
383 CALL wrf_ext_write_field ( &
384 fid , & ! DataHandle
385 current_date(1:19) , & ! DateStr
386 'A_U_BTYE' , & ! Data Name
387 grid%a_u_btye(ims,kds,1) , & ! Field
388 WRF_FLOAT , & ! FieldType
389 grid%communicator , & ! Comm
390 grid%iocommunicator , & ! Comm
391 grid%domdesc , & ! Comm
392 grid%bdy_mask , & ! bdy_mask
393 dryrun , & ! flag
394 'YEZ' , & ! MemoryOrder
395 'X' , & ! Stagger
396 'west_east_stag' , & ! Dimname 1
397 'bottom_top' , & ! Dimname 2
398 'bdy_width' , & ! Dimname 3
399 'bdy tend x-wind component' , & ! Desc
400 '(m s-1)/dt' , & ! Units
401 'inc/wrf_bdyout.inc ext_write_field A_U_BTYE memorder YEZ' , & ! Debug message
402 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
403 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
404 ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
405 ierr )
406 END IF
407 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
408 CALL wrf_ext_write_field ( &
409 fid , & ! DataHandle
410 current_date(1:19) , & ! DateStr
411 'G_U_BXS' , & ! Data Name
412 grid%g_u_bxs(jms,kds,1) , & ! Field
413 WRF_FLOAT , & ! FieldType
414 grid%communicator , & ! Comm
415 grid%iocommunicator , & ! Comm
416 grid%domdesc , & ! Comm
417 grid%bdy_mask , & ! bdy_mask
418 dryrun , & ! flag
419 'XSZ' , & ! MemoryOrder
420 'X' , & ! Stagger
421 'south_north' , & ! Dimname 1
422 'bottom_top' , & ! Dimname 2
423 'bdy_width' , & ! Dimname 3
424 'bdy x-wind component' , & ! Desc
425 'm s-1' , & ! Units
426 'inc/wrf_bdyout.inc ext_write_field G_U_BXS memorder XSZ' , & ! Debug message
427 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
428 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
429 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
430 ierr )
431 END IF
432 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
433 CALL wrf_ext_write_field ( &
434 fid , & ! DataHandle
435 current_date(1:19) , & ! DateStr
436 'G_U_BXE' , & ! Data Name
437 grid%g_u_bxe(jms,kds,1) , & ! Field
438 WRF_FLOAT , & ! FieldType
439 grid%communicator , & ! Comm
440 grid%iocommunicator , & ! Comm
441 grid%domdesc , & ! Comm
442 grid%bdy_mask , & ! bdy_mask
443 dryrun , & ! flag
444 'XEZ' , & ! MemoryOrder
445 'X' , & ! Stagger
446 'south_north' , & ! Dimname 1
447 'bottom_top' , & ! Dimname 2
448 'bdy_width' , & ! Dimname 3
449 'bdy x-wind component' , & ! Desc
450 'm s-1' , & ! Units
451 'inc/wrf_bdyout.inc ext_write_field G_U_BXE memorder XEZ' , & ! Debug message
452 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
453 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
454 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
455 ierr )
456 END IF
457 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
458 CALL wrf_ext_write_field ( &
459 fid , & ! DataHandle
460 current_date(1:19) , & ! DateStr
461 'G_U_BYS' , & ! Data Name
462 grid%g_u_bys(ims,kds,1) , & ! Field
463 WRF_FLOAT , & ! FieldType
464 grid%communicator , & ! Comm
465 grid%iocommunicator , & ! Comm
466 grid%domdesc , & ! Comm
467 grid%bdy_mask , & ! bdy_mask
468 dryrun , & ! flag
469 'YSZ' , & ! MemoryOrder
470 'X' , & ! Stagger
471 'west_east_stag' , & ! Dimname 1
472 'bottom_top' , & ! Dimname 2
473 'bdy_width' , & ! Dimname 3
474 'bdy x-wind component' , & ! Desc
475 'm s-1' , & ! Units
476 'inc/wrf_bdyout.inc ext_write_field G_U_BYS memorder YSZ' , & ! Debug message
477 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
478 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
479 ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
480 ierr )
481 END IF
482 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
483 CALL wrf_ext_write_field ( &
484 fid , & ! DataHandle
485 current_date(1:19) , & ! DateStr
486 'G_U_BYE' , & ! Data Name
487 grid%g_u_bye(ims,kds,1) , & ! Field
488 WRF_FLOAT , & ! FieldType
489 grid%communicator , & ! Comm
490 grid%iocommunicator , & ! Comm
491 grid%domdesc , & ! Comm
492 grid%bdy_mask , & ! bdy_mask
493 dryrun , & ! flag
494 'YEZ' , & ! MemoryOrder
495 'X' , & ! Stagger
496 'west_east_stag' , & ! Dimname 1
497 'bottom_top' , & ! Dimname 2
498 'bdy_width' , & ! Dimname 3
499 'bdy x-wind component' , & ! Desc
500 'm s-1' , & ! Units
501 'inc/wrf_bdyout.inc ext_write_field G_U_BYE memorder YEZ' , & ! Debug message
502 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
503 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
504 ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
505 ierr )
506 END IF
507 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
508 CALL wrf_ext_write_field ( &
509 fid , & ! DataHandle
510 current_date(1:19) , & ! DateStr
511 'G_U_BTXS' , & ! Data Name
512 grid%g_u_btxs(jms,kds,1) , & ! Field
513 WRF_FLOAT , & ! FieldType
514 grid%communicator , & ! Comm
515 grid%iocommunicator , & ! Comm
516 grid%domdesc , & ! Comm
517 grid%bdy_mask , & ! bdy_mask
518 dryrun , & ! flag
519 'XSZ' , & ! MemoryOrder
520 'X' , & ! Stagger
521 'south_north' , & ! Dimname 1
522 'bottom_top' , & ! Dimname 2
523 'bdy_width' , & ! Dimname 3
524 'bdy tend x-wind component' , & ! Desc
525 '(m s-1)/dt' , & ! Units
526 'inc/wrf_bdyout.inc ext_write_field G_U_BTXS memorder XSZ' , & ! Debug message
527 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
528 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
529 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
530 ierr )
531 END IF
532 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
533 CALL wrf_ext_write_field ( &
534 fid , & ! DataHandle
535 current_date(1:19) , & ! DateStr
536 'G_U_BTXE' , & ! Data Name
537 grid%g_u_btxe(jms,kds,1) , & ! Field
538 WRF_FLOAT , & ! FieldType
539 grid%communicator , & ! Comm
540 grid%iocommunicator , & ! Comm
541 grid%domdesc , & ! Comm
542 grid%bdy_mask , & ! bdy_mask
543 dryrun , & ! flag
544 'XEZ' , & ! MemoryOrder
545 'X' , & ! Stagger
546 'south_north' , & ! Dimname 1
547 'bottom_top' , & ! Dimname 2
548 'bdy_width' , & ! Dimname 3
549 'bdy tend x-wind component' , & ! Desc
550 '(m s-1)/dt' , & ! Units
551 'inc/wrf_bdyout.inc ext_write_field G_U_BTXE memorder XEZ' , & ! Debug message
552 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
553 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
554 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
555 ierr )
556 END IF
557 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
558 CALL wrf_ext_write_field ( &
559 fid , & ! DataHandle
560 current_date(1:19) , & ! DateStr
561 'G_U_BTYS' , & ! Data Name
562 grid%g_u_btys(ims,kds,1) , & ! Field
563 WRF_FLOAT , & ! FieldType
564 grid%communicator , & ! Comm
565 grid%iocommunicator , & ! Comm
566 grid%domdesc , & ! Comm
567 grid%bdy_mask , & ! bdy_mask
568 dryrun , & ! flag
569 'YSZ' , & ! MemoryOrder
570 'X' , & ! Stagger
571 'west_east_stag' , & ! Dimname 1
572 'bottom_top' , & ! Dimname 2
573 'bdy_width' , & ! Dimname 3
574 'bdy tend x-wind component' , & ! Desc
575 '(m s-1)/dt' , & ! Units
576 'inc/wrf_bdyout.inc ext_write_field G_U_BTYS memorder YSZ' , & ! Debug message
577 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
578 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
579 ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
580 ierr )
581 END IF
582 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
583 CALL wrf_ext_write_field ( &
584 fid , & ! DataHandle
585 current_date(1:19) , & ! DateStr
586 'G_U_BTYE' , & ! Data Name
587 grid%g_u_btye(ims,kds,1) , & ! Field
588 WRF_FLOAT , & ! FieldType
589 grid%communicator , & ! Comm
590 grid%iocommunicator , & ! Comm
591 grid%domdesc , & ! Comm
592 grid%bdy_mask , & ! bdy_mask
593 dryrun , & ! flag
594 'YEZ' , & ! MemoryOrder
595 'X' , & ! Stagger
596 'west_east_stag' , & ! Dimname 1
597 'bottom_top' , & ! Dimname 2
598 'bdy_width' , & ! Dimname 3
599 'bdy tend x-wind component' , & ! Desc
600 '(m s-1)/dt' , & ! Units
601 'inc/wrf_bdyout.inc ext_write_field G_U_BTYE memorder YEZ' , & ! Debug message
602 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, &
603 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
604 ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
605 ierr )
606 END IF
607 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
608 CALL wrf_ext_write_field ( &
609 fid , & ! DataHandle
610 current_date(1:19) , & ! DateStr
611 'V_BXS' , & ! Data Name
612 grid%em_v_bxs(jms,kds,1) , & ! Field
613 WRF_FLOAT , & ! FieldType
614 grid%communicator , & ! Comm
615 grid%iocommunicator , & ! Comm
616 grid%domdesc , & ! Comm
617 grid%bdy_mask , & ! bdy_mask
618 dryrun , & ! flag
619 'XSZ' , & ! MemoryOrder
620 'Y' , & ! Stagger
621 'south_north_stag' , & ! Dimname 1
622 'bottom_top' , & ! Dimname 2
623 'bdy_width' , & ! Dimname 3
624 'bdy y-wind component' , & ! Desc
625 'm s-1' , & ! Units
626 'inc/wrf_bdyout.inc ext_write_field V_BXS memorder XSZ' , & ! Debug message
627 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
628 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
629 jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
630 ierr )
631 END IF
632 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
633 CALL wrf_ext_write_field ( &
634 fid , & ! DataHandle
635 current_date(1:19) , & ! DateStr
636 'V_BXE' , & ! Data Name
637 grid%em_v_bxe(jms,kds,1) , & ! Field
638 WRF_FLOAT , & ! FieldType
639 grid%communicator , & ! Comm
640 grid%iocommunicator , & ! Comm
641 grid%domdesc , & ! Comm
642 grid%bdy_mask , & ! bdy_mask
643 dryrun , & ! flag
644 'XEZ' , & ! MemoryOrder
645 'Y' , & ! Stagger
646 'south_north_stag' , & ! Dimname 1
647 'bottom_top' , & ! Dimname 2
648 'bdy_width' , & ! Dimname 3
649 'bdy y-wind component' , & ! Desc
650 'm s-1' , & ! Units
651 'inc/wrf_bdyout.inc ext_write_field V_BXE memorder XEZ' , & ! Debug message
652 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
653 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
654 jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
655 ierr )
656 END IF
657 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
658 CALL wrf_ext_write_field ( &
659 fid , & ! DataHandle
660 current_date(1:19) , & ! DateStr
661 'V_BYS' , & ! Data Name
662 grid%em_v_bys(ims,kds,1) , & ! Field
663 WRF_FLOAT , & ! FieldType
664 grid%communicator , & ! Comm
665 grid%iocommunicator , & ! Comm
666 grid%domdesc , & ! Comm
667 grid%bdy_mask , & ! bdy_mask
668 dryrun , & ! flag
669 'YSZ' , & ! MemoryOrder
670 'Y' , & ! Stagger
671 'west_east' , & ! Dimname 1
672 'bottom_top' , & ! Dimname 2
673 'bdy_width' , & ! Dimname 3
674 'bdy y-wind component' , & ! Desc
675 'm s-1' , & ! Units
676 'inc/wrf_bdyout.inc ext_write_field V_BYS memorder YSZ' , & ! Debug message
677 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
678 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
679 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
680 ierr )
681 END IF
682 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
683 CALL wrf_ext_write_field ( &
684 fid , & ! DataHandle
685 current_date(1:19) , & ! DateStr
686 'V_BYE' , & ! Data Name
687 grid%em_v_bye(ims,kds,1) , & ! Field
688 WRF_FLOAT , & ! FieldType
689 grid%communicator , & ! Comm
690 grid%iocommunicator , & ! Comm
691 grid%domdesc , & ! Comm
692 grid%bdy_mask , & ! bdy_mask
693 dryrun , & ! flag
694 'YEZ' , & ! MemoryOrder
695 'Y' , & ! Stagger
696 'west_east' , & ! Dimname 1
697 'bottom_top' , & ! Dimname 2
698 'bdy_width' , & ! Dimname 3
699 'bdy y-wind component' , & ! Desc
700 'm s-1' , & ! Units
701 'inc/wrf_bdyout.inc ext_write_field V_BYE memorder YEZ' , & ! Debug message
702 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
703 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
704 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
705 ierr )
706 END IF
707 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
708 CALL wrf_ext_write_field ( &
709 fid , & ! DataHandle
710 current_date(1:19) , & ! DateStr
711 'V_BTXS' , & ! Data Name
712 grid%em_v_btxs(jms,kds,1) , & ! Field
713 WRF_FLOAT , & ! FieldType
714 grid%communicator , & ! Comm
715 grid%iocommunicator , & ! Comm
716 grid%domdesc , & ! Comm
717 grid%bdy_mask , & ! bdy_mask
718 dryrun , & ! flag
719 'XSZ' , & ! MemoryOrder
720 'Y' , & ! Stagger
721 'south_north_stag' , & ! Dimname 1
722 'bottom_top' , & ! Dimname 2
723 'bdy_width' , & ! Dimname 3
724 'bdy tend y-wind component' , & ! Desc
725 '(m s-1)/dt' , & ! Units
726 'inc/wrf_bdyout.inc ext_write_field V_BTXS memorder XSZ' , & ! Debug message
727 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
728 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
729 jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
730 ierr )
731 END IF
732 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
733 CALL wrf_ext_write_field ( &
734 fid , & ! DataHandle
735 current_date(1:19) , & ! DateStr
736 'V_BTXE' , & ! Data Name
737 grid%em_v_btxe(jms,kds,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 dryrun , & ! flag
744 'XEZ' , & ! MemoryOrder
745 'Y' , & ! Stagger
746 'south_north_stag' , & ! Dimname 1
747 'bottom_top' , & ! Dimname 2
748 'bdy_width' , & ! Dimname 3
749 'bdy tend y-wind component' , & ! Desc
750 '(m s-1)/dt' , & ! Units
751 'inc/wrf_bdyout.inc ext_write_field V_BTXE memorder XEZ' , & ! Debug message
752 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
753 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
754 jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
755 ierr )
756 END IF
757 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
758 CALL wrf_ext_write_field ( &
759 fid , & ! DataHandle
760 current_date(1:19) , & ! DateStr
761 'V_BTYS' , & ! Data Name
762 grid%em_v_btys(ims,kds,1) , & ! Field
763 WRF_FLOAT , & ! FieldType
764 grid%communicator , & ! Comm
765 grid%iocommunicator , & ! Comm
766 grid%domdesc , & ! Comm
767 grid%bdy_mask , & ! bdy_mask
768 dryrun , & ! flag
769 'YSZ' , & ! MemoryOrder
770 'Y' , & ! Stagger
771 'west_east' , & ! Dimname 1
772 'bottom_top' , & ! Dimname 2
773 'bdy_width' , & ! Dimname 3
774 'bdy tend y-wind component' , & ! Desc
775 '(m s-1)/dt' , & ! Units
776 'inc/wrf_bdyout.inc ext_write_field V_BTYS memorder YSZ' , & ! Debug message
777 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
778 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
779 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
780 ierr )
781 END IF
782 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
783 CALL wrf_ext_write_field ( &
784 fid , & ! DataHandle
785 current_date(1:19) , & ! DateStr
786 'V_BTYE' , & ! Data Name
787 grid%em_v_btye(ims,kds,1) , & ! Field
788 WRF_FLOAT , & ! FieldType
789 grid%communicator , & ! Comm
790 grid%iocommunicator , & ! Comm
791 grid%domdesc , & ! Comm
792 grid%bdy_mask , & ! bdy_mask
793 dryrun , & ! flag
794 'YEZ' , & ! MemoryOrder
795 'Y' , & ! Stagger
796 'west_east' , & ! Dimname 1
797 'bottom_top' , & ! Dimname 2
798 'bdy_width' , & ! Dimname 3
799 'bdy tend y-wind component' , & ! Desc
800 '(m s-1)/dt' , & ! Units
801 'inc/wrf_bdyout.inc ext_write_field V_BTYE memorder YEZ' , & ! Debug message
802 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
803 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
804 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
805 ierr )
806 END IF
807 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
808 CALL wrf_ext_write_field ( &
809 fid , & ! DataHandle
810 current_date(1:19) , & ! DateStr
811 'A_V_BXS' , & ! Data Name
812 grid%a_v_bxs(jms,kds,1) , & ! Field
813 WRF_FLOAT , & ! FieldType
814 grid%communicator , & ! Comm
815 grid%iocommunicator , & ! Comm
816 grid%domdesc , & ! Comm
817 grid%bdy_mask , & ! bdy_mask
818 dryrun , & ! flag
819 'XSZ' , & ! MemoryOrder
820 'Y' , & ! Stagger
821 'south_north_stag' , & ! Dimname 1
822 'bottom_top' , & ! Dimname 2
823 'bdy_width' , & ! Dimname 3
824 'bdy y-wind component' , & ! Desc
825 'm s-1' , & ! Units
826 'inc/wrf_bdyout.inc ext_write_field A_V_BXS memorder XSZ' , & ! Debug message
827 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
828 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
829 jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
830 ierr )
831 END IF
832 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
833 CALL wrf_ext_write_field ( &
834 fid , & ! DataHandle
835 current_date(1:19) , & ! DateStr
836 'A_V_BXE' , & ! Data Name
837 grid%a_v_bxe(jms,kds,1) , & ! Field
838 WRF_FLOAT , & ! FieldType
839 grid%communicator , & ! Comm
840 grid%iocommunicator , & ! Comm
841 grid%domdesc , & ! Comm
842 grid%bdy_mask , & ! bdy_mask
843 dryrun , & ! flag
844 'XEZ' , & ! MemoryOrder
845 'Y' , & ! Stagger
846 'south_north_stag' , & ! Dimname 1
847 'bottom_top' , & ! Dimname 2
848 'bdy_width' , & ! Dimname 3
849 'bdy y-wind component' , & ! Desc
850 'm s-1' , & ! Units
851 'inc/wrf_bdyout.inc ext_write_field A_V_BXE memorder XEZ' , & ! Debug message
852 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
853 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
854 jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
855 ierr )
856 END IF
857 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
858 CALL wrf_ext_write_field ( &
859 fid , & ! DataHandle
860 current_date(1:19) , & ! DateStr
861 'A_V_BYS' , & ! Data Name
862 grid%a_v_bys(ims,kds,1) , & ! Field
863 WRF_FLOAT , & ! FieldType
864 grid%communicator , & ! Comm
865 grid%iocommunicator , & ! Comm
866 grid%domdesc , & ! Comm
867 grid%bdy_mask , & ! bdy_mask
868 dryrun , & ! flag
869 'YSZ' , & ! MemoryOrder
870 'Y' , & ! Stagger
871 'west_east' , & ! Dimname 1
872 'bottom_top' , & ! Dimname 2
873 'bdy_width' , & ! Dimname 3
874 'bdy y-wind component' , & ! Desc
875 'm s-1' , & ! Units
876 'inc/wrf_bdyout.inc ext_write_field A_V_BYS memorder YSZ' , & ! Debug message
877 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
878 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
879 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
880 ierr )
881 END IF
882 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
883 CALL wrf_ext_write_field ( &
884 fid , & ! DataHandle
885 current_date(1:19) , & ! DateStr
886 'A_V_BYE' , & ! Data Name
887 grid%a_v_bye(ims,kds,1) , & ! Field
888 WRF_FLOAT , & ! FieldType
889 grid%communicator , & ! Comm
890 grid%iocommunicator , & ! Comm
891 grid%domdesc , & ! Comm
892 grid%bdy_mask , & ! bdy_mask
893 dryrun , & ! flag
894 'YEZ' , & ! MemoryOrder
895 'Y' , & ! Stagger
896 'west_east' , & ! Dimname 1
897 'bottom_top' , & ! Dimname 2
898 'bdy_width' , & ! Dimname 3
899 'bdy y-wind component' , & ! Desc
900 'm s-1' , & ! Units
901 'inc/wrf_bdyout.inc ext_write_field A_V_BYE memorder YEZ' , & ! Debug message
902 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
903 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
904 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
905 ierr )
906 END IF
907 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
908 CALL wrf_ext_write_field ( &
909 fid , & ! DataHandle
910 current_date(1:19) , & ! DateStr
911 'A_V_BTXS' , & ! Data Name
912 grid%a_v_btxs(jms,kds,1) , & ! Field
913 WRF_FLOAT , & ! FieldType
914 grid%communicator , & ! Comm
915 grid%iocommunicator , & ! Comm
916 grid%domdesc , & ! Comm
917 grid%bdy_mask , & ! bdy_mask
918 dryrun , & ! flag
919 'XSZ' , & ! MemoryOrder
920 'Y' , & ! Stagger
921 'south_north_stag' , & ! Dimname 1
922 'bottom_top' , & ! Dimname 2
923 'bdy_width' , & ! Dimname 3
924 'bdy tend y-wind component' , & ! Desc
925 '(m s-1)/dt' , & ! Units
926 'inc/wrf_bdyout.inc ext_write_field A_V_BTXS memorder XSZ' , & ! Debug message
927 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
928 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
929 jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
930 ierr )
931 END IF
932 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
933 CALL wrf_ext_write_field ( &
934 fid , & ! DataHandle
935 current_date(1:19) , & ! DateStr
936 'A_V_BTXE' , & ! Data Name
937 grid%a_v_btxe(jms,kds,1) , & ! Field
938 WRF_FLOAT , & ! FieldType
939 grid%communicator , & ! Comm
940 grid%iocommunicator , & ! Comm
941 grid%domdesc , & ! Comm
942 grid%bdy_mask , & ! bdy_mask
943 dryrun , & ! flag
944 'XEZ' , & ! MemoryOrder
945 'Y' , & ! Stagger
946 'south_north_stag' , & ! Dimname 1
947 'bottom_top' , & ! Dimname 2
948 'bdy_width' , & ! Dimname 3
949 'bdy tend y-wind component' , & ! Desc
950 '(m s-1)/dt' , & ! Units
951 'inc/wrf_bdyout.inc ext_write_field A_V_BTXE memorder XEZ' , & ! Debug message
952 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
953 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
954 jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
955 ierr )
956 END IF
957 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
958 CALL wrf_ext_write_field ( &
959 fid , & ! DataHandle
960 current_date(1:19) , & ! DateStr
961 'A_V_BTYS' , & ! Data Name
962 grid%a_v_btys(ims,kds,1) , & ! Field
963 WRF_FLOAT , & ! FieldType
964 grid%communicator , & ! Comm
965 grid%iocommunicator , & ! Comm
966 grid%domdesc , & ! Comm
967 grid%bdy_mask , & ! bdy_mask
968 dryrun , & ! flag
969 'YSZ' , & ! MemoryOrder
970 'Y' , & ! Stagger
971 'west_east' , & ! Dimname 1
972 'bottom_top' , & ! Dimname 2
973 'bdy_width' , & ! Dimname 3
974 'bdy tend y-wind component' , & ! Desc
975 '(m s-1)/dt' , & ! Units
976 'inc/wrf_bdyout.inc ext_write_field A_V_BTYS memorder YSZ' , & ! Debug message
977 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
978 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
979 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
980 ierr )
981 END IF
982 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
983 CALL wrf_ext_write_field ( &
984 fid , & ! DataHandle
985 current_date(1:19) , & ! DateStr
986 'A_V_BTYE' , & ! Data Name
987 grid%a_v_btye(ims,kds,1) , & ! Field
988 WRF_FLOAT , & ! FieldType
989 grid%communicator , & ! Comm
990 grid%iocommunicator , & ! Comm
991 grid%domdesc , & ! Comm
992 grid%bdy_mask , & ! bdy_mask
993 dryrun , & ! flag
994 'YEZ' , & ! MemoryOrder
995 'Y' , & ! Stagger
996 'west_east' , & ! Dimname 1
997 'bottom_top' , & ! Dimname 2
998 'bdy_width' , & ! Dimname 3
999 'bdy tend y-wind component' , & ! Desc
1000 '(m s-1)/dt' , & ! Units
1001 'inc/wrf_bdyout.inc ext_write_field A_V_BTYE memorder YEZ' , & ! Debug message
1002 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1003 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1004 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1005 ierr )
1006 END IF
1007 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1008 CALL wrf_ext_write_field ( &
1009 fid , & ! DataHandle
1010 current_date(1:19) , & ! DateStr
1011 'G_V_BXS' , & ! Data Name
1012 grid%g_v_bxs(jms,kds,1) , & ! Field
1013 WRF_FLOAT , & ! FieldType
1014 grid%communicator , & ! Comm
1015 grid%iocommunicator , & ! Comm
1016 grid%domdesc , & ! Comm
1017 grid%bdy_mask , & ! bdy_mask
1018 dryrun , & ! flag
1019 'XSZ' , & ! MemoryOrder
1020 'Y' , & ! Stagger
1021 'south_north_stag' , & ! Dimname 1
1022 'bottom_top' , & ! Dimname 2
1023 'bdy_width' , & ! Dimname 3
1024 'bdy y-wind component' , & ! Desc
1025 'm s-1' , & ! Units
1026 'inc/wrf_bdyout.inc ext_write_field G_V_BXS memorder XSZ' , & ! Debug message
1027 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
1028 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1029 jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1030 ierr )
1031 END IF
1032 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1033 CALL wrf_ext_write_field ( &
1034 fid , & ! DataHandle
1035 current_date(1:19) , & ! DateStr
1036 'G_V_BXE' , & ! Data Name
1037 grid%g_v_bxe(jms,kds,1) , & ! Field
1038 WRF_FLOAT , & ! FieldType
1039 grid%communicator , & ! Comm
1040 grid%iocommunicator , & ! Comm
1041 grid%domdesc , & ! Comm
1042 grid%bdy_mask , & ! bdy_mask
1043 dryrun , & ! flag
1044 'XEZ' , & ! MemoryOrder
1045 'Y' , & ! Stagger
1046 'south_north_stag' , & ! Dimname 1
1047 'bottom_top' , & ! Dimname 2
1048 'bdy_width' , & ! Dimname 3
1049 'bdy y-wind component' , & ! Desc
1050 'm s-1' , & ! Units
1051 'inc/wrf_bdyout.inc ext_write_field G_V_BXE memorder XEZ' , & ! Debug message
1052 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
1053 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1054 jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1055 ierr )
1056 END IF
1057 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1058 CALL wrf_ext_write_field ( &
1059 fid , & ! DataHandle
1060 current_date(1:19) , & ! DateStr
1061 'G_V_BYS' , & ! Data Name
1062 grid%g_v_bys(ims,kds,1) , & ! Field
1063 WRF_FLOAT , & ! FieldType
1064 grid%communicator , & ! Comm
1065 grid%iocommunicator , & ! Comm
1066 grid%domdesc , & ! Comm
1067 grid%bdy_mask , & ! bdy_mask
1068 dryrun , & ! flag
1069 'YSZ' , & ! MemoryOrder
1070 'Y' , & ! Stagger
1071 'west_east' , & ! Dimname 1
1072 'bottom_top' , & ! Dimname 2
1073 'bdy_width' , & ! Dimname 3
1074 'bdy y-wind component' , & ! Desc
1075 'm s-1' , & ! Units
1076 'inc/wrf_bdyout.inc ext_write_field G_V_BYS memorder YSZ' , & ! Debug message
1077 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1078 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1079 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1080 ierr )
1081 END IF
1082 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1083 CALL wrf_ext_write_field ( &
1084 fid , & ! DataHandle
1085 current_date(1:19) , & ! DateStr
1086 'G_V_BYE' , & ! Data Name
1087 grid%g_v_bye(ims,kds,1) , & ! Field
1088 WRF_FLOAT , & ! FieldType
1089 grid%communicator , & ! Comm
1090 grid%iocommunicator , & ! Comm
1091 grid%domdesc , & ! Comm
1092 grid%bdy_mask , & ! bdy_mask
1093 dryrun , & ! flag
1094 'YEZ' , & ! MemoryOrder
1095 'Y' , & ! Stagger
1096 'west_east' , & ! Dimname 1
1097 'bottom_top' , & ! Dimname 2
1098 'bdy_width' , & ! Dimname 3
1099 'bdy y-wind component' , & ! Desc
1100 'm s-1' , & ! Units
1101 'inc/wrf_bdyout.inc ext_write_field G_V_BYE memorder YEZ' , & ! Debug message
1102 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1103 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1104 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1105 ierr )
1106 END IF
1107 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1108 CALL wrf_ext_write_field ( &
1109 fid , & ! DataHandle
1110 current_date(1:19) , & ! DateStr
1111 'G_V_BTXS' , & ! Data Name
1112 grid%g_v_btxs(jms,kds,1) , & ! Field
1113 WRF_FLOAT , & ! FieldType
1114 grid%communicator , & ! Comm
1115 grid%iocommunicator , & ! Comm
1116 grid%domdesc , & ! Comm
1117 grid%bdy_mask , & ! bdy_mask
1118 dryrun , & ! flag
1119 'XSZ' , & ! MemoryOrder
1120 'Y' , & ! Stagger
1121 'south_north_stag' , & ! Dimname 1
1122 'bottom_top' , & ! Dimname 2
1123 'bdy_width' , & ! Dimname 3
1124 'bdy tend y-wind component' , & ! Desc
1125 '(m s-1)/dt' , & ! Units
1126 'inc/wrf_bdyout.inc ext_write_field G_V_BTXS memorder XSZ' , & ! Debug message
1127 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
1128 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1129 jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1130 ierr )
1131 END IF
1132 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1133 CALL wrf_ext_write_field ( &
1134 fid , & ! DataHandle
1135 current_date(1:19) , & ! DateStr
1136 'G_V_BTXE' , & ! Data Name
1137 grid%g_v_btxe(jms,kds,1) , & ! Field
1138 WRF_FLOAT , & ! FieldType
1139 grid%communicator , & ! Comm
1140 grid%iocommunicator , & ! Comm
1141 grid%domdesc , & ! Comm
1142 grid%bdy_mask , & ! bdy_mask
1143 dryrun , & ! flag
1144 'XEZ' , & ! MemoryOrder
1145 'Y' , & ! Stagger
1146 'south_north_stag' , & ! Dimname 1
1147 'bottom_top' , & ! Dimname 2
1148 'bdy_width' , & ! Dimname 3
1149 'bdy tend y-wind component' , & ! Desc
1150 '(m s-1)/dt' , & ! Units
1151 'inc/wrf_bdyout.inc ext_write_field G_V_BTXE memorder XEZ' , & ! Debug message
1152 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, &
1153 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1154 jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1155 ierr )
1156 END IF
1157 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1158 CALL wrf_ext_write_field ( &
1159 fid , & ! DataHandle
1160 current_date(1:19) , & ! DateStr
1161 'G_V_BTYS' , & ! Data Name
1162 grid%g_v_btys(ims,kds,1) , & ! Field
1163 WRF_FLOAT , & ! FieldType
1164 grid%communicator , & ! Comm
1165 grid%iocommunicator , & ! Comm
1166 grid%domdesc , & ! Comm
1167 grid%bdy_mask , & ! bdy_mask
1168 dryrun , & ! flag
1169 'YSZ' , & ! MemoryOrder
1170 'Y' , & ! Stagger
1171 'west_east' , & ! Dimname 1
1172 'bottom_top' , & ! Dimname 2
1173 'bdy_width' , & ! Dimname 3
1174 'bdy tend y-wind component' , & ! Desc
1175 '(m s-1)/dt' , & ! Units
1176 'inc/wrf_bdyout.inc ext_write_field G_V_BTYS memorder YSZ' , & ! Debug message
1177 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1178 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1179 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1180 ierr )
1181 END IF
1182 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1183 CALL wrf_ext_write_field ( &
1184 fid , & ! DataHandle
1185 current_date(1:19) , & ! DateStr
1186 'G_V_BTYE' , & ! Data Name
1187 grid%g_v_btye(ims,kds,1) , & ! Field
1188 WRF_FLOAT , & ! FieldType
1189 grid%communicator , & ! Comm
1190 grid%iocommunicator , & ! Comm
1191 grid%domdesc , & ! Comm
1192 grid%bdy_mask , & ! bdy_mask
1193 dryrun , & ! flag
1194 'YEZ' , & ! MemoryOrder
1195 'Y' , & ! Stagger
1196 'west_east' , & ! Dimname 1
1197 'bottom_top' , & ! Dimname 2
1198 'bdy_width' , & ! Dimname 3
1199 'bdy tend y-wind component' , & ! Desc
1200 '(m s-1)/dt' , & ! Units
1201 'inc/wrf_bdyout.inc ext_write_field G_V_BTYE memorder YEZ' , & ! Debug message
1202 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1203 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1204 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
1205 ierr )
1206 END IF
1207 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1208 CALL wrf_ext_write_field ( &
1209 fid , & ! DataHandle
1210 current_date(1:19) , & ! DateStr
1211 'W_BXS' , & ! Data Name
1212 grid%em_w_bxs(jms,kds,1) , & ! Field
1213 WRF_FLOAT , & ! FieldType
1214 grid%communicator , & ! Comm
1215 grid%iocommunicator , & ! Comm
1216 grid%domdesc , & ! Comm
1217 grid%bdy_mask , & ! bdy_mask
1218 dryrun , & ! flag
1219 'XSZ' , & ! MemoryOrder
1220 'Z' , & ! Stagger
1221 'south_north' , & ! Dimname 1
1222 'bottom_top_stag' , & ! Dimname 2
1223 'bdy_width' , & ! Dimname 3
1224 'bdy z-wind component' , & ! Desc
1225 'm s-1' , & ! Units
1226 'inc/wrf_bdyout.inc ext_write_field W_BXS memorder XSZ' , & ! Debug message
1227 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1228 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1229 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1230 ierr )
1231 END IF
1232 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1233 CALL wrf_ext_write_field ( &
1234 fid , & ! DataHandle
1235 current_date(1:19) , & ! DateStr
1236 'W_BXE' , & ! Data Name
1237 grid%em_w_bxe(jms,kds,1) , & ! Field
1238 WRF_FLOAT , & ! FieldType
1239 grid%communicator , & ! Comm
1240 grid%iocommunicator , & ! Comm
1241 grid%domdesc , & ! Comm
1242 grid%bdy_mask , & ! bdy_mask
1243 dryrun , & ! flag
1244 'XEZ' , & ! MemoryOrder
1245 'Z' , & ! Stagger
1246 'south_north' , & ! Dimname 1
1247 'bottom_top_stag' , & ! Dimname 2
1248 'bdy_width' , & ! Dimname 3
1249 'bdy z-wind component' , & ! Desc
1250 'm s-1' , & ! Units
1251 'inc/wrf_bdyout.inc ext_write_field W_BXE memorder XEZ' , & ! Debug message
1252 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1253 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1254 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1255 ierr )
1256 END IF
1257 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1258 CALL wrf_ext_write_field ( &
1259 fid , & ! DataHandle
1260 current_date(1:19) , & ! DateStr
1261 'W_BYS' , & ! Data Name
1262 grid%em_w_bys(ims,kds,1) , & ! Field
1263 WRF_FLOAT , & ! FieldType
1264 grid%communicator , & ! Comm
1265 grid%iocommunicator , & ! Comm
1266 grid%domdesc , & ! Comm
1267 grid%bdy_mask , & ! bdy_mask
1268 dryrun , & ! flag
1269 'YSZ' , & ! MemoryOrder
1270 'Z' , & ! Stagger
1271 'west_east' , & ! Dimname 1
1272 'bottom_top_stag' , & ! Dimname 2
1273 'bdy_width' , & ! Dimname 3
1274 'bdy z-wind component' , & ! Desc
1275 'm s-1' , & ! Units
1276 'inc/wrf_bdyout.inc ext_write_field W_BYS memorder YSZ' , & ! Debug message
1277 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1278 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1279 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1280 ierr )
1281 END IF
1282 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1283 CALL wrf_ext_write_field ( &
1284 fid , & ! DataHandle
1285 current_date(1:19) , & ! DateStr
1286 'W_BYE' , & ! Data Name
1287 grid%em_w_bye(ims,kds,1) , & ! Field
1288 WRF_FLOAT , & ! FieldType
1289 grid%communicator , & ! Comm
1290 grid%iocommunicator , & ! Comm
1291 grid%domdesc , & ! Comm
1292 grid%bdy_mask , & ! bdy_mask
1293 dryrun , & ! flag
1294 'YEZ' , & ! MemoryOrder
1295 'Z' , & ! Stagger
1296 'west_east' , & ! Dimname 1
1297 'bottom_top_stag' , & ! Dimname 2
1298 'bdy_width' , & ! Dimname 3
1299 'bdy z-wind component' , & ! Desc
1300 'm s-1' , & ! Units
1301 'inc/wrf_bdyout.inc ext_write_field W_BYE memorder YEZ' , & ! Debug message
1302 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1303 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1304 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1305 ierr )
1306 END IF
1307 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1308 CALL wrf_ext_write_field ( &
1309 fid , & ! DataHandle
1310 current_date(1:19) , & ! DateStr
1311 'W_BTXS' , & ! Data Name
1312 grid%em_w_btxs(jms,kds,1) , & ! Field
1313 WRF_FLOAT , & ! FieldType
1314 grid%communicator , & ! Comm
1315 grid%iocommunicator , & ! Comm
1316 grid%domdesc , & ! Comm
1317 grid%bdy_mask , & ! bdy_mask
1318 dryrun , & ! flag
1319 'XSZ' , & ! MemoryOrder
1320 'Z' , & ! Stagger
1321 'south_north' , & ! Dimname 1
1322 'bottom_top_stag' , & ! Dimname 2
1323 'bdy_width' , & ! Dimname 3
1324 'bdy tend z-wind component' , & ! Desc
1325 '(m s-1)/dt' , & ! Units
1326 'inc/wrf_bdyout.inc ext_write_field W_BTXS memorder XSZ' , & ! Debug message
1327 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1328 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1329 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1330 ierr )
1331 END IF
1332 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1333 CALL wrf_ext_write_field ( &
1334 fid , & ! DataHandle
1335 current_date(1:19) , & ! DateStr
1336 'W_BTXE' , & ! Data Name
1337 grid%em_w_btxe(jms,kds,1) , & ! Field
1338 WRF_FLOAT , & ! FieldType
1339 grid%communicator , & ! Comm
1340 grid%iocommunicator , & ! Comm
1341 grid%domdesc , & ! Comm
1342 grid%bdy_mask , & ! bdy_mask
1343 dryrun , & ! flag
1344 'XEZ' , & ! MemoryOrder
1345 'Z' , & ! Stagger
1346 'south_north' , & ! Dimname 1
1347 'bottom_top_stag' , & ! Dimname 2
1348 'bdy_width' , & ! Dimname 3
1349 'bdy tend z-wind component' , & ! Desc
1350 '(m s-1)/dt' , & ! Units
1351 'inc/wrf_bdyout.inc ext_write_field W_BTXE memorder XEZ' , & ! Debug message
1352 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1353 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1354 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1355 ierr )
1356 END IF
1357 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1358 CALL wrf_ext_write_field ( &
1359 fid , & ! DataHandle
1360 current_date(1:19) , & ! DateStr
1361 'W_BTYS' , & ! Data Name
1362 grid%em_w_btys(ims,kds,1) , & ! Field
1363 WRF_FLOAT , & ! FieldType
1364 grid%communicator , & ! Comm
1365 grid%iocommunicator , & ! Comm
1366 grid%domdesc , & ! Comm
1367 grid%bdy_mask , & ! bdy_mask
1368 dryrun , & ! flag
1369 'YSZ' , & ! MemoryOrder
1370 'Z' , & ! Stagger
1371 'west_east' , & ! Dimname 1
1372 'bottom_top_stag' , & ! Dimname 2
1373 'bdy_width' , & ! Dimname 3
1374 'bdy tend z-wind component' , & ! Desc
1375 '(m s-1)/dt' , & ! Units
1376 'inc/wrf_bdyout.inc ext_write_field W_BTYS memorder YSZ' , & ! Debug message
1377 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1378 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1379 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1380 ierr )
1381 END IF
1382 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1383 CALL wrf_ext_write_field ( &
1384 fid , & ! DataHandle
1385 current_date(1:19) , & ! DateStr
1386 'W_BTYE' , & ! Data Name
1387 grid%em_w_btye(ims,kds,1) , & ! Field
1388 WRF_FLOAT , & ! FieldType
1389 grid%communicator , & ! Comm
1390 grid%iocommunicator , & ! Comm
1391 grid%domdesc , & ! Comm
1392 grid%bdy_mask , & ! bdy_mask
1393 dryrun , & ! flag
1394 'YEZ' , & ! MemoryOrder
1395 'Z' , & ! Stagger
1396 'west_east' , & ! Dimname 1
1397 'bottom_top_stag' , & ! Dimname 2
1398 'bdy_width' , & ! Dimname 3
1399 'bdy tend z-wind component' , & ! Desc
1400 '(m s-1)/dt' , & ! Units
1401 'inc/wrf_bdyout.inc ext_write_field W_BTYE memorder YEZ' , & ! Debug message
1402 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1403 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1404 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1405 ierr )
1406 END IF
1407 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1408 CALL wrf_ext_write_field ( &
1409 fid , & ! DataHandle
1410 current_date(1:19) , & ! DateStr
1411 'A_W_BXS' , & ! Data Name
1412 grid%a_w_bxs(jms,kds,1) , & ! Field
1413 WRF_FLOAT , & ! FieldType
1414 grid%communicator , & ! Comm
1415 grid%iocommunicator , & ! Comm
1416 grid%domdesc , & ! Comm
1417 grid%bdy_mask , & ! bdy_mask
1418 dryrun , & ! flag
1419 'XSZ' , & ! MemoryOrder
1420 'Z' , & ! Stagger
1421 'south_north' , & ! Dimname 1
1422 'bottom_top_stag' , & ! Dimname 2
1423 'bdy_width' , & ! Dimname 3
1424 'bdy z-wind component' , & ! Desc
1425 'm s-1' , & ! Units
1426 'inc/wrf_bdyout.inc ext_write_field A_W_BXS memorder XSZ' , & ! Debug message
1427 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1428 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1429 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1430 ierr )
1431 END IF
1432 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1433 CALL wrf_ext_write_field ( &
1434 fid , & ! DataHandle
1435 current_date(1:19) , & ! DateStr
1436 'A_W_BXE' , & ! Data Name
1437 grid%a_w_bxe(jms,kds,1) , & ! Field
1438 WRF_FLOAT , & ! FieldType
1439 grid%communicator , & ! Comm
1440 grid%iocommunicator , & ! Comm
1441 grid%domdesc , & ! Comm
1442 grid%bdy_mask , & ! bdy_mask
1443 dryrun , & ! flag
1444 'XEZ' , & ! MemoryOrder
1445 'Z' , & ! Stagger
1446 'south_north' , & ! Dimname 1
1447 'bottom_top_stag' , & ! Dimname 2
1448 'bdy_width' , & ! Dimname 3
1449 'bdy z-wind component' , & ! Desc
1450 'm s-1' , & ! Units
1451 'inc/wrf_bdyout.inc ext_write_field A_W_BXE memorder XEZ' , & ! Debug message
1452 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1453 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1454 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1455 ierr )
1456 END IF
1457 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1458 CALL wrf_ext_write_field ( &
1459 fid , & ! DataHandle
1460 current_date(1:19) , & ! DateStr
1461 'A_W_BYS' , & ! Data Name
1462 grid%a_w_bys(ims,kds,1) , & ! Field
1463 WRF_FLOAT , & ! FieldType
1464 grid%communicator , & ! Comm
1465 grid%iocommunicator , & ! Comm
1466 grid%domdesc , & ! Comm
1467 grid%bdy_mask , & ! bdy_mask
1468 dryrun , & ! flag
1469 'YSZ' , & ! MemoryOrder
1470 'Z' , & ! Stagger
1471 'west_east' , & ! Dimname 1
1472 'bottom_top_stag' , & ! Dimname 2
1473 'bdy_width' , & ! Dimname 3
1474 'bdy z-wind component' , & ! Desc
1475 'm s-1' , & ! Units
1476 'inc/wrf_bdyout.inc ext_write_field A_W_BYS memorder YSZ' , & ! Debug message
1477 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1478 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1479 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1480 ierr )
1481 END IF
1482 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1483 CALL wrf_ext_write_field ( &
1484 fid , & ! DataHandle
1485 current_date(1:19) , & ! DateStr
1486 'A_W_BYE' , & ! Data Name
1487 grid%a_w_bye(ims,kds,1) , & ! Field
1488 WRF_FLOAT , & ! FieldType
1489 grid%communicator , & ! Comm
1490 grid%iocommunicator , & ! Comm
1491 grid%domdesc , & ! Comm
1492 grid%bdy_mask , & ! bdy_mask
1493 dryrun , & ! flag
1494 'YEZ' , & ! MemoryOrder
1495 'Z' , & ! Stagger
1496 'west_east' , & ! Dimname 1
1497 'bottom_top_stag' , & ! Dimname 2
1498 'bdy_width' , & ! Dimname 3
1499 'bdy z-wind component' , & ! Desc
1500 'm s-1' , & ! Units
1501 'inc/wrf_bdyout.inc ext_write_field A_W_BYE memorder YEZ' , & ! Debug message
1502 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1503 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1504 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1505 ierr )
1506 END IF
1507 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1508 CALL wrf_ext_write_field ( &
1509 fid , & ! DataHandle
1510 current_date(1:19) , & ! DateStr
1511 'A_W_BTXS' , & ! Data Name
1512 grid%a_w_btxs(jms,kds,1) , & ! Field
1513 WRF_FLOAT , & ! FieldType
1514 grid%communicator , & ! Comm
1515 grid%iocommunicator , & ! Comm
1516 grid%domdesc , & ! Comm
1517 grid%bdy_mask , & ! bdy_mask
1518 dryrun , & ! flag
1519 'XSZ' , & ! MemoryOrder
1520 'Z' , & ! Stagger
1521 'south_north' , & ! Dimname 1
1522 'bottom_top_stag' , & ! Dimname 2
1523 'bdy_width' , & ! Dimname 3
1524 'bdy tend z-wind component' , & ! Desc
1525 '(m s-1)/dt' , & ! Units
1526 'inc/wrf_bdyout.inc ext_write_field A_W_BTXS memorder XSZ' , & ! Debug message
1527 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1528 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1529 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1530 ierr )
1531 END IF
1532 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1533 CALL wrf_ext_write_field ( &
1534 fid , & ! DataHandle
1535 current_date(1:19) , & ! DateStr
1536 'A_W_BTXE' , & ! Data Name
1537 grid%a_w_btxe(jms,kds,1) , & ! Field
1538 WRF_FLOAT , & ! FieldType
1539 grid%communicator , & ! Comm
1540 grid%iocommunicator , & ! Comm
1541 grid%domdesc , & ! Comm
1542 grid%bdy_mask , & ! bdy_mask
1543 dryrun , & ! flag
1544 'XEZ' , & ! MemoryOrder
1545 'Z' , & ! Stagger
1546 'south_north' , & ! Dimname 1
1547 'bottom_top_stag' , & ! Dimname 2
1548 'bdy_width' , & ! Dimname 3
1549 'bdy tend z-wind component' , & ! Desc
1550 '(m s-1)/dt' , & ! Units
1551 'inc/wrf_bdyout.inc ext_write_field A_W_BTXE memorder XEZ' , & ! Debug message
1552 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1553 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1554 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1555 ierr )
1556 END IF
1557 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1558 CALL wrf_ext_write_field ( &
1559 fid , & ! DataHandle
1560 current_date(1:19) , & ! DateStr
1561 'A_W_BTYS' , & ! Data Name
1562 grid%a_w_btys(ims,kds,1) , & ! Field
1563 WRF_FLOAT , & ! FieldType
1564 grid%communicator , & ! Comm
1565 grid%iocommunicator , & ! Comm
1566 grid%domdesc , & ! Comm
1567 grid%bdy_mask , & ! bdy_mask
1568 dryrun , & ! flag
1569 'YSZ' , & ! MemoryOrder
1570 'Z' , & ! Stagger
1571 'west_east' , & ! Dimname 1
1572 'bottom_top_stag' , & ! Dimname 2
1573 'bdy_width' , & ! Dimname 3
1574 'bdy tend z-wind component' , & ! Desc
1575 '(m s-1)/dt' , & ! Units
1576 'inc/wrf_bdyout.inc ext_write_field A_W_BTYS memorder YSZ' , & ! Debug message
1577 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1578 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1579 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1580 ierr )
1581 END IF
1582 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1583 CALL wrf_ext_write_field ( &
1584 fid , & ! DataHandle
1585 current_date(1:19) , & ! DateStr
1586 'A_W_BTYE' , & ! Data Name
1587 grid%a_w_btye(ims,kds,1) , & ! Field
1588 WRF_FLOAT , & ! FieldType
1589 grid%communicator , & ! Comm
1590 grid%iocommunicator , & ! Comm
1591 grid%domdesc , & ! Comm
1592 grid%bdy_mask , & ! bdy_mask
1593 dryrun , & ! flag
1594 'YEZ' , & ! MemoryOrder
1595 'Z' , & ! Stagger
1596 'west_east' , & ! Dimname 1
1597 'bottom_top_stag' , & ! Dimname 2
1598 'bdy_width' , & ! Dimname 3
1599 'bdy tend z-wind component' , & ! Desc
1600 '(m s-1)/dt' , & ! Units
1601 'inc/wrf_bdyout.inc ext_write_field A_W_BTYE memorder YEZ' , & ! Debug message
1602 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1603 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1604 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1605 ierr )
1606 END IF
1607 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1608 CALL wrf_ext_write_field ( &
1609 fid , & ! DataHandle
1610 current_date(1:19) , & ! DateStr
1611 'G_W_BXS' , & ! Data Name
1612 grid%g_w_bxs(jms,kds,1) , & ! Field
1613 WRF_FLOAT , & ! FieldType
1614 grid%communicator , & ! Comm
1615 grid%iocommunicator , & ! Comm
1616 grid%domdesc , & ! Comm
1617 grid%bdy_mask , & ! bdy_mask
1618 dryrun , & ! flag
1619 'XSZ' , & ! MemoryOrder
1620 'Z' , & ! Stagger
1621 'south_north' , & ! Dimname 1
1622 'bottom_top_stag' , & ! Dimname 2
1623 'bdy_width' , & ! Dimname 3
1624 'bdy z-wind component' , & ! Desc
1625 'm s-1' , & ! Units
1626 'inc/wrf_bdyout.inc ext_write_field G_W_BXS memorder XSZ' , & ! Debug message
1627 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1628 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1629 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1630 ierr )
1631 END IF
1632 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1633 CALL wrf_ext_write_field ( &
1634 fid , & ! DataHandle
1635 current_date(1:19) , & ! DateStr
1636 'G_W_BXE' , & ! Data Name
1637 grid%g_w_bxe(jms,kds,1) , & ! Field
1638 WRF_FLOAT , & ! FieldType
1639 grid%communicator , & ! Comm
1640 grid%iocommunicator , & ! Comm
1641 grid%domdesc , & ! Comm
1642 grid%bdy_mask , & ! bdy_mask
1643 dryrun , & ! flag
1644 'XEZ' , & ! MemoryOrder
1645 'Z' , & ! Stagger
1646 'south_north' , & ! Dimname 1
1647 'bottom_top_stag' , & ! Dimname 2
1648 'bdy_width' , & ! Dimname 3
1649 'bdy z-wind component' , & ! Desc
1650 'm s-1' , & ! Units
1651 'inc/wrf_bdyout.inc ext_write_field G_W_BXE memorder XEZ' , & ! Debug message
1652 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1653 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1654 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1655 ierr )
1656 END IF
1657 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1658 CALL wrf_ext_write_field ( &
1659 fid , & ! DataHandle
1660 current_date(1:19) , & ! DateStr
1661 'G_W_BYS' , & ! Data Name
1662 grid%g_w_bys(ims,kds,1) , & ! Field
1663 WRF_FLOAT , & ! FieldType
1664 grid%communicator , & ! Comm
1665 grid%iocommunicator , & ! Comm
1666 grid%domdesc , & ! Comm
1667 grid%bdy_mask , & ! bdy_mask
1668 dryrun , & ! flag
1669 'YSZ' , & ! MemoryOrder
1670 'Z' , & ! Stagger
1671 'west_east' , & ! Dimname 1
1672 'bottom_top_stag' , & ! Dimname 2
1673 'bdy_width' , & ! Dimname 3
1674 'bdy z-wind component' , & ! Desc
1675 'm s-1' , & ! Units
1676 'inc/wrf_bdyout.inc ext_write_field G_W_BYS memorder YSZ' , & ! Debug message
1677 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1678 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1679 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1680 ierr )
1681 END IF
1682 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1683 CALL wrf_ext_write_field ( &
1684 fid , & ! DataHandle
1685 current_date(1:19) , & ! DateStr
1686 'G_W_BYE' , & ! Data Name
1687 grid%g_w_bye(ims,kds,1) , & ! Field
1688 WRF_FLOAT , & ! FieldType
1689 grid%communicator , & ! Comm
1690 grid%iocommunicator , & ! Comm
1691 grid%domdesc , & ! Comm
1692 grid%bdy_mask , & ! bdy_mask
1693 dryrun , & ! flag
1694 'YEZ' , & ! MemoryOrder
1695 'Z' , & ! Stagger
1696 'west_east' , & ! Dimname 1
1697 'bottom_top_stag' , & ! Dimname 2
1698 'bdy_width' , & ! Dimname 3
1699 'bdy z-wind component' , & ! Desc
1700 'm s-1' , & ! Units
1701 'inc/wrf_bdyout.inc ext_write_field G_W_BYE memorder YEZ' , & ! Debug message
1702 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1703 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1704 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1705 ierr )
1706 END IF
1707 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1708 CALL wrf_ext_write_field ( &
1709 fid , & ! DataHandle
1710 current_date(1:19) , & ! DateStr
1711 'G_W_BTXS' , & ! Data Name
1712 grid%g_w_btxs(jms,kds,1) , & ! Field
1713 WRF_FLOAT , & ! FieldType
1714 grid%communicator , & ! Comm
1715 grid%iocommunicator , & ! Comm
1716 grid%domdesc , & ! Comm
1717 grid%bdy_mask , & ! bdy_mask
1718 dryrun , & ! flag
1719 'XSZ' , & ! MemoryOrder
1720 'Z' , & ! Stagger
1721 'south_north' , & ! Dimname 1
1722 'bottom_top_stag' , & ! Dimname 2
1723 'bdy_width' , & ! Dimname 3
1724 'bdy tend z-wind component' , & ! Desc
1725 '(m s-1)/dt' , & ! Units
1726 'inc/wrf_bdyout.inc ext_write_field G_W_BTXS memorder XSZ' , & ! Debug message
1727 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1728 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1729 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1730 ierr )
1731 END IF
1732 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1733 CALL wrf_ext_write_field ( &
1734 fid , & ! DataHandle
1735 current_date(1:19) , & ! DateStr
1736 'G_W_BTXE' , & ! Data Name
1737 grid%g_w_btxe(jms,kds,1) , & ! Field
1738 WRF_FLOAT , & ! FieldType
1739 grid%communicator , & ! Comm
1740 grid%iocommunicator , & ! Comm
1741 grid%domdesc , & ! Comm
1742 grid%bdy_mask , & ! bdy_mask
1743 dryrun , & ! flag
1744 'XEZ' , & ! MemoryOrder
1745 'Z' , & ! Stagger
1746 'south_north' , & ! Dimname 1
1747 'bottom_top_stag' , & ! Dimname 2
1748 'bdy_width' , & ! Dimname 3
1749 'bdy tend z-wind component' , & ! Desc
1750 '(m s-1)/dt' , & ! Units
1751 'inc/wrf_bdyout.inc ext_write_field G_W_BTXE memorder XEZ' , & ! Debug message
1752 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1753 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1754 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1755 ierr )
1756 END IF
1757 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1758 CALL wrf_ext_write_field ( &
1759 fid , & ! DataHandle
1760 current_date(1:19) , & ! DateStr
1761 'G_W_BTYS' , & ! Data Name
1762 grid%g_w_btys(ims,kds,1) , & ! Field
1763 WRF_FLOAT , & ! FieldType
1764 grid%communicator , & ! Comm
1765 grid%iocommunicator , & ! Comm
1766 grid%domdesc , & ! Comm
1767 grid%bdy_mask , & ! bdy_mask
1768 dryrun , & ! flag
1769 'YSZ' , & ! MemoryOrder
1770 'Z' , & ! Stagger
1771 'west_east' , & ! Dimname 1
1772 'bottom_top_stag' , & ! Dimname 2
1773 'bdy_width' , & ! Dimname 3
1774 'bdy tend z-wind component' , & ! Desc
1775 '(m s-1)/dt' , & ! Units
1776 'inc/wrf_bdyout.inc ext_write_field G_W_BTYS memorder YSZ' , & ! Debug message
1777 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1778 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1779 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1780 ierr )
1781 END IF
1782 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1783 CALL wrf_ext_write_field ( &
1784 fid , & ! DataHandle
1785 current_date(1:19) , & ! DateStr
1786 'G_W_BTYE' , & ! Data Name
1787 grid%g_w_btye(ims,kds,1) , & ! Field
1788 WRF_FLOAT , & ! FieldType
1789 grid%communicator , & ! Comm
1790 grid%iocommunicator , & ! Comm
1791 grid%domdesc , & ! Comm
1792 grid%bdy_mask , & ! bdy_mask
1793 dryrun , & ! flag
1794 'YEZ' , & ! MemoryOrder
1795 'Z' , & ! Stagger
1796 'west_east' , & ! Dimname 1
1797 'bottom_top_stag' , & ! Dimname 2
1798 'bdy_width' , & ! Dimname 3
1799 'bdy tend z-wind component' , & ! Desc
1800 '(m s-1)/dt' , & ! Units
1801 'inc/wrf_bdyout.inc ext_write_field G_W_BTYE memorder YEZ' , & ! Debug message
1802 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1803 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1804 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1805 ierr )
1806 END IF
1807 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1808 CALL wrf_ext_write_field ( &
1809 fid , & ! DataHandle
1810 current_date(1:19) , & ! DateStr
1811 'PH_BXS' , & ! Data Name
1812 grid%em_ph_bxs(jms,kds,1) , & ! Field
1813 WRF_FLOAT , & ! FieldType
1814 grid%communicator , & ! Comm
1815 grid%iocommunicator , & ! Comm
1816 grid%domdesc , & ! Comm
1817 grid%bdy_mask , & ! bdy_mask
1818 dryrun , & ! flag
1819 'XSZ' , & ! MemoryOrder
1820 'Z' , & ! Stagger
1821 'south_north' , & ! Dimname 1
1822 'bottom_top_stag' , & ! Dimname 2
1823 'bdy_width' , & ! Dimname 3
1824 'bdy perturbation geopotential' , & ! Desc
1825 'm2 s-2' , & ! Units
1826 'inc/wrf_bdyout.inc ext_write_field PH_BXS memorder XSZ' , & ! Debug message
1827 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1828 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1829 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1830 ierr )
1831 END IF
1832 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1833 CALL wrf_ext_write_field ( &
1834 fid , & ! DataHandle
1835 current_date(1:19) , & ! DateStr
1836 'PH_BXE' , & ! Data Name
1837 grid%em_ph_bxe(jms,kds,1) , & ! Field
1838 WRF_FLOAT , & ! FieldType
1839 grid%communicator , & ! Comm
1840 grid%iocommunicator , & ! Comm
1841 grid%domdesc , & ! Comm
1842 grid%bdy_mask , & ! bdy_mask
1843 dryrun , & ! flag
1844 'XEZ' , & ! MemoryOrder
1845 'Z' , & ! Stagger
1846 'south_north' , & ! Dimname 1
1847 'bottom_top_stag' , & ! Dimname 2
1848 'bdy_width' , & ! Dimname 3
1849 'bdy perturbation geopotential' , & ! Desc
1850 'm2 s-2' , & ! Units
1851 'inc/wrf_bdyout.inc ext_write_field PH_BXE memorder XEZ' , & ! Debug message
1852 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1853 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1854 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1855 ierr )
1856 END IF
1857 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1858 CALL wrf_ext_write_field ( &
1859 fid , & ! DataHandle
1860 current_date(1:19) , & ! DateStr
1861 'PH_BYS' , & ! Data Name
1862 grid%em_ph_bys(ims,kds,1) , & ! Field
1863 WRF_FLOAT , & ! FieldType
1864 grid%communicator , & ! Comm
1865 grid%iocommunicator , & ! Comm
1866 grid%domdesc , & ! Comm
1867 grid%bdy_mask , & ! bdy_mask
1868 dryrun , & ! flag
1869 'YSZ' , & ! MemoryOrder
1870 'Z' , & ! Stagger
1871 'west_east' , & ! Dimname 1
1872 'bottom_top_stag' , & ! Dimname 2
1873 'bdy_width' , & ! Dimname 3
1874 'bdy perturbation geopotential' , & ! Desc
1875 'm2 s-2' , & ! Units
1876 'inc/wrf_bdyout.inc ext_write_field PH_BYS memorder YSZ' , & ! Debug message
1877 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1878 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1879 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1880 ierr )
1881 END IF
1882 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1883 CALL wrf_ext_write_field ( &
1884 fid , & ! DataHandle
1885 current_date(1:19) , & ! DateStr
1886 'PH_BYE' , & ! Data Name
1887 grid%em_ph_bye(ims,kds,1) , & ! Field
1888 WRF_FLOAT , & ! FieldType
1889 grid%communicator , & ! Comm
1890 grid%iocommunicator , & ! Comm
1891 grid%domdesc , & ! Comm
1892 grid%bdy_mask , & ! bdy_mask
1893 dryrun , & ! flag
1894 'YEZ' , & ! MemoryOrder
1895 'Z' , & ! Stagger
1896 'west_east' , & ! Dimname 1
1897 'bottom_top_stag' , & ! Dimname 2
1898 'bdy_width' , & ! Dimname 3
1899 'bdy perturbation geopotential' , & ! Desc
1900 'm2 s-2' , & ! Units
1901 'inc/wrf_bdyout.inc ext_write_field PH_BYE memorder YEZ' , & ! Debug message
1902 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1903 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1904 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1905 ierr )
1906 END IF
1907 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1908 CALL wrf_ext_write_field ( &
1909 fid , & ! DataHandle
1910 current_date(1:19) , & ! DateStr
1911 'PH_BTXS' , & ! Data Name
1912 grid%em_ph_btxs(jms,kds,1) , & ! Field
1913 WRF_FLOAT , & ! FieldType
1914 grid%communicator , & ! Comm
1915 grid%iocommunicator , & ! Comm
1916 grid%domdesc , & ! Comm
1917 grid%bdy_mask , & ! bdy_mask
1918 dryrun , & ! flag
1919 'XSZ' , & ! MemoryOrder
1920 'Z' , & ! Stagger
1921 'south_north' , & ! Dimname 1
1922 'bottom_top_stag' , & ! Dimname 2
1923 'bdy_width' , & ! Dimname 3
1924 'bdy tend perturbation geopotential' , & ! Desc
1925 '(m2 s-2)/dt' , & ! Units
1926 'inc/wrf_bdyout.inc ext_write_field PH_BTXS memorder XSZ' , & ! Debug message
1927 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1928 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1929 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1930 ierr )
1931 END IF
1932 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1933 CALL wrf_ext_write_field ( &
1934 fid , & ! DataHandle
1935 current_date(1:19) , & ! DateStr
1936 'PH_BTXE' , & ! Data Name
1937 grid%em_ph_btxe(jms,kds,1) , & ! Field
1938 WRF_FLOAT , & ! FieldType
1939 grid%communicator , & ! Comm
1940 grid%iocommunicator , & ! Comm
1941 grid%domdesc , & ! Comm
1942 grid%bdy_mask , & ! bdy_mask
1943 dryrun , & ! flag
1944 'XEZ' , & ! MemoryOrder
1945 'Z' , & ! Stagger
1946 'south_north' , & ! Dimname 1
1947 'bottom_top_stag' , & ! Dimname 2
1948 'bdy_width' , & ! Dimname 3
1949 'bdy tend perturbation geopotential' , & ! Desc
1950 '(m2 s-2)/dt' , & ! Units
1951 'inc/wrf_bdyout.inc ext_write_field PH_BTXE memorder XEZ' , & ! Debug message
1952 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
1953 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
1954 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
1955 ierr )
1956 END IF
1957 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1958 CALL wrf_ext_write_field ( &
1959 fid , & ! DataHandle
1960 current_date(1:19) , & ! DateStr
1961 'PH_BTYS' , & ! Data Name
1962 grid%em_ph_btys(ims,kds,1) , & ! Field
1963 WRF_FLOAT , & ! FieldType
1964 grid%communicator , & ! Comm
1965 grid%iocommunicator , & ! Comm
1966 grid%domdesc , & ! Comm
1967 grid%bdy_mask , & ! bdy_mask
1968 dryrun , & ! flag
1969 'YSZ' , & ! MemoryOrder
1970 'Z' , & ! Stagger
1971 'west_east' , & ! Dimname 1
1972 'bottom_top_stag' , & ! Dimname 2
1973 'bdy_width' , & ! Dimname 3
1974 'bdy tend perturbation geopotential' , & ! Desc
1975 '(m2 s-2)/dt' , & ! Units
1976 'inc/wrf_bdyout.inc ext_write_field PH_BTYS memorder YSZ' , & ! Debug message
1977 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
1978 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
1979 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
1980 ierr )
1981 END IF
1982 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1983 CALL wrf_ext_write_field ( &
1984 fid , & ! DataHandle
1985 current_date(1:19) , & ! DateStr
1986 'PH_BTYE' , & ! Data Name
1987 grid%em_ph_btye(ims,kds,1) , & ! Field
1988 WRF_FLOAT , & ! FieldType
1989 grid%communicator , & ! Comm
1990 grid%iocommunicator , & ! Comm
1991 grid%domdesc , & ! Comm
1992 grid%bdy_mask , & ! bdy_mask
1993 dryrun , & ! flag
1994 'YEZ' , & ! MemoryOrder
1995 'Z' , & ! Stagger
1996 'west_east' , & ! Dimname 1
1997 'bottom_top_stag' , & ! Dimname 2
1998 'bdy_width' , & ! Dimname 3
1999 'bdy tend perturbation geopotential' , & ! Desc
2000 '(m2 s-2)/dt' , & ! Units
2001 'inc/wrf_bdyout.inc ext_write_field PH_BTYE memorder YEZ' , & ! Debug message
2002 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
2003 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2004 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
2005 ierr )
2006 END IF
2007 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2008 CALL wrf_ext_write_field ( &
2009 fid , & ! DataHandle
2010 current_date(1:19) , & ! DateStr
2011 'A_PH_BXS' , & ! Data Name
2012 grid%a_ph_bxs(jms,kds,1) , & ! Field
2013 WRF_FLOAT , & ! FieldType
2014 grid%communicator , & ! Comm
2015 grid%iocommunicator , & ! Comm
2016 grid%domdesc , & ! Comm
2017 grid%bdy_mask , & ! bdy_mask
2018 dryrun , & ! flag
2019 'XSZ' , & ! MemoryOrder
2020 'Z' , & ! Stagger
2021 'south_north' , & ! Dimname 1
2022 'bottom_top_stag' , & ! Dimname 2
2023 'bdy_width' , & ! Dimname 3
2024 'bdy perturbation geopotential' , & ! Desc
2025 'm2 s-2' , & ! Units
2026 'inc/wrf_bdyout.inc ext_write_field A_PH_BXS memorder XSZ' , & ! Debug message
2027 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
2028 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2029 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
2030 ierr )
2031 END IF
2032 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2033 CALL wrf_ext_write_field ( &
2034 fid , & ! DataHandle
2035 current_date(1:19) , & ! DateStr
2036 'A_PH_BXE' , & ! Data Name
2037 grid%a_ph_bxe(jms,kds,1) , & ! Field
2038 WRF_FLOAT , & ! FieldType
2039 grid%communicator , & ! Comm
2040 grid%iocommunicator , & ! Comm
2041 grid%domdesc , & ! Comm
2042 grid%bdy_mask , & ! bdy_mask
2043 dryrun , & ! flag
2044 'XEZ' , & ! MemoryOrder
2045 'Z' , & ! Stagger
2046 'south_north' , & ! Dimname 1
2047 'bottom_top_stag' , & ! Dimname 2
2048 'bdy_width' , & ! Dimname 3
2049 'bdy perturbation geopotential' , & ! Desc
2050 'm2 s-2' , & ! Units
2051 'inc/wrf_bdyout.inc ext_write_field A_PH_BXE memorder XEZ' , & ! Debug message
2052 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
2053 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2054 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
2055 ierr )
2056 END IF
2057 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2058 CALL wrf_ext_write_field ( &
2059 fid , & ! DataHandle
2060 current_date(1:19) , & ! DateStr
2061 'A_PH_BYS' , & ! Data Name
2062 grid%a_ph_bys(ims,kds,1) , & ! Field
2063 WRF_FLOAT , & ! FieldType
2064 grid%communicator , & ! Comm
2065 grid%iocommunicator , & ! Comm
2066 grid%domdesc , & ! Comm
2067 grid%bdy_mask , & ! bdy_mask
2068 dryrun , & ! flag
2069 'YSZ' , & ! MemoryOrder
2070 'Z' , & ! Stagger
2071 'west_east' , & ! Dimname 1
2072 'bottom_top_stag' , & ! Dimname 2
2073 'bdy_width' , & ! Dimname 3
2074 'bdy perturbation geopotential' , & ! Desc
2075 'm2 s-2' , & ! Units
2076 'inc/wrf_bdyout.inc ext_write_field A_PH_BYS memorder YSZ' , & ! Debug message
2077 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
2078 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2079 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
2080 ierr )
2081 END IF
2082 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2083 CALL wrf_ext_write_field ( &
2084 fid , & ! DataHandle
2085 current_date(1:19) , & ! DateStr
2086 'A_PH_BYE' , & ! Data Name
2087 grid%a_ph_bye(ims,kds,1) , & ! Field
2088 WRF_FLOAT , & ! FieldType
2089 grid%communicator , & ! Comm
2090 grid%iocommunicator , & ! Comm
2091 grid%domdesc , & ! Comm
2092 grid%bdy_mask , & ! bdy_mask
2093 dryrun , & ! flag
2094 'YEZ' , & ! MemoryOrder
2095 'Z' , & ! Stagger
2096 'west_east' , & ! Dimname 1
2097 'bottom_top_stag' , & ! Dimname 2
2098 'bdy_width' , & ! Dimname 3
2099 'bdy perturbation geopotential' , & ! Desc
2100 'm2 s-2' , & ! Units
2101 'inc/wrf_bdyout.inc ext_write_field A_PH_BYE memorder YEZ' , & ! Debug message
2102 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
2103 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2104 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
2105 ierr )
2106 END IF
2107 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2108 CALL wrf_ext_write_field ( &
2109 fid , & ! DataHandle
2110 current_date(1:19) , & ! DateStr
2111 'A_PH_BTXS' , & ! Data Name
2112 grid%a_ph_btxs(jms,kds,1) , & ! Field
2113 WRF_FLOAT , & ! FieldType
2114 grid%communicator , & ! Comm
2115 grid%iocommunicator , & ! Comm
2116 grid%domdesc , & ! Comm
2117 grid%bdy_mask , & ! bdy_mask
2118 dryrun , & ! flag
2119 'XSZ' , & ! MemoryOrder
2120 'Z' , & ! Stagger
2121 'south_north' , & ! Dimname 1
2122 'bottom_top_stag' , & ! Dimname 2
2123 'bdy_width' , & ! Dimname 3
2124 'bdy tend perturbation geopotential' , & ! Desc
2125 '(m2 s-2)/dt' , & ! Units
2126 'inc/wrf_bdyout.inc ext_write_field A_PH_BTXS memorder XSZ' , & ! Debug message
2127 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
2128 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2129 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
2130 ierr )
2131 END IF
2132 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2133 CALL wrf_ext_write_field ( &
2134 fid , & ! DataHandle
2135 current_date(1:19) , & ! DateStr
2136 'A_PH_BTXE' , & ! Data Name
2137 grid%a_ph_btxe(jms,kds,1) , & ! Field
2138 WRF_FLOAT , & ! FieldType
2139 grid%communicator , & ! Comm
2140 grid%iocommunicator , & ! Comm
2141 grid%domdesc , & ! Comm
2142 grid%bdy_mask , & ! bdy_mask
2143 dryrun , & ! flag
2144 'XEZ' , & ! MemoryOrder
2145 'Z' , & ! Stagger
2146 'south_north' , & ! Dimname 1
2147 'bottom_top_stag' , & ! Dimname 2
2148 'bdy_width' , & ! Dimname 3
2149 'bdy tend perturbation geopotential' , & ! Desc
2150 '(m2 s-2)/dt' , & ! Units
2151 'inc/wrf_bdyout.inc ext_write_field A_PH_BTXE memorder XEZ' , & ! Debug message
2152 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
2153 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2154 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
2155 ierr )
2156 END IF
2157 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2158 CALL wrf_ext_write_field ( &
2159 fid , & ! DataHandle
2160 current_date(1:19) , & ! DateStr
2161 'A_PH_BTYS' , & ! Data Name
2162 grid%a_ph_btys(ims,kds,1) , & ! Field
2163 WRF_FLOAT , & ! FieldType
2164 grid%communicator , & ! Comm
2165 grid%iocommunicator , & ! Comm
2166 grid%domdesc , & ! Comm
2167 grid%bdy_mask , & ! bdy_mask
2168 dryrun , & ! flag
2169 'YSZ' , & ! MemoryOrder
2170 'Z' , & ! Stagger
2171 'west_east' , & ! Dimname 1
2172 'bottom_top_stag' , & ! Dimname 2
2173 'bdy_width' , & ! Dimname 3
2174 'bdy tend perturbation geopotential' , & ! Desc
2175 '(m2 s-2)/dt' , & ! Units
2176 'inc/wrf_bdyout.inc ext_write_field A_PH_BTYS memorder YSZ' , & ! Debug message
2177 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
2178 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2179 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
2180 ierr )
2181 END IF
2182 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2183 CALL wrf_ext_write_field ( &
2184 fid , & ! DataHandle
2185 current_date(1:19) , & ! DateStr
2186 'A_PH_BTYE' , & ! Data Name
2187 grid%a_ph_btye(ims,kds,1) , & ! Field
2188 WRF_FLOAT , & ! FieldType
2189 grid%communicator , & ! Comm
2190 grid%iocommunicator , & ! Comm
2191 grid%domdesc , & ! Comm
2192 grid%bdy_mask , & ! bdy_mask
2193 dryrun , & ! flag
2194 'YEZ' , & ! MemoryOrder
2195 'Z' , & ! Stagger
2196 'west_east' , & ! Dimname 1
2197 'bottom_top_stag' , & ! Dimname 2
2198 'bdy_width' , & ! Dimname 3
2199 'bdy tend perturbation geopotential' , & ! Desc
2200 '(m2 s-2)/dt' , & ! Units
2201 'inc/wrf_bdyout.inc ext_write_field A_PH_BTYE memorder YEZ' , & ! Debug message
2202 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
2203 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2204 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
2205 ierr )
2206 END IF
2207 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2208 CALL wrf_ext_write_field ( &
2209 fid , & ! DataHandle
2210 current_date(1:19) , & ! DateStr
2211 'G_PH_BXS' , & ! Data Name
2212 grid%g_ph_bxs(jms,kds,1) , & ! Field
2213 WRF_FLOAT , & ! FieldType
2214 grid%communicator , & ! Comm
2215 grid%iocommunicator , & ! Comm
2216 grid%domdesc , & ! Comm
2217 grid%bdy_mask , & ! bdy_mask
2218 dryrun , & ! flag
2219 'XSZ' , & ! MemoryOrder
2220 'Z' , & ! Stagger
2221 'south_north' , & ! Dimname 1
2222 'bottom_top_stag' , & ! Dimname 2
2223 'bdy_width' , & ! Dimname 3
2224 'bdy perturbation geopotential' , & ! Desc
2225 'm2 s-2' , & ! Units
2226 'inc/wrf_bdyout.inc ext_write_field G_PH_BXS memorder XSZ' , & ! Debug message
2227 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
2228 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2229 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
2230 ierr )
2231 END IF
2232 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2233 CALL wrf_ext_write_field ( &
2234 fid , & ! DataHandle
2235 current_date(1:19) , & ! DateStr
2236 'G_PH_BXE' , & ! Data Name
2237 grid%g_ph_bxe(jms,kds,1) , & ! Field
2238 WRF_FLOAT , & ! FieldType
2239 grid%communicator , & ! Comm
2240 grid%iocommunicator , & ! Comm
2241 grid%domdesc , & ! Comm
2242 grid%bdy_mask , & ! bdy_mask
2243 dryrun , & ! flag
2244 'XEZ' , & ! MemoryOrder
2245 'Z' , & ! Stagger
2246 'south_north' , & ! Dimname 1
2247 'bottom_top_stag' , & ! Dimname 2
2248 'bdy_width' , & ! Dimname 3
2249 'bdy perturbation geopotential' , & ! Desc
2250 'm2 s-2' , & ! Units
2251 'inc/wrf_bdyout.inc ext_write_field G_PH_BXE memorder XEZ' , & ! Debug message
2252 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
2253 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2254 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
2255 ierr )
2256 END IF
2257 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2258 CALL wrf_ext_write_field ( &
2259 fid , & ! DataHandle
2260 current_date(1:19) , & ! DateStr
2261 'G_PH_BYS' , & ! Data Name
2262 grid%g_ph_bys(ims,kds,1) , & ! Field
2263 WRF_FLOAT , & ! FieldType
2264 grid%communicator , & ! Comm
2265 grid%iocommunicator , & ! Comm
2266 grid%domdesc , & ! Comm
2267 grid%bdy_mask , & ! bdy_mask
2268 dryrun , & ! flag
2269 'YSZ' , & ! MemoryOrder
2270 'Z' , & ! Stagger
2271 'west_east' , & ! Dimname 1
2272 'bottom_top_stag' , & ! Dimname 2
2273 'bdy_width' , & ! Dimname 3
2274 'bdy perturbation geopotential' , & ! Desc
2275 'm2 s-2' , & ! Units
2276 'inc/wrf_bdyout.inc ext_write_field G_PH_BYS memorder YSZ' , & ! Debug message
2277 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
2278 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2279 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
2280 ierr )
2281 END IF
2282 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2283 CALL wrf_ext_write_field ( &
2284 fid , & ! DataHandle
2285 current_date(1:19) , & ! DateStr
2286 'G_PH_BYE' , & ! Data Name
2287 grid%g_ph_bye(ims,kds,1) , & ! Field
2288 WRF_FLOAT , & ! FieldType
2289 grid%communicator , & ! Comm
2290 grid%iocommunicator , & ! Comm
2291 grid%domdesc , & ! Comm
2292 grid%bdy_mask , & ! bdy_mask
2293 dryrun , & ! flag
2294 'YEZ' , & ! MemoryOrder
2295 'Z' , & ! Stagger
2296 'west_east' , & ! Dimname 1
2297 'bottom_top_stag' , & ! Dimname 2
2298 'bdy_width' , & ! Dimname 3
2299 'bdy perturbation geopotential' , & ! Desc
2300 'm2 s-2' , & ! Units
2301 'inc/wrf_bdyout.inc ext_write_field G_PH_BYE memorder YEZ' , & ! Debug message
2302 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
2303 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2304 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
2305 ierr )
2306 END IF
2307 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2308 CALL wrf_ext_write_field ( &
2309 fid , & ! DataHandle
2310 current_date(1:19) , & ! DateStr
2311 'G_PH_BTXS' , & ! Data Name
2312 grid%g_ph_btxs(jms,kds,1) , & ! Field
2313 WRF_FLOAT , & ! FieldType
2314 grid%communicator , & ! Comm
2315 grid%iocommunicator , & ! Comm
2316 grid%domdesc , & ! Comm
2317 grid%bdy_mask , & ! bdy_mask
2318 dryrun , & ! flag
2319 'XSZ' , & ! MemoryOrder
2320 'Z' , & ! Stagger
2321 'south_north' , & ! Dimname 1
2322 'bottom_top_stag' , & ! Dimname 2
2323 'bdy_width' , & ! Dimname 3
2324 'bdy tend perturbation geopotential' , & ! Desc
2325 '(m2 s-2)/dt' , & ! Units
2326 'inc/wrf_bdyout.inc ext_write_field G_PH_BTXS memorder XSZ' , & ! Debug message
2327 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
2328 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2329 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
2330 ierr )
2331 END IF
2332 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2333 CALL wrf_ext_write_field ( &
2334 fid , & ! DataHandle
2335 current_date(1:19) , & ! DateStr
2336 'G_PH_BTXE' , & ! Data Name
2337 grid%g_ph_btxe(jms,kds,1) , & ! Field
2338 WRF_FLOAT , & ! FieldType
2339 grid%communicator , & ! Comm
2340 grid%iocommunicator , & ! Comm
2341 grid%domdesc , & ! Comm
2342 grid%bdy_mask , & ! bdy_mask
2343 dryrun , & ! flag
2344 'XEZ' , & ! MemoryOrder
2345 'Z' , & ! Stagger
2346 'south_north' , & ! Dimname 1
2347 'bottom_top_stag' , & ! Dimname 2
2348 'bdy_width' , & ! Dimname 3
2349 'bdy tend perturbation geopotential' , & ! Desc
2350 '(m2 s-2)/dt' , & ! Units
2351 'inc/wrf_bdyout.inc ext_write_field G_PH_BTXE memorder XEZ' , & ! Debug message
2352 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, &
2353 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2354 jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, &
2355 ierr )
2356 END IF
2357 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2358 CALL wrf_ext_write_field ( &
2359 fid , & ! DataHandle
2360 current_date(1:19) , & ! DateStr
2361 'G_PH_BTYS' , & ! Data Name
2362 grid%g_ph_btys(ims,kds,1) , & ! Field
2363 WRF_FLOAT , & ! FieldType
2364 grid%communicator , & ! Comm
2365 grid%iocommunicator , & ! Comm
2366 grid%domdesc , & ! Comm
2367 grid%bdy_mask , & ! bdy_mask
2368 dryrun , & ! flag
2369 'YSZ' , & ! MemoryOrder
2370 'Z' , & ! Stagger
2371 'west_east' , & ! Dimname 1
2372 'bottom_top_stag' , & ! Dimname 2
2373 'bdy_width' , & ! Dimname 3
2374 'bdy tend perturbation geopotential' , & ! Desc
2375 '(m2 s-2)/dt' , & ! Units
2376 'inc/wrf_bdyout.inc ext_write_field G_PH_BTYS memorder YSZ' , & ! Debug message
2377 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
2378 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2379 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
2380 ierr )
2381 END IF
2382 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2383 CALL wrf_ext_write_field ( &
2384 fid , & ! DataHandle
2385 current_date(1:19) , & ! DateStr
2386 'G_PH_BTYE' , & ! Data Name
2387 grid%g_ph_btye(ims,kds,1) , & ! Field
2388 WRF_FLOAT , & ! FieldType
2389 grid%communicator , & ! Comm
2390 grid%iocommunicator , & ! Comm
2391 grid%domdesc , & ! Comm
2392 grid%bdy_mask , & ! bdy_mask
2393 dryrun , & ! flag
2394 'YEZ' , & ! MemoryOrder
2395 'Z' , & ! Stagger
2396 'west_east' , & ! Dimname 1
2397 'bottom_top_stag' , & ! Dimname 2
2398 'bdy_width' , & ! Dimname 3
2399 'bdy tend perturbation geopotential' , & ! Desc
2400 '(m2 s-2)/dt' , & ! Units
2401 'inc/wrf_bdyout.inc ext_write_field G_PH_BTYE memorder YEZ' , & ! Debug message
2402 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, &
2403 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2404 ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, &
2405 ierr )
2406 END IF
2407 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2408 CALL wrf_ext_write_field ( &
2409 fid , & ! DataHandle
2410 current_date(1:19) , & ! DateStr
2411 'T_BXS' , & ! Data Name
2412 grid%em_t_bxs(jms,kds,1) , & ! Field
2413 WRF_FLOAT , & ! FieldType
2414 grid%communicator , & ! Comm
2415 grid%iocommunicator , & ! Comm
2416 grid%domdesc , & ! Comm
2417 grid%bdy_mask , & ! bdy_mask
2418 dryrun , & ! flag
2419 'XSZ' , & ! MemoryOrder
2420 '' , & ! Stagger
2421 'south_north' , & ! Dimname 1
2422 'bottom_top' , & ! Dimname 2
2423 'bdy_width' , & ! Dimname 3
2424 'bdy perturbation potential temperature (theta-t0)' , & ! Desc
2425 'K' , & ! Units
2426 'inc/wrf_bdyout.inc ext_write_field T_BXS memorder XSZ' , & ! Debug message
2427 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2428 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2429 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2430 ierr )
2431 END IF
2432 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2433 CALL wrf_ext_write_field ( &
2434 fid , & ! DataHandle
2435 current_date(1:19) , & ! DateStr
2436 'T_BXE' , & ! Data Name
2437 grid%em_t_bxe(jms,kds,1) , & ! Field
2438 WRF_FLOAT , & ! FieldType
2439 grid%communicator , & ! Comm
2440 grid%iocommunicator , & ! Comm
2441 grid%domdesc , & ! Comm
2442 grid%bdy_mask , & ! bdy_mask
2443 dryrun , & ! flag
2444 'XEZ' , & ! MemoryOrder
2445 '' , & ! Stagger
2446 'south_north' , & ! Dimname 1
2447 'bottom_top' , & ! Dimname 2
2448 'bdy_width' , & ! Dimname 3
2449 'bdy perturbation potential temperature (theta-t0)' , & ! Desc
2450 'K' , & ! Units
2451 'inc/wrf_bdyout.inc ext_write_field T_BXE memorder XEZ' , & ! Debug message
2452 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2453 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2454 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2455 ierr )
2456 END IF
2457 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2458 CALL wrf_ext_write_field ( &
2459 fid , & ! DataHandle
2460 current_date(1:19) , & ! DateStr
2461 'T_BYS' , & ! Data Name
2462 grid%em_t_bys(ims,kds,1) , & ! Field
2463 WRF_FLOAT , & ! FieldType
2464 grid%communicator , & ! Comm
2465 grid%iocommunicator , & ! Comm
2466 grid%domdesc , & ! Comm
2467 grid%bdy_mask , & ! bdy_mask
2468 dryrun , & ! flag
2469 'YSZ' , & ! MemoryOrder
2470 '' , & ! Stagger
2471 'west_east' , & ! Dimname 1
2472 'bottom_top' , & ! Dimname 2
2473 'bdy_width' , & ! Dimname 3
2474 'bdy perturbation potential temperature (theta-t0)' , & ! Desc
2475 'K' , & ! Units
2476 'inc/wrf_bdyout.inc ext_write_field T_BYS memorder YSZ' , & ! Debug message
2477 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2478 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2479 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2480 ierr )
2481 END IF
2482 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2483 CALL wrf_ext_write_field ( &
2484 fid , & ! DataHandle
2485 current_date(1:19) , & ! DateStr
2486 'T_BYE' , & ! Data Name
2487 grid%em_t_bye(ims,kds,1) , & ! Field
2488 WRF_FLOAT , & ! FieldType
2489 grid%communicator , & ! Comm
2490 grid%iocommunicator , & ! Comm
2491 grid%domdesc , & ! Comm
2492 grid%bdy_mask , & ! bdy_mask
2493 dryrun , & ! flag
2494 'YEZ' , & ! MemoryOrder
2495 '' , & ! Stagger
2496 'west_east' , & ! Dimname 1
2497 'bottom_top' , & ! Dimname 2
2498 'bdy_width' , & ! Dimname 3
2499 'bdy perturbation potential temperature (theta-t0)' , & ! Desc
2500 'K' , & ! Units
2501 'inc/wrf_bdyout.inc ext_write_field T_BYE memorder YEZ' , & ! Debug message
2502 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2503 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2504 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2505 ierr )
2506 END IF
2507 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2508 CALL wrf_ext_write_field ( &
2509 fid , & ! DataHandle
2510 current_date(1:19) , & ! DateStr
2511 'T_BTXS' , & ! Data Name
2512 grid%em_t_btxs(jms,kds,1) , & ! Field
2513 WRF_FLOAT , & ! FieldType
2514 grid%communicator , & ! Comm
2515 grid%iocommunicator , & ! Comm
2516 grid%domdesc , & ! Comm
2517 grid%bdy_mask , & ! bdy_mask
2518 dryrun , & ! flag
2519 'XSZ' , & ! MemoryOrder
2520 '' , & ! Stagger
2521 'south_north' , & ! Dimname 1
2522 'bottom_top' , & ! Dimname 2
2523 'bdy_width' , & ! Dimname 3
2524 'bdy tend perturbation potential temperature (theta-t0)' , & ! Desc
2525 '(K)/dt' , & ! Units
2526 'inc/wrf_bdyout.inc ext_write_field T_BTXS memorder XSZ' , & ! Debug message
2527 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2528 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2529 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2530 ierr )
2531 END IF
2532 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2533 CALL wrf_ext_write_field ( &
2534 fid , & ! DataHandle
2535 current_date(1:19) , & ! DateStr
2536 'T_BTXE' , & ! Data Name
2537 grid%em_t_btxe(jms,kds,1) , & ! Field
2538 WRF_FLOAT , & ! FieldType
2539 grid%communicator , & ! Comm
2540 grid%iocommunicator , & ! Comm
2541 grid%domdesc , & ! Comm
2542 grid%bdy_mask , & ! bdy_mask
2543 dryrun , & ! flag
2544 'XEZ' , & ! MemoryOrder
2545 '' , & ! Stagger
2546 'south_north' , & ! Dimname 1
2547 'bottom_top' , & ! Dimname 2
2548 'bdy_width' , & ! Dimname 3
2549 'bdy tend perturbation potential temperature (theta-t0)' , & ! Desc
2550 '(K)/dt' , & ! Units
2551 'inc/wrf_bdyout.inc ext_write_field T_BTXE memorder XEZ' , & ! Debug message
2552 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2553 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2554 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2555 ierr )
2556 END IF
2557 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2558 CALL wrf_ext_write_field ( &
2559 fid , & ! DataHandle
2560 current_date(1:19) , & ! DateStr
2561 'T_BTYS' , & ! Data Name
2562 grid%em_t_btys(ims,kds,1) , & ! Field
2563 WRF_FLOAT , & ! FieldType
2564 grid%communicator , & ! Comm
2565 grid%iocommunicator , & ! Comm
2566 grid%domdesc , & ! Comm
2567 grid%bdy_mask , & ! bdy_mask
2568 dryrun , & ! flag
2569 'YSZ' , & ! MemoryOrder
2570 '' , & ! Stagger
2571 'west_east' , & ! Dimname 1
2572 'bottom_top' , & ! Dimname 2
2573 'bdy_width' , & ! Dimname 3
2574 'bdy tend perturbation potential temperature (theta-t0)' , & ! Desc
2575 '(K)/dt' , & ! Units
2576 'inc/wrf_bdyout.inc ext_write_field T_BTYS memorder YSZ' , & ! Debug message
2577 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2578 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2579 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2580 ierr )
2581 END IF
2582 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2583 CALL wrf_ext_write_field ( &
2584 fid , & ! DataHandle
2585 current_date(1:19) , & ! DateStr
2586 'T_BTYE' , & ! Data Name
2587 grid%em_t_btye(ims,kds,1) , & ! Field
2588 WRF_FLOAT , & ! FieldType
2589 grid%communicator , & ! Comm
2590 grid%iocommunicator , & ! Comm
2591 grid%domdesc , & ! Comm
2592 grid%bdy_mask , & ! bdy_mask
2593 dryrun , & ! flag
2594 'YEZ' , & ! MemoryOrder
2595 '' , & ! Stagger
2596 'west_east' , & ! Dimname 1
2597 'bottom_top' , & ! Dimname 2
2598 'bdy_width' , & ! Dimname 3
2599 'bdy tend perturbation potential temperature (theta-t0)' , & ! Desc
2600 '(K)/dt' , & ! Units
2601 'inc/wrf_bdyout.inc ext_write_field T_BTYE memorder YEZ' , & ! Debug message
2602 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2603 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2604 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2605 ierr )
2606 END IF
2607 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2608 CALL wrf_ext_write_field ( &
2609 fid , & ! DataHandle
2610 current_date(1:19) , & ! DateStr
2611 'A_T_BXS' , & ! Data Name
2612 grid%a_t_bxs(jms,kds,1) , & ! Field
2613 WRF_FLOAT , & ! FieldType
2614 grid%communicator , & ! Comm
2615 grid%iocommunicator , & ! Comm
2616 grid%domdesc , & ! Comm
2617 grid%bdy_mask , & ! bdy_mask
2618 dryrun , & ! flag
2619 'XSZ' , & ! MemoryOrder
2620 '' , & ! Stagger
2621 'south_north' , & ! Dimname 1
2622 'bottom_top' , & ! Dimname 2
2623 'bdy_width' , & ! Dimname 3
2624 'bdy perturbation potential temperature (theta-t0)' , & ! Desc
2625 'K' , & ! Units
2626 'inc/wrf_bdyout.inc ext_write_field A_T_BXS memorder XSZ' , & ! Debug message
2627 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2628 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2629 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2630 ierr )
2631 END IF
2632 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2633 CALL wrf_ext_write_field ( &
2634 fid , & ! DataHandle
2635 current_date(1:19) , & ! DateStr
2636 'A_T_BXE' , & ! Data Name
2637 grid%a_t_bxe(jms,kds,1) , & ! Field
2638 WRF_FLOAT , & ! FieldType
2639 grid%communicator , & ! Comm
2640 grid%iocommunicator , & ! Comm
2641 grid%domdesc , & ! Comm
2642 grid%bdy_mask , & ! bdy_mask
2643 dryrun , & ! flag
2644 'XEZ' , & ! MemoryOrder
2645 '' , & ! Stagger
2646 'south_north' , & ! Dimname 1
2647 'bottom_top' , & ! Dimname 2
2648 'bdy_width' , & ! Dimname 3
2649 'bdy perturbation potential temperature (theta-t0)' , & ! Desc
2650 'K' , & ! Units
2651 'inc/wrf_bdyout.inc ext_write_field A_T_BXE memorder XEZ' , & ! Debug message
2652 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2653 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2654 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2655 ierr )
2656 END IF
2657 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2658 CALL wrf_ext_write_field ( &
2659 fid , & ! DataHandle
2660 current_date(1:19) , & ! DateStr
2661 'A_T_BYS' , & ! Data Name
2662 grid%a_t_bys(ims,kds,1) , & ! Field
2663 WRF_FLOAT , & ! FieldType
2664 grid%communicator , & ! Comm
2665 grid%iocommunicator , & ! Comm
2666 grid%domdesc , & ! Comm
2667 grid%bdy_mask , & ! bdy_mask
2668 dryrun , & ! flag
2669 'YSZ' , & ! MemoryOrder
2670 '' , & ! Stagger
2671 'west_east' , & ! Dimname 1
2672 'bottom_top' , & ! Dimname 2
2673 'bdy_width' , & ! Dimname 3
2674 'bdy perturbation potential temperature (theta-t0)' , & ! Desc
2675 'K' , & ! Units
2676 'inc/wrf_bdyout.inc ext_write_field A_T_BYS memorder YSZ' , & ! Debug message
2677 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2678 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2679 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2680 ierr )
2681 END IF
2682 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2683 CALL wrf_ext_write_field ( &
2684 fid , & ! DataHandle
2685 current_date(1:19) , & ! DateStr
2686 'A_T_BYE' , & ! Data Name
2687 grid%a_t_bye(ims,kds,1) , & ! Field
2688 WRF_FLOAT , & ! FieldType
2689 grid%communicator , & ! Comm
2690 grid%iocommunicator , & ! Comm
2691 grid%domdesc , & ! Comm
2692 grid%bdy_mask , & ! bdy_mask
2693 dryrun , & ! flag
2694 'YEZ' , & ! MemoryOrder
2695 '' , & ! Stagger
2696 'west_east' , & ! Dimname 1
2697 'bottom_top' , & ! Dimname 2
2698 'bdy_width' , & ! Dimname 3
2699 'bdy perturbation potential temperature (theta-t0)' , & ! Desc
2700 'K' , & ! Units
2701 'inc/wrf_bdyout.inc ext_write_field A_T_BYE memorder YEZ' , & ! Debug message
2702 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2703 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2704 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2705 ierr )
2706 END IF
2707 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2708 CALL wrf_ext_write_field ( &
2709 fid , & ! DataHandle
2710 current_date(1:19) , & ! DateStr
2711 'A_T_BTXS' , & ! Data Name
2712 grid%a_t_btxs(jms,kds,1) , & ! Field
2713 WRF_FLOAT , & ! FieldType
2714 grid%communicator , & ! Comm
2715 grid%iocommunicator , & ! Comm
2716 grid%domdesc , & ! Comm
2717 grid%bdy_mask , & ! bdy_mask
2718 dryrun , & ! flag
2719 'XSZ' , & ! MemoryOrder
2720 '' , & ! Stagger
2721 'south_north' , & ! Dimname 1
2722 'bottom_top' , & ! Dimname 2
2723 'bdy_width' , & ! Dimname 3
2724 'bdy tend perturbation potential temperature (theta-t0)' , & ! Desc
2725 '(K)/dt' , & ! Units
2726 'inc/wrf_bdyout.inc ext_write_field A_T_BTXS memorder XSZ' , & ! Debug message
2727 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2728 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2729 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2730 ierr )
2731 END IF
2732 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2733 CALL wrf_ext_write_field ( &
2734 fid , & ! DataHandle
2735 current_date(1:19) , & ! DateStr
2736 'A_T_BTXE' , & ! Data Name
2737 grid%a_t_btxe(jms,kds,1) , & ! Field
2738 WRF_FLOAT , & ! FieldType
2739 grid%communicator , & ! Comm
2740 grid%iocommunicator , & ! Comm
2741 grid%domdesc , & ! Comm
2742 grid%bdy_mask , & ! bdy_mask
2743 dryrun , & ! flag
2744 'XEZ' , & ! MemoryOrder
2745 '' , & ! Stagger
2746 'south_north' , & ! Dimname 1
2747 'bottom_top' , & ! Dimname 2
2748 'bdy_width' , & ! Dimname 3
2749 'bdy tend perturbation potential temperature (theta-t0)' , & ! Desc
2750 '(K)/dt' , & ! Units
2751 'inc/wrf_bdyout.inc ext_write_field A_T_BTXE memorder XEZ' , & ! Debug message
2752 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2753 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2754 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2755 ierr )
2756 END IF
2757 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2758 CALL wrf_ext_write_field ( &
2759 fid , & ! DataHandle
2760 current_date(1:19) , & ! DateStr
2761 'A_T_BTYS' , & ! Data Name
2762 grid%a_t_btys(ims,kds,1) , & ! Field
2763 WRF_FLOAT , & ! FieldType
2764 grid%communicator , & ! Comm
2765 grid%iocommunicator , & ! Comm
2766 grid%domdesc , & ! Comm
2767 grid%bdy_mask , & ! bdy_mask
2768 dryrun , & ! flag
2769 'YSZ' , & ! MemoryOrder
2770 '' , & ! Stagger
2771 'west_east' , & ! Dimname 1
2772 'bottom_top' , & ! Dimname 2
2773 'bdy_width' , & ! Dimname 3
2774 'bdy tend perturbation potential temperature (theta-t0)' , & ! Desc
2775 '(K)/dt' , & ! Units
2776 'inc/wrf_bdyout.inc ext_write_field A_T_BTYS memorder YSZ' , & ! Debug message
2777 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2778 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2779 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2780 ierr )
2781 END IF
2782 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
2783 CALL wrf_ext_write_field ( &
2784 fid , & ! DataHandle
2785 current_date(1:19) , & ! DateStr
2786 'A_T_BTYE' , & ! Data Name
2787 grid%a_t_btye(ims,kds,1) , & ! Field
2788 WRF_FLOAT , & ! FieldType
2789 grid%communicator , & ! Comm
2790 grid%iocommunicator , & ! Comm
2791 grid%domdesc , & ! Comm
2792 grid%bdy_mask , & ! bdy_mask
2793 dryrun , & ! flag
2794 'YEZ' , & ! MemoryOrder
2795 '' , & ! Stagger
2796 'west_east' , & ! Dimname 1
2797 'bottom_top' , & ! Dimname 2
2798 'bdy_width' , & ! Dimname 3
2799 'bdy tend perturbation potential temperature (theta-t0)' , & ! Desc
2800 '(K)/dt' , & ! Units
2801 'inc/wrf_bdyout.inc ext_write_field A_T_BTYE memorder YEZ' , & ! Debug message
2802 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2803 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2804 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2805 ierr )
2806 END IF
2807 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2808 CALL wrf_ext_write_field ( &
2809 fid , & ! DataHandle
2810 current_date(1:19) , & ! DateStr
2811 'G_T_BXS' , & ! Data Name
2812 grid%g_t_bxs(jms,kds,1) , & ! Field
2813 WRF_FLOAT , & ! FieldType
2814 grid%communicator , & ! Comm
2815 grid%iocommunicator , & ! Comm
2816 grid%domdesc , & ! Comm
2817 grid%bdy_mask , & ! bdy_mask
2818 dryrun , & ! flag
2819 'XSZ' , & ! MemoryOrder
2820 '' , & ! Stagger
2821 'south_north' , & ! Dimname 1
2822 'bottom_top' , & ! Dimname 2
2823 'bdy_width' , & ! Dimname 3
2824 'bdy perturbation potential temperature (theta-t0)' , & ! Desc
2825 'K' , & ! Units
2826 'inc/wrf_bdyout.inc ext_write_field G_T_BXS memorder XSZ' , & ! Debug message
2827 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2828 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2829 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2830 ierr )
2831 END IF
2832 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2833 CALL wrf_ext_write_field ( &
2834 fid , & ! DataHandle
2835 current_date(1:19) , & ! DateStr
2836 'G_T_BXE' , & ! Data Name
2837 grid%g_t_bxe(jms,kds,1) , & ! Field
2838 WRF_FLOAT , & ! FieldType
2839 grid%communicator , & ! Comm
2840 grid%iocommunicator , & ! Comm
2841 grid%domdesc , & ! Comm
2842 grid%bdy_mask , & ! bdy_mask
2843 dryrun , & ! flag
2844 'XEZ' , & ! MemoryOrder
2845 '' , & ! Stagger
2846 'south_north' , & ! Dimname 1
2847 'bottom_top' , & ! Dimname 2
2848 'bdy_width' , & ! Dimname 3
2849 'bdy perturbation potential temperature (theta-t0)' , & ! Desc
2850 'K' , & ! Units
2851 'inc/wrf_bdyout.inc ext_write_field G_T_BXE memorder XEZ' , & ! Debug message
2852 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2853 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2854 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2855 ierr )
2856 END IF
2857 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2858 CALL wrf_ext_write_field ( &
2859 fid , & ! DataHandle
2860 current_date(1:19) , & ! DateStr
2861 'G_T_BYS' , & ! Data Name
2862 grid%g_t_bys(ims,kds,1) , & ! Field
2863 WRF_FLOAT , & ! FieldType
2864 grid%communicator , & ! Comm
2865 grid%iocommunicator , & ! Comm
2866 grid%domdesc , & ! Comm
2867 grid%bdy_mask , & ! bdy_mask
2868 dryrun , & ! flag
2869 'YSZ' , & ! MemoryOrder
2870 '' , & ! Stagger
2871 'west_east' , & ! Dimname 1
2872 'bottom_top' , & ! Dimname 2
2873 'bdy_width' , & ! Dimname 3
2874 'bdy perturbation potential temperature (theta-t0)' , & ! Desc
2875 'K' , & ! Units
2876 'inc/wrf_bdyout.inc ext_write_field G_T_BYS memorder YSZ' , & ! Debug message
2877 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2878 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2879 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2880 ierr )
2881 END IF
2882 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2883 CALL wrf_ext_write_field ( &
2884 fid , & ! DataHandle
2885 current_date(1:19) , & ! DateStr
2886 'G_T_BYE' , & ! Data Name
2887 grid%g_t_bye(ims,kds,1) , & ! Field
2888 WRF_FLOAT , & ! FieldType
2889 grid%communicator , & ! Comm
2890 grid%iocommunicator , & ! Comm
2891 grid%domdesc , & ! Comm
2892 grid%bdy_mask , & ! bdy_mask
2893 dryrun , & ! flag
2894 'YEZ' , & ! MemoryOrder
2895 '' , & ! Stagger
2896 'west_east' , & ! Dimname 1
2897 'bottom_top' , & ! Dimname 2
2898 'bdy_width' , & ! Dimname 3
2899 'bdy perturbation potential temperature (theta-t0)' , & ! Desc
2900 'K' , & ! Units
2901 'inc/wrf_bdyout.inc ext_write_field G_T_BYE memorder YEZ' , & ! Debug message
2902 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2903 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2904 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2905 ierr )
2906 END IF
2907 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2908 CALL wrf_ext_write_field ( &
2909 fid , & ! DataHandle
2910 current_date(1:19) , & ! DateStr
2911 'G_T_BTXS' , & ! Data Name
2912 grid%g_t_btxs(jms,kds,1) , & ! Field
2913 WRF_FLOAT , & ! FieldType
2914 grid%communicator , & ! Comm
2915 grid%iocommunicator , & ! Comm
2916 grid%domdesc , & ! Comm
2917 grid%bdy_mask , & ! bdy_mask
2918 dryrun , & ! flag
2919 'XSZ' , & ! MemoryOrder
2920 '' , & ! Stagger
2921 'south_north' , & ! Dimname 1
2922 'bottom_top' , & ! Dimname 2
2923 'bdy_width' , & ! Dimname 3
2924 'bdy tend perturbation potential temperature (theta-t0)' , & ! Desc
2925 '(K)/dt' , & ! Units
2926 'inc/wrf_bdyout.inc ext_write_field G_T_BTXS memorder XSZ' , & ! Debug message
2927 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2928 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2929 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2930 ierr )
2931 END IF
2932 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2933 CALL wrf_ext_write_field ( &
2934 fid , & ! DataHandle
2935 current_date(1:19) , & ! DateStr
2936 'G_T_BTXE' , & ! Data Name
2937 grid%g_t_btxe(jms,kds,1) , & ! Field
2938 WRF_FLOAT , & ! FieldType
2939 grid%communicator , & ! Comm
2940 grid%iocommunicator , & ! Comm
2941 grid%domdesc , & ! Comm
2942 grid%bdy_mask , & ! bdy_mask
2943 dryrun , & ! flag
2944 'XEZ' , & ! MemoryOrder
2945 '' , & ! Stagger
2946 'south_north' , & ! Dimname 1
2947 'bottom_top' , & ! Dimname 2
2948 'bdy_width' , & ! Dimname 3
2949 'bdy tend perturbation potential temperature (theta-t0)' , & ! Desc
2950 '(K)/dt' , & ! Units
2951 'inc/wrf_bdyout.inc ext_write_field G_T_BTXE memorder XEZ' , & ! Debug message
2952 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2953 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
2954 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2955 ierr )
2956 END IF
2957 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2958 CALL wrf_ext_write_field ( &
2959 fid , & ! DataHandle
2960 current_date(1:19) , & ! DateStr
2961 'G_T_BTYS' , & ! Data Name
2962 grid%g_t_btys(ims,kds,1) , & ! Field
2963 WRF_FLOAT , & ! FieldType
2964 grid%communicator , & ! Comm
2965 grid%iocommunicator , & ! Comm
2966 grid%domdesc , & ! Comm
2967 grid%bdy_mask , & ! bdy_mask
2968 dryrun , & ! flag
2969 'YSZ' , & ! MemoryOrder
2970 '' , & ! Stagger
2971 'west_east' , & ! Dimname 1
2972 'bottom_top' , & ! Dimname 2
2973 'bdy_width' , & ! Dimname 3
2974 'bdy tend perturbation potential temperature (theta-t0)' , & ! Desc
2975 '(K)/dt' , & ! Units
2976 'inc/wrf_bdyout.inc ext_write_field G_T_BTYS memorder YSZ' , & ! Debug message
2977 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2978 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
2979 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
2980 ierr )
2981 END IF
2982 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
2983 CALL wrf_ext_write_field ( &
2984 fid , & ! DataHandle
2985 current_date(1:19) , & ! DateStr
2986 'G_T_BTYE' , & ! Data Name
2987 grid%g_t_btye(ims,kds,1) , & ! Field
2988 WRF_FLOAT , & ! FieldType
2989 grid%communicator , & ! Comm
2990 grid%iocommunicator , & ! Comm
2991 grid%domdesc , & ! Comm
2992 grid%bdy_mask , & ! bdy_mask
2993 dryrun , & ! flag
2994 'YEZ' , & ! MemoryOrder
2995 '' , & ! Stagger
2996 'west_east' , & ! Dimname 1
2997 'bottom_top' , & ! Dimname 2
2998 'bdy_width' , & ! Dimname 3
2999 'bdy tend perturbation potential temperature (theta-t0)' , & ! Desc
3000 '(K)/dt' , & ! Units
3001 'inc/wrf_bdyout.inc ext_write_field G_T_BTYE memorder YEZ' , & ! Debug message
3002 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3003 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3004 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3005 ierr )
3006 END IF
3007 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3008 CALL wrf_ext_write_field ( &
3009 fid , & ! DataHandle
3010 current_date(1:19) , & ! DateStr
3011 'MU_BXS' , & ! Data Name
3012 grid%em_mu_bxs(jms,kds,1) , & ! Field
3013 WRF_FLOAT , & ! FieldType
3014 grid%communicator , & ! Comm
3015 grid%iocommunicator , & ! Comm
3016 grid%domdesc , & ! Comm
3017 grid%bdy_mask , & ! bdy_mask
3018 dryrun , & ! flag
3019 'XS' , & ! MemoryOrder
3020 '' , & ! Stagger
3021 'south_north' , & ! Dimname 1
3022 'bdy_width' , & ! Dimname 2
3023 'one_element' , & ! Dimname 3
3024 'bdy perturbation dry air mass in column' , & ! Desc
3025 'Pa' , & ! Units
3026 'inc/wrf_bdyout.inc ext_write_field MU_BXS memorder XS' , & ! Debug message
3027 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
3028 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
3029 jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, &
3030 ierr )
3031 END IF
3032 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3033 CALL wrf_ext_write_field ( &
3034 fid , & ! DataHandle
3035 current_date(1:19) , & ! DateStr
3036 'MU_BXE' , & ! Data Name
3037 grid%em_mu_bxe(jms,kds,1) , & ! Field
3038 WRF_FLOAT , & ! FieldType
3039 grid%communicator , & ! Comm
3040 grid%iocommunicator , & ! Comm
3041 grid%domdesc , & ! Comm
3042 grid%bdy_mask , & ! bdy_mask
3043 dryrun , & ! flag
3044 'XE' , & ! MemoryOrder
3045 '' , & ! Stagger
3046 'south_north' , & ! Dimname 1
3047 'bdy_width' , & ! Dimname 2
3048 'one_element' , & ! Dimname 3
3049 'bdy perturbation dry air mass in column' , & ! Desc
3050 'Pa' , & ! Units
3051 'inc/wrf_bdyout.inc ext_write_field MU_BXE memorder XE' , & ! Debug message
3052 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
3053 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
3054 jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, &
3055 ierr )
3056 END IF
3057 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3058 CALL wrf_ext_write_field ( &
3059 fid , & ! DataHandle
3060 current_date(1:19) , & ! DateStr
3061 'MU_BYS' , & ! Data Name
3062 grid%em_mu_bys(ims,kds,1) , & ! Field
3063 WRF_FLOAT , & ! FieldType
3064 grid%communicator , & ! Comm
3065 grid%iocommunicator , & ! Comm
3066 grid%domdesc , & ! Comm
3067 grid%bdy_mask , & ! bdy_mask
3068 dryrun , & ! flag
3069 'YS' , & ! MemoryOrder
3070 '' , & ! Stagger
3071 'west_east' , & ! Dimname 1
3072 'bdy_width' , & ! Dimname 2
3073 'one_element' , & ! Dimname 3
3074 'bdy perturbation dry air mass in column' , & ! Desc
3075 'Pa' , & ! Units
3076 'inc/wrf_bdyout.inc ext_write_field MU_BYS memorder YS' , & ! Debug message
3077 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
3078 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
3079 ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, &
3080 ierr )
3081 END IF
3082 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3083 CALL wrf_ext_write_field ( &
3084 fid , & ! DataHandle
3085 current_date(1:19) , & ! DateStr
3086 'MU_BYE' , & ! Data Name
3087 grid%em_mu_bye(ims,kds,1) , & ! Field
3088 WRF_FLOAT , & ! FieldType
3089 grid%communicator , & ! Comm
3090 grid%iocommunicator , & ! Comm
3091 grid%domdesc , & ! Comm
3092 grid%bdy_mask , & ! bdy_mask
3093 dryrun , & ! flag
3094 'YE' , & ! MemoryOrder
3095 '' , & ! Stagger
3096 'west_east' , & ! Dimname 1
3097 'bdy_width' , & ! Dimname 2
3098 'one_element' , & ! Dimname 3
3099 'bdy perturbation dry air mass in column' , & ! Desc
3100 'Pa' , & ! Units
3101 'inc/wrf_bdyout.inc ext_write_field MU_BYE memorder YE' , & ! Debug message
3102 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
3103 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
3104 ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, &
3105 ierr )
3106 END IF
3107 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3108 CALL wrf_ext_write_field ( &
3109 fid , & ! DataHandle
3110 current_date(1:19) , & ! DateStr
3111 'MU_BTXS' , & ! Data Name
3112 grid%em_mu_btxs(jms,kds,1) , & ! Field
3113 WRF_FLOAT , & ! FieldType
3114 grid%communicator , & ! Comm
3115 grid%iocommunicator , & ! Comm
3116 grid%domdesc , & ! Comm
3117 grid%bdy_mask , & ! bdy_mask
3118 dryrun , & ! flag
3119 'XS' , & ! MemoryOrder
3120 '' , & ! Stagger
3121 'south_north' , & ! Dimname 1
3122 'bdy_width' , & ! Dimname 2
3123 'one_element' , & ! Dimname 3
3124 'bdy tend perturbation dry air mass in column' , & ! Desc
3125 '(Pa)/dt' , & ! Units
3126 'inc/wrf_bdyout.inc ext_write_field MU_BTXS memorder XS' , & ! Debug message
3127 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
3128 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
3129 jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, &
3130 ierr )
3131 END IF
3132 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3133 CALL wrf_ext_write_field ( &
3134 fid , & ! DataHandle
3135 current_date(1:19) , & ! DateStr
3136 'MU_BTXE' , & ! Data Name
3137 grid%em_mu_btxe(jms,kds,1) , & ! Field
3138 WRF_FLOAT , & ! FieldType
3139 grid%communicator , & ! Comm
3140 grid%iocommunicator , & ! Comm
3141 grid%domdesc , & ! Comm
3142 grid%bdy_mask , & ! bdy_mask
3143 dryrun , & ! flag
3144 'XE' , & ! MemoryOrder
3145 '' , & ! Stagger
3146 'south_north' , & ! Dimname 1
3147 'bdy_width' , & ! Dimname 2
3148 'one_element' , & ! Dimname 3
3149 'bdy tend perturbation dry air mass in column' , & ! Desc
3150 '(Pa)/dt' , & ! Units
3151 'inc/wrf_bdyout.inc ext_write_field MU_BTXE memorder XE' , & ! Debug message
3152 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
3153 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
3154 jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, &
3155 ierr )
3156 END IF
3157 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3158 CALL wrf_ext_write_field ( &
3159 fid , & ! DataHandle
3160 current_date(1:19) , & ! DateStr
3161 'MU_BTYS' , & ! Data Name
3162 grid%em_mu_btys(ims,kds,1) , & ! Field
3163 WRF_FLOAT , & ! FieldType
3164 grid%communicator , & ! Comm
3165 grid%iocommunicator , & ! Comm
3166 grid%domdesc , & ! Comm
3167 grid%bdy_mask , & ! bdy_mask
3168 dryrun , & ! flag
3169 'YS' , & ! MemoryOrder
3170 '' , & ! Stagger
3171 'west_east' , & ! Dimname 1
3172 'bdy_width' , & ! Dimname 2
3173 'one_element' , & ! Dimname 3
3174 'bdy tend perturbation dry air mass in column' , & ! Desc
3175 '(Pa)/dt' , & ! Units
3176 'inc/wrf_bdyout.inc ext_write_field MU_BTYS memorder YS' , & ! Debug message
3177 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
3178 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
3179 ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, &
3180 ierr )
3181 END IF
3182 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3183 CALL wrf_ext_write_field ( &
3184 fid , & ! DataHandle
3185 current_date(1:19) , & ! DateStr
3186 'MU_BTYE' , & ! Data Name
3187 grid%em_mu_btye(ims,kds,1) , & ! Field
3188 WRF_FLOAT , & ! FieldType
3189 grid%communicator , & ! Comm
3190 grid%iocommunicator , & ! Comm
3191 grid%domdesc , & ! Comm
3192 grid%bdy_mask , & ! bdy_mask
3193 dryrun , & ! flag
3194 'YE' , & ! MemoryOrder
3195 '' , & ! Stagger
3196 'west_east' , & ! Dimname 1
3197 'bdy_width' , & ! Dimname 2
3198 'one_element' , & ! Dimname 3
3199 'bdy tend perturbation dry air mass in column' , & ! Desc
3200 '(Pa)/dt' , & ! Units
3201 'inc/wrf_bdyout.inc ext_write_field MU_BTYE memorder YE' , & ! Debug message
3202 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
3203 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
3204 ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, &
3205 ierr )
3206 END IF
3207 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
3208 CALL wrf_ext_write_field ( &
3209 fid , & ! DataHandle
3210 current_date(1:19) , & ! DateStr
3211 'A_MU_BXS' , & ! Data Name
3212 grid%a_mu_bxs(jms,kds,1) , & ! Field
3213 WRF_FLOAT , & ! FieldType
3214 grid%communicator , & ! Comm
3215 grid%iocommunicator , & ! Comm
3216 grid%domdesc , & ! Comm
3217 grid%bdy_mask , & ! bdy_mask
3218 dryrun , & ! flag
3219 'XS' , & ! MemoryOrder
3220 '' , & ! Stagger
3221 'south_north' , & ! Dimname 1
3222 'bdy_width' , & ! Dimname 2
3223 'one_element' , & ! Dimname 3
3224 'bdy perturbation dry air mass in column' , & ! Desc
3225 'Pa' , & ! Units
3226 'inc/wrf_bdyout.inc ext_write_field A_MU_BXS memorder XS' , & ! Debug message
3227 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
3228 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
3229 jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, &
3230 ierr )
3231 END IF
3232 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
3233 CALL wrf_ext_write_field ( &
3234 fid , & ! DataHandle
3235 current_date(1:19) , & ! DateStr
3236 'A_MU_BXE' , & ! Data Name
3237 grid%a_mu_bxe(jms,kds,1) , & ! Field
3238 WRF_FLOAT , & ! FieldType
3239 grid%communicator , & ! Comm
3240 grid%iocommunicator , & ! Comm
3241 grid%domdesc , & ! Comm
3242 grid%bdy_mask , & ! bdy_mask
3243 dryrun , & ! flag
3244 'XE' , & ! MemoryOrder
3245 '' , & ! Stagger
3246 'south_north' , & ! Dimname 1
3247 'bdy_width' , & ! Dimname 2
3248 'one_element' , & ! Dimname 3
3249 'bdy perturbation dry air mass in column' , & ! Desc
3250 'Pa' , & ! Units
3251 'inc/wrf_bdyout.inc ext_write_field A_MU_BXE memorder XE' , & ! Debug message
3252 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
3253 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
3254 jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, &
3255 ierr )
3256 END IF
3257 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
3258 CALL wrf_ext_write_field ( &
3259 fid , & ! DataHandle
3260 current_date(1:19) , & ! DateStr
3261 'A_MU_BYS' , & ! Data Name
3262 grid%a_mu_bys(ims,kds,1) , & ! Field
3263 WRF_FLOAT , & ! FieldType
3264 grid%communicator , & ! Comm
3265 grid%iocommunicator , & ! Comm
3266 grid%domdesc , & ! Comm
3267 grid%bdy_mask , & ! bdy_mask
3268 dryrun , & ! flag
3269 'YS' , & ! MemoryOrder
3270 '' , & ! Stagger
3271 'west_east' , & ! Dimname 1
3272 'bdy_width' , & ! Dimname 2
3273 'one_element' , & ! Dimname 3
3274 'bdy perturbation dry air mass in column' , & ! Desc
3275 'Pa' , & ! Units
3276 'inc/wrf_bdyout.inc ext_write_field A_MU_BYS memorder YS' , & ! Debug message
3277 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
3278 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
3279 ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, &
3280 ierr )
3281 END IF
3282 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
3283 CALL wrf_ext_write_field ( &
3284 fid , & ! DataHandle
3285 current_date(1:19) , & ! DateStr
3286 'A_MU_BYE' , & ! Data Name
3287 grid%a_mu_bye(ims,kds,1) , & ! Field
3288 WRF_FLOAT , & ! FieldType
3289 grid%communicator , & ! Comm
3290 grid%iocommunicator , & ! Comm
3291 grid%domdesc , & ! Comm
3292 grid%bdy_mask , & ! bdy_mask
3293 dryrun , & ! flag
3294 'YE' , & ! MemoryOrder
3295 '' , & ! Stagger
3296 'west_east' , & ! Dimname 1
3297 'bdy_width' , & ! Dimname 2
3298 'one_element' , & ! Dimname 3
3299 'bdy perturbation dry air mass in column' , & ! Desc
3300 'Pa' , & ! Units
3301 'inc/wrf_bdyout.inc ext_write_field A_MU_BYE memorder YE' , & ! Debug message
3302 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
3303 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
3304 ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, &
3305 ierr )
3306 END IF
3307 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
3308 CALL wrf_ext_write_field ( &
3309 fid , & ! DataHandle
3310 current_date(1:19) , & ! DateStr
3311 'A_MU_BTXS' , & ! Data Name
3312 grid%a_mu_btxs(jms,kds,1) , & ! Field
3313 WRF_FLOAT , & ! FieldType
3314 grid%communicator , & ! Comm
3315 grid%iocommunicator , & ! Comm
3316 grid%domdesc , & ! Comm
3317 grid%bdy_mask , & ! bdy_mask
3318 dryrun , & ! flag
3319 'XS' , & ! MemoryOrder
3320 '' , & ! Stagger
3321 'south_north' , & ! Dimname 1
3322 'bdy_width' , & ! Dimname 2
3323 'one_element' , & ! Dimname 3
3324 'bdy tend perturbation dry air mass in column' , & ! Desc
3325 '(Pa)/dt' , & ! Units
3326 'inc/wrf_bdyout.inc ext_write_field A_MU_BTXS memorder XS' , & ! Debug message
3327 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
3328 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
3329 jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, &
3330 ierr )
3331 END IF
3332 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
3333 CALL wrf_ext_write_field ( &
3334 fid , & ! DataHandle
3335 current_date(1:19) , & ! DateStr
3336 'A_MU_BTXE' , & ! Data Name
3337 grid%a_mu_btxe(jms,kds,1) , & ! Field
3338 WRF_FLOAT , & ! FieldType
3339 grid%communicator , & ! Comm
3340 grid%iocommunicator , & ! Comm
3341 grid%domdesc , & ! Comm
3342 grid%bdy_mask , & ! bdy_mask
3343 dryrun , & ! flag
3344 'XE' , & ! MemoryOrder
3345 '' , & ! Stagger
3346 'south_north' , & ! Dimname 1
3347 'bdy_width' , & ! Dimname 2
3348 'one_element' , & ! Dimname 3
3349 'bdy tend perturbation dry air mass in column' , & ! Desc
3350 '(Pa)/dt' , & ! Units
3351 'inc/wrf_bdyout.inc ext_write_field A_MU_BTXE memorder XE' , & ! Debug message
3352 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
3353 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
3354 jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, &
3355 ierr )
3356 END IF
3357 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
3358 CALL wrf_ext_write_field ( &
3359 fid , & ! DataHandle
3360 current_date(1:19) , & ! DateStr
3361 'A_MU_BTYS' , & ! Data Name
3362 grid%a_mu_btys(ims,kds,1) , & ! Field
3363 WRF_FLOAT , & ! FieldType
3364 grid%communicator , & ! Comm
3365 grid%iocommunicator , & ! Comm
3366 grid%domdesc , & ! Comm
3367 grid%bdy_mask , & ! bdy_mask
3368 dryrun , & ! flag
3369 'YS' , & ! MemoryOrder
3370 '' , & ! Stagger
3371 'west_east' , & ! Dimname 1
3372 'bdy_width' , & ! Dimname 2
3373 'one_element' , & ! Dimname 3
3374 'bdy tend perturbation dry air mass in column' , & ! Desc
3375 '(Pa)/dt' , & ! Units
3376 'inc/wrf_bdyout.inc ext_write_field A_MU_BTYS memorder YS' , & ! Debug message
3377 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
3378 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
3379 ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, &
3380 ierr )
3381 END IF
3382 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
3383 CALL wrf_ext_write_field ( &
3384 fid , & ! DataHandle
3385 current_date(1:19) , & ! DateStr
3386 'A_MU_BTYE' , & ! Data Name
3387 grid%a_mu_btye(ims,kds,1) , & ! Field
3388 WRF_FLOAT , & ! FieldType
3389 grid%communicator , & ! Comm
3390 grid%iocommunicator , & ! Comm
3391 grid%domdesc , & ! Comm
3392 grid%bdy_mask , & ! bdy_mask
3393 dryrun , & ! flag
3394 'YE' , & ! MemoryOrder
3395 '' , & ! Stagger
3396 'west_east' , & ! Dimname 1
3397 'bdy_width' , & ! Dimname 2
3398 'one_element' , & ! Dimname 3
3399 'bdy tend perturbation dry air mass in column' , & ! Desc
3400 '(Pa)/dt' , & ! Units
3401 'inc/wrf_bdyout.inc ext_write_field A_MU_BTYE memorder YE' , & ! Debug message
3402 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
3403 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
3404 ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, &
3405 ierr )
3406 END IF
3407 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
3408 CALL wrf_ext_write_field ( &
3409 fid , & ! DataHandle
3410 current_date(1:19) , & ! DateStr
3411 'G_MU_BXS' , & ! Data Name
3412 grid%g_mu_bxs(jms,kds,1) , & ! Field
3413 WRF_FLOAT , & ! FieldType
3414 grid%communicator , & ! Comm
3415 grid%iocommunicator , & ! Comm
3416 grid%domdesc , & ! Comm
3417 grid%bdy_mask , & ! bdy_mask
3418 dryrun , & ! flag
3419 'XS' , & ! MemoryOrder
3420 '' , & ! Stagger
3421 'south_north' , & ! Dimname 1
3422 'bdy_width' , & ! Dimname 2
3423 'one_element' , & ! Dimname 3
3424 'bdy perturbation dry air mass in column' , & ! Desc
3425 'Pa' , & ! Units
3426 'inc/wrf_bdyout.inc ext_write_field G_MU_BXS memorder XS' , & ! Debug message
3427 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
3428 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
3429 jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, &
3430 ierr )
3431 END IF
3432 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
3433 CALL wrf_ext_write_field ( &
3434 fid , & ! DataHandle
3435 current_date(1:19) , & ! DateStr
3436 'G_MU_BXE' , & ! Data Name
3437 grid%g_mu_bxe(jms,kds,1) , & ! Field
3438 WRF_FLOAT , & ! FieldType
3439 grid%communicator , & ! Comm
3440 grid%iocommunicator , & ! Comm
3441 grid%domdesc , & ! Comm
3442 grid%bdy_mask , & ! bdy_mask
3443 dryrun , & ! flag
3444 'XE' , & ! MemoryOrder
3445 '' , & ! Stagger
3446 'south_north' , & ! Dimname 1
3447 'bdy_width' , & ! Dimname 2
3448 'one_element' , & ! Dimname 3
3449 'bdy perturbation dry air mass in column' , & ! Desc
3450 'Pa' , & ! Units
3451 'inc/wrf_bdyout.inc ext_write_field G_MU_BXE memorder XE' , & ! Debug message
3452 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
3453 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
3454 jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, &
3455 ierr )
3456 END IF
3457 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
3458 CALL wrf_ext_write_field ( &
3459 fid , & ! DataHandle
3460 current_date(1:19) , & ! DateStr
3461 'G_MU_BYS' , & ! Data Name
3462 grid%g_mu_bys(ims,kds,1) , & ! Field
3463 WRF_FLOAT , & ! FieldType
3464 grid%communicator , & ! Comm
3465 grid%iocommunicator , & ! Comm
3466 grid%domdesc , & ! Comm
3467 grid%bdy_mask , & ! bdy_mask
3468 dryrun , & ! flag
3469 'YS' , & ! MemoryOrder
3470 '' , & ! Stagger
3471 'west_east' , & ! Dimname 1
3472 'bdy_width' , & ! Dimname 2
3473 'one_element' , & ! Dimname 3
3474 'bdy perturbation dry air mass in column' , & ! Desc
3475 'Pa' , & ! Units
3476 'inc/wrf_bdyout.inc ext_write_field G_MU_BYS memorder YS' , & ! Debug message
3477 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
3478 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
3479 ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, &
3480 ierr )
3481 END IF
3482 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
3483 CALL wrf_ext_write_field ( &
3484 fid , & ! DataHandle
3485 current_date(1:19) , & ! DateStr
3486 'G_MU_BYE' , & ! Data Name
3487 grid%g_mu_bye(ims,kds,1) , & ! Field
3488 WRF_FLOAT , & ! FieldType
3489 grid%communicator , & ! Comm
3490 grid%iocommunicator , & ! Comm
3491 grid%domdesc , & ! Comm
3492 grid%bdy_mask , & ! bdy_mask
3493 dryrun , & ! flag
3494 'YE' , & ! MemoryOrder
3495 '' , & ! Stagger
3496 'west_east' , & ! Dimname 1
3497 'bdy_width' , & ! Dimname 2
3498 'one_element' , & ! Dimname 3
3499 'bdy perturbation dry air mass in column' , & ! Desc
3500 'Pa' , & ! Units
3501 'inc/wrf_bdyout.inc ext_write_field G_MU_BYE memorder YE' , & ! Debug message
3502 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
3503 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
3504 ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, &
3505 ierr )
3506 END IF
3507 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
3508 CALL wrf_ext_write_field ( &
3509 fid , & ! DataHandle
3510 current_date(1:19) , & ! DateStr
3511 'G_MU_BTXS' , & ! Data Name
3512 grid%g_mu_btxs(jms,kds,1) , & ! Field
3513 WRF_FLOAT , & ! FieldType
3514 grid%communicator , & ! Comm
3515 grid%iocommunicator , & ! Comm
3516 grid%domdesc , & ! Comm
3517 grid%bdy_mask , & ! bdy_mask
3518 dryrun , & ! flag
3519 'XS' , & ! MemoryOrder
3520 '' , & ! Stagger
3521 'south_north' , & ! Dimname 1
3522 'bdy_width' , & ! Dimname 2
3523 'one_element' , & ! Dimname 3
3524 'bdy tend perturbation dry air mass in column' , & ! Desc
3525 '(Pa)/dt' , & ! Units
3526 'inc/wrf_bdyout.inc ext_write_field G_MU_BTXS memorder XS' , & ! Debug message
3527 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
3528 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
3529 jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, &
3530 ierr )
3531 END IF
3532 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
3533 CALL wrf_ext_write_field ( &
3534 fid , & ! DataHandle
3535 current_date(1:19) , & ! DateStr
3536 'G_MU_BTXE' , & ! Data Name
3537 grid%g_mu_btxe(jms,kds,1) , & ! Field
3538 WRF_FLOAT , & ! FieldType
3539 grid%communicator , & ! Comm
3540 grid%iocommunicator , & ! Comm
3541 grid%domdesc , & ! Comm
3542 grid%bdy_mask , & ! bdy_mask
3543 dryrun , & ! flag
3544 'XE' , & ! MemoryOrder
3545 '' , & ! Stagger
3546 'south_north' , & ! Dimname 1
3547 'bdy_width' , & ! Dimname 2
3548 'one_element' , & ! Dimname 3
3549 'bdy tend perturbation dry air mass in column' , & ! Desc
3550 '(Pa)/dt' , & ! Units
3551 'inc/wrf_bdyout.inc ext_write_field G_MU_BTXE memorder XE' , & ! Debug message
3552 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, &
3553 jms, jme, 1, config_flags%spec_bdy_width, 1, 1, &
3554 jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, &
3555 ierr )
3556 END IF
3557 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
3558 CALL wrf_ext_write_field ( &
3559 fid , & ! DataHandle
3560 current_date(1:19) , & ! DateStr
3561 'G_MU_BTYS' , & ! Data Name
3562 grid%g_mu_btys(ims,kds,1) , & ! Field
3563 WRF_FLOAT , & ! FieldType
3564 grid%communicator , & ! Comm
3565 grid%iocommunicator , & ! Comm
3566 grid%domdesc , & ! Comm
3567 grid%bdy_mask , & ! bdy_mask
3568 dryrun , & ! flag
3569 'YS' , & ! MemoryOrder
3570 '' , & ! Stagger
3571 'west_east' , & ! Dimname 1
3572 'bdy_width' , & ! Dimname 2
3573 'one_element' , & ! Dimname 3
3574 'bdy tend perturbation dry air mass in column' , & ! Desc
3575 '(Pa)/dt' , & ! Units
3576 'inc/wrf_bdyout.inc ext_write_field G_MU_BTYS memorder YS' , & ! Debug message
3577 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
3578 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
3579 ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, &
3580 ierr )
3581 END IF
3582 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
3583 CALL wrf_ext_write_field ( &
3584 fid , & ! DataHandle
3585 current_date(1:19) , & ! DateStr
3586 'G_MU_BTYE' , & ! Data Name
3587 grid%g_mu_btye(ims,kds,1) , & ! Field
3588 WRF_FLOAT , & ! FieldType
3589 grid%communicator , & ! Comm
3590 grid%iocommunicator , & ! Comm
3591 grid%domdesc , & ! Comm
3592 grid%bdy_mask , & ! bdy_mask
3593 dryrun , & ! flag
3594 'YE' , & ! MemoryOrder
3595 '' , & ! Stagger
3596 'west_east' , & ! Dimname 1
3597 'bdy_width' , & ! Dimname 2
3598 'one_element' , & ! Dimname 3
3599 'bdy tend perturbation dry air mass in column' , & ! Desc
3600 '(Pa)/dt' , & ! Units
3601 'inc/wrf_bdyout.inc ext_write_field G_MU_BTYE memorder YE' , & ! Debug message
3602 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, &
3603 ims, ime, 1, config_flags%spec_bdy_width, 1, 1, &
3604 ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, &
3605 ierr )
3606 END IF
3607 DO itrace = PARAM_FIRST_SCALAR , num_moist
3608 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
3609 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
3610 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
3611 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
3612 CALL wrf_ext_write_field ( &
3613 fid , & ! DataHandle
3614 current_date(1:19) , & ! DateStr
3615 TRIM(moist_dname_table( grid%id, itrace )) // '_BXS', & !data name
3616 grid%moist_BXS(jms,kds,1,itrace) , & ! Field
3617 WRF_FLOAT , & ! FieldType
3618 grid%communicator , & ! Comm
3619 grid%iocommunicator , & ! Comm
3620 grid%domdesc , & ! Comm
3621 grid%bdy_mask , & ! bdy_mask
3622 dryrun , & ! flag
3623 'XSZ' , & ! MemoryOrder
3624 '' , & ! Stagger
3625 'south_north' , & ! Dimname 1
3626 'bottom_top' , & ! Dimname 2
3627 'bdy_width' , & ! Dimname 3
3628 moist_desc_table( grid%id, itrace ), & ! Desc
3629 moist_units_table( grid%id, itrace ), & ! Units
3630 'inc/wrf_bdyout.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
3631 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3632 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3633 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3634 ierr )
3635 CALL wrf_ext_write_field ( &
3636 fid , & ! DataHandle
3637 current_date(1:19) , & ! DateStr
3638 TRIM(moist_dname_table( grid%id, itrace )) // '_BXE', & !data name
3639 grid%moist_BXE(jms,kds,1,itrace) , & ! Field
3640 WRF_FLOAT , & ! FieldType
3641 grid%communicator , & ! Comm
3642 grid%iocommunicator , & ! Comm
3643 grid%domdesc , & ! Comm
3644 grid%bdy_mask , & ! bdy_mask
3645 dryrun , & ! flag
3646 'XEZ' , & ! MemoryOrder
3647 '' , & ! Stagger
3648 'south_north' , & ! Dimname 1
3649 'bottom_top' , & ! Dimname 2
3650 'bdy_width' , & ! Dimname 3
3651 moist_desc_table( grid%id, itrace ), & ! Desc
3652 moist_units_table( grid%id, itrace ), & ! Units
3653 'inc/wrf_bdyout.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
3654 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3655 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3656 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3657 ierr )
3658 CALL wrf_ext_write_field ( &
3659 fid , & ! DataHandle
3660 current_date(1:19) , & ! DateStr
3661 TRIM(moist_dname_table( grid%id, itrace )) // '_BYS', & !data name
3662 grid%moist_BYS(ims,kds,1,itrace) , & ! Field
3663 WRF_FLOAT , & ! FieldType
3664 grid%communicator , & ! Comm
3665 grid%iocommunicator , & ! Comm
3666 grid%domdesc , & ! Comm
3667 grid%bdy_mask , & ! bdy_mask
3668 dryrun , & ! flag
3669 'YSZ' , & ! MemoryOrder
3670 '' , & ! Stagger
3671 'west_east' , & ! Dimname 1
3672 'bottom_top' , & ! Dimname 2
3673 'bdy_width' , & ! Dimname 3
3674 moist_desc_table( grid%id, itrace ), & ! Desc
3675 moist_units_table( grid%id, itrace ), & ! Units
3676 'inc/wrf_bdyout.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
3677 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3678 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3679 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3680 ierr )
3681 CALL wrf_ext_write_field ( &
3682 fid , & ! DataHandle
3683 current_date(1:19) , & ! DateStr
3684 TRIM(moist_dname_table( grid%id, itrace )) // '_BYE', & !data name
3685 grid%moist_BYE(ims,kds,1,itrace) , & ! Field
3686 WRF_FLOAT , & ! FieldType
3687 grid%communicator , & ! Comm
3688 grid%iocommunicator , & ! Comm
3689 grid%domdesc , & ! Comm
3690 grid%bdy_mask , & ! bdy_mask
3691 dryrun , & ! flag
3692 'YEZ' , & ! MemoryOrder
3693 '' , & ! Stagger
3694 'west_east' , & ! Dimname 1
3695 'bottom_top' , & ! Dimname 2
3696 'bdy_width' , & ! Dimname 3
3697 moist_desc_table( grid%id, itrace ), & ! Desc
3698 moist_units_table( grid%id, itrace ), & ! Units
3699 'inc/wrf_bdyout.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
3700 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3701 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3702 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3703 ierr )
3704 ENDIF
3705 ENDIF
3706 ENDDO
3707 DO itrace = PARAM_FIRST_SCALAR , num_moist
3708 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
3709 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
3710 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
3711 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
3712 CALL wrf_ext_write_field ( &
3713 fid , & ! DataHandle
3714 current_date(1:19) , & ! DateStr
3715 TRIM(moist_dname_table( grid%id, itrace )) // '_BTXS', & !data name
3716 grid%moist_BTXS(jms,kds,1,itrace) , & ! Field
3717 WRF_FLOAT , & ! FieldType
3718 grid%communicator , & ! Comm
3719 grid%iocommunicator , & ! Comm
3720 grid%domdesc , & ! Comm
3721 grid%bdy_mask , & ! bdy_mask
3722 dryrun , & ! flag
3723 'XSZ' , & ! MemoryOrder
3724 '' , & ! Stagger
3725 'south_north' , & ! Dimname 1
3726 'bottom_top' , & ! Dimname 2
3727 'bdy_width' , & ! Dimname 3
3728 moist_desc_table( grid%id, itrace ), & ! Desc
3729 moist_units_table( grid%id, itrace ), & ! Units
3730 'inc/wrf_bdyout.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
3731 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3732 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3733 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3734 ierr )
3735 CALL wrf_ext_write_field ( &
3736 fid , & ! DataHandle
3737 current_date(1:19) , & ! DateStr
3738 TRIM(moist_dname_table( grid%id, itrace )) // '_BTXE', & !data name
3739 grid%moist_BTXE(jms,kds,1,itrace) , & ! Field
3740 WRF_FLOAT , & ! FieldType
3741 grid%communicator , & ! Comm
3742 grid%iocommunicator , & ! Comm
3743 grid%domdesc , & ! Comm
3744 grid%bdy_mask , & ! bdy_mask
3745 dryrun , & ! flag
3746 'XEZ' , & ! MemoryOrder
3747 '' , & ! Stagger
3748 'south_north' , & ! Dimname 1
3749 'bottom_top' , & ! Dimname 2
3750 'bdy_width' , & ! Dimname 3
3751 moist_desc_table( grid%id, itrace ), & ! Desc
3752 moist_units_table( grid%id, itrace ), & ! Units
3753 'inc/wrf_bdyout.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
3754 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3755 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3756 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3757 ierr )
3758 CALL wrf_ext_write_field ( &
3759 fid , & ! DataHandle
3760 current_date(1:19) , & ! DateStr
3761 TRIM(moist_dname_table( grid%id, itrace )) // '_BTYS', & !data name
3762 grid%moist_BTYS(ims,kds,1,itrace) , & ! Field
3763 WRF_FLOAT , & ! FieldType
3764 grid%communicator , & ! Comm
3765 grid%iocommunicator , & ! Comm
3766 grid%domdesc , & ! Comm
3767 grid%bdy_mask , & ! bdy_mask
3768 dryrun , & ! flag
3769 'YSZ' , & ! MemoryOrder
3770 '' , & ! Stagger
3771 'west_east' , & ! Dimname 1
3772 'bottom_top' , & ! Dimname 2
3773 'bdy_width' , & ! Dimname 3
3774 moist_desc_table( grid%id, itrace ), & ! Desc
3775 moist_units_table( grid%id, itrace ), & ! Units
3776 'inc/wrf_bdyout.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
3777 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3778 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3779 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3780 ierr )
3781 CALL wrf_ext_write_field ( &
3782 fid , & ! DataHandle
3783 current_date(1:19) , & ! DateStr
3784 TRIM(moist_dname_table( grid%id, itrace )) // '_BTYE', & !data name
3785 grid%moist_BTYE(ims,kds,1,itrace) , & ! Field
3786 WRF_FLOAT , & ! FieldType
3787 grid%communicator , & ! Comm
3788 grid%iocommunicator , & ! Comm
3789 grid%domdesc , & ! Comm
3790 grid%bdy_mask , & ! bdy_mask
3791 dryrun , & ! flag
3792 'YEZ' , & ! MemoryOrder
3793 '' , & ! Stagger
3794 'west_east' , & ! Dimname 1
3795 'bottom_top' , & ! Dimname 2
3796 'bdy_width' , & ! Dimname 3
3797 moist_desc_table( grid%id, itrace ), & ! Desc
3798 moist_units_table( grid%id, itrace ), & ! Units
3799 'inc/wrf_bdyout.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
3800 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3801 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3802 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3803 ierr )
3804 ENDIF
3805 ENDIF
3806 ENDDO
3807 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
3808 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
3809 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
3810 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
3811 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
3812 CALL wrf_ext_write_field ( &
3813 fid , & ! DataHandle
3814 current_date(1:19) , & ! DateStr
3815 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BXS', & !data name
3816 grid%a_moist_BXS(jms,kds,1,itrace) , & ! Field
3817 WRF_FLOAT , & ! FieldType
3818 grid%communicator , & ! Comm
3819 grid%iocommunicator , & ! Comm
3820 grid%domdesc , & ! Comm
3821 grid%bdy_mask , & ! bdy_mask
3822 dryrun , & ! flag
3823 'XSZ' , & ! MemoryOrder
3824 '' , & ! Stagger
3825 'south_north' , & ! Dimname 1
3826 'bottom_top' , & ! Dimname 2
3827 'bdy_width' , & ! Dimname 3
3828 a_moist_desc_table( grid%id, itrace ), & ! Desc
3829 a_moist_units_table( grid%id, itrace ), & ! Units
3830 'inc/wrf_bdyout.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
3831 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3832 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3833 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3834 ierr )
3835 CALL wrf_ext_write_field ( &
3836 fid , & ! DataHandle
3837 current_date(1:19) , & ! DateStr
3838 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BXE', & !data name
3839 grid%a_moist_BXE(jms,kds,1,itrace) , & ! Field
3840 WRF_FLOAT , & ! FieldType
3841 grid%communicator , & ! Comm
3842 grid%iocommunicator , & ! Comm
3843 grid%domdesc , & ! Comm
3844 grid%bdy_mask , & ! bdy_mask
3845 dryrun , & ! flag
3846 'XEZ' , & ! MemoryOrder
3847 '' , & ! Stagger
3848 'south_north' , & ! Dimname 1
3849 'bottom_top' , & ! Dimname 2
3850 'bdy_width' , & ! Dimname 3
3851 a_moist_desc_table( grid%id, itrace ), & ! Desc
3852 a_moist_units_table( grid%id, itrace ), & ! Units
3853 'inc/wrf_bdyout.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
3854 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3855 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3856 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3857 ierr )
3858 CALL wrf_ext_write_field ( &
3859 fid , & ! DataHandle
3860 current_date(1:19) , & ! DateStr
3861 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BYS', & !data name
3862 grid%a_moist_BYS(ims,kds,1,itrace) , & ! Field
3863 WRF_FLOAT , & ! FieldType
3864 grid%communicator , & ! Comm
3865 grid%iocommunicator , & ! Comm
3866 grid%domdesc , & ! Comm
3867 grid%bdy_mask , & ! bdy_mask
3868 dryrun , & ! flag
3869 'YSZ' , & ! MemoryOrder
3870 '' , & ! Stagger
3871 'west_east' , & ! Dimname 1
3872 'bottom_top' , & ! Dimname 2
3873 'bdy_width' , & ! Dimname 3
3874 a_moist_desc_table( grid%id, itrace ), & ! Desc
3875 a_moist_units_table( grid%id, itrace ), & ! Units
3876 'inc/wrf_bdyout.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
3877 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3878 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3879 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3880 ierr )
3881 CALL wrf_ext_write_field ( &
3882 fid , & ! DataHandle
3883 current_date(1:19) , & ! DateStr
3884 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BYE', & !data name
3885 grid%a_moist_BYE(ims,kds,1,itrace) , & ! Field
3886 WRF_FLOAT , & ! FieldType
3887 grid%communicator , & ! Comm
3888 grid%iocommunicator , & ! Comm
3889 grid%domdesc , & ! Comm
3890 grid%bdy_mask , & ! bdy_mask
3891 dryrun , & ! flag
3892 'YEZ' , & ! MemoryOrder
3893 '' , & ! Stagger
3894 'west_east' , & ! Dimname 1
3895 'bottom_top' , & ! Dimname 2
3896 'bdy_width' , & ! Dimname 3
3897 a_moist_desc_table( grid%id, itrace ), & ! Desc
3898 a_moist_units_table( grid%id, itrace ), & ! Units
3899 'inc/wrf_bdyout.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
3900 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3901 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3902 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3903 ierr )
3904 ENDIF
3905 ENDIF
3906 ENDDO
3907 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
3908 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
3909 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
3910 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
3911 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
3912 CALL wrf_ext_write_field ( &
3913 fid , & ! DataHandle
3914 current_date(1:19) , & ! DateStr
3915 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTXS', & !data name
3916 grid%a_moist_BTXS(jms,kds,1,itrace) , & ! Field
3917 WRF_FLOAT , & ! FieldType
3918 grid%communicator , & ! Comm
3919 grid%iocommunicator , & ! Comm
3920 grid%domdesc , & ! Comm
3921 grid%bdy_mask , & ! bdy_mask
3922 dryrun , & ! flag
3923 'XSZ' , & ! MemoryOrder
3924 '' , & ! Stagger
3925 'south_north' , & ! Dimname 1
3926 'bottom_top' , & ! Dimname 2
3927 'bdy_width' , & ! Dimname 3
3928 a_moist_desc_table( grid%id, itrace ), & ! Desc
3929 a_moist_units_table( grid%id, itrace ), & ! Units
3930 'inc/wrf_bdyout.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
3931 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3932 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3933 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3934 ierr )
3935 CALL wrf_ext_write_field ( &
3936 fid , & ! DataHandle
3937 current_date(1:19) , & ! DateStr
3938 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTXE', & !data name
3939 grid%a_moist_BTXE(jms,kds,1,itrace) , & ! Field
3940 WRF_FLOAT , & ! FieldType
3941 grid%communicator , & ! Comm
3942 grid%iocommunicator , & ! Comm
3943 grid%domdesc , & ! Comm
3944 grid%bdy_mask , & ! bdy_mask
3945 dryrun , & ! flag
3946 'XEZ' , & ! MemoryOrder
3947 '' , & ! Stagger
3948 'south_north' , & ! Dimname 1
3949 'bottom_top' , & ! Dimname 2
3950 'bdy_width' , & ! Dimname 3
3951 a_moist_desc_table( grid%id, itrace ), & ! Desc
3952 a_moist_units_table( grid%id, itrace ), & ! Units
3953 'inc/wrf_bdyout.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
3954 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3955 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
3956 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3957 ierr )
3958 CALL wrf_ext_write_field ( &
3959 fid , & ! DataHandle
3960 current_date(1:19) , & ! DateStr
3961 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTYS', & !data name
3962 grid%a_moist_BTYS(ims,kds,1,itrace) , & ! Field
3963 WRF_FLOAT , & ! FieldType
3964 grid%communicator , & ! Comm
3965 grid%iocommunicator , & ! Comm
3966 grid%domdesc , & ! Comm
3967 grid%bdy_mask , & ! bdy_mask
3968 dryrun , & ! flag
3969 'YSZ' , & ! MemoryOrder
3970 '' , & ! Stagger
3971 'west_east' , & ! Dimname 1
3972 'bottom_top' , & ! Dimname 2
3973 'bdy_width' , & ! Dimname 3
3974 a_moist_desc_table( grid%id, itrace ), & ! Desc
3975 a_moist_units_table( grid%id, itrace ), & ! Units
3976 'inc/wrf_bdyout.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
3977 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3978 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
3979 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
3980 ierr )
3981 CALL wrf_ext_write_field ( &
3982 fid , & ! DataHandle
3983 current_date(1:19) , & ! DateStr
3984 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTYE', & !data name
3985 grid%a_moist_BTYE(ims,kds,1,itrace) , & ! Field
3986 WRF_FLOAT , & ! FieldType
3987 grid%communicator , & ! Comm
3988 grid%iocommunicator , & ! Comm
3989 grid%domdesc , & ! Comm
3990 grid%bdy_mask , & ! bdy_mask
3991 dryrun , & ! flag
3992 'YEZ' , & ! MemoryOrder
3993 '' , & ! Stagger
3994 'west_east' , & ! Dimname 1
3995 'bottom_top' , & ! Dimname 2
3996 'bdy_width' , & ! Dimname 3
3997 a_moist_desc_table( grid%id, itrace ), & ! Desc
3998 a_moist_units_table( grid%id, itrace ), & ! Units
3999 'inc/wrf_bdyout.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
4000 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4001 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
4002 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4003 ierr )
4004 ENDIF
4005 ENDIF
4006 ENDDO
4007 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
4008 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
4009 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
4010 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
4011 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
4012 CALL wrf_ext_write_field ( &
4013 fid , & ! DataHandle
4014 current_date(1:19) , & ! DateStr
4015 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BXS', & !data name
4016 grid%g_moist_BXS(jms,kds,1,itrace) , & ! Field
4017 WRF_FLOAT , & ! FieldType
4018 grid%communicator , & ! Comm
4019 grid%iocommunicator , & ! Comm
4020 grid%domdesc , & ! Comm
4021 grid%bdy_mask , & ! bdy_mask
4022 dryrun , & ! flag
4023 'XSZ' , & ! MemoryOrder
4024 '' , & ! Stagger
4025 'south_north' , & ! Dimname 1
4026 'bottom_top' , & ! Dimname 2
4027 'bdy_width' , & ! Dimname 3
4028 g_moist_desc_table( grid%id, itrace ), & ! Desc
4029 g_moist_units_table( grid%id, itrace ), & ! Units
4030 'inc/wrf_bdyout.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
4031 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4032 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
4033 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4034 ierr )
4035 CALL wrf_ext_write_field ( &
4036 fid , & ! DataHandle
4037 current_date(1:19) , & ! DateStr
4038 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BXE', & !data name
4039 grid%g_moist_BXE(jms,kds,1,itrace) , & ! Field
4040 WRF_FLOAT , & ! FieldType
4041 grid%communicator , & ! Comm
4042 grid%iocommunicator , & ! Comm
4043 grid%domdesc , & ! Comm
4044 grid%bdy_mask , & ! bdy_mask
4045 dryrun , & ! flag
4046 'XEZ' , & ! MemoryOrder
4047 '' , & ! Stagger
4048 'south_north' , & ! Dimname 1
4049 'bottom_top' , & ! Dimname 2
4050 'bdy_width' , & ! Dimname 3
4051 g_moist_desc_table( grid%id, itrace ), & ! Desc
4052 g_moist_units_table( grid%id, itrace ), & ! Units
4053 'inc/wrf_bdyout.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
4054 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4055 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
4056 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4057 ierr )
4058 CALL wrf_ext_write_field ( &
4059 fid , & ! DataHandle
4060 current_date(1:19) , & ! DateStr
4061 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BYS', & !data name
4062 grid%g_moist_BYS(ims,kds,1,itrace) , & ! Field
4063 WRF_FLOAT , & ! FieldType
4064 grid%communicator , & ! Comm
4065 grid%iocommunicator , & ! Comm
4066 grid%domdesc , & ! Comm
4067 grid%bdy_mask , & ! bdy_mask
4068 dryrun , & ! flag
4069 'YSZ' , & ! MemoryOrder
4070 '' , & ! Stagger
4071 'west_east' , & ! Dimname 1
4072 'bottom_top' , & ! Dimname 2
4073 'bdy_width' , & ! Dimname 3
4074 g_moist_desc_table( grid%id, itrace ), & ! Desc
4075 g_moist_units_table( grid%id, itrace ), & ! Units
4076 'inc/wrf_bdyout.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
4077 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4078 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
4079 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4080 ierr )
4081 CALL wrf_ext_write_field ( &
4082 fid , & ! DataHandle
4083 current_date(1:19) , & ! DateStr
4084 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BYE', & !data name
4085 grid%g_moist_BYE(ims,kds,1,itrace) , & ! Field
4086 WRF_FLOAT , & ! FieldType
4087 grid%communicator , & ! Comm
4088 grid%iocommunicator , & ! Comm
4089 grid%domdesc , & ! Comm
4090 grid%bdy_mask , & ! bdy_mask
4091 dryrun , & ! flag
4092 'YEZ' , & ! MemoryOrder
4093 '' , & ! Stagger
4094 'west_east' , & ! Dimname 1
4095 'bottom_top' , & ! Dimname 2
4096 'bdy_width' , & ! Dimname 3
4097 g_moist_desc_table( grid%id, itrace ), & ! Desc
4098 g_moist_units_table( grid%id, itrace ), & ! Units
4099 'inc/wrf_bdyout.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
4100 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4101 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
4102 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4103 ierr )
4104 ENDIF
4105 ENDIF
4106 ENDDO
4107 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
4108 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
4109 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
4110 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
4111 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
4112 CALL wrf_ext_write_field ( &
4113 fid , & ! DataHandle
4114 current_date(1:19) , & ! DateStr
4115 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTXS', & !data name
4116 grid%g_moist_BTXS(jms,kds,1,itrace) , & ! Field
4117 WRF_FLOAT , & ! FieldType
4118 grid%communicator , & ! Comm
4119 grid%iocommunicator , & ! Comm
4120 grid%domdesc , & ! Comm
4121 grid%bdy_mask , & ! bdy_mask
4122 dryrun , & ! flag
4123 'XSZ' , & ! MemoryOrder
4124 '' , & ! Stagger
4125 'south_north' , & ! Dimname 1
4126 'bottom_top' , & ! Dimname 2
4127 'bdy_width' , & ! Dimname 3
4128 g_moist_desc_table( grid%id, itrace ), & ! Desc
4129 g_moist_units_table( grid%id, itrace ), & ! Units
4130 'inc/wrf_bdyout.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
4131 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4132 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
4133 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4134 ierr )
4135 CALL wrf_ext_write_field ( &
4136 fid , & ! DataHandle
4137 current_date(1:19) , & ! DateStr
4138 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTXE', & !data name
4139 grid%g_moist_BTXE(jms,kds,1,itrace) , & ! Field
4140 WRF_FLOAT , & ! FieldType
4141 grid%communicator , & ! Comm
4142 grid%iocommunicator , & ! Comm
4143 grid%domdesc , & ! Comm
4144 grid%bdy_mask , & ! bdy_mask
4145 dryrun , & ! flag
4146 'XEZ' , & ! MemoryOrder
4147 '' , & ! Stagger
4148 'south_north' , & ! Dimname 1
4149 'bottom_top' , & ! Dimname 2
4150 'bdy_width' , & ! Dimname 3
4151 g_moist_desc_table( grid%id, itrace ), & ! Desc
4152 g_moist_units_table( grid%id, itrace ), & ! Units
4153 'inc/wrf_bdyout.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
4154 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4155 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
4156 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4157 ierr )
4158 CALL wrf_ext_write_field ( &
4159 fid , & ! DataHandle
4160 current_date(1:19) , & ! DateStr
4161 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTYS', & !data name
4162 grid%g_moist_BTYS(ims,kds,1,itrace) , & ! Field
4163 WRF_FLOAT , & ! FieldType
4164 grid%communicator , & ! Comm
4165 grid%iocommunicator , & ! Comm
4166 grid%domdesc , & ! Comm
4167 grid%bdy_mask , & ! bdy_mask
4168 dryrun , & ! flag
4169 'YSZ' , & ! MemoryOrder
4170 '' , & ! Stagger
4171 'west_east' , & ! Dimname 1
4172 'bottom_top' , & ! Dimname 2
4173 'bdy_width' , & ! Dimname 3
4174 g_moist_desc_table( grid%id, itrace ), & ! Desc
4175 g_moist_units_table( grid%id, itrace ), & ! Units
4176 'inc/wrf_bdyout.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
4177 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4178 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
4179 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4180 ierr )
4181 CALL wrf_ext_write_field ( &
4182 fid , & ! DataHandle
4183 current_date(1:19) , & ! DateStr
4184 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTYE', & !data name
4185 grid%g_moist_BTYE(ims,kds,1,itrace) , & ! Field
4186 WRF_FLOAT , & ! FieldType
4187 grid%communicator , & ! Comm
4188 grid%iocommunicator , & ! Comm
4189 grid%domdesc , & ! Comm
4190 grid%bdy_mask , & ! bdy_mask
4191 dryrun , & ! flag
4192 'YEZ' , & ! MemoryOrder
4193 '' , & ! Stagger
4194 'west_east' , & ! Dimname 1
4195 'bottom_top' , & ! Dimname 2
4196 'bdy_width' , & ! Dimname 3
4197 g_moist_desc_table( grid%id, itrace ), & ! Desc
4198 g_moist_units_table( grid%id, itrace ), & ! Units
4199 'inc/wrf_bdyout.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
4200 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4201 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
4202 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4203 ierr )
4204 ENDIF
4205 ENDIF
4206 ENDDO
4207 DO itrace = PARAM_FIRST_SCALAR , num_scalar
4208 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
4209 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
4210 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
4211 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
4212 CALL wrf_ext_write_field ( &
4213 fid , & ! DataHandle
4214 current_date(1:19) , & ! DateStr
4215 TRIM(scalar_dname_table( grid%id, itrace )) // '_BXS', & !data name
4216 grid%scalar_BXS(jms,kds,1,itrace) , & ! Field
4217 WRF_FLOAT , & ! FieldType
4218 grid%communicator , & ! Comm
4219 grid%iocommunicator , & ! Comm
4220 grid%domdesc , & ! Comm
4221 grid%bdy_mask , & ! bdy_mask
4222 dryrun , & ! flag
4223 'XSZ' , & ! MemoryOrder
4224 '' , & ! Stagger
4225 'south_north' , & ! Dimname 1
4226 'bottom_top' , & ! Dimname 2
4227 'bdy_width' , & ! Dimname 3
4228 scalar_desc_table( grid%id, itrace ), & ! Desc
4229 scalar_units_table( grid%id, itrace ), & ! Units
4230 'inc/wrf_bdyout.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
4231 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4232 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
4233 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4234 ierr )
4235 CALL wrf_ext_write_field ( &
4236 fid , & ! DataHandle
4237 current_date(1:19) , & ! DateStr
4238 TRIM(scalar_dname_table( grid%id, itrace )) // '_BXE', & !data name
4239 grid%scalar_BXE(jms,kds,1,itrace) , & ! Field
4240 WRF_FLOAT , & ! FieldType
4241 grid%communicator , & ! Comm
4242 grid%iocommunicator , & ! Comm
4243 grid%domdesc , & ! Comm
4244 grid%bdy_mask , & ! bdy_mask
4245 dryrun , & ! flag
4246 'XEZ' , & ! MemoryOrder
4247 '' , & ! Stagger
4248 'south_north' , & ! Dimname 1
4249 'bottom_top' , & ! Dimname 2
4250 'bdy_width' , & ! Dimname 3
4251 scalar_desc_table( grid%id, itrace ), & ! Desc
4252 scalar_units_table( grid%id, itrace ), & ! Units
4253 'inc/wrf_bdyout.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
4254 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4255 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
4256 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4257 ierr )
4258 CALL wrf_ext_write_field ( &
4259 fid , & ! DataHandle
4260 current_date(1:19) , & ! DateStr
4261 TRIM(scalar_dname_table( grid%id, itrace )) // '_BYS', & !data name
4262 grid%scalar_BYS(ims,kds,1,itrace) , & ! Field
4263 WRF_FLOAT , & ! FieldType
4264 grid%communicator , & ! Comm
4265 grid%iocommunicator , & ! Comm
4266 grid%domdesc , & ! Comm
4267 grid%bdy_mask , & ! bdy_mask
4268 dryrun , & ! flag
4269 'YSZ' , & ! MemoryOrder
4270 '' , & ! Stagger
4271 'west_east' , & ! Dimname 1
4272 'bottom_top' , & ! Dimname 2
4273 'bdy_width' , & ! Dimname 3
4274 scalar_desc_table( grid%id, itrace ), & ! Desc
4275 scalar_units_table( grid%id, itrace ), & ! Units
4276 'inc/wrf_bdyout.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
4277 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4278 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
4279 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4280 ierr )
4281 CALL wrf_ext_write_field ( &
4282 fid , & ! DataHandle
4283 current_date(1:19) , & ! DateStr
4284 TRIM(scalar_dname_table( grid%id, itrace )) // '_BYE', & !data name
4285 grid%scalar_BYE(ims,kds,1,itrace) , & ! Field
4286 WRF_FLOAT , & ! FieldType
4287 grid%communicator , & ! Comm
4288 grid%iocommunicator , & ! Comm
4289 grid%domdesc , & ! Comm
4290 grid%bdy_mask , & ! bdy_mask
4291 dryrun , & ! flag
4292 'YEZ' , & ! MemoryOrder
4293 '' , & ! Stagger
4294 'west_east' , & ! Dimname 1
4295 'bottom_top' , & ! Dimname 2
4296 'bdy_width' , & ! Dimname 3
4297 scalar_desc_table( grid%id, itrace ), & ! Desc
4298 scalar_units_table( grid%id, itrace ), & ! Units
4299 'inc/wrf_bdyout.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
4300 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4301 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
4302 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4303 ierr )
4304 ENDIF
4305 ENDIF
4306 ENDDO
4307 DO itrace = PARAM_FIRST_SCALAR , num_scalar
4308 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
4309 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
4310 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
4311 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
4312 CALL wrf_ext_write_field ( &
4313 fid , & ! DataHandle
4314 current_date(1:19) , & ! DateStr
4315 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTXS', & !data name
4316 grid%scalar_BTXS(jms,kds,1,itrace) , & ! Field
4317 WRF_FLOAT , & ! FieldType
4318 grid%communicator , & ! Comm
4319 grid%iocommunicator , & ! Comm
4320 grid%domdesc , & ! Comm
4321 grid%bdy_mask , & ! bdy_mask
4322 dryrun , & ! flag
4323 'XSZ' , & ! MemoryOrder
4324 '' , & ! Stagger
4325 'south_north' , & ! Dimname 1
4326 'bottom_top' , & ! Dimname 2
4327 'bdy_width' , & ! Dimname 3
4328 scalar_desc_table( grid%id, itrace ), & ! Desc
4329 scalar_units_table( grid%id, itrace ), & ! Units
4330 'inc/wrf_bdyout.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
4331 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4332 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
4333 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4334 ierr )
4335 CALL wrf_ext_write_field ( &
4336 fid , & ! DataHandle
4337 current_date(1:19) , & ! DateStr
4338 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTXE', & !data name
4339 grid%scalar_BTXE(jms,kds,1,itrace) , & ! Field
4340 WRF_FLOAT , & ! FieldType
4341 grid%communicator , & ! Comm
4342 grid%iocommunicator , & ! Comm
4343 grid%domdesc , & ! Comm
4344 grid%bdy_mask , & ! bdy_mask
4345 dryrun , & ! flag
4346 'XEZ' , & ! MemoryOrder
4347 '' , & ! Stagger
4348 'south_north' , & ! Dimname 1
4349 'bottom_top' , & ! Dimname 2
4350 'bdy_width' , & ! Dimname 3
4351 scalar_desc_table( grid%id, itrace ), & ! Desc
4352 scalar_units_table( grid%id, itrace ), & ! Units
4353 'inc/wrf_bdyout.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
4354 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4355 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
4356 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4357 ierr )
4358 CALL wrf_ext_write_field ( &
4359 fid , & ! DataHandle
4360 current_date(1:19) , & ! DateStr
4361 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTYS', & !data name
4362 grid%scalar_BTYS(ims,kds,1,itrace) , & ! Field
4363 WRF_FLOAT , & ! FieldType
4364 grid%communicator , & ! Comm
4365 grid%iocommunicator , & ! Comm
4366 grid%domdesc , & ! Comm
4367 grid%bdy_mask , & ! bdy_mask
4368 dryrun , & ! flag
4369 'YSZ' , & ! MemoryOrder
4370 '' , & ! Stagger
4371 'west_east' , & ! Dimname 1
4372 'bottom_top' , & ! Dimname 2
4373 'bdy_width' , & ! Dimname 3
4374 scalar_desc_table( grid%id, itrace ), & ! Desc
4375 scalar_units_table( grid%id, itrace ), & ! Units
4376 'inc/wrf_bdyout.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
4377 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4378 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
4379 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4380 ierr )
4381 CALL wrf_ext_write_field ( &
4382 fid , & ! DataHandle
4383 current_date(1:19) , & ! DateStr
4384 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTYE', & !data name
4385 grid%scalar_BTYE(ims,kds,1,itrace) , & ! Field
4386 WRF_FLOAT , & ! FieldType
4387 grid%communicator , & ! Comm
4388 grid%iocommunicator , & ! Comm
4389 grid%domdesc , & ! Comm
4390 grid%bdy_mask , & ! bdy_mask
4391 dryrun , & ! flag
4392 'YEZ' , & ! MemoryOrder
4393 '' , & ! Stagger
4394 'west_east' , & ! Dimname 1
4395 'bottom_top' , & ! Dimname 2
4396 'bdy_width' , & ! Dimname 3
4397 scalar_desc_table( grid%id, itrace ), & ! Desc
4398 scalar_units_table( grid%id, itrace ), & ! Units
4399 'inc/wrf_bdyout.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
4400 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4401 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
4402 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
4403 ierr )
4404 ENDIF
4405 ENDIF
4406 ENDDO
4407 !ENDOFREGISTRYGENERATEDINCLUDE