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