wrf_auxinput1out.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxinput1out.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 'UU' , & ! Data Name
12 grid%em_u_gc , & ! 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 'XZY' , & ! MemoryOrder
20 'X' , & ! Stagger
21 'west_east_stag' , & ! Dimname 1
22 'num_metgrid_levels' , & ! Dimname 2
23 'south_north' , & ! Dimname 3
24 'x-wind component' , & ! Desc
25 'm s-1' , & ! Units
26 'inc/wrf_auxinput1out.inc ext_write_field UU memorder XZY' , & ! Debug message
27 ids , ide , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
28 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
29 ips , MIN( ide, ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( (jde-1), jpe ) , &
30 ierr )
31 END IF
32 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
33 CALL wrf_ext_write_field ( &
34 fid , & ! DataHandle
35 current_date(1:19) , & ! DateStr
36 'VV' , & ! Data Name
37 grid%em_v_gc , & ! Field
38 WRF_FLOAT , & ! FieldType
39 grid%communicator , & ! Comm
40 grid%iocommunicator , & ! Comm
41 grid%domdesc , & ! Comm
42 grid%bdy_mask , & ! bdy_mask
43 dryrun , & ! flag
44 'XZY' , & ! MemoryOrder
45 'Y' , & ! Stagger
46 'west_east' , & ! Dimname 1
47 'num_metgrid_levels' , & ! Dimname 2
48 'south_north_stag' , & ! Dimname 3
49 'y-wind component' , & ! Desc
50 'm s-1' , & ! Units
51 'inc/wrf_auxinput1out.inc ext_write_field VV memorder XZY' , & ! Debug message
52 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , jde , &
53 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
54 ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( jde, jpe ) , &
55 ierr )
56 END IF
57 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
58 CALL wrf_ext_write_field ( &
59 fid , & ! DataHandle
60 current_date(1:19) , & ! DateStr
61 'TT' , & ! Data Name
62 grid%em_t_gc , & ! Field
63 WRF_FLOAT , & ! FieldType
64 grid%communicator , & ! Comm
65 grid%iocommunicator , & ! Comm
66 grid%domdesc , & ! Comm
67 grid%bdy_mask , & ! bdy_mask
68 dryrun , & ! flag
69 'XZY' , & ! MemoryOrder
70 '' , & ! Stagger
71 'west_east' , & ! Dimname 1
72 'num_metgrid_levels' , & ! Dimname 2
73 'south_north' , & ! Dimname 3
74 'temperature' , & ! Desc
75 'K' , & ! Units
76 'inc/wrf_auxinput1out.inc ext_write_field TT memorder XZY' , & ! Debug message
77 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
78 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
79 ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( (jde-1), jpe ) , &
80 ierr )
81 END IF
82 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
83 CALL wrf_ext_write_field ( &
84 fid , & ! DataHandle
85 current_date(1:19) , & ! DateStr
86 'RH' , & ! Data Name
87 grid%em_rh_gc , & ! Field
88 WRF_FLOAT , & ! FieldType
89 grid%communicator , & ! Comm
90 grid%iocommunicator , & ! Comm
91 grid%domdesc , & ! Comm
92 grid%bdy_mask , & ! bdy_mask
93 dryrun , & ! flag
94 'XZY' , & ! MemoryOrder
95 '' , & ! Stagger
96 'west_east' , & ! Dimname 1
97 'num_metgrid_levels' , & ! Dimname 2
98 'south_north' , & ! Dimname 3
99 'relative humidity' , & ! Desc
100 '%' , & ! Units
101 'inc/wrf_auxinput1out.inc ext_write_field RH memorder XZY' , & ! Debug message
102 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
103 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
104 ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( (jde-1), jpe ) , &
105 ierr )
106 END IF
107 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
108 CALL wrf_ext_write_field ( &
109 fid , & ! DataHandle
110 current_date(1:19) , & ! DateStr
111 'GHT' , & ! Data Name
112 grid%em_ght_gc , & ! Field
113 WRF_FLOAT , & ! FieldType
114 grid%communicator , & ! Comm
115 grid%iocommunicator , & ! Comm
116 grid%domdesc , & ! Comm
117 grid%bdy_mask , & ! bdy_mask
118 dryrun , & ! flag
119 'XZY' , & ! MemoryOrder
120 '' , & ! Stagger
121 'west_east' , & ! Dimname 1
122 'num_metgrid_levels' , & ! Dimname 2
123 'south_north' , & ! Dimname 3
124 'geopotential height' , & ! Desc
125 'm' , & ! Units
126 'inc/wrf_auxinput1out.inc ext_write_field GHT memorder XZY' , & ! Debug message
127 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
128 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
129 ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( (jde-1), jpe ) , &
130 ierr )
131 END IF
132 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
133 CALL wrf_ext_write_field ( &
134 fid , & ! DataHandle
135 current_date(1:19) , & ! DateStr
136 'P' , & ! Data Name
137 grid%em_p_gc , & ! Field
138 WRF_FLOAT , & ! FieldType
139 grid%communicator , & ! Comm
140 grid%iocommunicator , & ! Comm
141 grid%domdesc , & ! Comm
142 grid%bdy_mask , & ! bdy_mask
143 dryrun , & ! flag
144 'XZY' , & ! MemoryOrder
145 '' , & ! Stagger
146 'west_east' , & ! Dimname 1
147 'num_metgrid_levels' , & ! Dimname 2
148 'south_north' , & ! Dimname 3
149 'pressure' , & ! Desc
150 'Pa' , & ! Units
151 'inc/wrf_auxinput1out.inc ext_write_field P memorder XZY' , & ! Debug message
152 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
153 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
154 ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( (jde-1), jpe ) , &
155 ierr )
156 END IF
157 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
158 CALL wrf_ext_write_field ( &
159 fid , & ! DataHandle
160 current_date(1:19) , & ! DateStr
161 'XLAT_M' , & ! Data Name
162 grid%em_xlat_gc , & ! Field
163 WRF_FLOAT , & ! FieldType
164 grid%communicator , & ! Comm
165 grid%iocommunicator , & ! Comm
166 grid%domdesc , & ! Comm
167 grid%bdy_mask , & ! bdy_mask
168 dryrun , & ! flag
169 'XY' , & ! MemoryOrder
170 '' , & ! Stagger
171 'west_east' , & ! Dimname 1
172 'south_north' , & ! Dimname 2
173 '' , & ! Dimname 3
174 'latitude, positive north' , & ! Desc
175 'degrees' , & ! Units
176 'inc/wrf_auxinput1out.inc ext_write_field XLAT_M memorder XY' , & ! Debug message
177 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
178 ims , ime , jms , jme , 1 , 1 , &
179 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
180 ierr )
181 END IF
182 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
183 CALL wrf_ext_write_field ( &
184 fid , & ! DataHandle
185 current_date(1:19) , & ! DateStr
186 'XLONG_M' , & ! Data Name
187 grid%em_xlong_gc , & ! Field
188 WRF_FLOAT , & ! FieldType
189 grid%communicator , & ! Comm
190 grid%iocommunicator , & ! Comm
191 grid%domdesc , & ! Comm
192 grid%bdy_mask , & ! bdy_mask
193 dryrun , & ! flag
194 'XY' , & ! MemoryOrder
195 '' , & ! Stagger
196 'west_east' , & ! Dimname 1
197 'south_north' , & ! Dimname 2
198 '' , & ! Dimname 3
199 'longitude, positive east' , & ! Desc
200 'degrees' , & ! Units
201 'inc/wrf_auxinput1out.inc ext_write_field XLONG_M memorder XY' , & ! Debug message
202 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
203 ims , ime , jms , jme , 1 , 1 , &
204 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
205 ierr )
206 END IF
207 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
208 CALL wrf_ext_write_field ( &
209 fid , & ! DataHandle
210 current_date(1:19) , & ! DateStr
211 'HGT_M' , & ! Data Name
212 grid%em_ht_gc , & ! Field
213 WRF_FLOAT , & ! FieldType
214 grid%communicator , & ! Comm
215 grid%iocommunicator , & ! Comm
216 grid%domdesc , & ! Comm
217 grid%bdy_mask , & ! bdy_mask
218 dryrun , & ! flag
219 'XY' , & ! MemoryOrder
220 '' , & ! Stagger
221 'west_east' , & ! Dimname 1
222 'south_north' , & ! Dimname 2
223 '' , & ! Dimname 3
224 'topography elevation' , & ! Desc
225 'm' , & ! Units
226 'inc/wrf_auxinput1out.inc ext_write_field HGT_M memorder XY' , & ! Debug message
227 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
228 ims , ime , jms , jme , 1 , 1 , &
229 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
230 ierr )
231 END IF
232 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
233 CALL wrf_ext_write_field ( &
234 fid , & ! DataHandle
235 current_date(1:19) , & ! DateStr
236 'SKINTEMP' , & ! Data Name
237 grid%em_tsk_gc , & ! Field
238 WRF_FLOAT , & ! FieldType
239 grid%communicator , & ! Comm
240 grid%iocommunicator , & ! Comm
241 grid%domdesc , & ! Comm
242 grid%bdy_mask , & ! bdy_mask
243 dryrun , & ! flag
244 'XY' , & ! MemoryOrder
245 '' , & ! Stagger
246 'west_east' , & ! Dimname 1
247 'south_north' , & ! Dimname 2
248 '' , & ! Dimname 3
249 'skin temperature' , & ! Desc
250 'K' , & ! Units
251 'inc/wrf_auxinput1out.inc ext_write_field SKINTEMP memorder XY' , & ! Debug message
252 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
253 ims , ime , jms , jme , 1 , 1 , &
254 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
255 ierr )
256 END IF
257 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
258 CALL wrf_ext_write_field ( &
259 fid , & ! DataHandle
260 current_date(1:19) , & ! DateStr
261 'SOILTEMP' , & ! Data Name
262 grid%em_tmn_gc , & ! Field
263 WRF_FLOAT , & ! FieldType
264 grid%communicator , & ! Comm
265 grid%iocommunicator , & ! Comm
266 grid%domdesc , & ! Comm
267 grid%bdy_mask , & ! bdy_mask
268 dryrun , & ! flag
269 'XY' , & ! MemoryOrder
270 '' , & ! Stagger
271 'west_east' , & ! Dimname 1
272 'south_north' , & ! Dimname 2
273 '' , & ! Dimname 3
274 'annual mean deep soil temperature' , & ! Desc
275 'K' , & ! Units
276 'inc/wrf_auxinput1out.inc ext_write_field SOILTEMP memorder XY' , & ! Debug message
277 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
278 ims , ime , jms , jme , 1 , 1 , &
279 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
280 ierr )
281 END IF
282 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
283 CALL wrf_ext_write_field ( &
284 fid , & ! DataHandle
285 current_date(1:19) , & ! DateStr
286 'PMSL' , & ! Data Name
287 grid%em_pslv_gc , & ! Field
288 WRF_FLOAT , & ! FieldType
289 grid%communicator , & ! Comm
290 grid%iocommunicator , & ! Comm
291 grid%domdesc , & ! Comm
292 grid%bdy_mask , & ! bdy_mask
293 dryrun , & ! flag
294 'XY' , & ! MemoryOrder
295 '' , & ! Stagger
296 'west_east' , & ! Dimname 1
297 'south_north' , & ! Dimname 2
298 '' , & ! Dimname 3
299 'sea level pressure' , & ! Desc
300 'Pa' , & ! Units
301 'inc/wrf_auxinput1out.inc ext_write_field PMSL memorder XY' , & ! Debug message
302 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
303 ims , ime , jms , jme , 1 , 1 , &
304 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
305 ierr )
306 END IF
307 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
308 CALL wrf_ext_write_field ( &
309 fid , & ! DataHandle
310 current_date(1:19) , & ! DateStr
311 'GREENFRAC' , & ! Data Name
312 grid%em_greenfrac , & ! 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 'XZY' , & ! MemoryOrder
320 '' , & ! Stagger
321 'west_east' , & ! Dimname 1
322 'months_per_year' , & ! Dimname 2
323 'south_north' , & ! Dimname 3
324 'monthly greenness fraction' , & ! Desc
325 '0 - 1 fraction' , & ! Units
326 'inc/wrf_auxinput1out.inc ext_write_field GREENFRAC memorder XZY' , & ! Debug message
327 ids , (ide-1) , 1 , 12 , jds , (jde-1) , &
328 ims , ime , 1 , 12 , jms , jme , &
329 ips , MIN( (ide-1), ipe ) , 1 , 12 , jps , MIN( (jde-1), jpe ) , &
330 ierr )
331 END IF
332 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
333 CALL wrf_ext_write_field ( &
334 fid , & ! DataHandle
335 current_date(1:19) , & ! DateStr
336 'ALBEDO12M' , & ! Data Name
337 grid%em_albedo12m , & ! Field
338 WRF_FLOAT , & ! FieldType
339 grid%communicator , & ! Comm
340 grid%iocommunicator , & ! Comm
341 grid%domdesc , & ! Comm
342 grid%bdy_mask , & ! bdy_mask
343 dryrun , & ! flag
344 'XZY' , & ! MemoryOrder
345 '' , & ! Stagger
346 'west_east' , & ! Dimname 1
347 'months_per_year' , & ! Dimname 2
348 'south_north' , & ! Dimname 3
349 'background albedo' , & ! Desc
350 '0 - 1 fraction' , & ! Units
351 'inc/wrf_auxinput1out.inc ext_write_field ALBEDO12M memorder XZY' , & ! Debug message
352 ids , (ide-1) , 1 , 12 , jds , (jde-1) , &
353 ims , ime , 1 , 12 , jms , jme , &
354 ips , MIN( (ide-1), ipe ) , 1 , 12 , jps , MIN( (jde-1), jpe ) , &
355 ierr )
356 END IF
357 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
358 CALL wrf_ext_write_field ( &
359 fid , & ! DataHandle
360 current_date(1:19) , & ! DateStr
361 'QV' , & ! Data Name
362 grid%em_qv_gc , & ! Field
363 WRF_FLOAT , & ! FieldType
364 grid%communicator , & ! Comm
365 grid%iocommunicator , & ! Comm
366 grid%domdesc , & ! Comm
367 grid%bdy_mask , & ! bdy_mask
368 dryrun , & ! flag
369 'XZY' , & ! MemoryOrder
370 '' , & ! Stagger
371 'west_east' , & ! Dimname 1
372 'num_metgrid_levels' , & ! Dimname 2
373 'south_north' , & ! Dimname 3
374 'mixing ratio' , & ! Desc
375 'kg kg-1' , & ! Units
376 'inc/wrf_auxinput1out.inc ext_write_field QV memorder XZY' , & ! Debug message
377 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
378 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
379 ips , MIN( (ide-1), ipe ) , 1 , config_flags%num_metgrid_levels , jps , MIN( (jde-1), jpe ) , &
380 ierr )
381 END IF
382 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
383 CALL wrf_ext_write_field ( &
384 fid , & ! DataHandle
385 current_date(1:19) , & ! DateStr
386 'U' , & ! Data Name
387 grid%em_u_2 , & ! Field
388 WRF_FLOAT , & ! FieldType
389 grid%communicator , & ! Comm
390 grid%iocommunicator , & ! Comm
391 grid%domdesc , & ! Comm
392 grid%bdy_mask , & ! bdy_mask
393 dryrun , & ! flag
394 'XYZ' , & ! MemoryOrder
395 'X' , & ! Stagger
396 'west_east_stag' , & ! Dimname 1
397 'south_north' , & ! Dimname 2
398 'bottom_top' , & ! Dimname 3
399 'x-wind component' , & ! Desc
400 'm s-1' , & ! Units
401 'inc/wrf_auxinput1out.inc ext_write_field U memorder XYZ' , & ! Debug message
402 ids , ide , jds , (jde-1) , kds , (kde-1) , &
403 ims , ime , jms , jme , kms , kme , &
404 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
405 ierr )
406 END IF
407 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
408 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
409 CALL wrf_ext_write_field ( &
410 fid , & ! DataHandle
411 current_date(1:19) , & ! DateStr
412 'A_U' , & ! Data Name
413 grid%em_a_u_2 , & ! Field
414 WRF_FLOAT , & ! FieldType
415 grid%communicator , & ! Comm
416 grid%iocommunicator , & ! Comm
417 grid%domdesc , & ! Comm
418 grid%bdy_mask , & ! bdy_mask
419 dryrun , & ! flag
420 'XYZ' , & ! MemoryOrder
421 'X' , & ! Stagger
422 'west_east_stag' , & ! Dimname 1
423 'south_north' , & ! Dimname 2
424 'bottom_top' , & ! Dimname 3
425 'x-wind component' , & ! Desc
426 'm s-1' , & ! Units
427 'inc/wrf_auxinput1out.inc ext_write_field A_U memorder XYZ' , & ! Debug message
428 ids , ide , jds , (jde-1) , kds , (kde-1) , &
429 ims , ime , jms , jme , kms , kme , &
430 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
431 ierr )
432 END IF
433 END IF
434 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
435 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
436 CALL wrf_ext_write_field ( &
437 fid , & ! DataHandle
438 current_date(1:19) , & ! DateStr
439 'G_U' , & ! Data Name
440 grid%em_g_u_2 , & ! Field
441 WRF_FLOAT , & ! FieldType
442 grid%communicator , & ! Comm
443 grid%iocommunicator , & ! Comm
444 grid%domdesc , & ! Comm
445 grid%bdy_mask , & ! bdy_mask
446 dryrun , & ! flag
447 'XYZ' , & ! MemoryOrder
448 'X' , & ! Stagger
449 'west_east_stag' , & ! Dimname 1
450 'south_north' , & ! Dimname 2
451 'bottom_top' , & ! Dimname 3
452 'x-wind component' , & ! Desc
453 'm s-1' , & ! Units
454 'inc/wrf_auxinput1out.inc ext_write_field G_U memorder XYZ' , & ! Debug message
455 ids , ide , jds , (jde-1) , kds , (kde-1) , &
456 ims , ime , jms , jme , kms , kme , &
457 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
458 ierr )
459 END IF
460 END IF
461 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
462 CALL wrf_ext_write_field ( &
463 fid , & ! DataHandle
464 current_date(1:19) , & ! DateStr
465 'V' , & ! Data Name
466 grid%em_v_2 , & ! Field
467 WRF_FLOAT , & ! FieldType
468 grid%communicator , & ! Comm
469 grid%iocommunicator , & ! Comm
470 grid%domdesc , & ! Comm
471 grid%bdy_mask , & ! bdy_mask
472 dryrun , & ! flag
473 'XYZ' , & ! MemoryOrder
474 'Y' , & ! Stagger
475 'west_east' , & ! Dimname 1
476 'south_north_stag' , & ! Dimname 2
477 'bottom_top' , & ! Dimname 3
478 'y-wind component' , & ! Desc
479 'm s-1' , & ! Units
480 'inc/wrf_auxinput1out.inc ext_write_field V memorder XYZ' , & ! Debug message
481 ids , (ide-1) , jds , jde , kds , (kde-1) , &
482 ims , ime , jms , jme , kms , kme , &
483 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
484 ierr )
485 END IF
486 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
487 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
488 CALL wrf_ext_write_field ( &
489 fid , & ! DataHandle
490 current_date(1:19) , & ! DateStr
491 'A_V' , & ! Data Name
492 grid%em_a_v_2 , & ! Field
493 WRF_FLOAT , & ! FieldType
494 grid%communicator , & ! Comm
495 grid%iocommunicator , & ! Comm
496 grid%domdesc , & ! Comm
497 grid%bdy_mask , & ! bdy_mask
498 dryrun , & ! flag
499 'XYZ' , & ! MemoryOrder
500 'Y' , & ! Stagger
501 'west_east' , & ! Dimname 1
502 'south_north_stag' , & ! Dimname 2
503 'bottom_top' , & ! Dimname 3
504 'y-wind component' , & ! Desc
505 'm s-1' , & ! Units
506 'inc/wrf_auxinput1out.inc ext_write_field A_V memorder XYZ' , & ! Debug message
507 ids , (ide-1) , jds , jde , kds , (kde-1) , &
508 ims , ime , jms , jme , kms , kme , &
509 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
510 ierr )
511 END IF
512 END IF
513 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
514 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
515 CALL wrf_ext_write_field ( &
516 fid , & ! DataHandle
517 current_date(1:19) , & ! DateStr
518 'G_V' , & ! Data Name
519 grid%em_g_v_2 , & ! 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 'XYZ' , & ! MemoryOrder
527 'Y' , & ! Stagger
528 'west_east' , & ! Dimname 1
529 'south_north_stag' , & ! Dimname 2
530 'bottom_top' , & ! Dimname 3
531 'y-wind component' , & ! Desc
532 'm s-1' , & ! Units
533 'inc/wrf_auxinput1out.inc ext_write_field G_V memorder XYZ' , & ! Debug message
534 ids , (ide-1) , jds , jde , kds , (kde-1) , &
535 ims , ime , jms , jme , kms , kme , &
536 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
537 ierr )
538 END IF
539 END IF
540 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
541 CALL wrf_ext_write_field ( &
542 fid , & ! DataHandle
543 current_date(1:19) , & ! DateStr
544 'T' , & ! Data Name
545 grid%em_t_2 , & ! Field
546 WRF_FLOAT , & ! FieldType
547 grid%communicator , & ! Comm
548 grid%iocommunicator , & ! Comm
549 grid%domdesc , & ! Comm
550 grid%bdy_mask , & ! bdy_mask
551 dryrun , & ! flag
552 'XYZ' , & ! MemoryOrder
553 '' , & ! Stagger
554 'west_east' , & ! Dimname 1
555 'south_north' , & ! Dimname 2
556 'bottom_top' , & ! Dimname 3
557 'perturbation potential temperature (theta-t0)' , & ! Desc
558 'K' , & ! Units
559 'inc/wrf_auxinput1out.inc ext_write_field T memorder XYZ' , & ! Debug message
560 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
561 ims , ime , jms , jme , kms , kme , &
562 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
563 ierr )
564 END IF
565 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
566 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
567 CALL wrf_ext_write_field ( &
568 fid , & ! DataHandle
569 current_date(1:19) , & ! DateStr
570 'A_T' , & ! Data Name
571 grid%em_a_t_2 , & ! Field
572 WRF_FLOAT , & ! FieldType
573 grid%communicator , & ! Comm
574 grid%iocommunicator , & ! Comm
575 grid%domdesc , & ! Comm
576 grid%bdy_mask , & ! bdy_mask
577 dryrun , & ! flag
578 'XYZ' , & ! MemoryOrder
579 '' , & ! Stagger
580 'west_east' , & ! Dimname 1
581 'south_north' , & ! Dimname 2
582 'bottom_top' , & ! Dimname 3
583 'perturbation potential temperature (theta-t0)' , & ! Desc
584 'K' , & ! Units
585 'inc/wrf_auxinput1out.inc ext_write_field A_T memorder XYZ' , & ! Debug message
586 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
587 ims , ime , jms , jme , kms , kme , &
588 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
589 ierr )
590 END IF
591 END IF
592 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
593 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
594 CALL wrf_ext_write_field ( &
595 fid , & ! DataHandle
596 current_date(1:19) , & ! DateStr
597 'G_T' , & ! Data Name
598 grid%em_g_t_2 , & ! Field
599 WRF_FLOAT , & ! FieldType
600 grid%communicator , & ! Comm
601 grid%iocommunicator , & ! Comm
602 grid%domdesc , & ! Comm
603 grid%bdy_mask , & ! bdy_mask
604 dryrun , & ! flag
605 'XYZ' , & ! MemoryOrder
606 '' , & ! Stagger
607 'west_east' , & ! Dimname 1
608 'south_north' , & ! Dimname 2
609 'bottom_top' , & ! Dimname 3
610 'perturbation potential temperature (theta-t0)' , & ! Desc
611 'K' , & ! Units
612 'inc/wrf_auxinput1out.inc ext_write_field G_T memorder XYZ' , & ! Debug message
613 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
614 ims , ime , jms , jme , kms , kme , &
615 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
616 ierr )
617 END IF
618 END IF
619 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
620 CALL wrf_ext_write_field ( &
621 fid , & ! DataHandle
622 current_date(1:19) , & ! DateStr
623 'MU0' , & ! Data Name
624 grid%em_mu0 , & ! Field
625 WRF_FLOAT , & ! FieldType
626 grid%communicator , & ! Comm
627 grid%iocommunicator , & ! Comm
628 grid%domdesc , & ! Comm
629 grid%bdy_mask , & ! bdy_mask
630 dryrun , & ! flag
631 'XY' , & ! MemoryOrder
632 '' , & ! Stagger
633 'west_east' , & ! Dimname 1
634 'south_north' , & ! Dimname 2
635 '' , & ! Dimname 3
636 'initial dry mass in column' , & ! Desc
637 'Pa' , & ! Units
638 'inc/wrf_auxinput1out.inc ext_write_field MU0 memorder XY' , & ! Debug message
639 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
640 ims , ime , jms , jme , 1 , 1 , &
641 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
642 ierr )
643 END IF
644 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
645 CALL wrf_ext_write_field ( &
646 fid , & ! DataHandle
647 current_date(1:19) , & ! DateStr
648 'ZNW' , & ! Data Name
649 grid%em_znw , & ! Field
650 WRF_FLOAT , & ! FieldType
651 grid%communicator , & ! Comm
652 grid%iocommunicator , & ! Comm
653 grid%domdesc , & ! Comm
654 grid%bdy_mask , & ! bdy_mask
655 dryrun , & ! flag
656 'Z' , & ! MemoryOrder
657 'Z' , & ! Stagger
658 'bottom_top_stag' , & ! Dimname 1
659 '' , & ! Dimname 2
660 '' , & ! Dimname 3
661 'eta values on full (w) levels' , & ! Desc
662 '' , & ! Units
663 'inc/wrf_auxinput1out.inc ext_write_field ZNW memorder Z' , & ! Debug message
664 kds , kde , 1 , 1 , 1 , 1 , &
665 kms , kme , 1 , 1 , 1 , 1 , &
666 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
667 ierr )
668 END IF
669 DO itrace = PARAM_FIRST_SCALAR , num_moist
670 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
671 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
672 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
673 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
674 CALL wrf_ext_write_field ( &
675 fid , & ! DataHandle
676 current_date(1:19) , & ! DateStr
677 TRIM(moist_dname_table( grid%id, itrace )), & !data name
678 grid%moist(ims,jms,kms,itrace) , & ! Field
679 WRF_FLOAT , & ! FieldType
680 grid%communicator , & ! Comm
681 grid%iocommunicator , & ! Comm
682 grid%domdesc , & ! Comm
683 grid%bdy_mask , & ! bdy_mask
684 dryrun , & ! flag
685 'XYZ' , & ! MemoryOrder
686 '' , & ! Stagger
687 'west_east' , & ! Dimname 1
688 'south_north' , & ! Dimname 2
689 'bottom_top' , & ! Dimname 3
690 moist_desc_table( grid%id, itrace ), & ! Desc
691 moist_units_table( grid%id, itrace ), & ! Units
692 'inc/wrf_auxinput1out.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
693 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
694 ims , ime , jms , jme , kms , kme , &
695 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
696 ierr )
697 ENDIF
698 ENDIF
699 ENDDO
700 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
701 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
702 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
703 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
704 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
705 CALL wrf_ext_write_field ( &
706 fid , & ! DataHandle
707 current_date(1:19) , & ! DateStr
708 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
709 grid%a_moist(ims,jms,kms,itrace) , & ! Field
710 WRF_FLOAT , & ! FieldType
711 grid%communicator , & ! Comm
712 grid%iocommunicator , & ! Comm
713 grid%domdesc , & ! Comm
714 grid%bdy_mask , & ! bdy_mask
715 dryrun , & ! flag
716 'XYZ' , & ! MemoryOrder
717 '' , & ! Stagger
718 'west_east' , & ! Dimname 1
719 'south_north' , & ! Dimname 2
720 'bottom_top' , & ! Dimname 3
721 a_moist_desc_table( grid%id, itrace ), & ! Desc
722 a_moist_units_table( grid%id, itrace ), & ! Units
723 'inc/wrf_auxinput1out.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
724 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
725 ims , ime , jms , jme , kms , kme , &
726 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
727 ierr )
728 ENDIF
729 ENDIF
730 ENDDO
731 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
732 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
733 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
734 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
735 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
736 CALL wrf_ext_write_field ( &
737 fid , & ! DataHandle
738 current_date(1:19) , & ! DateStr
739 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
740 grid%g_moist(ims,jms,kms,itrace) , & ! Field
741 WRF_FLOAT , & ! FieldType
742 grid%communicator , & ! Comm
743 grid%iocommunicator , & ! Comm
744 grid%domdesc , & ! Comm
745 grid%bdy_mask , & ! bdy_mask
746 dryrun , & ! flag
747 'XYZ' , & ! MemoryOrder
748 '' , & ! Stagger
749 'west_east' , & ! Dimname 1
750 'south_north' , & ! Dimname 2
751 'bottom_top' , & ! Dimname 3
752 g_moist_desc_table( grid%id, itrace ), & ! Desc
753 g_moist_units_table( grid%id, itrace ), & ! Units
754 'inc/wrf_auxinput1out.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
755 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
756 ims , ime , jms , jme , kms , kme , &
757 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
758 ierr )
759 ENDIF
760 ENDIF
761 ENDDO
762 DO itrace = PARAM_FIRST_SCALAR , num_scalar
763 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
764 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
765 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
766 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
767 CALL wrf_ext_write_field ( &
768 fid , & ! DataHandle
769 current_date(1:19) , & ! DateStr
770 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
771 grid%scalar(ims,jms,kms,itrace) , & ! Field
772 WRF_FLOAT , & ! FieldType
773 grid%communicator , & ! Comm
774 grid%iocommunicator , & ! Comm
775 grid%domdesc , & ! Comm
776 grid%bdy_mask , & ! bdy_mask
777 dryrun , & ! flag
778 'XYZ' , & ! MemoryOrder
779 '' , & ! Stagger
780 'west_east' , & ! Dimname 1
781 'south_north' , & ! Dimname 2
782 'bottom_top' , & ! Dimname 3
783 scalar_desc_table( grid%id, itrace ), & ! Desc
784 scalar_units_table( grid%id, itrace ), & ! Units
785 'inc/wrf_auxinput1out.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
786 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
787 ims , ime , jms , jme , kms , kme , &
788 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
789 ierr )
790 ENDIF
791 ENDIF
792 ENDDO
793 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
794 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
795 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
796 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
797 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
798 CALL wrf_ext_write_field ( &
799 fid , & ! DataHandle
800 current_date(1:19) , & ! DateStr
801 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
802 grid%a_scalar(ims,jms,kms,itrace) , & ! 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 'XYZ' , & ! MemoryOrder
810 '' , & ! Stagger
811 'west_east' , & ! Dimname 1
812 'south_north' , & ! Dimname 2
813 'bottom_top' , & ! Dimname 3
814 a_scalar_desc_table( grid%id, itrace ), & ! Desc
815 a_scalar_units_table( grid%id, itrace ), & ! Units
816 'inc/wrf_auxinput1out.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
817 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
818 ims , ime , jms , jme , kms , kme , &
819 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
820 ierr )
821 ENDIF
822 ENDIF
823 ENDDO
824 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
825 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
826 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
827 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
828 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
829 CALL wrf_ext_write_field ( &
830 fid , & ! DataHandle
831 current_date(1:19) , & ! DateStr
832 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
833 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
834 WRF_FLOAT , & ! FieldType
835 grid%communicator , & ! Comm
836 grid%iocommunicator , & ! Comm
837 grid%domdesc , & ! Comm
838 grid%bdy_mask , & ! bdy_mask
839 dryrun , & ! flag
840 'XYZ' , & ! MemoryOrder
841 '' , & ! Stagger
842 'west_east' , & ! Dimname 1
843 'south_north' , & ! Dimname 2
844 'bottom_top' , & ! Dimname 3
845 g_scalar_desc_table( grid%id, itrace ), & ! Desc
846 g_scalar_units_table( grid%id, itrace ), & ! Units
847 'inc/wrf_auxinput1out.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
848 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
849 ims , ime , jms , jme , kms , kme , &
850 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
851 ierr )
852 ENDIF
853 ENDIF
854 ENDDO
855 CALL wrf_ext_write_field ( &
856 fid , & ! DataHandle
857 current_date(1:19) , & ! DateStr
858 'LANDMASK' , & ! Data Name
859 grid%landmask , & ! Field
860 WRF_FLOAT , & ! FieldType
861 grid%communicator , & ! Comm
862 grid%iocommunicator , & ! Comm
863 grid%domdesc , & ! Comm
864 grid%bdy_mask , & ! bdy_mask
865 dryrun , & ! flag
866 'XY' , & ! MemoryOrder
867 '' , & ! Stagger
868 'west_east' , & ! Dimname 1
869 'south_north' , & ! Dimname 2
870 '' , & ! Dimname 3
871 'LAND MASK (1 FOR LAND, 0 FOR WATER)' , & ! Desc
872 '' , & ! Units
873 'inc/wrf_auxinput1out.inc ext_write_field LANDMASK memorder XY' , & ! Debug message
874 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
875 ims , ime , jms , jme , 1 , 1 , &
876 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
877 ierr )
878 CALL wrf_ext_write_field ( &
879 fid , & ! DataHandle
880 current_date(1:19) , & ! DateStr
881 'SHDMAX' , & ! Data Name
882 grid%shdmax , & ! Field
883 WRF_FLOAT , & ! FieldType
884 grid%communicator , & ! Comm
885 grid%iocommunicator , & ! Comm
886 grid%domdesc , & ! Comm
887 grid%bdy_mask , & ! bdy_mask
888 dryrun , & ! flag
889 'XY' , & ! MemoryOrder
890 '' , & ! Stagger
891 'west_east' , & ! Dimname 1
892 'south_north' , & ! Dimname 2
893 '' , & ! Dimname 3
894 'ANNUAL MAX VEG FRACTION' , & ! Desc
895 '' , & ! Units
896 'inc/wrf_auxinput1out.inc ext_write_field SHDMAX memorder XY' , & ! Debug message
897 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
898 ims , ime , jms , jme , 1 , 1 , &
899 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
900 ierr )
901 CALL wrf_ext_write_field ( &
902 fid , & ! DataHandle
903 current_date(1:19) , & ! DateStr
904 'SHDMIN' , & ! Data Name
905 grid%shdmin , & ! Field
906 WRF_FLOAT , & ! FieldType
907 grid%communicator , & ! Comm
908 grid%iocommunicator , & ! Comm
909 grid%domdesc , & ! Comm
910 grid%bdy_mask , & ! bdy_mask
911 dryrun , & ! flag
912 'XY' , & ! MemoryOrder
913 '' , & ! Stagger
914 'west_east' , & ! Dimname 1
915 'south_north' , & ! Dimname 2
916 '' , & ! Dimname 3
917 'ANNUAL MIN VEG FRACTION' , & ! Desc
918 '' , & ! Units
919 'inc/wrf_auxinput1out.inc ext_write_field SHDMIN memorder XY' , & ! Debug message
920 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
921 ims , ime , jms , jme , 1 , 1 , &
922 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
923 ierr )
924 CALL wrf_ext_write_field ( &
925 fid , & ! DataHandle
926 current_date(1:19) , & ! DateStr
927 'SNOALB' , & ! Data Name
928 grid%snoalb , & ! Field
929 WRF_FLOAT , & ! FieldType
930 grid%communicator , & ! Comm
931 grid%iocommunicator , & ! Comm
932 grid%domdesc , & ! Comm
933 grid%bdy_mask , & ! bdy_mask
934 dryrun , & ! flag
935 'XY' , & ! MemoryOrder
936 '' , & ! Stagger
937 'west_east' , & ! Dimname 1
938 'south_north' , & ! Dimname 2
939 '' , & ! Dimname 3
940 'ANNUAL MAX SNOW ALBEDO IN FRACTION' , & ! Desc
941 '' , & ! Units
942 'inc/wrf_auxinput1out.inc ext_write_field SNOALB memorder XY' , & ! Debug message
943 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
944 ims , ime , jms , jme , 1 , 1 , &
945 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
946 ierr )
947 CALL wrf_ext_write_field ( &
948 fid , & ! DataHandle
949 current_date(1:19) , & ! DateStr
950 'XICE' , & ! Data Name
951 grid%xice , & ! Field
952 WRF_FLOAT , & ! FieldType
953 grid%communicator , & ! Comm
954 grid%iocommunicator , & ! Comm
955 grid%domdesc , & ! Comm
956 grid%bdy_mask , & ! bdy_mask
957 dryrun , & ! flag
958 'XY' , & ! MemoryOrder
959 '' , & ! Stagger
960 'west_east' , & ! Dimname 1
961 'south_north' , & ! Dimname 2
962 '' , & ! Dimname 3
963 'SEA ICE FLAG' , & ! Desc
964 '' , & ! Units
965 'inc/wrf_auxinput1out.inc ext_write_field XICE memorder XY' , & ! Debug message
966 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
967 ims , ime , jms , jme , 1 , 1 , &
968 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
969 ierr )
970 CALL wrf_ext_write_field ( &
971 fid , & ! DataHandle
972 current_date(1:19) , & ! DateStr
973 'VEGFRA' , & ! Data Name
974 grid%vegfra , & ! Field
975 WRF_FLOAT , & ! FieldType
976 grid%communicator , & ! Comm
977 grid%iocommunicator , & ! Comm
978 grid%domdesc , & ! Comm
979 grid%bdy_mask , & ! bdy_mask
980 dryrun , & ! flag
981 'XY' , & ! MemoryOrder
982 '' , & ! Stagger
983 'west_east' , & ! Dimname 1
984 'south_north' , & ! Dimname 2
985 '' , & ! Dimname 3
986 'VEGETATION FRACTION' , & ! Desc
987 '' , & ! Units
988 'inc/wrf_auxinput1out.inc ext_write_field VEGFRA memorder XY' , & ! Debug message
989 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
990 ims , ime , jms , jme , 1 , 1 , &
991 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
992 ierr )
993 CALL wrf_ext_write_field ( &
994 fid , & ! DataHandle
995 current_date(1:19) , & ! DateStr
996 'SNOW' , & ! Data Name
997 grid%snow , & ! Field
998 WRF_FLOAT , & ! FieldType
999 grid%communicator , & ! Comm
1000 grid%iocommunicator , & ! Comm
1001 grid%domdesc , & ! Comm
1002 grid%bdy_mask , & ! bdy_mask
1003 dryrun , & ! flag
1004 'XY' , & ! MemoryOrder
1005 '' , & ! Stagger
1006 'west_east' , & ! Dimname 1
1007 'south_north' , & ! Dimname 2
1008 '' , & ! Dimname 3
1009 'SNOW WATER EQUIVALENT' , & ! Desc
1010 'kg m-2' , & ! Units
1011 'inc/wrf_auxinput1out.inc ext_write_field SNOW memorder XY' , & ! Debug message
1012 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1013 ims , ime , jms , jme , 1 , 1 , &
1014 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1015 ierr )
1016 CALL wrf_ext_write_field ( &
1017 fid , & ! DataHandle
1018 current_date(1:19) , & ! DateStr
1019 'SNOWH' , & ! Data Name
1020 grid%snowh , & ! Field
1021 WRF_FLOAT , & ! FieldType
1022 grid%communicator , & ! Comm
1023 grid%iocommunicator , & ! Comm
1024 grid%domdesc , & ! Comm
1025 grid%bdy_mask , & ! bdy_mask
1026 dryrun , & ! flag
1027 'XY' , & ! MemoryOrder
1028 '' , & ! Stagger
1029 'west_east' , & ! Dimname 1
1030 'south_north' , & ! Dimname 2
1031 '' , & ! Dimname 3
1032 'PHYSICAL SNOW DEPTH' , & ! Desc
1033 'm' , & ! Units
1034 'inc/wrf_auxinput1out.inc ext_write_field SNOWH memorder XY' , & ! Debug message
1035 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1036 ims , ime , jms , jme , 1 , 1 , &
1037 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1038 ierr )
1039 CALL wrf_ext_write_field ( &
1040 fid , & ! DataHandle
1041 current_date(1:19) , & ! DateStr
1042 'RHOSN' , & ! Data Name
1043 grid%rhosn , & ! Field
1044 WRF_FLOAT , & ! FieldType
1045 grid%communicator , & ! Comm
1046 grid%iocommunicator , & ! Comm
1047 grid%domdesc , & ! Comm
1048 grid%bdy_mask , & ! bdy_mask
1049 dryrun , & ! flag
1050 'XY' , & ! MemoryOrder
1051 '' , & ! Stagger
1052 'west_east' , & ! Dimname 1
1053 'south_north' , & ! Dimname 2
1054 '' , & ! Dimname 3
1055 ' SNOW DENSITY' , & ! Desc
1056 'kg m-3' , & ! Units
1057 'inc/wrf_auxinput1out.inc ext_write_field RHOSN memorder XY' , & ! Debug message
1058 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1059 ims , ime , jms , jme , 1 , 1 , &
1060 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1061 ierr )
1062 CALL wrf_ext_write_field ( &
1063 fid , & ! DataHandle
1064 current_date(1:19) , & ! DateStr
1065 'CANWAT' , & ! Data Name
1066 grid%canwat , & ! Field
1067 WRF_FLOAT , & ! FieldType
1068 grid%communicator , & ! Comm
1069 grid%iocommunicator , & ! Comm
1070 grid%domdesc , & ! Comm
1071 grid%bdy_mask , & ! bdy_mask
1072 dryrun , & ! flag
1073 'XY' , & ! MemoryOrder
1074 '' , & ! Stagger
1075 'west_east' , & ! Dimname 1
1076 'south_north' , & ! Dimname 2
1077 '' , & ! Dimname 3
1078 'CANOPY WATER' , & ! Desc
1079 'kg m-2' , & ! Units
1080 'inc/wrf_auxinput1out.inc ext_write_field CANWAT memorder XY' , & ! Debug message
1081 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1082 ims , ime , jms , jme , 1 , 1 , &
1083 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1084 ierr )
1085 CALL wrf_ext_write_field ( &
1086 fid , & ! DataHandle
1087 current_date(1:19) , & ! DateStr
1088 'SST' , & ! Data Name
1089 grid%sst , & ! Field
1090 WRF_FLOAT , & ! FieldType
1091 grid%communicator , & ! Comm
1092 grid%iocommunicator , & ! Comm
1093 grid%domdesc , & ! Comm
1094 grid%bdy_mask , & ! bdy_mask
1095 dryrun , & ! flag
1096 'XY' , & ! MemoryOrder
1097 '' , & ! Stagger
1098 'west_east' , & ! Dimname 1
1099 'south_north' , & ! Dimname 2
1100 '' , & ! Dimname 3
1101 'SEA SURFACE TEMPERATURE' , & ! Desc
1102 'K' , & ! Units
1103 'inc/wrf_auxinput1out.inc ext_write_field SST memorder XY' , & ! Debug message
1104 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1105 ims , ime , jms , jme , 1 , 1 , &
1106 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1107 ierr )
1108 CALL wrf_ext_write_field ( &
1109 fid , & ! DataHandle
1110 current_date(1:19) , & ! DateStr
1111 'MAPFAC_M' , & ! Data Name
1112 grid%msft , & ! Field
1113 WRF_FLOAT , & ! FieldType
1114 grid%communicator , & ! Comm
1115 grid%iocommunicator , & ! Comm
1116 grid%domdesc , & ! Comm
1117 grid%bdy_mask , & ! bdy_mask
1118 dryrun , & ! flag
1119 'XY' , & ! MemoryOrder
1120 '' , & ! Stagger
1121 'west_east' , & ! Dimname 1
1122 'south_north' , & ! Dimname 2
1123 '' , & ! Dimname 3
1124 'Map scale factor on mass grid' , & ! Desc
1125 '' , & ! Units
1126 'inc/wrf_auxinput1out.inc ext_write_field MAPFAC_M memorder XY' , & ! Debug message
1127 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1128 ims , ime , jms , jme , 1 , 1 , &
1129 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1130 ierr )
1131 CALL wrf_ext_write_field ( &
1132 fid , & ! DataHandle
1133 current_date(1:19) , & ! DateStr
1134 'MAPFAC_U' , & ! Data Name
1135 grid%msfu , & ! Field
1136 WRF_FLOAT , & ! FieldType
1137 grid%communicator , & ! Comm
1138 grid%iocommunicator , & ! Comm
1139 grid%domdesc , & ! Comm
1140 grid%bdy_mask , & ! bdy_mask
1141 dryrun , & ! flag
1142 'XY' , & ! MemoryOrder
1143 'X' , & ! Stagger
1144 'west_east_stag' , & ! Dimname 1
1145 'south_north' , & ! Dimname 2
1146 '' , & ! Dimname 3
1147 'Map scale factor on u-grid' , & ! Desc
1148 '' , & ! Units
1149 'inc/wrf_auxinput1out.inc ext_write_field MAPFAC_U memorder XY' , & ! Debug message
1150 ids , ide , jds , (jde-1) , 1 , 1 , &
1151 ims , ime , jms , jme , 1 , 1 , &
1152 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1153 ierr )
1154 CALL wrf_ext_write_field ( &
1155 fid , & ! DataHandle
1156 current_date(1:19) , & ! DateStr
1157 'MAPFAC_V' , & ! Data Name
1158 grid%msfv , & ! Field
1159 WRF_FLOAT , & ! FieldType
1160 grid%communicator , & ! Comm
1161 grid%iocommunicator , & ! Comm
1162 grid%domdesc , & ! Comm
1163 grid%bdy_mask , & ! bdy_mask
1164 dryrun , & ! flag
1165 'XY' , & ! MemoryOrder
1166 'Y' , & ! Stagger
1167 'west_east' , & ! Dimname 1
1168 'south_north_stag' , & ! Dimname 2
1169 '' , & ! Dimname 3
1170 'Map scale factor on v-grid' , & ! Desc
1171 '' , & ! Units
1172 'inc/wrf_auxinput1out.inc ext_write_field MAPFAC_V memorder XY' , & ! Debug message
1173 ids , (ide-1) , jds , jde , 1 , 1 , &
1174 ims , ime , jms , jme , 1 , 1 , &
1175 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
1176 ierr )
1177 CALL wrf_ext_write_field ( &
1178 fid , & ! DataHandle
1179 current_date(1:19) , & ! DateStr
1180 'F' , & ! Data Name
1181 grid%f , & ! Field
1182 WRF_FLOAT , & ! FieldType
1183 grid%communicator , & ! Comm
1184 grid%iocommunicator , & ! Comm
1185 grid%domdesc , & ! Comm
1186 grid%bdy_mask , & ! bdy_mask
1187 dryrun , & ! flag
1188 'XY' , & ! MemoryOrder
1189 '' , & ! Stagger
1190 'west_east' , & ! Dimname 1
1191 'south_north' , & ! Dimname 2
1192 '' , & ! Dimname 3
1193 'Coriolis sine latitude term' , & ! Desc
1194 's-1' , & ! Units
1195 'inc/wrf_auxinput1out.inc ext_write_field F memorder XY' , & ! Debug message
1196 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1197 ims , ime , jms , jme , 1 , 1 , &
1198 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1199 ierr )
1200 CALL wrf_ext_write_field ( &
1201 fid , & ! DataHandle
1202 current_date(1:19) , & ! DateStr
1203 'E' , & ! Data Name
1204 grid%e , & ! Field
1205 WRF_FLOAT , & ! FieldType
1206 grid%communicator , & ! Comm
1207 grid%iocommunicator , & ! Comm
1208 grid%domdesc , & ! Comm
1209 grid%bdy_mask , & ! bdy_mask
1210 dryrun , & ! flag
1211 'XY' , & ! MemoryOrder
1212 '' , & ! Stagger
1213 'west_east' , & ! Dimname 1
1214 'south_north' , & ! Dimname 2
1215 '' , & ! Dimname 3
1216 'Coriolis cosine latitude term' , & ! Desc
1217 's-1' , & ! Units
1218 'inc/wrf_auxinput1out.inc ext_write_field E memorder XY' , & ! Debug message
1219 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1220 ims , ime , jms , jme , 1 , 1 , &
1221 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1222 ierr )
1223 CALL wrf_ext_write_field ( &
1224 fid , & ! DataHandle
1225 current_date(1:19) , & ! DateStr
1226 'SINALPHA' , & ! Data Name
1227 grid%sina , & ! Field
1228 WRF_FLOAT , & ! FieldType
1229 grid%communicator , & ! Comm
1230 grid%iocommunicator , & ! Comm
1231 grid%domdesc , & ! Comm
1232 grid%bdy_mask , & ! bdy_mask
1233 dryrun , & ! flag
1234 'XY' , & ! MemoryOrder
1235 '' , & ! Stagger
1236 'west_east' , & ! Dimname 1
1237 'south_north' , & ! Dimname 2
1238 '' , & ! Dimname 3
1239 'Local sine of map rotation' , & ! Desc
1240 '' , & ! Units
1241 'inc/wrf_auxinput1out.inc ext_write_field SINALPHA memorder XY' , & ! Debug message
1242 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1243 ims , ime , jms , jme , 1 , 1 , &
1244 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1245 ierr )
1246 CALL wrf_ext_write_field ( &
1247 fid , & ! DataHandle
1248 current_date(1:19) , & ! DateStr
1249 'COSALPHA' , & ! Data Name
1250 grid%cosa , & ! Field
1251 WRF_FLOAT , & ! FieldType
1252 grid%communicator , & ! Comm
1253 grid%iocommunicator , & ! Comm
1254 grid%domdesc , & ! Comm
1255 grid%bdy_mask , & ! bdy_mask
1256 dryrun , & ! flag
1257 'XY' , & ! MemoryOrder
1258 '' , & ! Stagger
1259 'west_east' , & ! Dimname 1
1260 'south_north' , & ! Dimname 2
1261 '' , & ! Dimname 3
1262 'Local cosine of map rotation' , & ! Desc
1263 '' , & ! Units
1264 'inc/wrf_auxinput1out.inc ext_write_field COSALPHA memorder XY' , & ! Debug message
1265 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1266 ims , ime , jms , jme , 1 , 1 , &
1267 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1268 ierr )
1269 CALL wrf_ext_write_field ( &
1270 fid , & ! DataHandle
1271 current_date(1:19) , & ! DateStr
1272 'HGT' , & ! Data Name
1273 grid%ht , & ! Field
1274 WRF_FLOAT , & ! FieldType
1275 grid%communicator , & ! Comm
1276 grid%iocommunicator , & ! Comm
1277 grid%domdesc , & ! Comm
1278 grid%bdy_mask , & ! bdy_mask
1279 dryrun , & ! flag
1280 'XY' , & ! MemoryOrder
1281 '' , & ! Stagger
1282 'west_east' , & ! Dimname 1
1283 'south_north' , & ! Dimname 2
1284 '' , & ! Dimname 3
1285 'Terrain Height' , & ! Desc
1286 'm' , & ! Units
1287 'inc/wrf_auxinput1out.inc ext_write_field HGT memorder XY' , & ! Debug message
1288 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1289 ims , ime , jms , jme , 1 , 1 , &
1290 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1291 ierr )
1292 CALL wrf_ext_write_field ( &
1293 fid , & ! DataHandle
1294 current_date(1:19) , & ! DateStr
1295 'TSK' , & ! Data Name
1296 grid%tsk , & ! Field
1297 WRF_FLOAT , & ! FieldType
1298 grid%communicator , & ! Comm
1299 grid%iocommunicator , & ! Comm
1300 grid%domdesc , & ! Comm
1301 grid%bdy_mask , & ! bdy_mask
1302 dryrun , & ! flag
1303 'XY' , & ! MemoryOrder
1304 '' , & ! Stagger
1305 'west_east' , & ! Dimname 1
1306 'south_north' , & ! Dimname 2
1307 '' , & ! Dimname 3
1308 'SURFACE SKIN TEMPERATURE' , & ! Desc
1309 'K' , & ! Units
1310 'inc/wrf_auxinput1out.inc ext_write_field TSK memorder XY' , & ! Debug message
1311 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1312 ims , ime , jms , jme , 1 , 1 , &
1313 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1314 ierr )
1315 CALL wrf_ext_write_field ( &
1316 fid , & ! DataHandle
1317 current_date(1:19) , & ! DateStr
1318 'XLAT' , & ! Data Name
1319 grid%xlat , & ! Field
1320 WRF_FLOAT , & ! FieldType
1321 grid%communicator , & ! Comm
1322 grid%iocommunicator , & ! Comm
1323 grid%domdesc , & ! Comm
1324 grid%bdy_mask , & ! bdy_mask
1325 dryrun , & ! flag
1326 'XY' , & ! MemoryOrder
1327 '' , & ! Stagger
1328 'west_east' , & ! Dimname 1
1329 'south_north' , & ! Dimname 2
1330 '' , & ! Dimname 3
1331 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
1332 'degree_north' , & ! Units
1333 'inc/wrf_auxinput1out.inc ext_write_field XLAT memorder XY' , & ! Debug message
1334 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1335 ims , ime , jms , jme , 1 , 1 , &
1336 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1337 ierr )
1338 CALL wrf_ext_write_field ( &
1339 fid , & ! DataHandle
1340 current_date(1:19) , & ! DateStr
1341 'XLONG' , & ! Data Name
1342 grid%xlong , & ! Field
1343 WRF_FLOAT , & ! FieldType
1344 grid%communicator , & ! Comm
1345 grid%iocommunicator , & ! Comm
1346 grid%domdesc , & ! Comm
1347 grid%bdy_mask , & ! bdy_mask
1348 dryrun , & ! flag
1349 'XY' , & ! MemoryOrder
1350 '' , & ! Stagger
1351 'west_east' , & ! Dimname 1
1352 'south_north' , & ! Dimname 2
1353 '' , & ! Dimname 3
1354 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
1355 'degree_east' , & ! Units
1356 'inc/wrf_auxinput1out.inc ext_write_field XLONG memorder XY' , & ! Debug message
1357 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1358 ims , ime , jms , jme , 1 , 1 , &
1359 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1360 ierr )
1361 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1362 CALL wrf_ext_write_field ( &
1363 fid , & ! DataHandle
1364 current_date(1:19) , & ! DateStr
1365 'XLAT_U' , & ! Data Name
1366 grid%em_xlat_u , & ! Field
1367 WRF_FLOAT , & ! FieldType
1368 grid%communicator , & ! Comm
1369 grid%iocommunicator , & ! Comm
1370 grid%domdesc , & ! Comm
1371 grid%bdy_mask , & ! bdy_mask
1372 dryrun , & ! flag
1373 'XY' , & ! MemoryOrder
1374 'X' , & ! Stagger
1375 'west_east_stag' , & ! Dimname 1
1376 'south_north' , & ! Dimname 2
1377 '' , & ! Dimname 3
1378 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
1379 'degree_north' , & ! Units
1380 'inc/wrf_auxinput1out.inc ext_write_field XLAT_U memorder XY' , & ! Debug message
1381 ids , ide , jds , (jde-1) , 1 , 1 , &
1382 ims , ime , jms , jme , 1 , 1 , &
1383 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1384 ierr )
1385 END IF
1386 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1387 CALL wrf_ext_write_field ( &
1388 fid , & ! DataHandle
1389 current_date(1:19) , & ! DateStr
1390 'XLONG_U' , & ! Data Name
1391 grid%em_xlong_u , & ! Field
1392 WRF_FLOAT , & ! FieldType
1393 grid%communicator , & ! Comm
1394 grid%iocommunicator , & ! Comm
1395 grid%domdesc , & ! Comm
1396 grid%bdy_mask , & ! bdy_mask
1397 dryrun , & ! flag
1398 'XY' , & ! MemoryOrder
1399 'X' , & ! Stagger
1400 'west_east_stag' , & ! Dimname 1
1401 'south_north' , & ! Dimname 2
1402 '' , & ! Dimname 3
1403 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
1404 'degree_east' , & ! Units
1405 'inc/wrf_auxinput1out.inc ext_write_field XLONG_U memorder XY' , & ! Debug message
1406 ids , ide , jds , (jde-1) , 1 , 1 , &
1407 ims , ime , jms , jme , 1 , 1 , &
1408 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1409 ierr )
1410 END IF
1411 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1412 CALL wrf_ext_write_field ( &
1413 fid , & ! DataHandle
1414 current_date(1:19) , & ! DateStr
1415 'XLAT_V' , & ! Data Name
1416 grid%em_xlat_v , & ! Field
1417 WRF_FLOAT , & ! FieldType
1418 grid%communicator , & ! Comm
1419 grid%iocommunicator , & ! Comm
1420 grid%domdesc , & ! Comm
1421 grid%bdy_mask , & ! bdy_mask
1422 dryrun , & ! flag
1423 'XY' , & ! MemoryOrder
1424 'Y' , & ! Stagger
1425 'west_east' , & ! Dimname 1
1426 'south_north_stag' , & ! Dimname 2
1427 '' , & ! Dimname 3
1428 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
1429 'degree_north' , & ! Units
1430 'inc/wrf_auxinput1out.inc ext_write_field XLAT_V memorder XY' , & ! Debug message
1431 ids , (ide-1) , jds , jde , 1 , 1 , &
1432 ims , ime , jms , jme , 1 , 1 , &
1433 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
1434 ierr )
1435 END IF
1436 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1437 CALL wrf_ext_write_field ( &
1438 fid , & ! DataHandle
1439 current_date(1:19) , & ! DateStr
1440 'XLONG_V' , & ! Data Name
1441 grid%em_xlong_v , & ! Field
1442 WRF_FLOAT , & ! FieldType
1443 grid%communicator , & ! Comm
1444 grid%iocommunicator , & ! Comm
1445 grid%domdesc , & ! Comm
1446 grid%bdy_mask , & ! bdy_mask
1447 dryrun , & ! flag
1448 'XY' , & ! MemoryOrder
1449 'Y' , & ! Stagger
1450 'west_east' , & ! Dimname 1
1451 'south_north_stag' , & ! Dimname 2
1452 '' , & ! Dimname 3
1453 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
1454 'degree_east' , & ! Units
1455 'inc/wrf_auxinput1out.inc ext_write_field XLONG_V memorder XY' , & ! Debug message
1456 ids , (ide-1) , jds , jde , 1 , 1 , &
1457 ims , ime , jms , jme , 1 , 1 , &
1458 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
1459 ierr )
1460 END IF
1461 CALL wrf_ext_write_field ( &
1462 fid , & ! DataHandle
1463 current_date(1:19) , & ! DateStr
1464 'ALBBCK' , & ! Data Name
1465 grid%albbck , & ! Field
1466 WRF_FLOAT , & ! FieldType
1467 grid%communicator , & ! Comm
1468 grid%iocommunicator , & ! Comm
1469 grid%domdesc , & ! Comm
1470 grid%bdy_mask , & ! bdy_mask
1471 dryrun , & ! flag
1472 'XY' , & ! MemoryOrder
1473 '' , & ! Stagger
1474 'west_east' , & ! Dimname 1
1475 'south_north' , & ! Dimname 2
1476 '' , & ! Dimname 3
1477 'BACKGROUND ALBEDO' , & ! Desc
1478 '' , & ! Units
1479 'inc/wrf_auxinput1out.inc ext_write_field ALBBCK memorder XY' , & ! Debug message
1480 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1481 ims , ime , jms , jme , 1 , 1 , &
1482 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1483 ierr )
1484 CALL wrf_ext_write_field ( &
1485 fid , & ! DataHandle
1486 current_date(1:19) , & ! DateStr
1487 'TMN' , & ! Data Name
1488 grid%tmn , & ! Field
1489 WRF_FLOAT , & ! FieldType
1490 grid%communicator , & ! Comm
1491 grid%iocommunicator , & ! Comm
1492 grid%domdesc , & ! Comm
1493 grid%bdy_mask , & ! bdy_mask
1494 dryrun , & ! flag
1495 'XY' , & ! MemoryOrder
1496 '' , & ! Stagger
1497 'west_east' , & ! Dimname 1
1498 'south_north' , & ! Dimname 2
1499 '' , & ! Dimname 3
1500 'SOIL TEMPERATURE AT LOWER BOUNDARY' , & ! Desc
1501 'K' , & ! Units
1502 'inc/wrf_auxinput1out.inc ext_write_field TMN memorder XY' , & ! Debug message
1503 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1504 ims , ime , jms , jme , 1 , 1 , &
1505 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1506 ierr )
1507 !ENDOFREGISTRYGENERATEDINCLUDE