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 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_auxinput2out.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 DO itrace = PARAM_FIRST_SCALAR , num_moist
31 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
32 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
33 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
34 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
35 CALL wrf_ext_write_field ( &
36 fid , & ! DataHandle
37 current_date(1:19) , & ! DateStr
38 TRIM(moist_dname_table( grid%id, itrace )), & !data name
39 grid%moist(ims,jms,kms,itrace) , & ! Field
40 WRF_FLOAT , & ! FieldType
41 grid%communicator , & ! Comm
42 grid%iocommunicator , & ! Comm
43 grid%domdesc , & ! Comm
44 grid%bdy_mask , & ! bdy_mask
45 dryrun , & ! flag
46 'XYZ' , & ! MemoryOrder
47 '' , & ! Stagger
48 'west_east' , & ! Dimname 1
49 'south_north' , & ! Dimname 2
50 'bottom_top' , & ! Dimname 3
51 moist_desc_table( grid%id, itrace ), & ! Desc
52 moist_units_table( grid%id, itrace ), & ! Units
53 'inc/wrf_auxinput2out.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
54 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
55 ims , ime , jms , jme , kms , kme , &
56 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
57 ierr )
58 ENDIF
59 ENDIF
60 ENDDO
61 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
62 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
63 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
64 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
65 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
66 CALL wrf_ext_write_field ( &
67 fid , & ! DataHandle
68 current_date(1:19) , & ! DateStr
69 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
70 grid%a_moist(ims,jms,kms,itrace) , & ! Field
71 WRF_FLOAT , & ! FieldType
72 grid%communicator , & ! Comm
73 grid%iocommunicator , & ! Comm
74 grid%domdesc , & ! Comm
75 grid%bdy_mask , & ! bdy_mask
76 dryrun , & ! flag
77 'XYZ' , & ! MemoryOrder
78 '' , & ! Stagger
79 'west_east' , & ! Dimname 1
80 'south_north' , & ! Dimname 2
81 'bottom_top' , & ! Dimname 3
82 a_moist_desc_table( grid%id, itrace ), & ! Desc
83 a_moist_units_table( grid%id, itrace ), & ! Units
84 'inc/wrf_auxinput2out.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
85 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
86 ims , ime , jms , jme , kms , kme , &
87 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
88 ierr )
89 ENDIF
90 ENDIF
91 ENDDO
92 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
93 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
94 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
95 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
96 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
97 CALL wrf_ext_write_field ( &
98 fid , & ! DataHandle
99 current_date(1:19) , & ! DateStr
100 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
101 grid%g_moist(ims,jms,kms,itrace) , & ! Field
102 WRF_FLOAT , & ! FieldType
103 grid%communicator , & ! Comm
104 grid%iocommunicator , & ! Comm
105 grid%domdesc , & ! Comm
106 grid%bdy_mask , & ! bdy_mask
107 dryrun , & ! flag
108 'XYZ' , & ! MemoryOrder
109 '' , & ! Stagger
110 'west_east' , & ! Dimname 1
111 'south_north' , & ! Dimname 2
112 'bottom_top' , & ! Dimname 3
113 g_moist_desc_table( grid%id, itrace ), & ! Desc
114 g_moist_units_table( grid%id, itrace ), & ! Units
115 'inc/wrf_auxinput2out.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
116 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
117 ims , ime , jms , jme , kms , kme , &
118 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
119 ierr )
120 ENDIF
121 ENDIF
122 ENDDO
123 DO itrace = PARAM_FIRST_SCALAR , num_scalar
124 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
125 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
126 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
127 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
128 CALL wrf_ext_write_field ( &
129 fid , & ! DataHandle
130 current_date(1:19) , & ! DateStr
131 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
132 grid%scalar(ims,jms,kms,itrace) , & ! Field
133 WRF_FLOAT , & ! FieldType
134 grid%communicator , & ! Comm
135 grid%iocommunicator , & ! Comm
136 grid%domdesc , & ! Comm
137 grid%bdy_mask , & ! bdy_mask
138 dryrun , & ! flag
139 'XYZ' , & ! MemoryOrder
140 '' , & ! Stagger
141 'west_east' , & ! Dimname 1
142 'south_north' , & ! Dimname 2
143 'bottom_top' , & ! Dimname 3
144 scalar_desc_table( grid%id, itrace ), & ! Desc
145 scalar_units_table( grid%id, itrace ), & ! Units
146 'inc/wrf_auxinput2out.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
147 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
148 ims , ime , jms , jme , kms , kme , &
149 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
150 ierr )
151 ENDIF
152 ENDIF
153 ENDDO
154 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
155 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
156 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
157 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
158 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
159 CALL wrf_ext_write_field ( &
160 fid , & ! DataHandle
161 current_date(1:19) , & ! DateStr
162 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
163 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
164 WRF_FLOAT , & ! FieldType
165 grid%communicator , & ! Comm
166 grid%iocommunicator , & ! Comm
167 grid%domdesc , & ! Comm
168 grid%bdy_mask , & ! bdy_mask
169 dryrun , & ! flag
170 'XYZ' , & ! MemoryOrder
171 '' , & ! Stagger
172 'west_east' , & ! Dimname 1
173 'south_north' , & ! Dimname 2
174 'bottom_top' , & ! Dimname 3
175 a_scalar_desc_table( grid%id, itrace ), & ! Desc
176 a_scalar_units_table( grid%id, itrace ), & ! Units
177 'inc/wrf_auxinput2out.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
178 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
179 ims , ime , jms , jme , kms , kme , &
180 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
181 ierr )
182 ENDIF
183 ENDIF
184 ENDDO
185 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
186 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
187 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
188 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
189 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
190 CALL wrf_ext_write_field ( &
191 fid , & ! DataHandle
192 current_date(1:19) , & ! DateStr
193 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
194 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
195 WRF_FLOAT , & ! FieldType
196 grid%communicator , & ! Comm
197 grid%iocommunicator , & ! Comm
198 grid%domdesc , & ! Comm
199 grid%bdy_mask , & ! bdy_mask
200 dryrun , & ! flag
201 'XYZ' , & ! MemoryOrder
202 '' , & ! Stagger
203 'west_east' , & ! Dimname 1
204 'south_north' , & ! Dimname 2
205 'bottom_top' , & ! Dimname 3
206 g_scalar_desc_table( grid%id, itrace ), & ! Desc
207 g_scalar_units_table( grid%id, itrace ), & ! Units
208 'inc/wrf_auxinput2out.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
209 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
210 ims , ime , jms , jme , kms , kme , &
211 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
212 ierr )
213 ENDIF
214 ENDIF
215 ENDDO
216 CALL wrf_ext_write_field ( &
217 fid , & ! DataHandle
218 current_date(1:19) , & ! DateStr
219 'LANDMASK' , & ! Data Name
220 grid%landmask , & ! 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 'LAND MASK (1 FOR LAND, 0 FOR WATER)' , & ! Desc
233 '' , & ! Units
234 'inc/wrf_auxinput2out.inc ext_write_field LANDMASK 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 'SHDMAX' , & ! Data Name
243 grid%shdmax , & ! 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 MAX VEG FRACTION' , & ! Desc
256 '' , & ! Units
257 'inc/wrf_auxinput2out.inc ext_write_field SHDMAX 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 'SHDMIN' , & ! Data Name
266 grid%shdmin , & ! 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 MIN VEG FRACTION' , & ! Desc
279 '' , & ! Units
280 'inc/wrf_auxinput2out.inc ext_write_field SHDMIN 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 'SNOALB' , & ! Data Name
289 grid%snoalb , & ! 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 'ANNUAL MAX SNOW ALBEDO IN FRACTION' , & ! Desc
302 '' , & ! Units
303 'inc/wrf_auxinput2out.inc ext_write_field SNOALB 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 'TSLB' , & ! Data Name
312 grid%tslb , & ! 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 TEMPERATURE' , & ! Desc
325 'K' , & ! Units
326 'inc/wrf_auxinput2out.inc ext_write_field TSLB 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 'SMOIS' , & ! Data Name
335 grid%smois , & ! 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 MOISTURE' , & ! Desc
348 'm3 m-3' , & ! Units
349 'inc/wrf_auxinput2out.inc ext_write_field SMOIS 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 'SH2O' , & ! Data Name
358 grid%sh2o , & ! 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 'XYZ' , & ! MemoryOrder
366 'Z' , & ! Stagger
367 'west_east' , & ! Dimname 1
368 'south_north' , & ! Dimname 2
369 'soil_layers_stag' , & ! Dimname 3
370 'SOIL LIQUID WATER' , & ! Desc
371 'm3 m-3' , & ! Units
372 'inc/wrf_auxinput2out.inc ext_write_field SH2O memorder XYZ' , & ! Debug message
373 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
374 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
375 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
376 ierr )
377 CALL wrf_ext_write_field ( &
378 fid , & ! DataHandle
379 current_date(1:19) , & ! DateStr
380 'XICE' , & ! Data Name
381 grid%xice , & ! 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 'XY' , & ! MemoryOrder
389 '' , & ! Stagger
390 'west_east' , & ! Dimname 1
391 'south_north' , & ! Dimname 2
392 '' , & ! Dimname 3
393 'SEA ICE FLAG' , & ! Desc
394 '' , & ! Units
395 'inc/wrf_auxinput2out.inc ext_write_field XICE 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 'IVGTYP' , & ! Data Name
404 grid%ivgtyp , & ! 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 VEGETATION CATEGORY' , & ! Desc
417 '' , & ! Units
418 'inc/wrf_auxinput2out.inc ext_write_field IVGTYP 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 'ISLTYP' , & ! Data Name
427 grid%isltyp , & ! Field
428 WRF_integer , & ! 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 'DOMINANT SOIL CATEGORY' , & ! Desc
440 '' , & ! Units
441 'inc/wrf_auxinput2out.inc ext_write_field ISLTYP 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 'VEGFRA' , & ! Data Name
450 grid%vegfra , & ! 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 'VEGETATION FRACTION' , & ! Desc
463 '' , & ! Units
464 'inc/wrf_auxinput2out.inc ext_write_field VEGFRA 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 'SNOW' , & ! Data Name
473 grid%snow , & ! 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 'SNOW WATER EQUIVALENT' , & ! Desc
486 'kg m-2' , & ! Units
487 'inc/wrf_auxinput2out.inc ext_write_field SNOW 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 'SNOWH' , & ! Data Name
496 grid%snowh , & ! 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 '' , & ! Stagger
505 'west_east' , & ! Dimname 1
506 'south_north' , & ! Dimname 2
507 '' , & ! Dimname 3
508 'PHYSICAL SNOW DEPTH' , & ! Desc
509 'm' , & ! Units
510 'inc/wrf_auxinput2out.inc ext_write_field SNOWH memorder XY' , & ! Debug message
511 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
512 ims , ime , jms , jme , 1 , 1 , &
513 ips , MIN( (ide-1), 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 'RHOSN' , & ! Data Name
519 grid%rhosn , & ! 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 '' , & ! Stagger
528 'west_east' , & ! Dimname 1
529 'south_north' , & ! Dimname 2
530 '' , & ! Dimname 3
531 ' SNOW DENSITY' , & ! Desc
532 'kg m-3' , & ! Units
533 'inc/wrf_auxinput2out.inc ext_write_field RHOSN memorder XY' , & ! Debug message
534 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
535 ims , ime , jms , jme , 1 , 1 , &
536 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
537 ierr )
538 CALL wrf_ext_write_field ( &
539 fid , & ! DataHandle
540 current_date(1:19) , & ! DateStr
541 'CANWAT' , & ! Data Name
542 grid%canwat , & ! 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 'CANOPY WATER' , & ! Desc
555 'kg m-2' , & ! Units
556 'inc/wrf_auxinput2out.inc ext_write_field CANWAT 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 'SST' , & ! Data Name
565 grid%sst , & ! 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 'SEA SURFACE TEMPERATURE' , & ! Desc
578 'K' , & ! Units
579 'inc/wrf_auxinput2out.inc ext_write_field SST 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 'MAPFAC_M' , & ! Data Name
588 grid%msft , & ! 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 'Map scale factor on mass grid' , & ! Desc
601 '' , & ! Units
602 'inc/wrf_auxinput2out.inc ext_write_field MAPFAC_M 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 'MAPFAC_U' , & ! Data Name
611 grid%msfu , & ! 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 'X' , & ! Stagger
620 'west_east_stag' , & ! Dimname 1
621 'south_north' , & ! Dimname 2
622 '' , & ! Dimname 3
623 'Map scale factor on u-grid' , & ! Desc
624 '' , & ! Units
625 'inc/wrf_auxinput2out.inc ext_write_field MAPFAC_U memorder XY' , & ! Debug message
626 ids , ide , jds , (jde-1) , 1 , 1 , &
627 ims , ime , jms , jme , 1 , 1 , &
628 ips , MIN( ide, 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 'MAPFAC_V' , & ! Data Name
634 grid%msfv , & ! 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 'Y' , & ! Stagger
643 'west_east' , & ! Dimname 1
644 'south_north_stag' , & ! Dimname 2
645 '' , & ! Dimname 3
646 'Map scale factor on v-grid' , & ! Desc
647 '' , & ! Units
648 'inc/wrf_auxinput2out.inc ext_write_field MAPFAC_V memorder XY' , & ! Debug message
649 ids , (ide-1) , jds , jde , 1 , 1 , &
650 ims , ime , jms , jme , 1 , 1 , &
651 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
652 ierr )
653 CALL wrf_ext_write_field ( &
654 fid , & ! DataHandle
655 current_date(1:19) , & ! DateStr
656 'F' , & ! Data Name
657 grid%f , & ! 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 'Coriolis sine latitude term' , & ! Desc
670 's-1' , & ! Units
671 'inc/wrf_auxinput2out.inc ext_write_field F 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 'E' , & ! Data Name
680 grid%e , & ! 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 'Coriolis cosine latitude term' , & ! Desc
693 's-1' , & ! Units
694 'inc/wrf_auxinput2out.inc ext_write_field E 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 'SINALPHA' , & ! Data Name
703 grid%sina , & ! 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 'Local sine of map rotation' , & ! Desc
716 '' , & ! Units
717 'inc/wrf_auxinput2out.inc ext_write_field SINALPHA 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 CALL wrf_ext_write_field ( &
723 fid , & ! DataHandle
724 current_date(1:19) , & ! DateStr
725 'COSALPHA' , & ! Data Name
726 grid%cosa , & ! Field
727 WRF_FLOAT , & ! FieldType
728 grid%communicator , & ! Comm
729 grid%iocommunicator , & ! Comm
730 grid%domdesc , & ! Comm
731 grid%bdy_mask , & ! bdy_mask
732 dryrun , & ! flag
733 'XY' , & ! MemoryOrder
734 '' , & ! Stagger
735 'west_east' , & ! Dimname 1
736 'south_north' , & ! Dimname 2
737 '' , & ! Dimname 3
738 'Local cosine of map rotation' , & ! Desc
739 '' , & ! Units
740 'inc/wrf_auxinput2out.inc ext_write_field COSALPHA memorder XY' , & ! Debug message
741 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
742 ims , ime , jms , jme , 1 , 1 , &
743 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
744 ierr )
745 CALL wrf_ext_write_field ( &
746 fid , & ! DataHandle
747 current_date(1:19) , & ! DateStr
748 'HGT' , & ! Data Name
749 grid%ht , & ! Field
750 WRF_FLOAT , & ! FieldType
751 grid%communicator , & ! Comm
752 grid%iocommunicator , & ! Comm
753 grid%domdesc , & ! Comm
754 grid%bdy_mask , & ! bdy_mask
755 dryrun , & ! flag
756 'XY' , & ! MemoryOrder
757 '' , & ! Stagger
758 'west_east' , & ! Dimname 1
759 'south_north' , & ! Dimname 2
760 '' , & ! Dimname 3
761 'Terrain Height' , & ! Desc
762 'm' , & ! Units
763 'inc/wrf_auxinput2out.inc ext_write_field HGT memorder XY' , & ! Debug message
764 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
765 ims , ime , jms , jme , 1 , 1 , &
766 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
767 ierr )
768 CALL wrf_ext_write_field ( &
769 fid , & ! DataHandle
770 current_date(1:19) , & ! DateStr
771 'TSK' , & ! Data Name
772 grid%tsk , & ! Field
773 WRF_FLOAT , & ! FieldType
774 grid%communicator , & ! Comm
775 grid%iocommunicator , & ! Comm
776 grid%domdesc , & ! Comm
777 grid%bdy_mask , & ! bdy_mask
778 dryrun , & ! flag
779 'XY' , & ! MemoryOrder
780 '' , & ! Stagger
781 'west_east' , & ! Dimname 1
782 'south_north' , & ! Dimname 2
783 '' , & ! Dimname 3
784 'SURFACE SKIN TEMPERATURE' , & ! Desc
785 'K' , & ! Units
786 'inc/wrf_auxinput2out.inc ext_write_field TSK memorder XY' , & ! Debug message
787 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
788 ims , ime , jms , jme , 1 , 1 , &
789 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
790 ierr )
791 CALL wrf_ext_write_field ( &
792 fid , & ! DataHandle
793 current_date(1:19) , & ! DateStr
794 'XLAT' , & ! Data Name
795 grid%xlat , & ! 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 'XY' , & ! MemoryOrder
803 '' , & ! Stagger
804 'west_east' , & ! Dimname 1
805 'south_north' , & ! Dimname 2
806 '' , & ! Dimname 3
807 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
808 'degree_north' , & ! Units
809 'inc/wrf_auxinput2out.inc ext_write_field XLAT memorder XY' , & ! Debug message
810 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
811 ims , ime , jms , jme , 1 , 1 , &
812 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
813 ierr )
814 CALL wrf_ext_write_field ( &
815 fid , & ! DataHandle
816 current_date(1:19) , & ! DateStr
817 'XLONG' , & ! Data Name
818 grid%xlong , & ! Field
819 WRF_FLOAT , & ! FieldType
820 grid%communicator , & ! Comm
821 grid%iocommunicator , & ! Comm
822 grid%domdesc , & ! Comm
823 grid%bdy_mask , & ! bdy_mask
824 dryrun , & ! flag
825 'XY' , & ! MemoryOrder
826 '' , & ! Stagger
827 'west_east' , & ! Dimname 1
828 'south_north' , & ! Dimname 2
829 '' , & ! Dimname 3
830 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
831 'degree_east' , & ! Units
832 'inc/wrf_auxinput2out.inc ext_write_field XLONG memorder XY' , & ! Debug message
833 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
834 ims , ime , jms , jme , 1 , 1 , &
835 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
836 ierr )
837 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
838 CALL wrf_ext_write_field ( &
839 fid , & ! DataHandle
840 current_date(1:19) , & ! DateStr
841 'XLAT_U' , & ! Data Name
842 grid%em_xlat_u , & ! Field
843 WRF_FLOAT , & ! FieldType
844 grid%communicator , & ! Comm
845 grid%iocommunicator , & ! Comm
846 grid%domdesc , & ! Comm
847 grid%bdy_mask , & ! bdy_mask
848 dryrun , & ! flag
849 'XY' , & ! MemoryOrder
850 'X' , & ! Stagger
851 'west_east_stag' , & ! Dimname 1
852 'south_north' , & ! Dimname 2
853 '' , & ! Dimname 3
854 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
855 'degree_north' , & ! Units
856 'inc/wrf_auxinput2out.inc ext_write_field XLAT_U memorder XY' , & ! Debug message
857 ids , ide , jds , (jde-1) , 1 , 1 , &
858 ims , ime , jms , jme , 1 , 1 , &
859 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
860 ierr )
861 END IF
862 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
863 CALL wrf_ext_write_field ( &
864 fid , & ! DataHandle
865 current_date(1:19) , & ! DateStr
866 'XLONG_U' , & ! Data Name
867 grid%em_xlong_u , & ! Field
868 WRF_FLOAT , & ! FieldType
869 grid%communicator , & ! Comm
870 grid%iocommunicator , & ! Comm
871 grid%domdesc , & ! Comm
872 grid%bdy_mask , & ! bdy_mask
873 dryrun , & ! flag
874 'XY' , & ! MemoryOrder
875 'X' , & ! Stagger
876 'west_east_stag' , & ! Dimname 1
877 'south_north' , & ! Dimname 2
878 '' , & ! Dimname 3
879 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
880 'degree_east' , & ! Units
881 'inc/wrf_auxinput2out.inc ext_write_field XLONG_U memorder XY' , & ! Debug message
882 ids , ide , jds , (jde-1) , 1 , 1 , &
883 ims , ime , jms , jme , 1 , 1 , &
884 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
885 ierr )
886 END IF
887 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
888 CALL wrf_ext_write_field ( &
889 fid , & ! DataHandle
890 current_date(1:19) , & ! DateStr
891 'XLAT_V' , & ! Data Name
892 grid%em_xlat_v , & ! Field
893 WRF_FLOAT , & ! FieldType
894 grid%communicator , & ! Comm
895 grid%iocommunicator , & ! Comm
896 grid%domdesc , & ! Comm
897 grid%bdy_mask , & ! bdy_mask
898 dryrun , & ! flag
899 'XY' , & ! MemoryOrder
900 'Y' , & ! Stagger
901 'west_east' , & ! Dimname 1
902 'south_north_stag' , & ! Dimname 2
903 '' , & ! Dimname 3
904 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
905 'degree_north' , & ! Units
906 'inc/wrf_auxinput2out.inc ext_write_field XLAT_V memorder XY' , & ! Debug message
907 ids , (ide-1) , jds , jde , 1 , 1 , &
908 ims , ime , jms , jme , 1 , 1 , &
909 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
910 ierr )
911 END IF
912 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
913 CALL wrf_ext_write_field ( &
914 fid , & ! DataHandle
915 current_date(1:19) , & ! DateStr
916 'XLONG_V' , & ! Data Name
917 grid%em_xlong_v , & ! Field
918 WRF_FLOAT , & ! FieldType
919 grid%communicator , & ! Comm
920 grid%iocommunicator , & ! Comm
921 grid%domdesc , & ! Comm
922 grid%bdy_mask , & ! bdy_mask
923 dryrun , & ! flag
924 'XY' , & ! MemoryOrder
925 'Y' , & ! Stagger
926 'west_east' , & ! Dimname 1
927 'south_north_stag' , & ! Dimname 2
928 '' , & ! Dimname 3
929 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
930 'degree_east' , & ! Units
931 'inc/wrf_auxinput2out.inc ext_write_field XLONG_V memorder XY' , & ! Debug message
932 ids , (ide-1) , jds , jde , 1 , 1 , &
933 ims , ime , jms , jme , 1 , 1 , &
934 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
935 ierr )
936 END IF
937 CALL wrf_ext_write_field ( &
938 fid , & ! DataHandle
939 current_date(1:19) , & ! DateStr
940 'ALBBCK' , & ! Data Name
941 grid%albbck , & ! Field
942 WRF_FLOAT , & ! FieldType
943 grid%communicator , & ! Comm
944 grid%iocommunicator , & ! Comm
945 grid%domdesc , & ! Comm
946 grid%bdy_mask , & ! bdy_mask
947 dryrun , & ! flag
948 'XY' , & ! MemoryOrder
949 '' , & ! Stagger
950 'west_east' , & ! Dimname 1
951 'south_north' , & ! Dimname 2
952 '' , & ! Dimname 3
953 'BACKGROUND ALBEDO' , & ! Desc
954 '' , & ! Units
955 'inc/wrf_auxinput2out.inc ext_write_field ALBBCK memorder XY' , & ! Debug message
956 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
957 ims , ime , jms , jme , 1 , 1 , &
958 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
959 ierr )
960 CALL wrf_ext_write_field ( &
961 fid , & ! DataHandle
962 current_date(1:19) , & ! DateStr
963 'TMN' , & ! Data Name
964 grid%tmn , & ! Field
965 WRF_FLOAT , & ! FieldType
966 grid%communicator , & ! Comm
967 grid%iocommunicator , & ! Comm
968 grid%domdesc , & ! Comm
969 grid%bdy_mask , & ! bdy_mask
970 dryrun , & ! flag
971 'XY' , & ! MemoryOrder
972 '' , & ! Stagger
973 'west_east' , & ! Dimname 1
974 'south_north' , & ! Dimname 2
975 '' , & ! Dimname 3
976 'SOIL TEMPERATURE AT LOWER BOUNDARY' , & ! Desc
977 'K' , & ! Units
978 'inc/wrf_auxinput2out.inc ext_write_field TMN memorder XY' , & ! Debug message
979 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
980 ims , ime , jms , jme , 1 , 1 , &
981 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
982 ierr )
983 CALL wrf_ext_write_field ( &
984 fid , & ! DataHandle
985 current_date(1:19) , & ! DateStr
986 'XLAND' , & ! Data Name
987 grid%xland , & ! Field
988 WRF_FLOAT , & ! FieldType
989 grid%communicator , & ! Comm
990 grid%iocommunicator , & ! Comm
991 grid%domdesc , & ! Comm
992 grid%bdy_mask , & ! bdy_mask
993 dryrun , & ! flag
994 'XY' , & ! MemoryOrder
995 '' , & ! Stagger
996 'west_east' , & ! Dimname 1
997 'south_north' , & ! Dimname 2
998 '' , & ! Dimname 3
999 'LAND MASK (1 FOR LAND, 2 FOR WATER)' , & ! Desc
1000 '' , & ! Units
1001 'inc/wrf_auxinput2out.inc ext_write_field XLAND memorder XY' , & ! Debug message
1002 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1003 ims , ime , jms , jme , 1 , 1 , &
1004 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1005 ierr )
1006 !ENDOFREGISTRYGENERATEDINCLUDE