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 CALL wrf_ext_write_field ( &
9 fid , & ! DataHandle
10 current_date(1:19) , & ! DateStr
11 'U' , & ! Data Name
12 grid%em_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 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 ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
33 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
34 CALL wrf_ext_write_field ( &
35 fid , & ! DataHandle
36 current_date(1:19) , & ! DateStr
37 'A_U' , & ! Data Name
38 grid%em_a_u_2 , & ! Field
39 WRF_FLOAT , & ! FieldType
40 grid%communicator , & ! Comm
41 grid%iocommunicator , & ! Comm
42 grid%domdesc , & ! Comm
43 grid%bdy_mask , & ! bdy_mask
44 dryrun , & ! flag
45 'XYZ' , & ! MemoryOrder
46 'X' , & ! Stagger
47 'west_east_stag' , & ! Dimname 1
48 'south_north' , & ! Dimname 2
49 'bottom_top' , & ! Dimname 3
50 'x-wind component' , & ! Desc
51 'm s-1' , & ! Units
52 'inc/wrf_auxhist3out.inc ext_write_field A_U memorder XYZ' , & ! Debug message
53 ids , ide , jds , (jde-1) , kds , (kde-1) , &
54 ims , ime , jms , jme , kms , kme , &
55 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
56 ierr )
57 END IF
58 END IF
59 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
60 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
61 CALL wrf_ext_write_field ( &
62 fid , & ! DataHandle
63 current_date(1:19) , & ! DateStr
64 'G_U' , & ! Data Name
65 grid%em_g_u_2 , & ! Field
66 WRF_FLOAT , & ! FieldType
67 grid%communicator , & ! Comm
68 grid%iocommunicator , & ! Comm
69 grid%domdesc , & ! Comm
70 grid%bdy_mask , & ! bdy_mask
71 dryrun , & ! flag
72 'XYZ' , & ! MemoryOrder
73 'X' , & ! Stagger
74 'west_east_stag' , & ! Dimname 1
75 'south_north' , & ! Dimname 2
76 'bottom_top' , & ! Dimname 3
77 'x-wind component' , & ! Desc
78 'm s-1' , & ! Units
79 'inc/wrf_auxhist3out.inc ext_write_field G_U memorder XYZ' , & ! Debug message
80 ids , ide , jds , (jde-1) , kds , (kde-1) , &
81 ims , ime , jms , jme , kms , kme , &
82 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
83 ierr )
84 END IF
85 END IF
86 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
87 CALL wrf_ext_write_field ( &
88 fid , & ! DataHandle
89 current_date(1:19) , & ! DateStr
90 'V' , & ! Data Name
91 grid%em_v_2 , & ! Field
92 WRF_FLOAT , & ! FieldType
93 grid%communicator , & ! Comm
94 grid%iocommunicator , & ! Comm
95 grid%domdesc , & ! Comm
96 grid%bdy_mask , & ! bdy_mask
97 dryrun , & ! flag
98 'XYZ' , & ! MemoryOrder
99 'Y' , & ! Stagger
100 'west_east' , & ! Dimname 1
101 'south_north_stag' , & ! Dimname 2
102 'bottom_top' , & ! Dimname 3
103 'y-wind component' , & ! Desc
104 'm s-1' , & ! Units
105 'inc/wrf_auxhist3out.inc ext_write_field V memorder XYZ' , & ! Debug message
106 ids , (ide-1) , jds , jde , kds , (kde-1) , &
107 ims , ime , jms , jme , kms , kme , &
108 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
109 ierr )
110 END IF
111 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
112 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
113 CALL wrf_ext_write_field ( &
114 fid , & ! DataHandle
115 current_date(1:19) , & ! DateStr
116 'A_V' , & ! Data Name
117 grid%em_a_v_2 , & ! Field
118 WRF_FLOAT , & ! FieldType
119 grid%communicator , & ! Comm
120 grid%iocommunicator , & ! Comm
121 grid%domdesc , & ! Comm
122 grid%bdy_mask , & ! bdy_mask
123 dryrun , & ! flag
124 'XYZ' , & ! MemoryOrder
125 'Y' , & ! Stagger
126 'west_east' , & ! Dimname 1
127 'south_north_stag' , & ! Dimname 2
128 'bottom_top' , & ! Dimname 3
129 'y-wind component' , & ! Desc
130 'm s-1' , & ! Units
131 'inc/wrf_auxhist3out.inc ext_write_field A_V memorder XYZ' , & ! Debug message
132 ids , (ide-1) , jds , jde , kds , (kde-1) , &
133 ims , ime , jms , jme , kms , kme , &
134 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
135 ierr )
136 END IF
137 END IF
138 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
139 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
140 CALL wrf_ext_write_field ( &
141 fid , & ! DataHandle
142 current_date(1:19) , & ! DateStr
143 'G_V' , & ! Data Name
144 grid%em_g_v_2 , & ! Field
145 WRF_FLOAT , & ! FieldType
146 grid%communicator , & ! Comm
147 grid%iocommunicator , & ! Comm
148 grid%domdesc , & ! Comm
149 grid%bdy_mask , & ! bdy_mask
150 dryrun , & ! flag
151 'XYZ' , & ! MemoryOrder
152 'Y' , & ! Stagger
153 'west_east' , & ! Dimname 1
154 'south_north_stag' , & ! Dimname 2
155 'bottom_top' , & ! Dimname 3
156 'y-wind component' , & ! Desc
157 'm s-1' , & ! Units
158 'inc/wrf_auxhist3out.inc ext_write_field G_V memorder XYZ' , & ! Debug message
159 ids , (ide-1) , jds , jde , kds , (kde-1) , &
160 ims , ime , jms , jme , kms , kme , &
161 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
162 ierr )
163 END IF
164 END IF
165 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
166 CALL wrf_ext_write_field ( &
167 fid , & ! DataHandle
168 current_date(1:19) , & ! DateStr
169 'W' , & ! Data Name
170 grid%em_w_2 , & ! Field
171 WRF_FLOAT , & ! FieldType
172 grid%communicator , & ! Comm
173 grid%iocommunicator , & ! Comm
174 grid%domdesc , & ! Comm
175 grid%bdy_mask , & ! bdy_mask
176 dryrun , & ! flag
177 'XYZ' , & ! MemoryOrder
178 'Z' , & ! Stagger
179 'west_east' , & ! Dimname 1
180 'south_north' , & ! Dimname 2
181 'bottom_top_stag' , & ! Dimname 3
182 'z-wind component' , & ! Desc
183 'm s-1' , & ! Units
184 'inc/wrf_auxhist3out.inc ext_write_field W memorder XYZ' , & ! Debug message
185 ids , (ide-1) , jds , (jde-1) , kds , kde , &
186 ims , ime , jms , jme , kms , kme , &
187 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
188 ierr )
189 END IF
190 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
191 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
192 CALL wrf_ext_write_field ( &
193 fid , & ! DataHandle
194 current_date(1:19) , & ! DateStr
195 'A_W' , & ! Data Name
196 grid%em_a_w_2 , & ! Field
197 WRF_FLOAT , & ! FieldType
198 grid%communicator , & ! Comm
199 grid%iocommunicator , & ! Comm
200 grid%domdesc , & ! Comm
201 grid%bdy_mask , & ! bdy_mask
202 dryrun , & ! flag
203 'XYZ' , & ! MemoryOrder
204 'Z' , & ! Stagger
205 'west_east' , & ! Dimname 1
206 'south_north' , & ! Dimname 2
207 'bottom_top_stag' , & ! Dimname 3
208 'z-wind component' , & ! Desc
209 'm s-1' , & ! Units
210 'inc/wrf_auxhist3out.inc ext_write_field A_W memorder XYZ' , & ! Debug message
211 ids , (ide-1) , jds , (jde-1) , kds , kde , &
212 ims , ime , jms , jme , kms , kme , &
213 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
214 ierr )
215 END IF
216 END IF
217 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
218 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
219 CALL wrf_ext_write_field ( &
220 fid , & ! DataHandle
221 current_date(1:19) , & ! DateStr
222 'G_W' , & ! Data Name
223 grid%em_g_w_2 , & ! Field
224 WRF_FLOAT , & ! FieldType
225 grid%communicator , & ! Comm
226 grid%iocommunicator , & ! Comm
227 grid%domdesc , & ! Comm
228 grid%bdy_mask , & ! bdy_mask
229 dryrun , & ! flag
230 'XYZ' , & ! MemoryOrder
231 'Z' , & ! Stagger
232 'west_east' , & ! Dimname 1
233 'south_north' , & ! Dimname 2
234 'bottom_top_stag' , & ! Dimname 3
235 'z-wind component' , & ! Desc
236 'm s-1' , & ! Units
237 'inc/wrf_auxhist3out.inc ext_write_field G_W memorder XYZ' , & ! Debug message
238 ids , (ide-1) , jds , (jde-1) , kds , kde , &
239 ims , ime , jms , jme , kms , kme , &
240 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
241 ierr )
242 END IF
243 END IF
244 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
245 CALL wrf_ext_write_field ( &
246 fid , & ! DataHandle
247 current_date(1:19) , & ! DateStr
248 'PH' , & ! Data Name
249 grid%em_ph_2 , & ! Field
250 WRF_FLOAT , & ! FieldType
251 grid%communicator , & ! Comm
252 grid%iocommunicator , & ! Comm
253 grid%domdesc , & ! Comm
254 grid%bdy_mask , & ! bdy_mask
255 dryrun , & ! flag
256 'XYZ' , & ! MemoryOrder
257 'Z' , & ! Stagger
258 'west_east' , & ! Dimname 1
259 'south_north' , & ! Dimname 2
260 'bottom_top_stag' , & ! Dimname 3
261 'perturbation geopotential' , & ! Desc
262 'm2 s-2' , & ! Units
263 'inc/wrf_auxhist3out.inc ext_write_field PH memorder XYZ' , & ! Debug message
264 ids , (ide-1) , jds , (jde-1) , kds , kde , &
265 ims , ime , jms , jme , kms , kme , &
266 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
267 ierr )
268 END IF
269 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
270 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
271 CALL wrf_ext_write_field ( &
272 fid , & ! DataHandle
273 current_date(1:19) , & ! DateStr
274 'A_PH' , & ! Data Name
275 grid%em_a_ph_2 , & ! Field
276 WRF_FLOAT , & ! FieldType
277 grid%communicator , & ! Comm
278 grid%iocommunicator , & ! Comm
279 grid%domdesc , & ! Comm
280 grid%bdy_mask , & ! bdy_mask
281 dryrun , & ! flag
282 'XYZ' , & ! MemoryOrder
283 'Z' , & ! Stagger
284 'west_east' , & ! Dimname 1
285 'south_north' , & ! Dimname 2
286 'bottom_top_stag' , & ! Dimname 3
287 'perturbation geopotential' , & ! Desc
288 'm2 s-2' , & ! Units
289 'inc/wrf_auxhist3out.inc ext_write_field A_PH memorder XYZ' , & ! Debug message
290 ids , (ide-1) , jds , (jde-1) , kds , kde , &
291 ims , ime , jms , jme , kms , kme , &
292 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
293 ierr )
294 END IF
295 END IF
296 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
297 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
298 CALL wrf_ext_write_field ( &
299 fid , & ! DataHandle
300 current_date(1:19) , & ! DateStr
301 'G_PH' , & ! Data Name
302 grid%em_g_ph_2 , & ! Field
303 WRF_FLOAT , & ! FieldType
304 grid%communicator , & ! Comm
305 grid%iocommunicator , & ! Comm
306 grid%domdesc , & ! Comm
307 grid%bdy_mask , & ! bdy_mask
308 dryrun , & ! flag
309 'XYZ' , & ! MemoryOrder
310 'Z' , & ! Stagger
311 'west_east' , & ! Dimname 1
312 'south_north' , & ! Dimname 2
313 'bottom_top_stag' , & ! Dimname 3
314 'perturbation geopotential' , & ! Desc
315 'm2 s-2' , & ! Units
316 'inc/wrf_auxhist3out.inc ext_write_field G_PH memorder XYZ' , & ! Debug message
317 ids , (ide-1) , jds , (jde-1) , kds , kde , &
318 ims , ime , jms , jme , kms , kme , &
319 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
320 ierr )
321 END IF
322 END IF
323 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
324 CALL wrf_ext_write_field ( &
325 fid , & ! DataHandle
326 current_date(1:19) , & ! DateStr
327 'T' , & ! Data Name
328 grid%em_t_2 , & ! Field
329 WRF_FLOAT , & ! FieldType
330 grid%communicator , & ! Comm
331 grid%iocommunicator , & ! Comm
332 grid%domdesc , & ! Comm
333 grid%bdy_mask , & ! bdy_mask
334 dryrun , & ! flag
335 'XYZ' , & ! MemoryOrder
336 '' , & ! Stagger
337 'west_east' , & ! Dimname 1
338 'south_north' , & ! Dimname 2
339 'bottom_top' , & ! Dimname 3
340 'perturbation potential temperature (theta-t0)' , & ! Desc
341 'K' , & ! Units
342 'inc/wrf_auxhist3out.inc ext_write_field T memorder XYZ' , & ! Debug message
343 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
344 ims , ime , jms , jme , kms , kme , &
345 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
346 ierr )
347 END IF
348 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
349 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
350 CALL wrf_ext_write_field ( &
351 fid , & ! DataHandle
352 current_date(1:19) , & ! DateStr
353 'A_T' , & ! Data Name
354 grid%em_a_t_2 , & ! Field
355 WRF_FLOAT , & ! FieldType
356 grid%communicator , & ! Comm
357 grid%iocommunicator , & ! Comm
358 grid%domdesc , & ! Comm
359 grid%bdy_mask , & ! bdy_mask
360 dryrun , & ! flag
361 'XYZ' , & ! MemoryOrder
362 '' , & ! Stagger
363 'west_east' , & ! Dimname 1
364 'south_north' , & ! Dimname 2
365 'bottom_top' , & ! Dimname 3
366 'perturbation potential temperature (theta-t0)' , & ! Desc
367 'K' , & ! Units
368 'inc/wrf_auxhist3out.inc ext_write_field A_T memorder XYZ' , & ! Debug message
369 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
370 ims , ime , jms , jme , kms , kme , &
371 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
372 ierr )
373 END IF
374 END IF
375 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
376 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
377 CALL wrf_ext_write_field ( &
378 fid , & ! DataHandle
379 current_date(1:19) , & ! DateStr
380 'G_T' , & ! Data Name
381 grid%em_g_t_2 , & ! Field
382 WRF_FLOAT , & ! FieldType
383 grid%communicator , & ! Comm
384 grid%iocommunicator , & ! Comm
385 grid%domdesc , & ! Comm
386 grid%bdy_mask , & ! bdy_mask
387 dryrun , & ! flag
388 'XYZ' , & ! MemoryOrder
389 '' , & ! Stagger
390 'west_east' , & ! Dimname 1
391 'south_north' , & ! Dimname 2
392 'bottom_top' , & ! Dimname 3
393 'perturbation potential temperature (theta-t0)' , & ! Desc
394 'K' , & ! Units
395 'inc/wrf_auxhist3out.inc ext_write_field G_T memorder XYZ' , & ! Debug message
396 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
397 ims , ime , jms , jme , kms , kme , &
398 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
399 ierr )
400 END IF
401 END IF
402 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
403 CALL wrf_ext_write_field ( &
404 fid , & ! DataHandle
405 current_date(1:19) , & ! DateStr
406 'MU' , & ! Data Name
407 grid%em_mu_2 , & ! Field
408 WRF_FLOAT , & ! FieldType
409 grid%communicator , & ! Comm
410 grid%iocommunicator , & ! Comm
411 grid%domdesc , & ! Comm
412 grid%bdy_mask , & ! bdy_mask
413 dryrun , & ! flag
414 'XY' , & ! MemoryOrder
415 '' , & ! Stagger
416 'west_east' , & ! Dimname 1
417 'south_north' , & ! Dimname 2
418 '' , & ! Dimname 3
419 'perturbation dry air mass in column' , & ! Desc
420 'Pa' , & ! Units
421 'inc/wrf_auxhist3out.inc ext_write_field MU memorder XY' , & ! Debug message
422 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
423 ims , ime , jms , jme , 1 , 1 , &
424 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
425 ierr )
426 END IF
427 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
428 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
429 CALL wrf_ext_write_field ( &
430 fid , & ! DataHandle
431 current_date(1:19) , & ! DateStr
432 'A_MU' , & ! Data Name
433 grid%em_a_mu_2 , & ! 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 'XY' , & ! MemoryOrder
441 '' , & ! Stagger
442 'west_east' , & ! Dimname 1
443 'south_north' , & ! Dimname 2
444 '' , & ! Dimname 3
445 'perturbation dry air mass in column' , & ! Desc
446 'Pa' , & ! Units
447 'inc/wrf_auxhist3out.inc ext_write_field A_MU memorder XY' , & ! Debug message
448 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
449 ims , ime , jms , jme , 1 , 1 , &
450 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
451 ierr )
452 END IF
453 END IF
454 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
455 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
456 CALL wrf_ext_write_field ( &
457 fid , & ! DataHandle
458 current_date(1:19) , & ! DateStr
459 'G_MU' , & ! Data Name
460 grid%em_g_mu_2 , & ! Field
461 WRF_FLOAT , & ! FieldType
462 grid%communicator , & ! Comm
463 grid%iocommunicator , & ! Comm
464 grid%domdesc , & ! Comm
465 grid%bdy_mask , & ! bdy_mask
466 dryrun , & ! flag
467 'XY' , & ! MemoryOrder
468 '' , & ! Stagger
469 'west_east' , & ! Dimname 1
470 'south_north' , & ! Dimname 2
471 '' , & ! Dimname 3
472 'perturbation dry air mass in column' , & ! Desc
473 'Pa' , & ! Units
474 'inc/wrf_auxhist3out.inc ext_write_field G_MU memorder XY' , & ! Debug message
475 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
476 ims , ime , jms , jme , 1 , 1 , &
477 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
478 ierr )
479 END IF
480 END IF
481 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
482 CALL wrf_ext_write_field ( &
483 fid , & ! DataHandle
484 current_date(1:19) , & ! DateStr
485 'P' , & ! Data Name
486 grid%em_p , & ! Field
487 WRF_FLOAT , & ! FieldType
488 grid%communicator , & ! Comm
489 grid%iocommunicator , & ! Comm
490 grid%domdesc , & ! Comm
491 grid%bdy_mask , & ! bdy_mask
492 dryrun , & ! flag
493 'XYZ' , & ! MemoryOrder
494 '' , & ! Stagger
495 'west_east' , & ! Dimname 1
496 'south_north' , & ! Dimname 2
497 'bottom_top' , & ! Dimname 3
498 'perturbation pressure' , & ! Desc
499 'Pa' , & ! Units
500 'inc/wrf_auxhist3out.inc ext_write_field P memorder XYZ' , & ! Debug message
501 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
502 ims , ime , jms , jme , kms , kme , &
503 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
504 ierr )
505 END IF
506 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
507 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
508 CALL wrf_ext_write_field ( &
509 fid , & ! DataHandle
510 current_date(1:19) , & ! DateStr
511 'A_P' , & ! Data Name
512 grid%em_a_p , & ! Field
513 WRF_FLOAT , & ! FieldType
514 grid%communicator , & ! Comm
515 grid%iocommunicator , & ! Comm
516 grid%domdesc , & ! Comm
517 grid%bdy_mask , & ! bdy_mask
518 dryrun , & ! flag
519 'XYZ' , & ! MemoryOrder
520 '' , & ! Stagger
521 'west_east' , & ! Dimname 1
522 'south_north' , & ! Dimname 2
523 'bottom_top' , & ! Dimname 3
524 'perturbation pressure' , & ! Desc
525 'Pa' , & ! Units
526 'inc/wrf_auxhist3out.inc ext_write_field A_P memorder XYZ' , & ! Debug message
527 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
528 ims , ime , jms , jme , kms , kme , &
529 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
530 ierr )
531 END IF
532 END IF
533 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
534 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
535 CALL wrf_ext_write_field ( &
536 fid , & ! DataHandle
537 current_date(1:19) , & ! DateStr
538 'G_P' , & ! Data Name
539 grid%em_g_p , & ! 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 'XYZ' , & ! MemoryOrder
547 '' , & ! Stagger
548 'west_east' , & ! Dimname 1
549 'south_north' , & ! Dimname 2
550 'bottom_top' , & ! Dimname 3
551 'perturbation pressure' , & ! Desc
552 'Pa' , & ! Units
553 'inc/wrf_auxhist3out.inc ext_write_field G_P memorder XYZ' , & ! Debug message
554 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
555 ims , ime , jms , jme , kms , kme , &
556 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
557 ierr )
558 END IF
559 END IF
560 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
561 CALL wrf_ext_write_field ( &
562 fid , & ! DataHandle
563 current_date(1:19) , & ! DateStr
564 'ZNW' , & ! Data Name
565 grid%em_znw , & ! Field
566 WRF_FLOAT , & ! FieldType
567 grid%communicator , & ! Comm
568 grid%iocommunicator , & ! Comm
569 grid%domdesc , & ! Comm
570 grid%bdy_mask , & ! bdy_mask
571 dryrun , & ! flag
572 'Z' , & ! MemoryOrder
573 'Z' , & ! Stagger
574 'bottom_top_stag' , & ! Dimname 1
575 '' , & ! Dimname 2
576 '' , & ! Dimname 3
577 'eta values on full (w) levels' , & ! Desc
578 '' , & ! Units
579 'inc/wrf_auxhist3out.inc ext_write_field ZNW memorder Z' , & ! Debug message
580 kds , kde , 1 , 1 , 1 , 1 , &
581 kms , kme , 1 , 1 , 1 , 1 , &
582 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
583 ierr )
584 END IF
585 CALL wrf_ext_write_field ( &
586 fid , & ! DataHandle
587 current_date(1:19) , & ! DateStr
588 'U10' , & ! Data Name
589 grid%u10 , & ! Field
590 WRF_FLOAT , & ! FieldType
591 grid%communicator , & ! Comm
592 grid%iocommunicator , & ! Comm
593 grid%domdesc , & ! Comm
594 grid%bdy_mask , & ! bdy_mask
595 dryrun , & ! flag
596 'XY' , & ! MemoryOrder
597 '' , & ! Stagger
598 'west_east' , & ! Dimname 1
599 'south_north' , & ! Dimname 2
600 '' , & ! Dimname 3
601 'U at 10 M' , & ! Desc
602 'm s-1' , & ! Units
603 'inc/wrf_auxhist3out.inc ext_write_field U10 memorder XY' , & ! Debug message
604 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
605 ims , ime , jms , jme , 1 , 1 , &
606 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
607 ierr )
608 CALL wrf_ext_write_field ( &
609 fid , & ! DataHandle
610 current_date(1:19) , & ! DateStr
611 'V10' , & ! Data Name
612 grid%v10 , & ! Field
613 WRF_FLOAT , & ! FieldType
614 grid%communicator , & ! Comm
615 grid%iocommunicator , & ! Comm
616 grid%domdesc , & ! Comm
617 grid%bdy_mask , & ! bdy_mask
618 dryrun , & ! flag
619 'XY' , & ! MemoryOrder
620 '' , & ! Stagger
621 'west_east' , & ! Dimname 1
622 'south_north' , & ! Dimname 2
623 '' , & ! Dimname 3
624 'V at 10 M' , & ! Desc
625 'm s-1' , & ! Units
626 'inc/wrf_auxhist3out.inc ext_write_field V10 memorder XY' , & ! Debug message
627 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
628 ims , ime , jms , jme , 1 , 1 , &
629 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
630 ierr )
631 DO itrace = PARAM_FIRST_SCALAR , num_moist
632 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
633 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
634 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
635 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
636 CALL wrf_ext_write_field ( &
637 fid , & ! DataHandle
638 current_date(1:19) , & ! DateStr
639 TRIM(moist_dname_table( grid%id, itrace )), & !data name
640 grid%moist(ims,jms,kms,itrace) , & ! Field
641 WRF_FLOAT , & ! FieldType
642 grid%communicator , & ! Comm
643 grid%iocommunicator , & ! Comm
644 grid%domdesc , & ! Comm
645 grid%bdy_mask , & ! bdy_mask
646 dryrun , & ! flag
647 'XYZ' , & ! MemoryOrder
648 '' , & ! Stagger
649 'west_east' , & ! Dimname 1
650 'south_north' , & ! Dimname 2
651 'bottom_top' , & ! Dimname 3
652 moist_desc_table( grid%id, itrace ), & ! Desc
653 moist_units_table( grid%id, itrace ), & ! Units
654 'inc/wrf_auxhist3out.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
655 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
656 ims , ime , jms , jme , kms , kme , &
657 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
658 ierr )
659 ENDIF
660 ENDIF
661 ENDDO
662 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
663 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
664 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
665 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
666 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
667 CALL wrf_ext_write_field ( &
668 fid , & ! DataHandle
669 current_date(1:19) , & ! DateStr
670 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
671 grid%a_moist(ims,jms,kms,itrace) , & ! Field
672 WRF_FLOAT , & ! FieldType
673 grid%communicator , & ! Comm
674 grid%iocommunicator , & ! Comm
675 grid%domdesc , & ! Comm
676 grid%bdy_mask , & ! bdy_mask
677 dryrun , & ! flag
678 'XYZ' , & ! MemoryOrder
679 '' , & ! Stagger
680 'west_east' , & ! Dimname 1
681 'south_north' , & ! Dimname 2
682 'bottom_top' , & ! Dimname 3
683 a_moist_desc_table( grid%id, itrace ), & ! Desc
684 a_moist_units_table( grid%id, itrace ), & ! Units
685 'inc/wrf_auxhist3out.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
686 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
687 ims , ime , jms , jme , kms , kme , &
688 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
689 ierr )
690 ENDIF
691 ENDIF
692 ENDDO
693 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
694 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
695 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
696 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
697 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
698 CALL wrf_ext_write_field ( &
699 fid , & ! DataHandle
700 current_date(1:19) , & ! DateStr
701 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
702 grid%g_moist(ims,jms,kms,itrace) , & ! Field
703 WRF_FLOAT , & ! FieldType
704 grid%communicator , & ! Comm
705 grid%iocommunicator , & ! Comm
706 grid%domdesc , & ! Comm
707 grid%bdy_mask , & ! bdy_mask
708 dryrun , & ! flag
709 'XYZ' , & ! MemoryOrder
710 '' , & ! Stagger
711 'west_east' , & ! Dimname 1
712 'south_north' , & ! Dimname 2
713 'bottom_top' , & ! Dimname 3
714 g_moist_desc_table( grid%id, itrace ), & ! Desc
715 g_moist_units_table( grid%id, itrace ), & ! Units
716 'inc/wrf_auxhist3out.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
717 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
718 ims , ime , jms , jme , kms , kme , &
719 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
720 ierr )
721 ENDIF
722 ENDIF
723 ENDDO
724 DO itrace = PARAM_FIRST_SCALAR , num_scalar
725 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
726 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
727 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
728 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
729 CALL wrf_ext_write_field ( &
730 fid , & ! DataHandle
731 current_date(1:19) , & ! DateStr
732 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
733 grid%scalar(ims,jms,kms,itrace) , & ! Field
734 WRF_FLOAT , & ! FieldType
735 grid%communicator , & ! Comm
736 grid%iocommunicator , & ! Comm
737 grid%domdesc , & ! Comm
738 grid%bdy_mask , & ! bdy_mask
739 dryrun , & ! flag
740 'XYZ' , & ! MemoryOrder
741 '' , & ! Stagger
742 'west_east' , & ! Dimname 1
743 'south_north' , & ! Dimname 2
744 'bottom_top' , & ! Dimname 3
745 scalar_desc_table( grid%id, itrace ), & ! Desc
746 scalar_units_table( grid%id, itrace ), & ! Units
747 'inc/wrf_auxhist3out.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
748 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
749 ims , ime , jms , jme , kms , kme , &
750 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
751 ierr )
752 ENDIF
753 ENDIF
754 ENDDO
755 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
756 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
757 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
758 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
759 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
760 CALL wrf_ext_write_field ( &
761 fid , & ! DataHandle
762 current_date(1:19) , & ! DateStr
763 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
764 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
765 WRF_FLOAT , & ! FieldType
766 grid%communicator , & ! Comm
767 grid%iocommunicator , & ! Comm
768 grid%domdesc , & ! Comm
769 grid%bdy_mask , & ! bdy_mask
770 dryrun , & ! flag
771 'XYZ' , & ! MemoryOrder
772 '' , & ! Stagger
773 'west_east' , & ! Dimname 1
774 'south_north' , & ! Dimname 2
775 'bottom_top' , & ! Dimname 3
776 a_scalar_desc_table( grid%id, itrace ), & ! Desc
777 a_scalar_units_table( grid%id, itrace ), & ! Units
778 'inc/wrf_auxhist3out.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
779 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
780 ims , ime , jms , jme , kms , kme , &
781 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
782 ierr )
783 ENDIF
784 ENDIF
785 ENDDO
786 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
787 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
788 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
789 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
790 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
791 CALL wrf_ext_write_field ( &
792 fid , & ! DataHandle
793 current_date(1:19) , & ! DateStr
794 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
795 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
796 WRF_FLOAT , & ! FieldType
797 grid%communicator , & ! Comm
798 grid%iocommunicator , & ! Comm
799 grid%domdesc , & ! Comm
800 grid%bdy_mask , & ! bdy_mask
801 dryrun , & ! flag
802 'XYZ' , & ! MemoryOrder
803 '' , & ! Stagger
804 'west_east' , & ! Dimname 1
805 'south_north' , & ! Dimname 2
806 'bottom_top' , & ! Dimname 3
807 g_scalar_desc_table( grid%id, itrace ), & ! Desc
808 g_scalar_units_table( grid%id, itrace ), & ! Units
809 'inc/wrf_auxhist3out.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
810 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
811 ims , ime , jms , jme , kms , kme , &
812 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
813 ierr )
814 ENDIF
815 ENDIF
816 ENDDO
817 CALL wrf_ext_write_field ( &
818 fid , & ! DataHandle
819 current_date(1:19) , & ! DateStr
820 'LANDMASK' , & ! Data Name
821 grid%landmask , & ! Field
822 WRF_FLOAT , & ! FieldType
823 grid%communicator , & ! Comm
824 grid%iocommunicator , & ! Comm
825 grid%domdesc , & ! Comm
826 grid%bdy_mask , & ! bdy_mask
827 dryrun , & ! flag
828 'XY' , & ! MemoryOrder
829 '' , & ! Stagger
830 'west_east' , & ! Dimname 1
831 'south_north' , & ! Dimname 2
832 '' , & ! Dimname 3
833 'LAND MASK (1 FOR LAND, 0 FOR WATER)' , & ! Desc
834 '' , & ! Units
835 'inc/wrf_auxhist3out.inc ext_write_field LANDMASK memorder XY' , & ! Debug message
836 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
837 ims , ime , jms , jme , 1 , 1 , &
838 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
839 ierr )
840 CALL wrf_ext_write_field ( &
841 fid , & ! DataHandle
842 current_date(1:19) , & ! DateStr
843 'TSK' , & ! Data Name
844 grid%tsk , & ! Field
845 WRF_FLOAT , & ! FieldType
846 grid%communicator , & ! Comm
847 grid%iocommunicator , & ! Comm
848 grid%domdesc , & ! Comm
849 grid%bdy_mask , & ! bdy_mask
850 dryrun , & ! flag
851 'XY' , & ! MemoryOrder
852 '' , & ! Stagger
853 'west_east' , & ! Dimname 1
854 'south_north' , & ! Dimname 2
855 '' , & ! Dimname 3
856 'SURFACE SKIN TEMPERATURE' , & ! Desc
857 'K' , & ! Units
858 'inc/wrf_auxhist3out.inc ext_write_field TSK memorder XY' , & ! Debug message
859 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
860 ims , ime , jms , jme , 1 , 1 , &
861 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
862 ierr )
863 !ENDOFREGISTRYGENERATEDINCLUDE