wrf_metaput_boundary.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_metaput_boundary.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 DO itrace = PARAM_FIRST_SCALAR , num_moist
8 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
9 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
10 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
11 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
12 CALL wrf_ext_write_field ( &
13 fid , & ! DataHandle
14 current_date(1:19) , & ! DateStr
15 TRIM(moist_dname_table( grid%id, itrace )) // '_BXS', & !data name
16 grid%moist_B(1,kds,1,1,itrace) , & ! Field
17 WRF_FLOAT , & ! FieldType
18 grid%communicator , & ! Comm
19 grid%iocommunicator , & ! Comm
20 grid%domdesc , & ! Comm
21 grid%bdy_mask , & ! bdy_mask
22 dryrun , & ! flag
23 'XSZ' , & ! MemoryOrder
24 '' , & ! Stagger
25 'south_north' , & ! Dimname 1
26 'bottom_top' , & ! Dimname 2
27 'bdy_width' , & ! Dimname 3
28 moist_desc_table( grid%id, itrace ), & ! Desc
29 moist_units_table( grid%id, itrace ), & ! Units
30 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
31 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
32 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
33 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
34 ierr )
35 CALL wrf_ext_write_field ( &
36 fid , & ! DataHandle
37 current_date(1:19) , & ! DateStr
38 TRIM(moist_dname_table( grid%id, itrace )) // '_BXE', & !data name
39 grid%moist_B(1,kds,1,2,itrace) , & ! Field
40 WRF_FLOAT , & ! FieldType
41 grid%communicator , & ! Comm
42 grid%iocommunicator , & ! Comm
43 grid%domdesc , & ! Comm
44 grid%bdy_mask , & ! bdy_mask
45 dryrun , & ! flag
46 'XEZ' , & ! MemoryOrder
47 '' , & ! Stagger
48 'south_north' , & ! Dimname 1
49 'bottom_top' , & ! Dimname 2
50 'bdy_width' , & ! Dimname 3
51 moist_desc_table( grid%id, itrace ), & ! Desc
52 moist_units_table( grid%id, itrace ), & ! Units
53 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
54 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
55 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
56 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
57 ierr )
58 CALL wrf_ext_write_field ( &
59 fid , & ! DataHandle
60 current_date(1:19) , & ! DateStr
61 TRIM(moist_dname_table( grid%id, itrace )) // '_BYS', & !data name
62 grid%moist_B(1,kds,1,3,itrace) , & ! 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 '' , & ! Stagger
71 'west_east' , & ! Dimname 1
72 'bottom_top' , & ! Dimname 2
73 'bdy_width' , & ! Dimname 3
74 moist_desc_table( grid%id, itrace ), & ! Desc
75 moist_units_table( grid%id, itrace ), & ! Units
76 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
77 1, (ide-1), 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-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
80 ierr )
81 CALL wrf_ext_write_field ( &
82 fid , & ! DataHandle
83 current_date(1:19) , & ! DateStr
84 TRIM(moist_dname_table( grid%id, itrace )) // '_BYE', & !data name
85 grid%moist_B(1,kds,1,4,itrace) , & ! Field
86 WRF_FLOAT , & ! FieldType
87 grid%communicator , & ! Comm
88 grid%iocommunicator , & ! Comm
89 grid%domdesc , & ! Comm
90 grid%bdy_mask , & ! bdy_mask
91 dryrun , & ! flag
92 'YEZ' , & ! MemoryOrder
93 '' , & ! Stagger
94 'west_east' , & ! Dimname 1
95 'bottom_top' , & ! Dimname 2
96 'bdy_width' , & ! Dimname 3
97 moist_desc_table( grid%id, itrace ), & ! Desc
98 moist_units_table( grid%id, itrace ), & ! Units
99 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
100 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
101 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
102 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
103 ierr )
104 ENDIF
105 ENDIF
106 ENDDO
107 DO itrace = PARAM_FIRST_SCALAR , num_moist
108 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
109 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
110 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
111 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
112 CALL wrf_ext_write_field ( &
113 fid , & ! DataHandle
114 current_date(1:19) , & ! DateStr
115 TRIM(moist_dname_table( grid%id, itrace )) // '_BTXS', & !data name
116 grid%moist_BT(1,kds,1,1,itrace) , & ! Field
117 WRF_FLOAT , & ! FieldType
118 grid%communicator , & ! Comm
119 grid%iocommunicator , & ! Comm
120 grid%domdesc , & ! Comm
121 grid%bdy_mask , & ! bdy_mask
122 dryrun , & ! flag
123 'XSZ' , & ! MemoryOrder
124 '' , & ! Stagger
125 'south_north' , & ! Dimname 1
126 'bottom_top' , & ! Dimname 2
127 'bdy_width' , & ! Dimname 3
128 moist_desc_table( grid%id, itrace ), & ! Desc
129 moist_units_table( grid%id, itrace ), & ! Units
130 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
131 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
132 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
133 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
134 ierr )
135 CALL wrf_ext_write_field ( &
136 fid , & ! DataHandle
137 current_date(1:19) , & ! DateStr
138 TRIM(moist_dname_table( grid%id, itrace )) // '_BTXE', & !data name
139 grid%moist_BT(1,kds,1,2,itrace) , & ! Field
140 WRF_FLOAT , & ! FieldType
141 grid%communicator , & ! Comm
142 grid%iocommunicator , & ! Comm
143 grid%domdesc , & ! Comm
144 grid%bdy_mask , & ! bdy_mask
145 dryrun , & ! flag
146 'XEZ' , & ! MemoryOrder
147 '' , & ! Stagger
148 'south_north' , & ! Dimname 1
149 'bottom_top' , & ! Dimname 2
150 'bdy_width' , & ! Dimname 3
151 moist_desc_table( grid%id, itrace ), & ! Desc
152 moist_units_table( grid%id, itrace ), & ! Units
153 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
154 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
155 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
156 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
157 ierr )
158 CALL wrf_ext_write_field ( &
159 fid , & ! DataHandle
160 current_date(1:19) , & ! DateStr
161 TRIM(moist_dname_table( grid%id, itrace )) // '_BTYS', & !data name
162 grid%moist_BT(1,kds,1,3,itrace) , & ! 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 '' , & ! Stagger
171 'west_east' , & ! Dimname 1
172 'bottom_top' , & ! Dimname 2
173 'bdy_width' , & ! Dimname 3
174 moist_desc_table( grid%id, itrace ), & ! Desc
175 moist_units_table( grid%id, itrace ), & ! Units
176 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
177 1, (ide-1), 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-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
180 ierr )
181 CALL wrf_ext_write_field ( &
182 fid , & ! DataHandle
183 current_date(1:19) , & ! DateStr
184 TRIM(moist_dname_table( grid%id, itrace )) // '_BTYE', & !data name
185 grid%moist_BT(1,kds,1,4,itrace) , & ! Field
186 WRF_FLOAT , & ! FieldType
187 grid%communicator , & ! Comm
188 grid%iocommunicator , & ! Comm
189 grid%domdesc , & ! Comm
190 grid%bdy_mask , & ! bdy_mask
191 dryrun , & ! flag
192 'YEZ' , & ! MemoryOrder
193 '' , & ! Stagger
194 'west_east' , & ! Dimname 1
195 'bottom_top' , & ! Dimname 2
196 'bdy_width' , & ! Dimname 3
197 moist_desc_table( grid%id, itrace ), & ! Desc
198 moist_units_table( grid%id, itrace ), & ! Units
199 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
200 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
201 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
202 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
203 ierr )
204 ENDIF
205 ENDIF
206 ENDDO
207 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
208 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
209 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
210 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
211 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
212 CALL wrf_ext_write_field ( &
213 fid , & ! DataHandle
214 current_date(1:19) , & ! DateStr
215 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BXS', & !data name
216 grid%a_moist_B(1,kds,1,1,itrace) , & ! Field
217 WRF_FLOAT , & ! FieldType
218 grid%communicator , & ! Comm
219 grid%iocommunicator , & ! Comm
220 grid%domdesc , & ! Comm
221 grid%bdy_mask , & ! bdy_mask
222 dryrun , & ! flag
223 'XSZ' , & ! MemoryOrder
224 '' , & ! Stagger
225 'south_north' , & ! Dimname 1
226 'bottom_top' , & ! Dimname 2
227 'bdy_width' , & ! Dimname 3
228 a_moist_desc_table( grid%id, itrace ), & ! Desc
229 a_moist_units_table( grid%id, itrace ), & ! Units
230 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
231 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
232 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
233 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
234 ierr )
235 CALL wrf_ext_write_field ( &
236 fid , & ! DataHandle
237 current_date(1:19) , & ! DateStr
238 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BXE', & !data name
239 grid%a_moist_B(1,kds,1,2,itrace) , & ! Field
240 WRF_FLOAT , & ! FieldType
241 grid%communicator , & ! Comm
242 grid%iocommunicator , & ! Comm
243 grid%domdesc , & ! Comm
244 grid%bdy_mask , & ! bdy_mask
245 dryrun , & ! flag
246 'XEZ' , & ! MemoryOrder
247 '' , & ! Stagger
248 'south_north' , & ! Dimname 1
249 'bottom_top' , & ! Dimname 2
250 'bdy_width' , & ! Dimname 3
251 a_moist_desc_table( grid%id, itrace ), & ! Desc
252 a_moist_units_table( grid%id, itrace ), & ! Units
253 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
254 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
255 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
256 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
257 ierr )
258 CALL wrf_ext_write_field ( &
259 fid , & ! DataHandle
260 current_date(1:19) , & ! DateStr
261 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BYS', & !data name
262 grid%a_moist_B(1,kds,1,3,itrace) , & ! Field
263 WRF_FLOAT , & ! FieldType
264 grid%communicator , & ! Comm
265 grid%iocommunicator , & ! Comm
266 grid%domdesc , & ! Comm
267 grid%bdy_mask , & ! bdy_mask
268 dryrun , & ! flag
269 'YSZ' , & ! MemoryOrder
270 '' , & ! Stagger
271 'west_east' , & ! Dimname 1
272 'bottom_top' , & ! Dimname 2
273 'bdy_width' , & ! Dimname 3
274 a_moist_desc_table( grid%id, itrace ), & ! Desc
275 a_moist_units_table( grid%id, itrace ), & ! Units
276 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
277 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
278 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
279 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
280 ierr )
281 CALL wrf_ext_write_field ( &
282 fid , & ! DataHandle
283 current_date(1:19) , & ! DateStr
284 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BYE', & !data name
285 grid%a_moist_B(1,kds,1,4,itrace) , & ! Field
286 WRF_FLOAT , & ! FieldType
287 grid%communicator , & ! Comm
288 grid%iocommunicator , & ! Comm
289 grid%domdesc , & ! Comm
290 grid%bdy_mask , & ! bdy_mask
291 dryrun , & ! flag
292 'YEZ' , & ! MemoryOrder
293 '' , & ! Stagger
294 'west_east' , & ! Dimname 1
295 'bottom_top' , & ! Dimname 2
296 'bdy_width' , & ! Dimname 3
297 a_moist_desc_table( grid%id, itrace ), & ! Desc
298 a_moist_units_table( grid%id, itrace ), & ! Units
299 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
300 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
301 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
302 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
303 ierr )
304 ENDIF
305 ENDIF
306 ENDDO
307 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
308 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
309 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
310 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
311 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
312 CALL wrf_ext_write_field ( &
313 fid , & ! DataHandle
314 current_date(1:19) , & ! DateStr
315 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTXS', & !data name
316 grid%a_moist_BT(1,kds,1,1,itrace) , & ! Field
317 WRF_FLOAT , & ! FieldType
318 grid%communicator , & ! Comm
319 grid%iocommunicator , & ! Comm
320 grid%domdesc , & ! Comm
321 grid%bdy_mask , & ! bdy_mask
322 dryrun , & ! flag
323 'XSZ' , & ! MemoryOrder
324 '' , & ! Stagger
325 'south_north' , & ! Dimname 1
326 'bottom_top' , & ! Dimname 2
327 'bdy_width' , & ! Dimname 3
328 a_moist_desc_table( grid%id, itrace ), & ! Desc
329 a_moist_units_table( grid%id, itrace ), & ! Units
330 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
331 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
332 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
333 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
334 ierr )
335 CALL wrf_ext_write_field ( &
336 fid , & ! DataHandle
337 current_date(1:19) , & ! DateStr
338 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTXE', & !data name
339 grid%a_moist_BT(1,kds,1,2,itrace) , & ! Field
340 WRF_FLOAT , & ! FieldType
341 grid%communicator , & ! Comm
342 grid%iocommunicator , & ! Comm
343 grid%domdesc , & ! Comm
344 grid%bdy_mask , & ! bdy_mask
345 dryrun , & ! flag
346 'XEZ' , & ! MemoryOrder
347 '' , & ! Stagger
348 'south_north' , & ! Dimname 1
349 'bottom_top' , & ! Dimname 2
350 'bdy_width' , & ! Dimname 3
351 a_moist_desc_table( grid%id, itrace ), & ! Desc
352 a_moist_units_table( grid%id, itrace ), & ! Units
353 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
354 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
355 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
356 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
357 ierr )
358 CALL wrf_ext_write_field ( &
359 fid , & ! DataHandle
360 current_date(1:19) , & ! DateStr
361 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTYS', & !data name
362 grid%a_moist_BT(1,kds,1,3,itrace) , & ! Field
363 WRF_FLOAT , & ! FieldType
364 grid%communicator , & ! Comm
365 grid%iocommunicator , & ! Comm
366 grid%domdesc , & ! Comm
367 grid%bdy_mask , & ! bdy_mask
368 dryrun , & ! flag
369 'YSZ' , & ! MemoryOrder
370 '' , & ! Stagger
371 'west_east' , & ! Dimname 1
372 'bottom_top' , & ! Dimname 2
373 'bdy_width' , & ! Dimname 3
374 a_moist_desc_table( grid%id, itrace ), & ! Desc
375 a_moist_units_table( grid%id, itrace ), & ! Units
376 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
377 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
378 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
379 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
380 ierr )
381 CALL wrf_ext_write_field ( &
382 fid , & ! DataHandle
383 current_date(1:19) , & ! DateStr
384 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTYE', & !data name
385 grid%a_moist_BT(1,kds,1,4,itrace) , & ! Field
386 WRF_FLOAT , & ! FieldType
387 grid%communicator , & ! Comm
388 grid%iocommunicator , & ! Comm
389 grid%domdesc , & ! Comm
390 grid%bdy_mask , & ! bdy_mask
391 dryrun , & ! flag
392 'YEZ' , & ! MemoryOrder
393 '' , & ! Stagger
394 'west_east' , & ! Dimname 1
395 'bottom_top' , & ! Dimname 2
396 'bdy_width' , & ! Dimname 3
397 a_moist_desc_table( grid%id, itrace ), & ! Desc
398 a_moist_units_table( grid%id, itrace ), & ! Units
399 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
400 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
401 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
402 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
403 ierr )
404 ENDIF
405 ENDIF
406 ENDDO
407 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
408 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
409 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
410 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
411 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
412 CALL wrf_ext_write_field ( &
413 fid , & ! DataHandle
414 current_date(1:19) , & ! DateStr
415 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BXS', & !data name
416 grid%g_moist_B(1,kds,1,1,itrace) , & ! Field
417 WRF_FLOAT , & ! FieldType
418 grid%communicator , & ! Comm
419 grid%iocommunicator , & ! Comm
420 grid%domdesc , & ! Comm
421 grid%bdy_mask , & ! bdy_mask
422 dryrun , & ! flag
423 'XSZ' , & ! MemoryOrder
424 '' , & ! Stagger
425 'south_north' , & ! Dimname 1
426 'bottom_top' , & ! Dimname 2
427 'bdy_width' , & ! Dimname 3
428 g_moist_desc_table( grid%id, itrace ), & ! Desc
429 g_moist_units_table( grid%id, itrace ), & ! Units
430 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
431 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
432 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
433 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
434 ierr )
435 CALL wrf_ext_write_field ( &
436 fid , & ! DataHandle
437 current_date(1:19) , & ! DateStr
438 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BXE', & !data name
439 grid%g_moist_B(1,kds,1,2,itrace) , & ! Field
440 WRF_FLOAT , & ! FieldType
441 grid%communicator , & ! Comm
442 grid%iocommunicator , & ! Comm
443 grid%domdesc , & ! Comm
444 grid%bdy_mask , & ! bdy_mask
445 dryrun , & ! flag
446 'XEZ' , & ! MemoryOrder
447 '' , & ! Stagger
448 'south_north' , & ! Dimname 1
449 'bottom_top' , & ! Dimname 2
450 'bdy_width' , & ! Dimname 3
451 g_moist_desc_table( grid%id, itrace ), & ! Desc
452 g_moist_units_table( grid%id, itrace ), & ! Units
453 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
454 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
455 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
456 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
457 ierr )
458 CALL wrf_ext_write_field ( &
459 fid , & ! DataHandle
460 current_date(1:19) , & ! DateStr
461 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BYS', & !data name
462 grid%g_moist_B(1,kds,1,3,itrace) , & ! Field
463 WRF_FLOAT , & ! FieldType
464 grid%communicator , & ! Comm
465 grid%iocommunicator , & ! Comm
466 grid%domdesc , & ! Comm
467 grid%bdy_mask , & ! bdy_mask
468 dryrun , & ! flag
469 'YSZ' , & ! MemoryOrder
470 '' , & ! Stagger
471 'west_east' , & ! Dimname 1
472 'bottom_top' , & ! Dimname 2
473 'bdy_width' , & ! Dimname 3
474 g_moist_desc_table( grid%id, itrace ), & ! Desc
475 g_moist_units_table( grid%id, itrace ), & ! Units
476 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
477 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
478 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
479 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
480 ierr )
481 CALL wrf_ext_write_field ( &
482 fid , & ! DataHandle
483 current_date(1:19) , & ! DateStr
484 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BYE', & !data name
485 grid%g_moist_B(1,kds,1,4,itrace) , & ! Field
486 WRF_FLOAT , & ! FieldType
487 grid%communicator , & ! Comm
488 grid%iocommunicator , & ! Comm
489 grid%domdesc , & ! Comm
490 grid%bdy_mask , & ! bdy_mask
491 dryrun , & ! flag
492 'YEZ' , & ! MemoryOrder
493 '' , & ! Stagger
494 'west_east' , & ! Dimname 1
495 'bottom_top' , & ! Dimname 2
496 'bdy_width' , & ! Dimname 3
497 g_moist_desc_table( grid%id, itrace ), & ! Desc
498 g_moist_units_table( grid%id, itrace ), & ! Units
499 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
500 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
501 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
502 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
503 ierr )
504 ENDIF
505 ENDIF
506 ENDDO
507 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
508 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
509 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
510 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
511 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
512 CALL wrf_ext_write_field ( &
513 fid , & ! DataHandle
514 current_date(1:19) , & ! DateStr
515 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTXS', & !data name
516 grid%g_moist_BT(1,kds,1,1,itrace) , & ! Field
517 WRF_FLOAT , & ! FieldType
518 grid%communicator , & ! Comm
519 grid%iocommunicator , & ! Comm
520 grid%domdesc , & ! Comm
521 grid%bdy_mask , & ! bdy_mask
522 dryrun , & ! flag
523 'XSZ' , & ! MemoryOrder
524 '' , & ! Stagger
525 'south_north' , & ! Dimname 1
526 'bottom_top' , & ! Dimname 2
527 'bdy_width' , & ! Dimname 3
528 g_moist_desc_table( grid%id, itrace ), & ! Desc
529 g_moist_units_table( grid%id, itrace ), & ! Units
530 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
531 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
532 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
533 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
534 ierr )
535 CALL wrf_ext_write_field ( &
536 fid , & ! DataHandle
537 current_date(1:19) , & ! DateStr
538 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTXE', & !data name
539 grid%g_moist_BT(1,kds,1,2,itrace) , & ! Field
540 WRF_FLOAT , & ! FieldType
541 grid%communicator , & ! Comm
542 grid%iocommunicator , & ! Comm
543 grid%domdesc , & ! Comm
544 grid%bdy_mask , & ! bdy_mask
545 dryrun , & ! flag
546 'XEZ' , & ! MemoryOrder
547 '' , & ! Stagger
548 'south_north' , & ! Dimname 1
549 'bottom_top' , & ! Dimname 2
550 'bdy_width' , & ! Dimname 3
551 g_moist_desc_table( grid%id, itrace ), & ! Desc
552 g_moist_units_table( grid%id, itrace ), & ! Units
553 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
554 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
555 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
556 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
557 ierr )
558 CALL wrf_ext_write_field ( &
559 fid , & ! DataHandle
560 current_date(1:19) , & ! DateStr
561 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTYS', & !data name
562 grid%g_moist_BT(1,kds,1,3,itrace) , & ! Field
563 WRF_FLOAT , & ! FieldType
564 grid%communicator , & ! Comm
565 grid%iocommunicator , & ! Comm
566 grid%domdesc , & ! Comm
567 grid%bdy_mask , & ! bdy_mask
568 dryrun , & ! flag
569 'YSZ' , & ! MemoryOrder
570 '' , & ! Stagger
571 'west_east' , & ! Dimname 1
572 'bottom_top' , & ! Dimname 2
573 'bdy_width' , & ! Dimname 3
574 g_moist_desc_table( grid%id, itrace ), & ! Desc
575 g_moist_units_table( grid%id, itrace ), & ! Units
576 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
577 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
578 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
579 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
580 ierr )
581 CALL wrf_ext_write_field ( &
582 fid , & ! DataHandle
583 current_date(1:19) , & ! DateStr
584 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTYE', & !data name
585 grid%g_moist_BT(1,kds,1,4,itrace) , & ! Field
586 WRF_FLOAT , & ! FieldType
587 grid%communicator , & ! Comm
588 grid%iocommunicator , & ! Comm
589 grid%domdesc , & ! Comm
590 grid%bdy_mask , & ! bdy_mask
591 dryrun , & ! flag
592 'YEZ' , & ! MemoryOrder
593 '' , & ! Stagger
594 'west_east' , & ! Dimname 1
595 'bottom_top' , & ! Dimname 2
596 'bdy_width' , & ! Dimname 3
597 g_moist_desc_table( grid%id, itrace ), & ! Desc
598 g_moist_units_table( grid%id, itrace ), & ! Units
599 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
600 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
601 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
602 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
603 ierr )
604 ENDIF
605 ENDIF
606 ENDDO
607 DO itrace = PARAM_FIRST_SCALAR , num_scalar
608 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
609 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
610 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
611 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
612 CALL wrf_ext_write_field ( &
613 fid , & ! DataHandle
614 current_date(1:19) , & ! DateStr
615 TRIM(scalar_dname_table( grid%id, itrace )) // '_BXS', & !data name
616 grid%scalar_B(1,kds,1,1,itrace) , & ! Field
617 WRF_FLOAT , & ! FieldType
618 grid%communicator , & ! Comm
619 grid%iocommunicator , & ! Comm
620 grid%domdesc , & ! Comm
621 grid%bdy_mask , & ! bdy_mask
622 dryrun , & ! flag
623 'XSZ' , & ! MemoryOrder
624 '' , & ! Stagger
625 'south_north' , & ! Dimname 1
626 'bottom_top' , & ! Dimname 2
627 'bdy_width' , & ! Dimname 3
628 scalar_desc_table( grid%id, itrace ), & ! Desc
629 scalar_units_table( grid%id, itrace ), & ! Units
630 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
631 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
632 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
633 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
634 ierr )
635 CALL wrf_ext_write_field ( &
636 fid , & ! DataHandle
637 current_date(1:19) , & ! DateStr
638 TRIM(scalar_dname_table( grid%id, itrace )) // '_BXE', & !data name
639 grid%scalar_B(1,kds,1,2,itrace) , & ! Field
640 WRF_FLOAT , & ! FieldType
641 grid%communicator , & ! Comm
642 grid%iocommunicator , & ! Comm
643 grid%domdesc , & ! Comm
644 grid%bdy_mask , & ! bdy_mask
645 dryrun , & ! flag
646 'XEZ' , & ! MemoryOrder
647 '' , & ! Stagger
648 'south_north' , & ! Dimname 1
649 'bottom_top' , & ! Dimname 2
650 'bdy_width' , & ! Dimname 3
651 scalar_desc_table( grid%id, itrace ), & ! Desc
652 scalar_units_table( grid%id, itrace ), & ! Units
653 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
654 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
655 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
656 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
657 ierr )
658 CALL wrf_ext_write_field ( &
659 fid , & ! DataHandle
660 current_date(1:19) , & ! DateStr
661 TRIM(scalar_dname_table( grid%id, itrace )) // '_BYS', & !data name
662 grid%scalar_B(1,kds,1,3,itrace) , & ! Field
663 WRF_FLOAT , & ! FieldType
664 grid%communicator , & ! Comm
665 grid%iocommunicator , & ! Comm
666 grid%domdesc , & ! Comm
667 grid%bdy_mask , & ! bdy_mask
668 dryrun , & ! flag
669 'YSZ' , & ! MemoryOrder
670 '' , & ! Stagger
671 'west_east' , & ! Dimname 1
672 'bottom_top' , & ! Dimname 2
673 'bdy_width' , & ! Dimname 3
674 scalar_desc_table( grid%id, itrace ), & ! Desc
675 scalar_units_table( grid%id, itrace ), & ! Units
676 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
677 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
678 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
679 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
680 ierr )
681 CALL wrf_ext_write_field ( &
682 fid , & ! DataHandle
683 current_date(1:19) , & ! DateStr
684 TRIM(scalar_dname_table( grid%id, itrace )) // '_BYE', & !data name
685 grid%scalar_B(1,kds,1,4,itrace) , & ! Field
686 WRF_FLOAT , & ! FieldType
687 grid%communicator , & ! Comm
688 grid%iocommunicator , & ! Comm
689 grid%domdesc , & ! Comm
690 grid%bdy_mask , & ! bdy_mask
691 dryrun , & ! flag
692 'YEZ' , & ! MemoryOrder
693 '' , & ! Stagger
694 'west_east' , & ! Dimname 1
695 'bottom_top' , & ! Dimname 2
696 'bdy_width' , & ! Dimname 3
697 scalar_desc_table( grid%id, itrace ), & ! Desc
698 scalar_units_table( grid%id, itrace ), & ! Units
699 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
700 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
701 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
702 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
703 ierr )
704 ENDIF
705 ENDIF
706 ENDDO
707 DO itrace = PARAM_FIRST_SCALAR , num_scalar
708 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
709 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
710 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
711 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
712 CALL wrf_ext_write_field ( &
713 fid , & ! DataHandle
714 current_date(1:19) , & ! DateStr
715 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTXS', & !data name
716 grid%scalar_BT(1,kds,1,1,itrace) , & ! Field
717 WRF_FLOAT , & ! FieldType
718 grid%communicator , & ! Comm
719 grid%iocommunicator , & ! Comm
720 grid%domdesc , & ! Comm
721 grid%bdy_mask , & ! bdy_mask
722 dryrun , & ! flag
723 'XSZ' , & ! MemoryOrder
724 '' , & ! Stagger
725 'south_north' , & ! Dimname 1
726 'bottom_top' , & ! Dimname 2
727 'bdy_width' , & ! Dimname 3
728 scalar_desc_table( grid%id, itrace ), & ! Desc
729 scalar_units_table( grid%id, itrace ), & ! Units
730 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
731 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
732 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
733 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
734 ierr )
735 CALL wrf_ext_write_field ( &
736 fid , & ! DataHandle
737 current_date(1:19) , & ! DateStr
738 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTXE', & !data name
739 grid%scalar_BT(1,kds,1,2,itrace) , & ! Field
740 WRF_FLOAT , & ! FieldType
741 grid%communicator , & ! Comm
742 grid%iocommunicator , & ! Comm
743 grid%domdesc , & ! Comm
744 grid%bdy_mask , & ! bdy_mask
745 dryrun , & ! flag
746 'XEZ' , & ! MemoryOrder
747 '' , & ! Stagger
748 'south_north' , & ! Dimname 1
749 'bottom_top' , & ! Dimname 2
750 'bdy_width' , & ! Dimname 3
751 scalar_desc_table( grid%id, itrace ), & ! Desc
752 scalar_units_table( grid%id, itrace ), & ! Units
753 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
754 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
755 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
756 jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
757 ierr )
758 CALL wrf_ext_write_field ( &
759 fid , & ! DataHandle
760 current_date(1:19) , & ! DateStr
761 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTYS', & !data name
762 grid%scalar_BT(1,kds,1,3,itrace) , & ! Field
763 WRF_FLOAT , & ! FieldType
764 grid%communicator , & ! Comm
765 grid%iocommunicator , & ! Comm
766 grid%domdesc , & ! Comm
767 grid%bdy_mask , & ! bdy_mask
768 dryrun , & ! flag
769 'YSZ' , & ! MemoryOrder
770 '' , & ! Stagger
771 'west_east' , & ! Dimname 1
772 'bottom_top' , & ! Dimname 2
773 'bdy_width' , & ! Dimname 3
774 scalar_desc_table( grid%id, itrace ), & ! Desc
775 scalar_units_table( grid%id, itrace ), & ! Units
776 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
777 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
778 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
779 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
780 ierr )
781 CALL wrf_ext_write_field ( &
782 fid , & ! DataHandle
783 current_date(1:19) , & ! DateStr
784 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTYE', & !data name
785 grid%scalar_BT(1,kds,1,4,itrace) , & ! Field
786 WRF_FLOAT , & ! FieldType
787 grid%communicator , & ! Comm
788 grid%iocommunicator , & ! Comm
789 grid%domdesc , & ! Comm
790 grid%bdy_mask , & ! bdy_mask
791 dryrun , & ! flag
792 'YEZ' , & ! MemoryOrder
793 '' , & ! Stagger
794 'west_east' , & ! Dimname 1
795 'bottom_top' , & ! Dimname 2
796 'bdy_width' , & ! Dimname 3
797 scalar_desc_table( grid%id, itrace ), & ! Desc
798 scalar_units_table( grid%id, itrace ), & ! Units
799 'inc/wrf_metaput_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
800 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
801 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, &
802 ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, &
803 ierr )
804 ENDIF
805 ENDIF
806 ENDDO