wrf_metaget_boundary.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_metaget_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_read_field ( &
13 fid , & ! DataHandle
14 current_date(1:19) , & ! DateStr
15 TRIM(moist_dname_table( grid%id, itrace )) // '_BXS', & !data name
16 grid%moist_BXS(jms,kds,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 'XSZ' , & ! MemoryOrder
23 '' , & ! Stagger
24 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
25 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
26 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
27 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
28 ierr )
29 CALL wrf_ext_read_field ( &
30 fid , & ! DataHandle
31 current_date(1:19) , & ! DateStr
32 TRIM(moist_dname_table( grid%id, itrace )) // '_BXE', & !data name
33 grid%moist_BXE(jms,kds,1,itrace) , & ! Field
34 WRF_FLOAT , & ! FieldType
35 grid%communicator , & ! Comm
36 grid%iocommunicator , & ! Comm
37 grid%domdesc , & ! Comm
38 grid%bdy_mask , & ! bdy_mask
39 'XEZ' , & ! MemoryOrder
40 '' , & ! Stagger
41 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
42 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
43 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
44 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
45 ierr )
46 CALL wrf_ext_read_field ( &
47 fid , & ! DataHandle
48 current_date(1:19) , & ! DateStr
49 TRIM(moist_dname_table( grid%id, itrace )) // '_BYS', & !data name
50 grid%moist_BYS(ims,kds,1,itrace) , & ! Field
51 WRF_FLOAT , & ! FieldType
52 grid%communicator , & ! Comm
53 grid%iocommunicator , & ! Comm
54 grid%domdesc , & ! Comm
55 grid%bdy_mask , & ! bdy_mask
56 'YSZ' , & ! MemoryOrder
57 '' , & ! Stagger
58 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
59 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
60 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
61 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
62 ierr )
63 CALL wrf_ext_read_field ( &
64 fid , & ! DataHandle
65 current_date(1:19) , & ! DateStr
66 TRIM(moist_dname_table( grid%id, itrace )) // '_BYE', & !data name
67 grid%moist_BYE(ims,kds,1,itrace) , & ! Field
68 WRF_FLOAT , & ! FieldType
69 grid%communicator , & ! Comm
70 grid%iocommunicator , & ! Comm
71 grid%domdesc , & ! Comm
72 grid%bdy_mask , & ! bdy_mask
73 'YEZ' , & ! MemoryOrder
74 '' , & ! Stagger
75 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
76 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
77 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
78 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
79 ierr )
80 ENDIF
81 ENDIF
82 ENDDO
83 DO itrace = PARAM_FIRST_SCALAR , num_moist
84 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
85 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
86 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
87 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
88 CALL wrf_ext_read_field ( &
89 fid , & ! DataHandle
90 current_date(1:19) , & ! DateStr
91 TRIM(moist_dname_table( grid%id, itrace )) // '_BTXS', & !data name
92 grid%moist_BTXS(jms,kds,1,itrace) , & ! Field
93 WRF_FLOAT , & ! FieldType
94 grid%communicator , & ! Comm
95 grid%iocommunicator , & ! Comm
96 grid%domdesc , & ! Comm
97 grid%bdy_mask , & ! bdy_mask
98 'XSZ' , & ! MemoryOrder
99 '' , & ! Stagger
100 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
101 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
102 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
103 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
104 ierr )
105 CALL wrf_ext_read_field ( &
106 fid , & ! DataHandle
107 current_date(1:19) , & ! DateStr
108 TRIM(moist_dname_table( grid%id, itrace )) // '_BTXE', & !data name
109 grid%moist_BTXE(jms,kds,1,itrace) , & ! Field
110 WRF_FLOAT , & ! FieldType
111 grid%communicator , & ! Comm
112 grid%iocommunicator , & ! Comm
113 grid%domdesc , & ! Comm
114 grid%bdy_mask , & ! bdy_mask
115 'XEZ' , & ! MemoryOrder
116 '' , & ! Stagger
117 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
118 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
119 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
120 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
121 ierr )
122 CALL wrf_ext_read_field ( &
123 fid , & ! DataHandle
124 current_date(1:19) , & ! DateStr
125 TRIM(moist_dname_table( grid%id, itrace )) // '_BTYS', & !data name
126 grid%moist_BTYS(ims,kds,1,itrace) , & ! Field
127 WRF_FLOAT , & ! FieldType
128 grid%communicator , & ! Comm
129 grid%iocommunicator , & ! Comm
130 grid%domdesc , & ! Comm
131 grid%bdy_mask , & ! bdy_mask
132 'YSZ' , & ! MemoryOrder
133 '' , & ! Stagger
134 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
135 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
136 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
137 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
138 ierr )
139 CALL wrf_ext_read_field ( &
140 fid , & ! DataHandle
141 current_date(1:19) , & ! DateStr
142 TRIM(moist_dname_table( grid%id, itrace )) // '_BTYE', & !data name
143 grid%moist_BTYE(ims,kds,1,itrace) , & ! Field
144 WRF_FLOAT , & ! FieldType
145 grid%communicator , & ! Comm
146 grid%iocommunicator , & ! Comm
147 grid%domdesc , & ! Comm
148 grid%bdy_mask , & ! bdy_mask
149 'YEZ' , & ! MemoryOrder
150 '' , & ! Stagger
151 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
152 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
153 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
154 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
155 ierr )
156 ENDIF
157 ENDIF
158 ENDDO
159 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
160 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
161 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
162 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
163 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
164 CALL wrf_ext_read_field ( &
165 fid , & ! DataHandle
166 current_date(1:19) , & ! DateStr
167 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BXS', & !data name
168 grid%a_moist_BXS(jms,kds,1,itrace) , & ! Field
169 WRF_FLOAT , & ! FieldType
170 grid%communicator , & ! Comm
171 grid%iocommunicator , & ! Comm
172 grid%domdesc , & ! Comm
173 grid%bdy_mask , & ! bdy_mask
174 'XSZ' , & ! MemoryOrder
175 '' , & ! Stagger
176 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
177 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
178 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
179 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
180 ierr )
181 CALL wrf_ext_read_field ( &
182 fid , & ! DataHandle
183 current_date(1:19) , & ! DateStr
184 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BXE', & !data name
185 grid%a_moist_BXE(jms,kds,1,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 'XEZ' , & ! MemoryOrder
192 '' , & ! Stagger
193 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
194 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
195 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
196 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
197 ierr )
198 CALL wrf_ext_read_field ( &
199 fid , & ! DataHandle
200 current_date(1:19) , & ! DateStr
201 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BYS', & !data name
202 grid%a_moist_BYS(ims,kds,1,itrace) , & ! Field
203 WRF_FLOAT , & ! FieldType
204 grid%communicator , & ! Comm
205 grid%iocommunicator , & ! Comm
206 grid%domdesc , & ! Comm
207 grid%bdy_mask , & ! bdy_mask
208 'YSZ' , & ! MemoryOrder
209 '' , & ! Stagger
210 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
211 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
212 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
213 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
214 ierr )
215 CALL wrf_ext_read_field ( &
216 fid , & ! DataHandle
217 current_date(1:19) , & ! DateStr
218 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BYE', & !data name
219 grid%a_moist_BYE(ims,kds,1,itrace) , & ! Field
220 WRF_FLOAT , & ! FieldType
221 grid%communicator , & ! Comm
222 grid%iocommunicator , & ! Comm
223 grid%domdesc , & ! Comm
224 grid%bdy_mask , & ! bdy_mask
225 'YEZ' , & ! MemoryOrder
226 '' , & ! Stagger
227 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
228 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
229 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
230 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
231 ierr )
232 ENDIF
233 ENDIF
234 ENDDO
235 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
236 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
237 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
238 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
239 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
240 CALL wrf_ext_read_field ( &
241 fid , & ! DataHandle
242 current_date(1:19) , & ! DateStr
243 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTXS', & !data name
244 grid%a_moist_BTXS(jms,kds,1,itrace) , & ! Field
245 WRF_FLOAT , & ! FieldType
246 grid%communicator , & ! Comm
247 grid%iocommunicator , & ! Comm
248 grid%domdesc , & ! Comm
249 grid%bdy_mask , & ! bdy_mask
250 'XSZ' , & ! MemoryOrder
251 '' , & ! Stagger
252 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
253 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
254 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
255 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
256 ierr )
257 CALL wrf_ext_read_field ( &
258 fid , & ! DataHandle
259 current_date(1:19) , & ! DateStr
260 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTXE', & !data name
261 grid%a_moist_BTXE(jms,kds,1,itrace) , & ! Field
262 WRF_FLOAT , & ! FieldType
263 grid%communicator , & ! Comm
264 grid%iocommunicator , & ! Comm
265 grid%domdesc , & ! Comm
266 grid%bdy_mask , & ! bdy_mask
267 'XEZ' , & ! MemoryOrder
268 '' , & ! Stagger
269 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
270 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
271 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
272 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
273 ierr )
274 CALL wrf_ext_read_field ( &
275 fid , & ! DataHandle
276 current_date(1:19) , & ! DateStr
277 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTYS', & !data name
278 grid%a_moist_BTYS(ims,kds,1,itrace) , & ! Field
279 WRF_FLOAT , & ! FieldType
280 grid%communicator , & ! Comm
281 grid%iocommunicator , & ! Comm
282 grid%domdesc , & ! Comm
283 grid%bdy_mask , & ! bdy_mask
284 'YSZ' , & ! MemoryOrder
285 '' , & ! Stagger
286 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
287 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
288 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
289 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
290 ierr )
291 CALL wrf_ext_read_field ( &
292 fid , & ! DataHandle
293 current_date(1:19) , & ! DateStr
294 TRIM(a_moist_dname_table( grid%id, itrace )) // '_BTYE', & !data name
295 grid%a_moist_BTYE(ims,kds,1,itrace) , & ! Field
296 WRF_FLOAT , & ! FieldType
297 grid%communicator , & ! Comm
298 grid%iocommunicator , & ! Comm
299 grid%domdesc , & ! Comm
300 grid%bdy_mask , & ! bdy_mask
301 'YEZ' , & ! MemoryOrder
302 '' , & ! Stagger
303 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
304 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
305 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
306 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
307 ierr )
308 ENDIF
309 ENDIF
310 ENDDO
311 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
312 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
313 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
314 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
315 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
316 CALL wrf_ext_read_field ( &
317 fid , & ! DataHandle
318 current_date(1:19) , & ! DateStr
319 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BXS', & !data name
320 grid%g_moist_BXS(jms,kds,1,itrace) , & ! Field
321 WRF_FLOAT , & ! FieldType
322 grid%communicator , & ! Comm
323 grid%iocommunicator , & ! Comm
324 grid%domdesc , & ! Comm
325 grid%bdy_mask , & ! bdy_mask
326 'XSZ' , & ! MemoryOrder
327 '' , & ! Stagger
328 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
329 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
330 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
331 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
332 ierr )
333 CALL wrf_ext_read_field ( &
334 fid , & ! DataHandle
335 current_date(1:19) , & ! DateStr
336 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BXE', & !data name
337 grid%g_moist_BXE(jms,kds,1,itrace) , & ! Field
338 WRF_FLOAT , & ! FieldType
339 grid%communicator , & ! Comm
340 grid%iocommunicator , & ! Comm
341 grid%domdesc , & ! Comm
342 grid%bdy_mask , & ! bdy_mask
343 'XEZ' , & ! MemoryOrder
344 '' , & ! Stagger
345 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
346 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
347 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
348 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
349 ierr )
350 CALL wrf_ext_read_field ( &
351 fid , & ! DataHandle
352 current_date(1:19) , & ! DateStr
353 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BYS', & !data name
354 grid%g_moist_BYS(ims,kds,1,itrace) , & ! Field
355 WRF_FLOAT , & ! FieldType
356 grid%communicator , & ! Comm
357 grid%iocommunicator , & ! Comm
358 grid%domdesc , & ! Comm
359 grid%bdy_mask , & ! bdy_mask
360 'YSZ' , & ! MemoryOrder
361 '' , & ! Stagger
362 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
363 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
364 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
365 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
366 ierr )
367 CALL wrf_ext_read_field ( &
368 fid , & ! DataHandle
369 current_date(1:19) , & ! DateStr
370 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BYE', & !data name
371 grid%g_moist_BYE(ims,kds,1,itrace) , & ! Field
372 WRF_FLOAT , & ! FieldType
373 grid%communicator , & ! Comm
374 grid%iocommunicator , & ! Comm
375 grid%domdesc , & ! Comm
376 grid%bdy_mask , & ! bdy_mask
377 'YEZ' , & ! MemoryOrder
378 '' , & ! Stagger
379 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
380 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
381 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
382 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
383 ierr )
384 ENDIF
385 ENDIF
386 ENDDO
387 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
388 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
389 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
390 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
391 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
392 CALL wrf_ext_read_field ( &
393 fid , & ! DataHandle
394 current_date(1:19) , & ! DateStr
395 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTXS', & !data name
396 grid%g_moist_BTXS(jms,kds,1,itrace) , & ! Field
397 WRF_FLOAT , & ! FieldType
398 grid%communicator , & ! Comm
399 grid%iocommunicator , & ! Comm
400 grid%domdesc , & ! Comm
401 grid%bdy_mask , & ! bdy_mask
402 'XSZ' , & ! MemoryOrder
403 '' , & ! Stagger
404 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
405 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
406 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
407 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
408 ierr )
409 CALL wrf_ext_read_field ( &
410 fid , & ! DataHandle
411 current_date(1:19) , & ! DateStr
412 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTXE', & !data name
413 grid%g_moist_BTXE(jms,kds,1,itrace) , & ! Field
414 WRF_FLOAT , & ! FieldType
415 grid%communicator , & ! Comm
416 grid%iocommunicator , & ! Comm
417 grid%domdesc , & ! Comm
418 grid%bdy_mask , & ! bdy_mask
419 'XEZ' , & ! MemoryOrder
420 '' , & ! Stagger
421 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
422 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
423 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
424 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
425 ierr )
426 CALL wrf_ext_read_field ( &
427 fid , & ! DataHandle
428 current_date(1:19) , & ! DateStr
429 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTYS', & !data name
430 grid%g_moist_BTYS(ims,kds,1,itrace) , & ! Field
431 WRF_FLOAT , & ! FieldType
432 grid%communicator , & ! Comm
433 grid%iocommunicator , & ! Comm
434 grid%domdesc , & ! Comm
435 grid%bdy_mask , & ! bdy_mask
436 'YSZ' , & ! MemoryOrder
437 '' , & ! Stagger
438 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
439 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
440 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
441 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
442 ierr )
443 CALL wrf_ext_read_field ( &
444 fid , & ! DataHandle
445 current_date(1:19) , & ! DateStr
446 TRIM(g_moist_dname_table( grid%id, itrace )) // '_BTYE', & !data name
447 grid%g_moist_BTYE(ims,kds,1,itrace) , & ! Field
448 WRF_FLOAT , & ! FieldType
449 grid%communicator , & ! Comm
450 grid%iocommunicator , & ! Comm
451 grid%domdesc , & ! Comm
452 grid%bdy_mask , & ! bdy_mask
453 'YEZ' , & ! MemoryOrder
454 '' , & ! Stagger
455 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
456 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
457 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
458 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
459 ierr )
460 ENDIF
461 ENDIF
462 ENDDO
463 DO itrace = PARAM_FIRST_SCALAR , num_scalar
464 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
465 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
466 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
467 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
468 CALL wrf_ext_read_field ( &
469 fid , & ! DataHandle
470 current_date(1:19) , & ! DateStr
471 TRIM(scalar_dname_table( grid%id, itrace )) // '_BXS', & !data name
472 grid%scalar_BXS(jms,kds,1,itrace) , & ! Field
473 WRF_FLOAT , & ! FieldType
474 grid%communicator , & ! Comm
475 grid%iocommunicator , & ! Comm
476 grid%domdesc , & ! Comm
477 grid%bdy_mask , & ! bdy_mask
478 'XSZ' , & ! MemoryOrder
479 '' , & ! Stagger
480 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
481 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
482 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
483 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
484 ierr )
485 CALL wrf_ext_read_field ( &
486 fid , & ! DataHandle
487 current_date(1:19) , & ! DateStr
488 TRIM(scalar_dname_table( grid%id, itrace )) // '_BXE', & !data name
489 grid%scalar_BXE(jms,kds,1,itrace) , & ! Field
490 WRF_FLOAT , & ! FieldType
491 grid%communicator , & ! Comm
492 grid%iocommunicator , & ! Comm
493 grid%domdesc , & ! Comm
494 grid%bdy_mask , & ! bdy_mask
495 'XEZ' , & ! MemoryOrder
496 '' , & ! Stagger
497 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
498 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
499 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
500 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
501 ierr )
502 CALL wrf_ext_read_field ( &
503 fid , & ! DataHandle
504 current_date(1:19) , & ! DateStr
505 TRIM(scalar_dname_table( grid%id, itrace )) // '_BYS', & !data name
506 grid%scalar_BYS(ims,kds,1,itrace) , & ! Field
507 WRF_FLOAT , & ! FieldType
508 grid%communicator , & ! Comm
509 grid%iocommunicator , & ! Comm
510 grid%domdesc , & ! Comm
511 grid%bdy_mask , & ! bdy_mask
512 'YSZ' , & ! MemoryOrder
513 '' , & ! Stagger
514 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
515 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
516 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
517 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
518 ierr )
519 CALL wrf_ext_read_field ( &
520 fid , & ! DataHandle
521 current_date(1:19) , & ! DateStr
522 TRIM(scalar_dname_table( grid%id, itrace )) // '_BYE', & !data name
523 grid%scalar_BYE(ims,kds,1,itrace) , & ! Field
524 WRF_FLOAT , & ! FieldType
525 grid%communicator , & ! Comm
526 grid%iocommunicator , & ! Comm
527 grid%domdesc , & ! Comm
528 grid%bdy_mask , & ! bdy_mask
529 'YEZ' , & ! MemoryOrder
530 '' , & ! Stagger
531 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
532 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
533 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
534 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
535 ierr )
536 ENDIF
537 ENDIF
538 ENDDO
539 DO itrace = PARAM_FIRST_SCALAR , num_scalar
540 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
541 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
542 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
543 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
544 CALL wrf_ext_read_field ( &
545 fid , & ! DataHandle
546 current_date(1:19) , & ! DateStr
547 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTXS', & !data name
548 grid%scalar_BTXS(jms,kds,1,itrace) , & ! Field
549 WRF_FLOAT , & ! FieldType
550 grid%communicator , & ! Comm
551 grid%iocommunicator , & ! Comm
552 grid%domdesc , & ! Comm
553 grid%bdy_mask , & ! bdy_mask
554 'XSZ' , & ! MemoryOrder
555 '' , & ! Stagger
556 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XSZ' , & ! Debug message
557 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
558 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
559 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
560 ierr )
561 CALL wrf_ext_read_field ( &
562 fid , & ! DataHandle
563 current_date(1:19) , & ! DateStr
564 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTXE', & !data name
565 grid%scalar_BTXE(jms,kds,1,itrace) , & ! Field
566 WRF_FLOAT , & ! FieldType
567 grid%communicator , & ! Comm
568 grid%iocommunicator , & ! Comm
569 grid%domdesc , & ! Comm
570 grid%bdy_mask , & ! bdy_mask
571 'XEZ' , & ! MemoryOrder
572 '' , & ! Stagger
573 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XEZ' , & ! Debug message
574 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
575 jms, jme, kds, kde, 1, config_flags%spec_bdy_width, &
576 MAX(jms,jds), MIN(jme,(jde-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
577 ierr )
578 CALL wrf_ext_read_field ( &
579 fid , & ! DataHandle
580 current_date(1:19) , & ! DateStr
581 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTYS', & !data name
582 grid%scalar_BTYS(ims,kds,1,itrace) , & ! Field
583 WRF_FLOAT , & ! FieldType
584 grid%communicator , & ! Comm
585 grid%iocommunicator , & ! Comm
586 grid%domdesc , & ! Comm
587 grid%bdy_mask , & ! bdy_mask
588 'YSZ' , & ! MemoryOrder
589 '' , & ! Stagger
590 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YSZ' , & ! Debug message
591 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
592 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
593 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
594 ierr )
595 CALL wrf_ext_read_field ( &
596 fid , & ! DataHandle
597 current_date(1:19) , & ! DateStr
598 TRIM(scalar_dname_table( grid%id, itrace )) // '_BTYE', & !data name
599 grid%scalar_BTYE(ims,kds,1,itrace) , & ! Field
600 WRF_FLOAT , & ! FieldType
601 grid%communicator , & ! Comm
602 grid%iocommunicator , & ! Comm
603 grid%domdesc , & ! Comm
604 grid%bdy_mask , & ! bdy_mask
605 'YEZ' , & ! MemoryOrder
606 '' , & ! Stagger
607 'inc/wrf_metaget_boundary.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder YEZ' , & ! Debug message
608 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, &
609 ims, ime, kds, kde, 1, config_flags%spec_bdy_width, &
610 MAX(ims,ids), MIN(ime,(ide-1)), kds, (kde-1), 1, config_flags%spec_bdy_width, &
611 ierr )
612 ENDIF
613 ENDIF
614 ENDDO