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