wrf_auxhist3out.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxhist3out.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 ( grid%dyn_opt == DYN_EM_AD ) THEN
8 CALL wrf_ext_write_field ( &
9 fid , & ! DataHandle
10 current_date(1:19) , & ! DateStr
11 'A_U' , & ! Data Name
12 grid%a_u_2 , & ! 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 'XYZ' , & ! MemoryOrder
20 'X' , & ! Stagger
21 'west_east_stag' , & ! Dimname 1
22 'south_north' , & ! Dimname 2
23 'bottom_top' , & ! Dimname 3
24 'x-wind component' , & ! Desc
25 'm s-1' , & ! Units
26 'inc/wrf_auxhist3out.inc ext_write_field A_U memorder XYZ' , & ! Debug message
27 ids , ide , jds , (jde-1) , kds , (kde-1) , &
28 ims , ime , jms , jme , kms , kme , &
29 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
30 ierr )
31 END IF
32 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
33 CALL wrf_ext_write_field ( &
34 fid , & ! DataHandle
35 current_date(1:19) , & ! DateStr
36 'G_U' , & ! Data Name
37 grid%g_u_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 'XYZ' , & ! MemoryOrder
45 'X' , & ! Stagger
46 'west_east_stag' , & ! Dimname 1
47 'south_north' , & ! Dimname 2
48 'bottom_top' , & ! Dimname 3
49 'x-wind component' , & ! Desc
50 'm s-1' , & ! Units
51 'inc/wrf_auxhist3out.inc ext_write_field G_U memorder XYZ' , & ! Debug message
52 ids , ide , jds , (jde-1) , kds , (kde-1) , &
53 ims , ime , jms , jme , kms , kme , &
54 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
55 ierr )
56 END IF
57 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
58 CALL wrf_ext_write_field ( &
59 fid , & ! DataHandle
60 current_date(1:19) , & ! DateStr
61 'A_V' , & ! Data Name
62 grid%a_v_2 , & ! 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 'XYZ' , & ! MemoryOrder
70 'Y' , & ! Stagger
71 'west_east' , & ! Dimname 1
72 'south_north_stag' , & ! Dimname 2
73 'bottom_top' , & ! Dimname 3
74 'y-wind component' , & ! Desc
75 'm s-1' , & ! Units
76 'inc/wrf_auxhist3out.inc ext_write_field A_V memorder XYZ' , & ! Debug message
77 ids , (ide-1) , jds , jde , kds , (kde-1) , &
78 ims , ime , jms , jme , kms , kme , &
79 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
80 ierr )
81 END IF
82 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
83 CALL wrf_ext_write_field ( &
84 fid , & ! DataHandle
85 current_date(1:19) , & ! DateStr
86 'G_V' , & ! Data Name
87 grid%g_v_2 , & ! 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 'XYZ' , & ! MemoryOrder
95 'Y' , & ! Stagger
96 'west_east' , & ! Dimname 1
97 'south_north_stag' , & ! Dimname 2
98 'bottom_top' , & ! Dimname 3
99 'y-wind component' , & ! Desc
100 'm s-1' , & ! Units
101 'inc/wrf_auxhist3out.inc ext_write_field G_V memorder XYZ' , & ! Debug message
102 ids , (ide-1) , jds , jde , kds , (kde-1) , &
103 ims , ime , jms , jme , kms , kme , &
104 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
105 ierr )
106 END IF
107 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
108 CALL wrf_ext_write_field ( &
109 fid , & ! DataHandle
110 current_date(1:19) , & ! DateStr
111 'A_W' , & ! Data Name
112 grid%a_w_2 , & ! 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 'XYZ' , & ! MemoryOrder
120 'Z' , & ! Stagger
121 'west_east' , & ! Dimname 1
122 'south_north' , & ! Dimname 2
123 'bottom_top_stag' , & ! Dimname 3
124 'z-wind component' , & ! Desc
125 'm s-1' , & ! Units
126 'inc/wrf_auxhist3out.inc ext_write_field A_W memorder XYZ' , & ! Debug message
127 ids , (ide-1) , jds , (jde-1) , kds , kde , &
128 ims , ime , jms , jme , kms , kme , &
129 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
130 ierr )
131 END IF
132 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
133 CALL wrf_ext_write_field ( &
134 fid , & ! DataHandle
135 current_date(1:19) , & ! DateStr
136 'G_W' , & ! Data Name
137 grid%g_w_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 'XYZ' , & ! MemoryOrder
145 'Z' , & ! Stagger
146 'west_east' , & ! Dimname 1
147 'south_north' , & ! Dimname 2
148 'bottom_top_stag' , & ! Dimname 3
149 'z-wind component' , & ! Desc
150 'm s-1' , & ! Units
151 'inc/wrf_auxhist3out.inc ext_write_field G_W memorder XYZ' , & ! Debug message
152 ids , (ide-1) , jds , (jde-1) , kds , kde , &
153 ims , ime , jms , jme , kms , kme , &
154 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
155 ierr )
156 END IF
157 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
158 CALL wrf_ext_write_field ( &
159 fid , & ! DataHandle
160 current_date(1:19) , & ! DateStr
161 'A_PH' , & ! Data Name
162 grid%a_ph_2 , & ! 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 'XYZ' , & ! MemoryOrder
170 'Z' , & ! Stagger
171 'west_east' , & ! Dimname 1
172 'south_north' , & ! Dimname 2
173 'bottom_top_stag' , & ! Dimname 3
174 'perturbation geopotential' , & ! Desc
175 'm2 s-2' , & ! Units
176 'inc/wrf_auxhist3out.inc ext_write_field A_PH memorder XYZ' , & ! Debug message
177 ids , (ide-1) , jds , (jde-1) , kds , kde , &
178 ims , ime , jms , jme , kms , kme , &
179 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
180 ierr )
181 END IF
182 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
183 CALL wrf_ext_write_field ( &
184 fid , & ! DataHandle
185 current_date(1:19) , & ! DateStr
186 'G_PH' , & ! Data Name
187 grid%g_ph_2 , & ! 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 'XYZ' , & ! MemoryOrder
195 'Z' , & ! Stagger
196 'west_east' , & ! Dimname 1
197 'south_north' , & ! Dimname 2
198 'bottom_top_stag' , & ! Dimname 3
199 'perturbation geopotential' , & ! Desc
200 'm2 s-2' , & ! Units
201 'inc/wrf_auxhist3out.inc ext_write_field G_PH memorder XYZ' , & ! Debug message
202 ids , (ide-1) , jds , (jde-1) , kds , kde , &
203 ims , ime , jms , jme , kms , kme , &
204 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
205 ierr )
206 END IF
207 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
208 CALL wrf_ext_write_field ( &
209 fid , & ! DataHandle
210 current_date(1:19) , & ! DateStr
211 'A_T' , & ! Data Name
212 grid%a_t_2 , & ! Field
213 WRF_FLOAT , & ! FieldType
214 grid%communicator , & ! Comm
215 grid%iocommunicator , & ! Comm
216 grid%domdesc , & ! Comm
217 grid%bdy_mask , & ! bdy_mask
218 dryrun , & ! flag
219 'XYZ' , & ! MemoryOrder
220 '' , & ! Stagger
221 'west_east' , & ! Dimname 1
222 'south_north' , & ! Dimname 2
223 'bottom_top' , & ! Dimname 3
224 'perturbation potential temperature (theta-t0)' , & ! Desc
225 'K' , & ! Units
226 'inc/wrf_auxhist3out.inc ext_write_field A_T memorder XYZ' , & ! Debug message
227 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
228 ims , ime , jms , jme , kms , kme , &
229 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
230 ierr )
231 END IF
232 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
233 CALL wrf_ext_write_field ( &
234 fid , & ! DataHandle
235 current_date(1:19) , & ! DateStr
236 'G_T' , & ! Data Name
237 grid%g_t_2 , & ! Field
238 WRF_FLOAT , & ! FieldType
239 grid%communicator , & ! Comm
240 grid%iocommunicator , & ! Comm
241 grid%domdesc , & ! Comm
242 grid%bdy_mask , & ! bdy_mask
243 dryrun , & ! flag
244 'XYZ' , & ! MemoryOrder
245 '' , & ! Stagger
246 'west_east' , & ! Dimname 1
247 'south_north' , & ! Dimname 2
248 'bottom_top' , & ! Dimname 3
249 'perturbation potential temperature (theta-t0)' , & ! Desc
250 'K' , & ! Units
251 'inc/wrf_auxhist3out.inc ext_write_field G_T memorder XYZ' , & ! Debug message
252 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
253 ims , ime , jms , jme , kms , kme , &
254 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
255 ierr )
256 END IF
257 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
258 CALL wrf_ext_write_field ( &
259 fid , & ! DataHandle
260 current_date(1:19) , & ! DateStr
261 'A_MU' , & ! Data Name
262 grid%a_mu_2 , & ! 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 'XY' , & ! MemoryOrder
270 '' , & ! Stagger
271 'west_east' , & ! Dimname 1
272 'south_north' , & ! Dimname 2
273 '' , & ! Dimname 3
274 'perturbation dry air mass in column' , & ! Desc
275 'Pa' , & ! Units
276 'inc/wrf_auxhist3out.inc ext_write_field A_MU memorder XY' , & ! Debug message
277 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
278 ims , ime , jms , jme , 1 , 1 , &
279 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
280 ierr )
281 END IF
282 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
283 CALL wrf_ext_write_field ( &
284 fid , & ! DataHandle
285 current_date(1:19) , & ! DateStr
286 'G_MU' , & ! Data Name
287 grid%g_mu_2 , & ! Field
288 WRF_FLOAT , & ! FieldType
289 grid%communicator , & ! Comm
290 grid%iocommunicator , & ! Comm
291 grid%domdesc , & ! Comm
292 grid%bdy_mask , & ! bdy_mask
293 dryrun , & ! flag
294 'XY' , & ! MemoryOrder
295 '' , & ! Stagger
296 'west_east' , & ! Dimname 1
297 'south_north' , & ! Dimname 2
298 '' , & ! Dimname 3
299 'perturbation dry air mass in column' , & ! Desc
300 'Pa' , & ! Units
301 'inc/wrf_auxhist3out.inc ext_write_field G_MU memorder XY' , & ! Debug message
302 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
303 ims , ime , jms , jme , 1 , 1 , &
304 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
305 ierr )
306 END IF
307 DO itrace = PARAM_FIRST_SCALAR , num_moist
308 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
309 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
310 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
311 (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(moist_dname_table( grid%id, itrace )), & !data name
316 grid%moist(ims,jms,kms,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 'XYZ' , & ! MemoryOrder
324 '' , & ! Stagger
325 'west_east' , & ! Dimname 1
326 'south_north' , & ! Dimname 2
327 'bottom_top' , & ! Dimname 3
328 moist_desc_table( grid%id, itrace ), & ! Desc
329 moist_units_table( grid%id, itrace ), & ! Units
330 'inc/wrf_auxhist3out.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
331 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
332 ims , ime , jms , jme , kms , kme , &
333 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
334 ierr )
335 ENDIF
336 ENDIF
337 ENDDO
338 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
339 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
340 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
341 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
342 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
343 CALL wrf_ext_write_field ( &
344 fid , & ! DataHandle
345 current_date(1:19) , & ! DateStr
346 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
347 grid%a_moist(ims,jms,kms,itrace) , & ! Field
348 WRF_FLOAT , & ! FieldType
349 grid%communicator , & ! Comm
350 grid%iocommunicator , & ! Comm
351 grid%domdesc , & ! Comm
352 grid%bdy_mask , & ! bdy_mask
353 dryrun , & ! flag
354 'XYZ' , & ! MemoryOrder
355 '' , & ! Stagger
356 'west_east' , & ! Dimname 1
357 'south_north' , & ! Dimname 2
358 'bottom_top' , & ! Dimname 3
359 a_moist_desc_table( grid%id, itrace ), & ! Desc
360 a_moist_units_table( grid%id, itrace ), & ! Units
361 'inc/wrf_auxhist3out.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
362 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
363 ims , ime , jms , jme , kms , kme , &
364 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
365 ierr )
366 ENDIF
367 ENDIF
368 ENDDO
369 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
370 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
371 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
372 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
373 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
374 CALL wrf_ext_write_field ( &
375 fid , & ! DataHandle
376 current_date(1:19) , & ! DateStr
377 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
378 grid%g_moist(ims,jms,kms,itrace) , & ! Field
379 WRF_FLOAT , & ! FieldType
380 grid%communicator , & ! Comm
381 grid%iocommunicator , & ! Comm
382 grid%domdesc , & ! Comm
383 grid%bdy_mask , & ! bdy_mask
384 dryrun , & ! flag
385 'XYZ' , & ! MemoryOrder
386 '' , & ! Stagger
387 'west_east' , & ! Dimname 1
388 'south_north' , & ! Dimname 2
389 'bottom_top' , & ! Dimname 3
390 g_moist_desc_table( grid%id, itrace ), & ! Desc
391 g_moist_units_table( grid%id, itrace ), & ! Units
392 'inc/wrf_auxhist3out.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
393 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
394 ims , ime , jms , jme , kms , kme , &
395 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
396 ierr )
397 ENDIF
398 ENDIF
399 ENDDO
400 DO itrace = PARAM_FIRST_SCALAR , num_scalar
401 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
402 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
403 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
404 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
405 CALL wrf_ext_write_field ( &
406 fid , & ! DataHandle
407 current_date(1:19) , & ! DateStr
408 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
409 grid%scalar(ims,jms,kms,itrace) , & ! Field
410 WRF_FLOAT , & ! FieldType
411 grid%communicator , & ! Comm
412 grid%iocommunicator , & ! Comm
413 grid%domdesc , & ! Comm
414 grid%bdy_mask , & ! bdy_mask
415 dryrun , & ! flag
416 'XYZ' , & ! MemoryOrder
417 '' , & ! Stagger
418 'west_east' , & ! Dimname 1
419 'south_north' , & ! Dimname 2
420 'bottom_top' , & ! Dimname 3
421 scalar_desc_table( grid%id, itrace ), & ! Desc
422 scalar_units_table( grid%id, itrace ), & ! Units
423 'inc/wrf_auxhist3out.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
424 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
425 ims , ime , jms , jme , kms , kme , &
426 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
427 ierr )
428 ENDIF
429 ENDIF
430 ENDDO
431 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
432 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
433 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
434 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
435 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
436 CALL wrf_ext_write_field ( &
437 fid , & ! DataHandle
438 current_date(1:19) , & ! DateStr
439 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
440 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
441 WRF_FLOAT , & ! FieldType
442 grid%communicator , & ! Comm
443 grid%iocommunicator , & ! Comm
444 grid%domdesc , & ! Comm
445 grid%bdy_mask , & ! bdy_mask
446 dryrun , & ! flag
447 'XYZ' , & ! MemoryOrder
448 '' , & ! Stagger
449 'west_east' , & ! Dimname 1
450 'south_north' , & ! Dimname 2
451 'bottom_top' , & ! Dimname 3
452 a_scalar_desc_table( grid%id, itrace ), & ! Desc
453 a_scalar_units_table( grid%id, itrace ), & ! Units
454 'inc/wrf_auxhist3out.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
455 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
456 ims , ime , jms , jme , kms , kme , &
457 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
458 ierr )
459 ENDIF
460 ENDIF
461 ENDDO
462 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
463 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
464 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
465 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
466 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
467 CALL wrf_ext_write_field ( &
468 fid , & ! DataHandle
469 current_date(1:19) , & ! DateStr
470 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
471 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
472 WRF_FLOAT , & ! FieldType
473 grid%communicator , & ! Comm
474 grid%iocommunicator , & ! Comm
475 grid%domdesc , & ! Comm
476 grid%bdy_mask , & ! bdy_mask
477 dryrun , & ! flag
478 'XYZ' , & ! MemoryOrder
479 '' , & ! Stagger
480 'west_east' , & ! Dimname 1
481 'south_north' , & ! Dimname 2
482 'bottom_top' , & ! Dimname 3
483 g_scalar_desc_table( grid%id, itrace ), & ! Desc
484 g_scalar_units_table( grid%id, itrace ), & ! Units
485 'inc/wrf_auxhist3out.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
486 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
487 ims , ime , jms , jme , kms , kme , &
488 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
489 ierr )
490 ENDIF
491 ENDIF
492 ENDDO
493 !ENDOFREGISTRYGENERATEDINCLUDE