wrf_auxinput2out.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxinput2out.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_write_field ( &
13 fid , & ! DataHandle
14 current_date(1:19) , & ! DateStr
15 TRIM(moist_dname_table( grid%id, itrace )), & !data name
16 grid%moist(ims,jms,kms,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 dryrun , & ! flag
23 'XYZ' , & ! MemoryOrder
24 '' , & ! Stagger
25 'west_east' , & ! Dimname 1
26 'south_north' , & ! Dimname 2
27 'bottom_top' , & ! Dimname 3
28 moist_desc_table( grid%id, itrace ), & ! Desc
29 moist_units_table( grid%id, itrace ), & ! Units
30 'inc/wrf_auxinput2out.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
31 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
32 ims , ime , jms , jme , kms , kme , &
33 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
34 ierr )
35 ENDIF
36 ENDIF
37 ENDDO
38 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
39 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
40 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
41 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
42 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
43 CALL wrf_ext_write_field ( &
44 fid , & ! DataHandle
45 current_date(1:19) , & ! DateStr
46 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
47 grid%a_moist(ims,jms,kms,itrace) , & ! Field
48 WRF_FLOAT , & ! FieldType
49 grid%communicator , & ! Comm
50 grid%iocommunicator , & ! Comm
51 grid%domdesc , & ! Comm
52 grid%bdy_mask , & ! bdy_mask
53 dryrun , & ! flag
54 'XYZ' , & ! MemoryOrder
55 '' , & ! Stagger
56 'west_east' , & ! Dimname 1
57 'south_north' , & ! Dimname 2
58 'bottom_top' , & ! Dimname 3
59 a_moist_desc_table( grid%id, itrace ), & ! Desc
60 a_moist_units_table( grid%id, itrace ), & ! Units
61 'inc/wrf_auxinput2out.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
62 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
63 ims , ime , jms , jme , kms , kme , &
64 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
65 ierr )
66 ENDIF
67 ENDIF
68 ENDDO
69 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
70 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
71 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
72 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
73 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
74 CALL wrf_ext_write_field ( &
75 fid , & ! DataHandle
76 current_date(1:19) , & ! DateStr
77 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
78 grid%g_moist(ims,jms,kms,itrace) , & ! Field
79 WRF_FLOAT , & ! FieldType
80 grid%communicator , & ! Comm
81 grid%iocommunicator , & ! Comm
82 grid%domdesc , & ! Comm
83 grid%bdy_mask , & ! bdy_mask
84 dryrun , & ! flag
85 'XYZ' , & ! MemoryOrder
86 '' , & ! Stagger
87 'west_east' , & ! Dimname 1
88 'south_north' , & ! Dimname 2
89 'bottom_top' , & ! Dimname 3
90 g_moist_desc_table( grid%id, itrace ), & ! Desc
91 g_moist_units_table( grid%id, itrace ), & ! Units
92 'inc/wrf_auxinput2out.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
93 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
94 ims , ime , jms , jme , kms , kme , &
95 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
96 ierr )
97 ENDIF
98 ENDIF
99 ENDDO
100 DO itrace = PARAM_FIRST_SCALAR , num_scalar
101 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
102 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
103 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
104 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
105 CALL wrf_ext_write_field ( &
106 fid , & ! DataHandle
107 current_date(1:19) , & ! DateStr
108 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
109 grid%scalar(ims,jms,kms,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 dryrun , & ! flag
116 'XYZ' , & ! MemoryOrder
117 '' , & ! Stagger
118 'west_east' , & ! Dimname 1
119 'south_north' , & ! Dimname 2
120 'bottom_top' , & ! Dimname 3
121 scalar_desc_table( grid%id, itrace ), & ! Desc
122 scalar_units_table( grid%id, itrace ), & ! Units
123 'inc/wrf_auxinput2out.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
124 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
125 ims , ime , jms , jme , kms , kme , &
126 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
127 ierr )
128 ENDIF
129 ENDIF
130 ENDDO
131 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
132 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
133 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
134 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
135 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
136 CALL wrf_ext_write_field ( &
137 fid , & ! DataHandle
138 current_date(1:19) , & ! DateStr
139 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
140 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
141 WRF_FLOAT , & ! FieldType
142 grid%communicator , & ! Comm
143 grid%iocommunicator , & ! Comm
144 grid%domdesc , & ! Comm
145 grid%bdy_mask , & ! bdy_mask
146 dryrun , & ! flag
147 'XYZ' , & ! MemoryOrder
148 '' , & ! Stagger
149 'west_east' , & ! Dimname 1
150 'south_north' , & ! Dimname 2
151 'bottom_top' , & ! Dimname 3
152 a_scalar_desc_table( grid%id, itrace ), & ! Desc
153 a_scalar_units_table( grid%id, itrace ), & ! Units
154 'inc/wrf_auxinput2out.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
155 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
156 ims , ime , jms , jme , kms , kme , &
157 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
158 ierr )
159 ENDIF
160 ENDIF
161 ENDDO
162 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
163 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
164 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
165 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
166 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
167 CALL wrf_ext_write_field ( &
168 fid , & ! DataHandle
169 current_date(1:19) , & ! DateStr
170 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
171 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
172 WRF_FLOAT , & ! FieldType
173 grid%communicator , & ! Comm
174 grid%iocommunicator , & ! Comm
175 grid%domdesc , & ! Comm
176 grid%bdy_mask , & ! bdy_mask
177 dryrun , & ! flag
178 'XYZ' , & ! MemoryOrder
179 '' , & ! Stagger
180 'west_east' , & ! Dimname 1
181 'south_north' , & ! Dimname 2
182 'bottom_top' , & ! Dimname 3
183 g_scalar_desc_table( grid%id, itrace ), & ! Desc
184 g_scalar_units_table( grid%id, itrace ), & ! Units
185 'inc/wrf_auxinput2out.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
186 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
187 ims , ime , jms , jme , kms , kme , &
188 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
189 ierr )
190 ENDIF
191 ENDIF
192 ENDDO
193 CALL wrf_ext_write_field ( &
194 fid , & ! DataHandle
195 current_date(1:19) , & ! DateStr
196 'LANDMASK' , & ! Data Name
197 grid%landmask , & ! Field
198 WRF_FLOAT , & ! FieldType
199 grid%communicator , & ! Comm
200 grid%iocommunicator , & ! Comm
201 grid%domdesc , & ! Comm
202 grid%bdy_mask , & ! bdy_mask
203 dryrun , & ! flag
204 'XY' , & ! MemoryOrder
205 '' , & ! Stagger
206 'west_east' , & ! Dimname 1
207 'south_north' , & ! Dimname 2
208 '' , & ! Dimname 3
209 'LAND MASK (1 FOR LAND, 0 FOR WATER)' , & ! Desc
210 '' , & ! Units
211 'inc/wrf_auxinput2out.inc ext_write_field LANDMASK memorder XY' , & ! Debug message
212 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
213 ims , ime , jms , jme , 1 , 1 , &
214 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
215 ierr )
216 CALL wrf_ext_write_field ( &
217 fid , & ! DataHandle
218 current_date(1:19) , & ! DateStr
219 'SHDMAX' , & ! Data Name
220 grid%shdmax , & ! Field
221 WRF_FLOAT , & ! FieldType
222 grid%communicator , & ! Comm
223 grid%iocommunicator , & ! Comm
224 grid%domdesc , & ! Comm
225 grid%bdy_mask , & ! bdy_mask
226 dryrun , & ! flag
227 'XY' , & ! MemoryOrder
228 '' , & ! Stagger
229 'west_east' , & ! Dimname 1
230 'south_north' , & ! Dimname 2
231 '' , & ! Dimname 3
232 'ANNUAL MAX VEG FRACTION' , & ! Desc
233 '' , & ! Units
234 'inc/wrf_auxinput2out.inc ext_write_field SHDMAX memorder XY' , & ! Debug message
235 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
236 ims , ime , jms , jme , 1 , 1 , &
237 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
238 ierr )
239 CALL wrf_ext_write_field ( &
240 fid , & ! DataHandle
241 current_date(1:19) , & ! DateStr
242 'SHDMIN' , & ! Data Name
243 grid%shdmin , & ! Field
244 WRF_FLOAT , & ! FieldType
245 grid%communicator , & ! Comm
246 grid%iocommunicator , & ! Comm
247 grid%domdesc , & ! Comm
248 grid%bdy_mask , & ! bdy_mask
249 dryrun , & ! flag
250 'XY' , & ! MemoryOrder
251 '' , & ! Stagger
252 'west_east' , & ! Dimname 1
253 'south_north' , & ! Dimname 2
254 '' , & ! Dimname 3
255 'ANNUAL MIN VEG FRACTION' , & ! Desc
256 '' , & ! Units
257 'inc/wrf_auxinput2out.inc ext_write_field SHDMIN memorder XY' , & ! Debug message
258 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
259 ims , ime , jms , jme , 1 , 1 , &
260 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
261 ierr )
262 CALL wrf_ext_write_field ( &
263 fid , & ! DataHandle
264 current_date(1:19) , & ! DateStr
265 'SNOALB' , & ! Data Name
266 grid%snoalb , & ! Field
267 WRF_FLOAT , & ! FieldType
268 grid%communicator , & ! Comm
269 grid%iocommunicator , & ! Comm
270 grid%domdesc , & ! Comm
271 grid%bdy_mask , & ! bdy_mask
272 dryrun , & ! flag
273 'XY' , & ! MemoryOrder
274 '' , & ! Stagger
275 'west_east' , & ! Dimname 1
276 'south_north' , & ! Dimname 2
277 '' , & ! Dimname 3
278 'ANNUAL MAX SNOW ALBEDO IN FRACTION' , & ! Desc
279 '' , & ! Units
280 'inc/wrf_auxinput2out.inc ext_write_field SNOALB memorder XY' , & ! Debug message
281 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
282 ims , ime , jms , jme , 1 , 1 , &
283 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
284 ierr )
285 CALL wrf_ext_write_field ( &
286 fid , & ! DataHandle
287 current_date(1:19) , & ! DateStr
288 'TSLB' , & ! Data Name
289 grid%tslb , & ! 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 'XYZ' , & ! MemoryOrder
297 'Z' , & ! Stagger
298 'west_east' , & ! Dimname 1
299 'south_north' , & ! Dimname 2
300 'soil_layers_stag' , & ! Dimname 3
301 'SOIL TEMPERATURE' , & ! Desc
302 'K' , & ! Units
303 'inc/wrf_auxinput2out.inc ext_write_field TSLB memorder XYZ' , & ! Debug message
304 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
305 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
306 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
307 ierr )
308 CALL wrf_ext_write_field ( &
309 fid , & ! DataHandle
310 current_date(1:19) , & ! DateStr
311 'SMOIS' , & ! Data Name
312 grid%smois , & ! 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 'XYZ' , & ! MemoryOrder
320 'Z' , & ! Stagger
321 'west_east' , & ! Dimname 1
322 'south_north' , & ! Dimname 2
323 'soil_layers_stag' , & ! Dimname 3
324 'SOIL MOISTURE' , & ! Desc
325 'm3 m-3' , & ! Units
326 'inc/wrf_auxinput2out.inc ext_write_field SMOIS memorder XYZ' , & ! Debug message
327 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
328 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
329 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
330 ierr )
331 CALL wrf_ext_write_field ( &
332 fid , & ! DataHandle
333 current_date(1:19) , & ! DateStr
334 'SH2O' , & ! Data Name
335 grid%sh2o , & ! Field
336 WRF_FLOAT , & ! FieldType
337 grid%communicator , & ! Comm
338 grid%iocommunicator , & ! Comm
339 grid%domdesc , & ! Comm
340 grid%bdy_mask , & ! bdy_mask
341 dryrun , & ! flag
342 'XYZ' , & ! MemoryOrder
343 'Z' , & ! Stagger
344 'west_east' , & ! Dimname 1
345 'south_north' , & ! Dimname 2
346 'soil_layers_stag' , & ! Dimname 3
347 'SOIL LIQUID WATER' , & ! Desc
348 'm3 m-3' , & ! Units
349 'inc/wrf_auxinput2out.inc ext_write_field SH2O memorder XYZ' , & ! Debug message
350 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
351 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
352 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
353 ierr )
354 CALL wrf_ext_write_field ( &
355 fid , & ! DataHandle
356 current_date(1:19) , & ! DateStr
357 'XICE' , & ! Data Name
358 grid%xice , & ! Field
359 WRF_FLOAT , & ! FieldType
360 grid%communicator , & ! Comm
361 grid%iocommunicator , & ! Comm
362 grid%domdesc , & ! Comm
363 grid%bdy_mask , & ! bdy_mask
364 dryrun , & ! flag
365 'XY' , & ! MemoryOrder
366 '' , & ! Stagger
367 'west_east' , & ! Dimname 1
368 'south_north' , & ! Dimname 2
369 '' , & ! Dimname 3
370 'SEA ICE FLAG' , & ! Desc
371 '' , & ! Units
372 'inc/wrf_auxinput2out.inc ext_write_field XICE memorder XY' , & ! Debug message
373 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
374 ims , ime , jms , jme , 1 , 1 , &
375 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
376 ierr )
377 CALL wrf_ext_write_field ( &
378 fid , & ! DataHandle
379 current_date(1:19) , & ! DateStr
380 'IVGTYP' , & ! Data Name
381 grid%ivgtyp , & ! Field
382 WRF_integer , & ! FieldType
383 grid%communicator , & ! Comm
384 grid%iocommunicator , & ! Comm
385 grid%domdesc , & ! Comm
386 grid%bdy_mask , & ! bdy_mask
387 dryrun , & ! flag
388 'XY' , & ! MemoryOrder
389 '' , & ! Stagger
390 'west_east' , & ! Dimname 1
391 'south_north' , & ! Dimname 2
392 '' , & ! Dimname 3
393 'DOMINANT VEGETATION CATEGORY' , & ! Desc
394 '' , & ! Units
395 'inc/wrf_auxinput2out.inc ext_write_field IVGTYP memorder XY' , & ! Debug message
396 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
397 ims , ime , jms , jme , 1 , 1 , &
398 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
399 ierr )
400 CALL wrf_ext_write_field ( &
401 fid , & ! DataHandle
402 current_date(1:19) , & ! DateStr
403 'ISLTYP' , & ! Data Name
404 grid%isltyp , & ! Field
405 WRF_integer , & ! FieldType
406 grid%communicator , & ! Comm
407 grid%iocommunicator , & ! Comm
408 grid%domdesc , & ! Comm
409 grid%bdy_mask , & ! bdy_mask
410 dryrun , & ! flag
411 'XY' , & ! MemoryOrder
412 '' , & ! Stagger
413 'west_east' , & ! Dimname 1
414 'south_north' , & ! Dimname 2
415 '' , & ! Dimname 3
416 'DOMINANT SOIL CATEGORY' , & ! Desc
417 '' , & ! Units
418 'inc/wrf_auxinput2out.inc ext_write_field ISLTYP memorder XY' , & ! Debug message
419 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
420 ims , ime , jms , jme , 1 , 1 , &
421 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
422 ierr )
423 CALL wrf_ext_write_field ( &
424 fid , & ! DataHandle
425 current_date(1:19) , & ! DateStr
426 'VEGFRA' , & ! Data Name
427 grid%vegfra , & ! Field
428 WRF_FLOAT , & ! FieldType
429 grid%communicator , & ! Comm
430 grid%iocommunicator , & ! Comm
431 grid%domdesc , & ! Comm
432 grid%bdy_mask , & ! bdy_mask
433 dryrun , & ! flag
434 'XY' , & ! MemoryOrder
435 '' , & ! Stagger
436 'west_east' , & ! Dimname 1
437 'south_north' , & ! Dimname 2
438 '' , & ! Dimname 3
439 'VEGETATION FRACTION' , & ! Desc
440 '' , & ! Units
441 'inc/wrf_auxinput2out.inc ext_write_field VEGFRA memorder XY' , & ! Debug message
442 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
443 ims , ime , jms , jme , 1 , 1 , &
444 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
445 ierr )
446 CALL wrf_ext_write_field ( &
447 fid , & ! DataHandle
448 current_date(1:19) , & ! DateStr
449 'SST' , & ! Data Name
450 grid%sst , & ! Field
451 WRF_FLOAT , & ! FieldType
452 grid%communicator , & ! Comm
453 grid%iocommunicator , & ! Comm
454 grid%domdesc , & ! Comm
455 grid%bdy_mask , & ! bdy_mask
456 dryrun , & ! flag
457 'XY' , & ! MemoryOrder
458 '' , & ! Stagger
459 'west_east' , & ! Dimname 1
460 'south_north' , & ! Dimname 2
461 '' , & ! Dimname 3
462 'SEA SURFACE TEMPERATURE' , & ! Desc
463 'K' , & ! Units
464 'inc/wrf_auxinput2out.inc ext_write_field SST memorder XY' , & ! Debug message
465 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
466 ims , ime , jms , jme , 1 , 1 , &
467 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
468 ierr )
469 CALL wrf_ext_write_field ( &
470 fid , & ! DataHandle
471 current_date(1:19) , & ! DateStr
472 'MAPFAC_M' , & ! Data Name
473 grid%msft , & ! Field
474 WRF_FLOAT , & ! FieldType
475 grid%communicator , & ! Comm
476 grid%iocommunicator , & ! Comm
477 grid%domdesc , & ! Comm
478 grid%bdy_mask , & ! bdy_mask
479 dryrun , & ! flag
480 'XY' , & ! MemoryOrder
481 '' , & ! Stagger
482 'west_east' , & ! Dimname 1
483 'south_north' , & ! Dimname 2
484 '' , & ! Dimname 3
485 'Map scale factor on mass grid' , & ! Desc
486 '' , & ! Units
487 'inc/wrf_auxinput2out.inc ext_write_field MAPFAC_M memorder XY' , & ! Debug message
488 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
489 ims , ime , jms , jme , 1 , 1 , &
490 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
491 ierr )
492 CALL wrf_ext_write_field ( &
493 fid , & ! DataHandle
494 current_date(1:19) , & ! DateStr
495 'MAPFAC_U' , & ! Data Name
496 grid%msfu , & ! Field
497 WRF_FLOAT , & ! FieldType
498 grid%communicator , & ! Comm
499 grid%iocommunicator , & ! Comm
500 grid%domdesc , & ! Comm
501 grid%bdy_mask , & ! bdy_mask
502 dryrun , & ! flag
503 'XY' , & ! MemoryOrder
504 'X' , & ! Stagger
505 'west_east_stag' , & ! Dimname 1
506 'south_north' , & ! Dimname 2
507 '' , & ! Dimname 3
508 'Map scale factor on u-grid' , & ! Desc
509 '' , & ! Units
510 'inc/wrf_auxinput2out.inc ext_write_field MAPFAC_U memorder XY' , & ! Debug message
511 ids , ide , jds , (jde-1) , 1 , 1 , &
512 ims , ime , jms , jme , 1 , 1 , &
513 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
514 ierr )
515 CALL wrf_ext_write_field ( &
516 fid , & ! DataHandle
517 current_date(1:19) , & ! DateStr
518 'MAPFAC_V' , & ! Data Name
519 grid%msfv , & ! Field
520 WRF_FLOAT , & ! FieldType
521 grid%communicator , & ! Comm
522 grid%iocommunicator , & ! Comm
523 grid%domdesc , & ! Comm
524 grid%bdy_mask , & ! bdy_mask
525 dryrun , & ! flag
526 'XY' , & ! MemoryOrder
527 'Y' , & ! Stagger
528 'west_east' , & ! Dimname 1
529 'south_north_stag' , & ! Dimname 2
530 '' , & ! Dimname 3
531 'Map scale factor on v-grid' , & ! Desc
532 '' , & ! Units
533 'inc/wrf_auxinput2out.inc ext_write_field MAPFAC_V memorder XY' , & ! Debug message
534 ids , (ide-1) , jds , jde , 1 , 1 , &
535 ims , ime , jms , jme , 1 , 1 , &
536 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
537 ierr )
538 CALL wrf_ext_write_field ( &
539 fid , & ! DataHandle
540 current_date(1:19) , & ! DateStr
541 'F' , & ! Data Name
542 grid%f , & ! Field
543 WRF_FLOAT , & ! FieldType
544 grid%communicator , & ! Comm
545 grid%iocommunicator , & ! Comm
546 grid%domdesc , & ! Comm
547 grid%bdy_mask , & ! bdy_mask
548 dryrun , & ! flag
549 'XY' , & ! MemoryOrder
550 '' , & ! Stagger
551 'west_east' , & ! Dimname 1
552 'south_north' , & ! Dimname 2
553 '' , & ! Dimname 3
554 'Coriolis sine latitude term' , & ! Desc
555 's-1' , & ! Units
556 'inc/wrf_auxinput2out.inc ext_write_field F memorder XY' , & ! Debug message
557 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
558 ims , ime , jms , jme , 1 , 1 , &
559 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
560 ierr )
561 CALL wrf_ext_write_field ( &
562 fid , & ! DataHandle
563 current_date(1:19) , & ! DateStr
564 'E' , & ! Data Name
565 grid%e , & ! 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 'XY' , & ! MemoryOrder
573 '' , & ! Stagger
574 'west_east' , & ! Dimname 1
575 'south_north' , & ! Dimname 2
576 '' , & ! Dimname 3
577 'Coriolis cosine latitude term' , & ! Desc
578 's-1' , & ! Units
579 'inc/wrf_auxinput2out.inc ext_write_field E memorder XY' , & ! Debug message
580 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
581 ims , ime , jms , jme , 1 , 1 , &
582 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
583 ierr )
584 CALL wrf_ext_write_field ( &
585 fid , & ! DataHandle
586 current_date(1:19) , & ! DateStr
587 'SINALPHA' , & ! Data Name
588 grid%sina , & ! Field
589 WRF_FLOAT , & ! FieldType
590 grid%communicator , & ! Comm
591 grid%iocommunicator , & ! Comm
592 grid%domdesc , & ! Comm
593 grid%bdy_mask , & ! bdy_mask
594 dryrun , & ! flag
595 'XY' , & ! MemoryOrder
596 '' , & ! Stagger
597 'west_east' , & ! Dimname 1
598 'south_north' , & ! Dimname 2
599 '' , & ! Dimname 3
600 'Local sine of map rotation' , & ! Desc
601 '' , & ! Units
602 'inc/wrf_auxinput2out.inc ext_write_field SINALPHA memorder XY' , & ! Debug message
603 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
604 ims , ime , jms , jme , 1 , 1 , &
605 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
606 ierr )
607 CALL wrf_ext_write_field ( &
608 fid , & ! DataHandle
609 current_date(1:19) , & ! DateStr
610 'COSALPHA' , & ! Data Name
611 grid%cosa , & ! Field
612 WRF_FLOAT , & ! FieldType
613 grid%communicator , & ! Comm
614 grid%iocommunicator , & ! Comm
615 grid%domdesc , & ! Comm
616 grid%bdy_mask , & ! bdy_mask
617 dryrun , & ! flag
618 'XY' , & ! MemoryOrder
619 '' , & ! Stagger
620 'west_east' , & ! Dimname 1
621 'south_north' , & ! Dimname 2
622 '' , & ! Dimname 3
623 'Local cosine of map rotation' , & ! Desc
624 '' , & ! Units
625 'inc/wrf_auxinput2out.inc ext_write_field COSALPHA memorder XY' , & ! Debug message
626 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
627 ims , ime , jms , jme , 1 , 1 , &
628 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
629 ierr )
630 CALL wrf_ext_write_field ( &
631 fid , & ! DataHandle
632 current_date(1:19) , & ! DateStr
633 'HGT' , & ! Data Name
634 grid%ht , & ! Field
635 WRF_FLOAT , & ! FieldType
636 grid%communicator , & ! Comm
637 grid%iocommunicator , & ! Comm
638 grid%domdesc , & ! Comm
639 grid%bdy_mask , & ! bdy_mask
640 dryrun , & ! flag
641 'XY' , & ! MemoryOrder
642 '' , & ! Stagger
643 'west_east' , & ! Dimname 1
644 'south_north' , & ! Dimname 2
645 '' , & ! Dimname 3
646 'Terrain Height' , & ! Desc
647 'm' , & ! Units
648 'inc/wrf_auxinput2out.inc ext_write_field HGT memorder XY' , & ! Debug message
649 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
650 ims , ime , jms , jme , 1 , 1 , &
651 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
652 ierr )
653 CALL wrf_ext_write_field ( &
654 fid , & ! DataHandle
655 current_date(1:19) , & ! DateStr
656 'TSK' , & ! Data Name
657 grid%tsk , & ! Field
658 WRF_FLOAT , & ! FieldType
659 grid%communicator , & ! Comm
660 grid%iocommunicator , & ! Comm
661 grid%domdesc , & ! Comm
662 grid%bdy_mask , & ! bdy_mask
663 dryrun , & ! flag
664 'XY' , & ! MemoryOrder
665 '' , & ! Stagger
666 'west_east' , & ! Dimname 1
667 'south_north' , & ! Dimname 2
668 '' , & ! Dimname 3
669 'SURFACE SKIN TEMPERATURE' , & ! Desc
670 'K' , & ! Units
671 'inc/wrf_auxinput2out.inc ext_write_field TSK memorder XY' , & ! Debug message
672 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
673 ims , ime , jms , jme , 1 , 1 , &
674 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
675 ierr )
676 CALL wrf_ext_write_field ( &
677 fid , & ! DataHandle
678 current_date(1:19) , & ! DateStr
679 'XLAT' , & ! Data Name
680 grid%xlat , & ! Field
681 WRF_FLOAT , & ! FieldType
682 grid%communicator , & ! Comm
683 grid%iocommunicator , & ! Comm
684 grid%domdesc , & ! Comm
685 grid%bdy_mask , & ! bdy_mask
686 dryrun , & ! flag
687 'XY' , & ! MemoryOrder
688 '' , & ! Stagger
689 'west_east' , & ! Dimname 1
690 'south_north' , & ! Dimname 2
691 '' , & ! Dimname 3
692 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
693 'degree_north' , & ! Units
694 'inc/wrf_auxinput2out.inc ext_write_field XLAT memorder XY' , & ! Debug message
695 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
696 ims , ime , jms , jme , 1 , 1 , &
697 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
698 ierr )
699 CALL wrf_ext_write_field ( &
700 fid , & ! DataHandle
701 current_date(1:19) , & ! DateStr
702 'XLONG' , & ! Data Name
703 grid%xlong , & ! Field
704 WRF_FLOAT , & ! FieldType
705 grid%communicator , & ! Comm
706 grid%iocommunicator , & ! Comm
707 grid%domdesc , & ! Comm
708 grid%bdy_mask , & ! bdy_mask
709 dryrun , & ! flag
710 'XY' , & ! MemoryOrder
711 '' , & ! Stagger
712 'west_east' , & ! Dimname 1
713 'south_north' , & ! Dimname 2
714 '' , & ! Dimname 3
715 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
716 'degree_east' , & ! Units
717 'inc/wrf_auxinput2out.inc ext_write_field XLONG memorder XY' , & ! Debug message
718 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
719 ims , ime , jms , jme , 1 , 1 , &
720 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
721 ierr )
722 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
723 CALL wrf_ext_write_field ( &
724 fid , & ! DataHandle
725 current_date(1:19) , & ! DateStr
726 'XLAT_U' , & ! Data Name
727 grid%em_xlat_u , & ! Field
728 WRF_FLOAT , & ! FieldType
729 grid%communicator , & ! Comm
730 grid%iocommunicator , & ! Comm
731 grid%domdesc , & ! Comm
732 grid%bdy_mask , & ! bdy_mask
733 dryrun , & ! flag
734 'XY' , & ! MemoryOrder
735 'X' , & ! Stagger
736 'west_east_stag' , & ! Dimname 1
737 'south_north' , & ! Dimname 2
738 '' , & ! Dimname 3
739 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
740 'degree_north' , & ! Units
741 'inc/wrf_auxinput2out.inc ext_write_field XLAT_U memorder XY' , & ! Debug message
742 ids , ide , jds , (jde-1) , 1 , 1 , &
743 ims , ime , jms , jme , 1 , 1 , &
744 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
745 ierr )
746 END IF
747 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
748 CALL wrf_ext_write_field ( &
749 fid , & ! DataHandle
750 current_date(1:19) , & ! DateStr
751 'XLONG_U' , & ! Data Name
752 grid%em_xlong_u , & ! Field
753 WRF_FLOAT , & ! FieldType
754 grid%communicator , & ! Comm
755 grid%iocommunicator , & ! Comm
756 grid%domdesc , & ! Comm
757 grid%bdy_mask , & ! bdy_mask
758 dryrun , & ! flag
759 'XY' , & ! MemoryOrder
760 'X' , & ! Stagger
761 'west_east_stag' , & ! Dimname 1
762 'south_north' , & ! Dimname 2
763 '' , & ! Dimname 3
764 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
765 'degree_east' , & ! Units
766 'inc/wrf_auxinput2out.inc ext_write_field XLONG_U memorder XY' , & ! Debug message
767 ids , ide , jds , (jde-1) , 1 , 1 , &
768 ims , ime , jms , jme , 1 , 1 , &
769 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
770 ierr )
771 END IF
772 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
773 CALL wrf_ext_write_field ( &
774 fid , & ! DataHandle
775 current_date(1:19) , & ! DateStr
776 'XLAT_V' , & ! Data Name
777 grid%em_xlat_v , & ! Field
778 WRF_FLOAT , & ! FieldType
779 grid%communicator , & ! Comm
780 grid%iocommunicator , & ! Comm
781 grid%domdesc , & ! Comm
782 grid%bdy_mask , & ! bdy_mask
783 dryrun , & ! flag
784 'XY' , & ! MemoryOrder
785 'Y' , & ! Stagger
786 'west_east' , & ! Dimname 1
787 'south_north_stag' , & ! Dimname 2
788 '' , & ! Dimname 3
789 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
790 'degree_north' , & ! Units
791 'inc/wrf_auxinput2out.inc ext_write_field XLAT_V memorder XY' , & ! Debug message
792 ids , (ide-1) , jds , jde , 1 , 1 , &
793 ims , ime , jms , jme , 1 , 1 , &
794 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
795 ierr )
796 END IF
797 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
798 CALL wrf_ext_write_field ( &
799 fid , & ! DataHandle
800 current_date(1:19) , & ! DateStr
801 'XLONG_V' , & ! Data Name
802 grid%em_xlong_v , & ! Field
803 WRF_FLOAT , & ! FieldType
804 grid%communicator , & ! Comm
805 grid%iocommunicator , & ! Comm
806 grid%domdesc , & ! Comm
807 grid%bdy_mask , & ! bdy_mask
808 dryrun , & ! flag
809 'XY' , & ! MemoryOrder
810 'Y' , & ! Stagger
811 'west_east' , & ! Dimname 1
812 'south_north_stag' , & ! Dimname 2
813 '' , & ! Dimname 3
814 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
815 'degree_east' , & ! Units
816 'inc/wrf_auxinput2out.inc ext_write_field XLONG_V memorder XY' , & ! Debug message
817 ids , (ide-1) , jds , jde , 1 , 1 , &
818 ims , ime , jms , jme , 1 , 1 , &
819 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
820 ierr )
821 END IF
822 CALL wrf_ext_write_field ( &
823 fid , & ! DataHandle
824 current_date(1:19) , & ! DateStr
825 'ALBBCK' , & ! Data Name
826 grid%albbck , & ! Field
827 WRF_FLOAT , & ! FieldType
828 grid%communicator , & ! Comm
829 grid%iocommunicator , & ! Comm
830 grid%domdesc , & ! Comm
831 grid%bdy_mask , & ! bdy_mask
832 dryrun , & ! flag
833 'XY' , & ! MemoryOrder
834 '' , & ! Stagger
835 'west_east' , & ! Dimname 1
836 'south_north' , & ! Dimname 2
837 '' , & ! Dimname 3
838 'BACKGROUND ALBEDO' , & ! Desc
839 '' , & ! Units
840 'inc/wrf_auxinput2out.inc ext_write_field ALBBCK memorder XY' , & ! Debug message
841 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
842 ims , ime , jms , jme , 1 , 1 , &
843 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
844 ierr )
845 CALL wrf_ext_write_field ( &
846 fid , & ! DataHandle
847 current_date(1:19) , & ! DateStr
848 'TMN' , & ! Data Name
849 grid%tmn , & ! Field
850 WRF_FLOAT , & ! FieldType
851 grid%communicator , & ! Comm
852 grid%iocommunicator , & ! Comm
853 grid%domdesc , & ! Comm
854 grid%bdy_mask , & ! bdy_mask
855 dryrun , & ! flag
856 'XY' , & ! MemoryOrder
857 '' , & ! Stagger
858 'west_east' , & ! Dimname 1
859 'south_north' , & ! Dimname 2
860 '' , & ! Dimname 3
861 'SOIL TEMPERATURE AT LOWER BOUNDARY' , & ! Desc
862 'K' , & ! Units
863 'inc/wrf_auxinput2out.inc ext_write_field TMN memorder XY' , & ! Debug message
864 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
865 ims , ime , jms , jme , 1 , 1 , &
866 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
867 ierr )
868 CALL wrf_ext_write_field ( &
869 fid , & ! DataHandle
870 current_date(1:19) , & ! DateStr
871 'XLAND' , & ! Data Name
872 grid%xland , & ! Field
873 WRF_FLOAT , & ! FieldType
874 grid%communicator , & ! Comm
875 grid%iocommunicator , & ! Comm
876 grid%domdesc , & ! Comm
877 grid%bdy_mask , & ! bdy_mask
878 dryrun , & ! flag
879 'XY' , & ! MemoryOrder
880 '' , & ! Stagger
881 'west_east' , & ! Dimname 1
882 'south_north' , & ! Dimname 2
883 '' , & ! Dimname 3
884 'LAND MASK (1 FOR LAND, 2 FOR WATER)' , & ! Desc
885 '' , & ! Units
886 'inc/wrf_auxinput2out.inc ext_write_field XLAND memorder XY' , & ! Debug message
887 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
888 ims , ime , jms , jme , 1 , 1 , &
889 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
890 ierr )
891 !ENDOFREGISTRYGENERATEDINCLUDE