wrf_auxhist1out.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxhist1out.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 CALL wrf_ext_write_field ( &
8 fid , & ! DataHandle
9 current_date(1:19) , & ! DateStr
10 'LU_INDEX' , & ! Data Name
11 grid%lu_index , & ! Field
12 WRF_FLOAT , & ! FieldType
13 grid%communicator , & ! Comm
14 grid%iocommunicator , & ! Comm
15 grid%domdesc , & ! Comm
16 grid%bdy_mask , & ! bdy_mask
17 dryrun , & ! flag
18 'XY' , & ! MemoryOrder
19 '' , & ! Stagger
20 'west_east' , & ! Dimname 1
21 'south_north' , & ! Dimname 2
22 '' , & ! Dimname 3
23 'LAND USE CATEGORY' , & ! Desc
24 '' , & ! Units
25 'inc/wrf_auxhist1out.inc ext_write_field LU_INDEX memorder XY' , & ! Debug message
26 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
27 ims , ime , jms , jme , 1 , 1 , &
28 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
29 ierr )
30 CALL wrf_ext_write_field ( &
31 fid , & ! DataHandle
32 current_date(1:19) , & ! DateStr
33 'LU_MASK' , & ! Data Name
34 grid%lu_mask , & ! Field
35 WRF_FLOAT , & ! FieldType
36 grid%communicator , & ! Comm
37 grid%iocommunicator , & ! Comm
38 grid%domdesc , & ! Comm
39 grid%bdy_mask , & ! bdy_mask
40 dryrun , & ! flag
41 'XY' , & ! MemoryOrder
42 '' , & ! Stagger
43 'west_east' , & ! Dimname 1
44 'south_north' , & ! Dimname 2
45 '' , & ! Dimname 3
46 '0 land 1 water' , & ! Desc
47 '' , & ! Units
48 'inc/wrf_auxhist1out.inc ext_write_field LU_MASK memorder XY' , & ! Debug message
49 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
50 ims , ime , jms , jme , 1 , 1 , &
51 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
52 ierr )
53 CALL wrf_ext_write_field ( &
54 fid , & ! DataHandle
55 current_date(1:19) , & ! DateStr
56 'U10' , & ! Data Name
57 grid%u10 , & ! Field
58 WRF_FLOAT , & ! FieldType
59 grid%communicator , & ! Comm
60 grid%iocommunicator , & ! Comm
61 grid%domdesc , & ! Comm
62 grid%bdy_mask , & ! bdy_mask
63 dryrun , & ! flag
64 'XY' , & ! MemoryOrder
65 '' , & ! Stagger
66 'west_east' , & ! Dimname 1
67 'south_north' , & ! Dimname 2
68 '' , & ! Dimname 3
69 'U at 10 M' , & ! Desc
70 'm s-1' , & ! Units
71 'inc/wrf_auxhist1out.inc ext_write_field U10 memorder XY' , & ! Debug message
72 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
73 ims , ime , jms , jme , 1 , 1 , &
74 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
75 ierr )
76 CALL wrf_ext_write_field ( &
77 fid , & ! DataHandle
78 current_date(1:19) , & ! DateStr
79 'V10' , & ! Data Name
80 grid%v10 , & ! Field
81 WRF_FLOAT , & ! FieldType
82 grid%communicator , & ! Comm
83 grid%iocommunicator , & ! Comm
84 grid%domdesc , & ! Comm
85 grid%bdy_mask , & ! bdy_mask
86 dryrun , & ! flag
87 'XY' , & ! MemoryOrder
88 '' , & ! Stagger
89 'west_east' , & ! Dimname 1
90 'south_north' , & ! Dimname 2
91 '' , & ! Dimname 3
92 'V at 10 M' , & ! Desc
93 'm s-1' , & ! Units
94 'inc/wrf_auxhist1out.inc ext_write_field V10 memorder XY' , & ! Debug message
95 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
96 ims , ime , jms , jme , 1 , 1 , &
97 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
98 ierr )
99 DO itrace = PARAM_FIRST_SCALAR , num_moist
100 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
101 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
102 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
103 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
104 CALL wrf_ext_write_field ( &
105 fid , & ! DataHandle
106 current_date(1:19) , & ! DateStr
107 TRIM(moist_dname_table( grid%id, itrace )), & !data name
108 grid%moist(ims,jms,kms,itrace) , & ! Field
109 WRF_FLOAT , & ! FieldType
110 grid%communicator , & ! Comm
111 grid%iocommunicator , & ! Comm
112 grid%domdesc , & ! Comm
113 grid%bdy_mask , & ! bdy_mask
114 dryrun , & ! flag
115 'XYZ' , & ! MemoryOrder
116 '' , & ! Stagger
117 'west_east' , & ! Dimname 1
118 'south_north' , & ! Dimname 2
119 'bottom_top' , & ! Dimname 3
120 moist_desc_table( grid%id, itrace ), & ! Desc
121 moist_units_table( grid%id, itrace ), & ! Units
122 'inc/wrf_auxhist1out.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
123 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
124 ims , ime , jms , jme , kms , kme , &
125 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
126 ierr )
127 ENDIF
128 ENDIF
129 ENDDO
130 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
131 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
132 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
133 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
134 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
135 CALL wrf_ext_write_field ( &
136 fid , & ! DataHandle
137 current_date(1:19) , & ! DateStr
138 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
139 grid%a_moist(ims,jms,kms,itrace) , & ! Field
140 WRF_FLOAT , & ! FieldType
141 grid%communicator , & ! Comm
142 grid%iocommunicator , & ! Comm
143 grid%domdesc , & ! Comm
144 grid%bdy_mask , & ! bdy_mask
145 dryrun , & ! flag
146 'XYZ' , & ! MemoryOrder
147 '' , & ! Stagger
148 'west_east' , & ! Dimname 1
149 'south_north' , & ! Dimname 2
150 'bottom_top' , & ! Dimname 3
151 a_moist_desc_table( grid%id, itrace ), & ! Desc
152 a_moist_units_table( grid%id, itrace ), & ! Units
153 'inc/wrf_auxhist1out.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
154 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
155 ims , ime , jms , jme , kms , kme , &
156 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
157 ierr )
158 ENDIF
159 ENDIF
160 ENDDO
161 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
162 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
163 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
164 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
165 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
166 CALL wrf_ext_write_field ( &
167 fid , & ! DataHandle
168 current_date(1:19) , & ! DateStr
169 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
170 grid%g_moist(ims,jms,kms,itrace) , & ! 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 '' , & ! Stagger
179 'west_east' , & ! Dimname 1
180 'south_north' , & ! Dimname 2
181 'bottom_top' , & ! Dimname 3
182 g_moist_desc_table( grid%id, itrace ), & ! Desc
183 g_moist_units_table( grid%id, itrace ), & ! Units
184 'inc/wrf_auxhist1out.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
185 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
186 ims , ime , jms , jme , kms , kme , &
187 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
188 ierr )
189 ENDIF
190 ENDIF
191 ENDDO
192 DO itrace = PARAM_FIRST_SCALAR , num_scalar
193 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
194 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
195 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
196 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
197 CALL wrf_ext_write_field ( &
198 fid , & ! DataHandle
199 current_date(1:19) , & ! DateStr
200 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
201 grid%scalar(ims,jms,kms,itrace) , & ! Field
202 WRF_FLOAT , & ! FieldType
203 grid%communicator , & ! Comm
204 grid%iocommunicator , & ! Comm
205 grid%domdesc , & ! Comm
206 grid%bdy_mask , & ! bdy_mask
207 dryrun , & ! flag
208 'XYZ' , & ! MemoryOrder
209 '' , & ! Stagger
210 'west_east' , & ! Dimname 1
211 'south_north' , & ! Dimname 2
212 'bottom_top' , & ! Dimname 3
213 scalar_desc_table( grid%id, itrace ), & ! Desc
214 scalar_units_table( grid%id, itrace ), & ! Units
215 'inc/wrf_auxhist1out.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
216 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
217 ims , ime , jms , jme , kms , kme , &
218 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
219 ierr )
220 ENDIF
221 ENDIF
222 ENDDO
223 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
224 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
225 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
226 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
227 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
228 CALL wrf_ext_write_field ( &
229 fid , & ! DataHandle
230 current_date(1:19) , & ! DateStr
231 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
232 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
233 WRF_FLOAT , & ! FieldType
234 grid%communicator , & ! Comm
235 grid%iocommunicator , & ! Comm
236 grid%domdesc , & ! Comm
237 grid%bdy_mask , & ! bdy_mask
238 dryrun , & ! flag
239 'XYZ' , & ! MemoryOrder
240 '' , & ! Stagger
241 'west_east' , & ! Dimname 1
242 'south_north' , & ! Dimname 2
243 'bottom_top' , & ! Dimname 3
244 a_scalar_desc_table( grid%id, itrace ), & ! Desc
245 a_scalar_units_table( grid%id, itrace ), & ! Units
246 'inc/wrf_auxhist1out.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
247 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
248 ims , ime , jms , jme , kms , kme , &
249 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
250 ierr )
251 ENDIF
252 ENDIF
253 ENDDO
254 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
255 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
256 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
257 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
258 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
259 CALL wrf_ext_write_field ( &
260 fid , & ! DataHandle
261 current_date(1:19) , & ! DateStr
262 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
263 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
264 WRF_FLOAT , & ! FieldType
265 grid%communicator , & ! Comm
266 grid%iocommunicator , & ! Comm
267 grid%domdesc , & ! Comm
268 grid%bdy_mask , & ! bdy_mask
269 dryrun , & ! flag
270 'XYZ' , & ! MemoryOrder
271 '' , & ! Stagger
272 'west_east' , & ! Dimname 1
273 'south_north' , & ! Dimname 2
274 'bottom_top' , & ! Dimname 3
275 g_scalar_desc_table( grid%id, itrace ), & ! Desc
276 g_scalar_units_table( grid%id, itrace ), & ! Units
277 'inc/wrf_auxhist1out.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
278 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
279 ims , ime , jms , jme , kms , kme , &
280 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
281 ierr )
282 ENDIF
283 ENDIF
284 ENDDO
285 CALL wrf_ext_write_field ( &
286 fid , & ! DataHandle
287 current_date(1:19) , & ! DateStr
288 'XLAT' , & ! Data Name
289 grid%xlat , & ! Field
290 WRF_FLOAT , & ! FieldType
291 grid%communicator , & ! Comm
292 grid%iocommunicator , & ! Comm
293 grid%domdesc , & ! Comm
294 grid%bdy_mask , & ! bdy_mask
295 dryrun , & ! flag
296 'XY' , & ! MemoryOrder
297 '' , & ! Stagger
298 'west_east' , & ! Dimname 1
299 'south_north' , & ! Dimname 2
300 '' , & ! Dimname 3
301 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
302 'degree_north' , & ! Units
303 'inc/wrf_auxhist1out.inc ext_write_field XLAT memorder XY' , & ! Debug message
304 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
305 ims , ime , jms , jme , 1 , 1 , &
306 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
307 ierr )
308 CALL wrf_ext_write_field ( &
309 fid , & ! DataHandle
310 current_date(1:19) , & ! DateStr
311 'XLONG' , & ! Data Name
312 grid%xlong , & ! Field
313 WRF_FLOAT , & ! FieldType
314 grid%communicator , & ! Comm
315 grid%iocommunicator , & ! Comm
316 grid%domdesc , & ! Comm
317 grid%bdy_mask , & ! bdy_mask
318 dryrun , & ! flag
319 'XY' , & ! MemoryOrder
320 '' , & ! Stagger
321 'west_east' , & ! Dimname 1
322 'south_north' , & ! Dimname 2
323 '' , & ! Dimname 3
324 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
325 'degree_east' , & ! Units
326 'inc/wrf_auxhist1out.inc ext_write_field XLONG memorder XY' , & ! Debug message
327 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
328 ims , ime , jms , jme , 1 , 1 , &
329 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
330 ierr )
331 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
332 CALL wrf_ext_write_field ( &
333 fid , & ! DataHandle
334 current_date(1:19) , & ! DateStr
335 'XLAT_U' , & ! Data Name
336 grid%em_xlat_u , & ! Field
337 WRF_FLOAT , & ! FieldType
338 grid%communicator , & ! Comm
339 grid%iocommunicator , & ! Comm
340 grid%domdesc , & ! Comm
341 grid%bdy_mask , & ! bdy_mask
342 dryrun , & ! flag
343 'XY' , & ! MemoryOrder
344 'X' , & ! Stagger
345 'west_east_stag' , & ! Dimname 1
346 'south_north' , & ! Dimname 2
347 '' , & ! Dimname 3
348 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
349 'degree_north' , & ! Units
350 'inc/wrf_auxhist1out.inc ext_write_field XLAT_U memorder XY' , & ! Debug message
351 ids , ide , jds , (jde-1) , 1 , 1 , &
352 ims , ime , jms , jme , 1 , 1 , &
353 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
354 ierr )
355 END IF
356 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
357 CALL wrf_ext_write_field ( &
358 fid , & ! DataHandle
359 current_date(1:19) , & ! DateStr
360 'XLONG_U' , & ! Data Name
361 grid%em_xlong_u , & ! Field
362 WRF_FLOAT , & ! FieldType
363 grid%communicator , & ! Comm
364 grid%iocommunicator , & ! Comm
365 grid%domdesc , & ! Comm
366 grid%bdy_mask , & ! bdy_mask
367 dryrun , & ! flag
368 'XY' , & ! MemoryOrder
369 'X' , & ! Stagger
370 'west_east_stag' , & ! Dimname 1
371 'south_north' , & ! Dimname 2
372 '' , & ! Dimname 3
373 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
374 'degree_east' , & ! Units
375 'inc/wrf_auxhist1out.inc ext_write_field XLONG_U memorder XY' , & ! Debug message
376 ids , ide , jds , (jde-1) , 1 , 1 , &
377 ims , ime , jms , jme , 1 , 1 , &
378 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
379 ierr )
380 END IF
381 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
382 CALL wrf_ext_write_field ( &
383 fid , & ! DataHandle
384 current_date(1:19) , & ! DateStr
385 'XLAT_V' , & ! Data Name
386 grid%em_xlat_v , & ! Field
387 WRF_FLOAT , & ! FieldType
388 grid%communicator , & ! Comm
389 grid%iocommunicator , & ! Comm
390 grid%domdesc , & ! Comm
391 grid%bdy_mask , & ! bdy_mask
392 dryrun , & ! flag
393 'XY' , & ! MemoryOrder
394 'Y' , & ! Stagger
395 'west_east' , & ! Dimname 1
396 'south_north_stag' , & ! Dimname 2
397 '' , & ! Dimname 3
398 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
399 'degree_north' , & ! Units
400 'inc/wrf_auxhist1out.inc ext_write_field XLAT_V memorder XY' , & ! Debug message
401 ids , (ide-1) , jds , jde , 1 , 1 , &
402 ims , ime , jms , jme , 1 , 1 , &
403 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
404 ierr )
405 END IF
406 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
407 CALL wrf_ext_write_field ( &
408 fid , & ! DataHandle
409 current_date(1:19) , & ! DateStr
410 'XLONG_V' , & ! Data Name
411 grid%em_xlong_v , & ! Field
412 WRF_FLOAT , & ! FieldType
413 grid%communicator , & ! Comm
414 grid%iocommunicator , & ! Comm
415 grid%domdesc , & ! Comm
416 grid%bdy_mask , & ! bdy_mask
417 dryrun , & ! flag
418 'XY' , & ! MemoryOrder
419 'Y' , & ! Stagger
420 'west_east' , & ! Dimname 1
421 'south_north_stag' , & ! Dimname 2
422 '' , & ! Dimname 3
423 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
424 'degree_east' , & ! Units
425 'inc/wrf_auxhist1out.inc ext_write_field XLONG_V memorder XY' , & ! Debug message
426 ids , (ide-1) , jds , jde , 1 , 1 , &
427 ims , ime , jms , jme , 1 , 1 , &
428 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
429 ierr )
430 END IF
431 !ENDOFREGISTRYGENERATEDINCLUDE