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 'QV' , & ! Data Name
12 grid%em_qv_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 '' , & ! Stagger
21 'west_east' , & ! Dimname 1
22 'num_metgrid_levels' , & ! Dimname 2
23 'south_north' , & ! Dimname 3
24 'mixing ratio' , & ! Desc
25 'kg kg-1' , & ! Units
26 'inc/wrf_auxinput1out.inc ext_write_field QV memorder XZY' , & ! Debug message
27 ids , (ide-1) , 1 , config_flags%num_metgrid_levels , jds , (jde-1) , &
28 ims , ime , 1 , config_flags%num_metgrid_levels , jms , jme , &
29 ips , MIN( (ide-1), 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 'U' , & ! Data Name
37 grid%em_u_2 , & ! 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 'XYZ' , & ! MemoryOrder
45 'X' , & ! Stagger
46 'west_east_stag' , & ! Dimname 1
47 'south_north' , & ! Dimname 2
48 'bottom_top' , & ! Dimname 3
49 'x-wind component' , & ! Desc
50 'm s-1' , & ! Units
51 'inc/wrf_auxinput1out.inc ext_write_field U memorder XYZ' , & ! Debug message
52 ids , ide , jds , (jde-1) , kds , (kde-1) , &
53 ims , ime , jms , jme , kms , kme , &
54 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
55 ierr )
56 END IF
57 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
58 CALL wrf_ext_write_field ( &
59 fid , & ! DataHandle
60 current_date(1:19) , & ! DateStr
61 'A_U' , & ! Data Name
62 grid%a_u_2 , & ! 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 'XYZ' , & ! MemoryOrder
70 'X' , & ! Stagger
71 'west_east_stag' , & ! Dimname 1
72 'south_north' , & ! Dimname 2
73 'bottom_top' , & ! Dimname 3
74 'x-wind component' , & ! Desc
75 'm s-1' , & ! Units
76 'inc/wrf_auxinput1out.inc ext_write_field A_U memorder XYZ' , & ! Debug message
77 ids , ide , jds , (jde-1) , kds , (kde-1) , &
78 ims , ime , jms , jme , kms , kme , &
79 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
80 ierr )
81 END IF
82 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
83 CALL wrf_ext_write_field ( &
84 fid , & ! DataHandle
85 current_date(1:19) , & ! DateStr
86 'G_U' , & ! Data Name
87 grid%g_u_2 , & ! 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 'XYZ' , & ! MemoryOrder
95 'X' , & ! Stagger
96 'west_east_stag' , & ! Dimname 1
97 'south_north' , & ! Dimname 2
98 'bottom_top' , & ! Dimname 3
99 'x-wind component' , & ! Desc
100 'm s-1' , & ! Units
101 'inc/wrf_auxinput1out.inc ext_write_field G_U memorder XYZ' , & ! Debug message
102 ids , ide , jds , (jde-1) , kds , (kde-1) , &
103 ims , ime , jms , jme , kms , kme , &
104 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
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 'V' , & ! Data Name
112 grid%em_v_2 , & ! 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 'XYZ' , & ! MemoryOrder
120 'Y' , & ! Stagger
121 'west_east' , & ! Dimname 1
122 'south_north_stag' , & ! Dimname 2
123 'bottom_top' , & ! Dimname 3
124 'y-wind component' , & ! Desc
125 'm s-1' , & ! Units
126 'inc/wrf_auxinput1out.inc ext_write_field V memorder XYZ' , & ! Debug message
127 ids , (ide-1) , jds , jde , kds , (kde-1) , &
128 ims , ime , jms , jme , kms , kme , &
129 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
130 ierr )
131 END IF
132 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
133 CALL wrf_ext_write_field ( &
134 fid , & ! DataHandle
135 current_date(1:19) , & ! DateStr
136 'A_V' , & ! Data Name
137 grid%a_v_2 , & ! 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 'XYZ' , & ! MemoryOrder
145 'Y' , & ! Stagger
146 'west_east' , & ! Dimname 1
147 'south_north_stag' , & ! Dimname 2
148 'bottom_top' , & ! Dimname 3
149 'y-wind component' , & ! Desc
150 'm s-1' , & ! Units
151 'inc/wrf_auxinput1out.inc ext_write_field A_V memorder XYZ' , & ! Debug message
152 ids , (ide-1) , jds , jde , kds , (kde-1) , &
153 ims , ime , jms , jme , kms , kme , &
154 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
155 ierr )
156 END IF
157 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
158 CALL wrf_ext_write_field ( &
159 fid , & ! DataHandle
160 current_date(1:19) , & ! DateStr
161 'G_V' , & ! Data Name
162 grid%g_v_2 , & ! 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 'XYZ' , & ! MemoryOrder
170 'Y' , & ! Stagger
171 'west_east' , & ! Dimname 1
172 'south_north_stag' , & ! Dimname 2
173 'bottom_top' , & ! Dimname 3
174 'y-wind component' , & ! Desc
175 'm s-1' , & ! Units
176 'inc/wrf_auxinput1out.inc ext_write_field G_V memorder XYZ' , & ! Debug message
177 ids , (ide-1) , jds , jde , kds , (kde-1) , &
178 ims , ime , jms , jme , kms , kme , &
179 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
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 'T' , & ! Data Name
187 grid%em_t_2 , & ! 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 'XYZ' , & ! MemoryOrder
195 '' , & ! Stagger
196 'west_east' , & ! Dimname 1
197 'south_north' , & ! Dimname 2
198 'bottom_top' , & ! Dimname 3
199 'perturbation potential temperature (theta-t0)' , & ! Desc
200 'K' , & ! Units
201 'inc/wrf_auxinput1out.inc ext_write_field T memorder XYZ' , & ! Debug message
202 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
203 ims , ime , jms , jme , kms , kme , &
204 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
205 ierr )
206 END IF
207 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
208 CALL wrf_ext_write_field ( &
209 fid , & ! DataHandle
210 current_date(1:19) , & ! DateStr
211 'A_T' , & ! Data Name
212 grid%a_t_2 , & ! 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 'XYZ' , & ! MemoryOrder
220 '' , & ! Stagger
221 'west_east' , & ! Dimname 1
222 'south_north' , & ! Dimname 2
223 'bottom_top' , & ! Dimname 3
224 'perturbation potential temperature (theta-t0)' , & ! Desc
225 'K' , & ! Units
226 'inc/wrf_auxinput1out.inc ext_write_field A_T memorder XYZ' , & ! Debug message
227 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
228 ims , ime , jms , jme , kms , kme , &
229 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
230 ierr )
231 END IF
232 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
233 CALL wrf_ext_write_field ( &
234 fid , & ! DataHandle
235 current_date(1:19) , & ! DateStr
236 'G_T' , & ! Data Name
237 grid%g_t_2 , & ! 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 'XYZ' , & ! MemoryOrder
245 '' , & ! Stagger
246 'west_east' , & ! Dimname 1
247 'south_north' , & ! Dimname 2
248 'bottom_top' , & ! Dimname 3
249 'perturbation potential temperature (theta-t0)' , & ! Desc
250 'K' , & ! Units
251 'inc/wrf_auxinput1out.inc ext_write_field G_T memorder XYZ' , & ! Debug message
252 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
253 ims , ime , jms , jme , kms , kme , &
254 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
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 'MU0' , & ! Data Name
262 grid%em_mu0 , & ! 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 'initial dry mass in column' , & ! Desc
275 'Pa' , & ! Units
276 'inc/wrf_auxinput1out.inc ext_write_field MU0 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 'ZNW' , & ! Data Name
287 grid%em_znw , & ! 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 'Z' , & ! MemoryOrder
295 'Z' , & ! Stagger
296 'bottom_top_stag' , & ! Dimname 1
297 '' , & ! Dimname 2
298 '' , & ! Dimname 3
299 'eta values on full (w) levels' , & ! Desc
300 '' , & ! Units
301 'inc/wrf_auxinput1out.inc ext_write_field ZNW memorder Z' , & ! Debug message
302 kds , kde , 1 , 1 , 1 , 1 , &
303 kms , kme , 1 , 1 , 1 , 1 , &
304 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
305 ierr )
306 END IF
307 DO itrace = PARAM_FIRST_SCALAR , num_moist
308 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
309 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
310 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
311 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
312 CALL wrf_ext_write_field ( &
313 fid , & ! DataHandle
314 current_date(1:19) , & ! DateStr
315 TRIM(moist_dname_table( grid%id, itrace )), & !data name
316 grid%moist(ims,jms,kms,itrace) , & ! Field
317 WRF_FLOAT , & ! FieldType
318 grid%communicator , & ! Comm
319 grid%iocommunicator , & ! Comm
320 grid%domdesc , & ! Comm
321 grid%bdy_mask , & ! bdy_mask
322 dryrun , & ! flag
323 'XYZ' , & ! MemoryOrder
324 '' , & ! Stagger
325 'west_east' , & ! Dimname 1
326 'south_north' , & ! Dimname 2
327 'bottom_top' , & ! Dimname 3
328 moist_desc_table( grid%id, itrace ), & ! Desc
329 moist_units_table( grid%id, itrace ), & ! Units
330 'inc/wrf_auxinput1out.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
331 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
332 ims , ime , jms , jme , kms , kme , &
333 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
334 ierr )
335 ENDIF
336 ENDIF
337 ENDDO
338 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
339 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
340 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
341 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
342 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
343 CALL wrf_ext_write_field ( &
344 fid , & ! DataHandle
345 current_date(1:19) , & ! DateStr
346 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
347 grid%a_moist(ims,jms,kms,itrace) , & ! Field
348 WRF_FLOAT , & ! FieldType
349 grid%communicator , & ! Comm
350 grid%iocommunicator , & ! Comm
351 grid%domdesc , & ! Comm
352 grid%bdy_mask , & ! bdy_mask
353 dryrun , & ! flag
354 'XYZ' , & ! MemoryOrder
355 '' , & ! Stagger
356 'west_east' , & ! Dimname 1
357 'south_north' , & ! Dimname 2
358 'bottom_top' , & ! Dimname 3
359 a_moist_desc_table( grid%id, itrace ), & ! Desc
360 a_moist_units_table( grid%id, itrace ), & ! Units
361 'inc/wrf_auxinput1out.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
362 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
363 ims , ime , jms , jme , kms , kme , &
364 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
365 ierr )
366 ENDIF
367 ENDIF
368 ENDDO
369 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
370 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
371 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
372 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
373 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
374 CALL wrf_ext_write_field ( &
375 fid , & ! DataHandle
376 current_date(1:19) , & ! DateStr
377 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
378 grid%g_moist(ims,jms,kms,itrace) , & ! Field
379 WRF_FLOAT , & ! FieldType
380 grid%communicator , & ! Comm
381 grid%iocommunicator , & ! Comm
382 grid%domdesc , & ! Comm
383 grid%bdy_mask , & ! bdy_mask
384 dryrun , & ! flag
385 'XYZ' , & ! MemoryOrder
386 '' , & ! Stagger
387 'west_east' , & ! Dimname 1
388 'south_north' , & ! Dimname 2
389 'bottom_top' , & ! Dimname 3
390 g_moist_desc_table( grid%id, itrace ), & ! Desc
391 g_moist_units_table( grid%id, itrace ), & ! Units
392 'inc/wrf_auxinput1out.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
393 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
394 ims , ime , jms , jme , kms , kme , &
395 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
396 ierr )
397 ENDIF
398 ENDIF
399 ENDDO
400 DO itrace = PARAM_FIRST_SCALAR , num_scalar
401 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
402 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
403 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
404 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
405 CALL wrf_ext_write_field ( &
406 fid , & ! DataHandle
407 current_date(1:19) , & ! DateStr
408 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
409 grid%scalar(ims,jms,kms,itrace) , & ! Field
410 WRF_FLOAT , & ! FieldType
411 grid%communicator , & ! Comm
412 grid%iocommunicator , & ! Comm
413 grid%domdesc , & ! Comm
414 grid%bdy_mask , & ! bdy_mask
415 dryrun , & ! flag
416 'XYZ' , & ! MemoryOrder
417 '' , & ! Stagger
418 'west_east' , & ! Dimname 1
419 'south_north' , & ! Dimname 2
420 'bottom_top' , & ! Dimname 3
421 scalar_desc_table( grid%id, itrace ), & ! Desc
422 scalar_units_table( grid%id, itrace ), & ! Units
423 'inc/wrf_auxinput1out.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
424 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
425 ims , ime , jms , jme , kms , kme , &
426 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
427 ierr )
428 ENDIF
429 ENDIF
430 ENDDO
431 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
432 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
433 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
434 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
435 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
436 CALL wrf_ext_write_field ( &
437 fid , & ! DataHandle
438 current_date(1:19) , & ! DateStr
439 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
440 grid%a_scalar(ims,jms,kms,itrace) , & ! 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 '' , & ! Stagger
449 'west_east' , & ! Dimname 1
450 'south_north' , & ! Dimname 2
451 'bottom_top' , & ! Dimname 3
452 a_scalar_desc_table( grid%id, itrace ), & ! Desc
453 a_scalar_units_table( grid%id, itrace ), & ! Units
454 'inc/wrf_auxinput1out.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
455 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
456 ims , ime , jms , jme , kms , kme , &
457 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
458 ierr )
459 ENDIF
460 ENDIF
461 ENDDO
462 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
463 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
464 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
465 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
466 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
467 CALL wrf_ext_write_field ( &
468 fid , & ! DataHandle
469 current_date(1:19) , & ! DateStr
470 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
471 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
472 WRF_FLOAT , & ! FieldType
473 grid%communicator , & ! Comm
474 grid%iocommunicator , & ! Comm
475 grid%domdesc , & ! Comm
476 grid%bdy_mask , & ! bdy_mask
477 dryrun , & ! flag
478 'XYZ' , & ! MemoryOrder
479 '' , & ! Stagger
480 'west_east' , & ! Dimname 1
481 'south_north' , & ! Dimname 2
482 'bottom_top' , & ! Dimname 3
483 g_scalar_desc_table( grid%id, itrace ), & ! Desc
484 g_scalar_units_table( grid%id, itrace ), & ! Units
485 'inc/wrf_auxinput1out.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
486 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
487 ims , ime , jms , jme , kms , kme , &
488 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
489 ierr )
490 ENDIF
491 ENDIF
492 ENDDO
493 CALL wrf_ext_write_field ( &
494 fid , & ! DataHandle
495 current_date(1:19) , & ! DateStr
496 'LANDMASK' , & ! Data Name
497 grid%landmask , & ! Field
498 WRF_FLOAT , & ! FieldType
499 grid%communicator , & ! Comm
500 grid%iocommunicator , & ! Comm
501 grid%domdesc , & ! Comm
502 grid%bdy_mask , & ! bdy_mask
503 dryrun , & ! flag
504 'XY' , & ! MemoryOrder
505 '' , & ! Stagger
506 'west_east' , & ! Dimname 1
507 'south_north' , & ! Dimname 2
508 '' , & ! Dimname 3
509 'LAND MASK (1 FOR LAND, 0 FOR WATER)' , & ! Desc
510 '' , & ! Units
511 'inc/wrf_auxinput1out.inc ext_write_field LANDMASK memorder XY' , & ! Debug message
512 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
513 ims , ime , jms , jme , 1 , 1 , &
514 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
515 ierr )
516 CALL wrf_ext_write_field ( &
517 fid , & ! DataHandle
518 current_date(1:19) , & ! DateStr
519 'SHDMAX' , & ! Data Name
520 grid%shdmax , & ! Field
521 WRF_FLOAT , & ! FieldType
522 grid%communicator , & ! Comm
523 grid%iocommunicator , & ! Comm
524 grid%domdesc , & ! Comm
525 grid%bdy_mask , & ! bdy_mask
526 dryrun , & ! flag
527 'XY' , & ! MemoryOrder
528 '' , & ! Stagger
529 'west_east' , & ! Dimname 1
530 'south_north' , & ! Dimname 2
531 '' , & ! Dimname 3
532 'ANNUAL MAX VEG FRACTION' , & ! Desc
533 '' , & ! Units
534 'inc/wrf_auxinput1out.inc ext_write_field SHDMAX memorder XY' , & ! Debug message
535 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
536 ims , ime , jms , jme , 1 , 1 , &
537 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
538 ierr )
539 CALL wrf_ext_write_field ( &
540 fid , & ! DataHandle
541 current_date(1:19) , & ! DateStr
542 'SHDMIN' , & ! Data Name
543 grid%shdmin , & ! Field
544 WRF_FLOAT , & ! FieldType
545 grid%communicator , & ! Comm
546 grid%iocommunicator , & ! Comm
547 grid%domdesc , & ! Comm
548 grid%bdy_mask , & ! bdy_mask
549 dryrun , & ! flag
550 'XY' , & ! MemoryOrder
551 '' , & ! Stagger
552 'west_east' , & ! Dimname 1
553 'south_north' , & ! Dimname 2
554 '' , & ! Dimname 3
555 'ANNUAL MIN VEG FRACTION' , & ! Desc
556 '' , & ! Units
557 'inc/wrf_auxinput1out.inc ext_write_field SHDMIN memorder XY' , & ! Debug message
558 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
559 ims , ime , jms , jme , 1 , 1 , &
560 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
561 ierr )
562 CALL wrf_ext_write_field ( &
563 fid , & ! DataHandle
564 current_date(1:19) , & ! DateStr
565 'SNOALB' , & ! Data Name
566 grid%snoalb , & ! Field
567 WRF_FLOAT , & ! FieldType
568 grid%communicator , & ! Comm
569 grid%iocommunicator , & ! Comm
570 grid%domdesc , & ! Comm
571 grid%bdy_mask , & ! bdy_mask
572 dryrun , & ! flag
573 'XY' , & ! MemoryOrder
574 '' , & ! Stagger
575 'west_east' , & ! Dimname 1
576 'south_north' , & ! Dimname 2
577 '' , & ! Dimname 3
578 'ANNUAL MAX SNOW ALBEDO IN FRACTION' , & ! Desc
579 '' , & ! Units
580 'inc/wrf_auxinput1out.inc ext_write_field SNOALB memorder XY' , & ! Debug message
581 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
582 ims , ime , jms , jme , 1 , 1 , &
583 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
584 ierr )
585 CALL wrf_ext_write_field ( &
586 fid , & ! DataHandle
587 current_date(1:19) , & ! DateStr
588 'XICE' , & ! Data Name
589 grid%xice , & ! Field
590 WRF_FLOAT , & ! FieldType
591 grid%communicator , & ! Comm
592 grid%iocommunicator , & ! Comm
593 grid%domdesc , & ! Comm
594 grid%bdy_mask , & ! bdy_mask
595 dryrun , & ! flag
596 'XY' , & ! MemoryOrder
597 '' , & ! Stagger
598 'west_east' , & ! Dimname 1
599 'south_north' , & ! Dimname 2
600 '' , & ! Dimname 3
601 'SEA ICE FLAG' , & ! Desc
602 '' , & ! Units
603 'inc/wrf_auxinput1out.inc ext_write_field XICE memorder XY' , & ! Debug message
604 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
605 ims , ime , jms , jme , 1 , 1 , &
606 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
607 ierr )
608 CALL wrf_ext_write_field ( &
609 fid , & ! DataHandle
610 current_date(1:19) , & ! DateStr
611 'VEGFRA' , & ! Data Name
612 grid%vegfra , & ! Field
613 WRF_FLOAT , & ! FieldType
614 grid%communicator , & ! Comm
615 grid%iocommunicator , & ! Comm
616 grid%domdesc , & ! Comm
617 grid%bdy_mask , & ! bdy_mask
618 dryrun , & ! flag
619 'XY' , & ! MemoryOrder
620 '' , & ! Stagger
621 'west_east' , & ! Dimname 1
622 'south_north' , & ! Dimname 2
623 '' , & ! Dimname 3
624 'VEGETATION FRACTION' , & ! Desc
625 '' , & ! Units
626 'inc/wrf_auxinput1out.inc ext_write_field VEGFRA memorder XY' , & ! Debug message
627 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
628 ims , ime , jms , jme , 1 , 1 , &
629 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
630 ierr )
631 CALL wrf_ext_write_field ( &
632 fid , & ! DataHandle
633 current_date(1:19) , & ! DateStr
634 'SNOW' , & ! Data Name
635 grid%snow , & ! Field
636 WRF_FLOAT , & ! FieldType
637 grid%communicator , & ! Comm
638 grid%iocommunicator , & ! Comm
639 grid%domdesc , & ! Comm
640 grid%bdy_mask , & ! bdy_mask
641 dryrun , & ! flag
642 'XY' , & ! MemoryOrder
643 '' , & ! Stagger
644 'west_east' , & ! Dimname 1
645 'south_north' , & ! Dimname 2
646 '' , & ! Dimname 3
647 'SNOW WATER EQUIVALENT' , & ! Desc
648 'kg m-2' , & ! Units
649 'inc/wrf_auxinput1out.inc ext_write_field SNOW memorder XY' , & ! Debug message
650 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
651 ims , ime , jms , jme , 1 , 1 , &
652 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
653 ierr )
654 CALL wrf_ext_write_field ( &
655 fid , & ! DataHandle
656 current_date(1:19) , & ! DateStr
657 'SNOWH' , & ! Data Name
658 grid%snowh , & ! Field
659 WRF_FLOAT , & ! FieldType
660 grid%communicator , & ! Comm
661 grid%iocommunicator , & ! Comm
662 grid%domdesc , & ! Comm
663 grid%bdy_mask , & ! bdy_mask
664 dryrun , & ! flag
665 'XY' , & ! MemoryOrder
666 '' , & ! Stagger
667 'west_east' , & ! Dimname 1
668 'south_north' , & ! Dimname 2
669 '' , & ! Dimname 3
670 'PHYSICAL SNOW DEPTH' , & ! Desc
671 'm' , & ! Units
672 'inc/wrf_auxinput1out.inc ext_write_field SNOWH memorder XY' , & ! Debug message
673 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
674 ims , ime , jms , jme , 1 , 1 , &
675 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
676 ierr )
677 CALL wrf_ext_write_field ( &
678 fid , & ! DataHandle
679 current_date(1:19) , & ! DateStr
680 'RHOSN' , & ! Data Name
681 grid%rhosn , & ! Field
682 WRF_FLOAT , & ! FieldType
683 grid%communicator , & ! Comm
684 grid%iocommunicator , & ! Comm
685 grid%domdesc , & ! Comm
686 grid%bdy_mask , & ! bdy_mask
687 dryrun , & ! flag
688 'XY' , & ! MemoryOrder
689 '' , & ! Stagger
690 'west_east' , & ! Dimname 1
691 'south_north' , & ! Dimname 2
692 '' , & ! Dimname 3
693 ' SNOW DENSITY' , & ! Desc
694 'kg m-3' , & ! Units
695 'inc/wrf_auxinput1out.inc ext_write_field RHOSN memorder XY' , & ! Debug message
696 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
697 ims , ime , jms , jme , 1 , 1 , &
698 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
699 ierr )
700 CALL wrf_ext_write_field ( &
701 fid , & ! DataHandle
702 current_date(1:19) , & ! DateStr
703 'CANWAT' , & ! Data Name
704 grid%canwat , & ! Field
705 WRF_FLOAT , & ! FieldType
706 grid%communicator , & ! Comm
707 grid%iocommunicator , & ! Comm
708 grid%domdesc , & ! Comm
709 grid%bdy_mask , & ! bdy_mask
710 dryrun , & ! flag
711 'XY' , & ! MemoryOrder
712 '' , & ! Stagger
713 'west_east' , & ! Dimname 1
714 'south_north' , & ! Dimname 2
715 '' , & ! Dimname 3
716 'CANOPY WATER' , & ! Desc
717 'kg m-2' , & ! Units
718 'inc/wrf_auxinput1out.inc ext_write_field CANWAT memorder XY' , & ! Debug message
719 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
720 ims , ime , jms , jme , 1 , 1 , &
721 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
722 ierr )
723 CALL wrf_ext_write_field ( &
724 fid , & ! DataHandle
725 current_date(1:19) , & ! DateStr
726 'SST' , & ! Data Name
727 grid%sst , & ! 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 '' , & ! Stagger
736 'west_east' , & ! Dimname 1
737 'south_north' , & ! Dimname 2
738 '' , & ! Dimname 3
739 'SEA SURFACE TEMPERATURE' , & ! Desc
740 'K' , & ! Units
741 'inc/wrf_auxinput1out.inc ext_write_field SST memorder XY' , & ! Debug message
742 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
743 ims , ime , jms , jme , 1 , 1 , &
744 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
745 ierr )
746 CALL wrf_ext_write_field ( &
747 fid , & ! DataHandle
748 current_date(1:19) , & ! DateStr
749 'MAPFAC_M' , & ! Data Name
750 grid%msft , & ! Field
751 WRF_FLOAT , & ! FieldType
752 grid%communicator , & ! Comm
753 grid%iocommunicator , & ! Comm
754 grid%domdesc , & ! Comm
755 grid%bdy_mask , & ! bdy_mask
756 dryrun , & ! flag
757 'XY' , & ! MemoryOrder
758 '' , & ! Stagger
759 'west_east' , & ! Dimname 1
760 'south_north' , & ! Dimname 2
761 '' , & ! Dimname 3
762 'Map scale factor on mass grid' , & ! Desc
763 '' , & ! Units
764 'inc/wrf_auxinput1out.inc ext_write_field MAPFAC_M memorder XY' , & ! Debug message
765 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
766 ims , ime , jms , jme , 1 , 1 , &
767 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
768 ierr )
769 CALL wrf_ext_write_field ( &
770 fid , & ! DataHandle
771 current_date(1:19) , & ! DateStr
772 'MAPFAC_U' , & ! Data Name
773 grid%msfu , & ! Field
774 WRF_FLOAT , & ! FieldType
775 grid%communicator , & ! Comm
776 grid%iocommunicator , & ! Comm
777 grid%domdesc , & ! Comm
778 grid%bdy_mask , & ! bdy_mask
779 dryrun , & ! flag
780 'XY' , & ! MemoryOrder
781 'X' , & ! Stagger
782 'west_east_stag' , & ! Dimname 1
783 'south_north' , & ! Dimname 2
784 '' , & ! Dimname 3
785 'Map scale factor on u-grid' , & ! Desc
786 '' , & ! Units
787 'inc/wrf_auxinput1out.inc ext_write_field MAPFAC_U memorder XY' , & ! Debug message
788 ids , ide , jds , (jde-1) , 1 , 1 , &
789 ims , ime , jms , jme , 1 , 1 , &
790 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
791 ierr )
792 CALL wrf_ext_write_field ( &
793 fid , & ! DataHandle
794 current_date(1:19) , & ! DateStr
795 'MAPFAC_V' , & ! Data Name
796 grid%msfv , & ! Field
797 WRF_FLOAT , & ! FieldType
798 grid%communicator , & ! Comm
799 grid%iocommunicator , & ! Comm
800 grid%domdesc , & ! Comm
801 grid%bdy_mask , & ! bdy_mask
802 dryrun , & ! flag
803 'XY' , & ! MemoryOrder
804 'Y' , & ! Stagger
805 'west_east' , & ! Dimname 1
806 'south_north_stag' , & ! Dimname 2
807 '' , & ! Dimname 3
808 'Map scale factor on v-grid' , & ! Desc
809 '' , & ! Units
810 'inc/wrf_auxinput1out.inc ext_write_field MAPFAC_V memorder XY' , & ! Debug message
811 ids , (ide-1) , jds , jde , 1 , 1 , &
812 ims , ime , jms , jme , 1 , 1 , &
813 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
814 ierr )
815 CALL wrf_ext_write_field ( &
816 fid , & ! DataHandle
817 current_date(1:19) , & ! DateStr
818 'F' , & ! Data Name
819 grid%f , & ! Field
820 WRF_FLOAT , & ! FieldType
821 grid%communicator , & ! Comm
822 grid%iocommunicator , & ! Comm
823 grid%domdesc , & ! Comm
824 grid%bdy_mask , & ! bdy_mask
825 dryrun , & ! flag
826 'XY' , & ! MemoryOrder
827 '' , & ! Stagger
828 'west_east' , & ! Dimname 1
829 'south_north' , & ! Dimname 2
830 '' , & ! Dimname 3
831 'Coriolis sine latitude term' , & ! Desc
832 's-1' , & ! Units
833 'inc/wrf_auxinput1out.inc ext_write_field F memorder XY' , & ! Debug message
834 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
835 ims , ime , jms , jme , 1 , 1 , &
836 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
837 ierr )
838 CALL wrf_ext_write_field ( &
839 fid , & ! DataHandle
840 current_date(1:19) , & ! DateStr
841 'E' , & ! Data Name
842 grid%e , & ! 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 '' , & ! Stagger
851 'west_east' , & ! Dimname 1
852 'south_north' , & ! Dimname 2
853 '' , & ! Dimname 3
854 'Coriolis cosine latitude term' , & ! Desc
855 's-1' , & ! Units
856 'inc/wrf_auxinput1out.inc ext_write_field E memorder XY' , & ! Debug message
857 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
858 ims , ime , jms , jme , 1 , 1 , &
859 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
860 ierr )
861 CALL wrf_ext_write_field ( &
862 fid , & ! DataHandle
863 current_date(1:19) , & ! DateStr
864 'SINALPHA' , & ! Data Name
865 grid%sina , & ! Field
866 WRF_FLOAT , & ! FieldType
867 grid%communicator , & ! Comm
868 grid%iocommunicator , & ! Comm
869 grid%domdesc , & ! Comm
870 grid%bdy_mask , & ! bdy_mask
871 dryrun , & ! flag
872 'XY' , & ! MemoryOrder
873 '' , & ! Stagger
874 'west_east' , & ! Dimname 1
875 'south_north' , & ! Dimname 2
876 '' , & ! Dimname 3
877 'Local sine of map rotation' , & ! Desc
878 '' , & ! Units
879 'inc/wrf_auxinput1out.inc ext_write_field SINALPHA memorder XY' , & ! Debug message
880 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
881 ims , ime , jms , jme , 1 , 1 , &
882 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
883 ierr )
884 CALL wrf_ext_write_field ( &
885 fid , & ! DataHandle
886 current_date(1:19) , & ! DateStr
887 'COSALPHA' , & ! Data Name
888 grid%cosa , & ! Field
889 WRF_FLOAT , & ! FieldType
890 grid%communicator , & ! Comm
891 grid%iocommunicator , & ! Comm
892 grid%domdesc , & ! Comm
893 grid%bdy_mask , & ! bdy_mask
894 dryrun , & ! flag
895 'XY' , & ! MemoryOrder
896 '' , & ! Stagger
897 'west_east' , & ! Dimname 1
898 'south_north' , & ! Dimname 2
899 '' , & ! Dimname 3
900 'Local cosine of map rotation' , & ! Desc
901 '' , & ! Units
902 'inc/wrf_auxinput1out.inc ext_write_field COSALPHA memorder XY' , & ! Debug message
903 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
904 ims , ime , jms , jme , 1 , 1 , &
905 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
906 ierr )
907 CALL wrf_ext_write_field ( &
908 fid , & ! DataHandle
909 current_date(1:19) , & ! DateStr
910 'HGT' , & ! Data Name
911 grid%ht , & ! Field
912 WRF_FLOAT , & ! FieldType
913 grid%communicator , & ! Comm
914 grid%iocommunicator , & ! Comm
915 grid%domdesc , & ! Comm
916 grid%bdy_mask , & ! bdy_mask
917 dryrun , & ! flag
918 'XY' , & ! MemoryOrder
919 '' , & ! Stagger
920 'west_east' , & ! Dimname 1
921 'south_north' , & ! Dimname 2
922 '' , & ! Dimname 3
923 'Terrain Height' , & ! Desc
924 'm' , & ! Units
925 'inc/wrf_auxinput1out.inc ext_write_field HGT memorder XY' , & ! Debug message
926 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
927 ims , ime , jms , jme , 1 , 1 , &
928 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
929 ierr )
930 CALL wrf_ext_write_field ( &
931 fid , & ! DataHandle
932 current_date(1:19) , & ! DateStr
933 'TSK' , & ! Data Name
934 grid%tsk , & ! Field
935 WRF_FLOAT , & ! FieldType
936 grid%communicator , & ! Comm
937 grid%iocommunicator , & ! Comm
938 grid%domdesc , & ! Comm
939 grid%bdy_mask , & ! bdy_mask
940 dryrun , & ! flag
941 'XY' , & ! MemoryOrder
942 '' , & ! Stagger
943 'west_east' , & ! Dimname 1
944 'south_north' , & ! Dimname 2
945 '' , & ! Dimname 3
946 'SURFACE SKIN TEMPERATURE' , & ! Desc
947 'K' , & ! Units
948 'inc/wrf_auxinput1out.inc ext_write_field TSK memorder XY' , & ! Debug message
949 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
950 ims , ime , jms , jme , 1 , 1 , &
951 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
952 ierr )
953 CALL wrf_ext_write_field ( &
954 fid , & ! DataHandle
955 current_date(1:19) , & ! DateStr
956 'XLAT' , & ! Data Name
957 grid%xlat , & ! Field
958 WRF_FLOAT , & ! FieldType
959 grid%communicator , & ! Comm
960 grid%iocommunicator , & ! Comm
961 grid%domdesc , & ! Comm
962 grid%bdy_mask , & ! bdy_mask
963 dryrun , & ! flag
964 'XY' , & ! MemoryOrder
965 '' , & ! Stagger
966 'west_east' , & ! Dimname 1
967 'south_north' , & ! Dimname 2
968 '' , & ! Dimname 3
969 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
970 'degree_north' , & ! Units
971 'inc/wrf_auxinput1out.inc ext_write_field XLAT memorder XY' , & ! Debug message
972 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
973 ims , ime , jms , jme , 1 , 1 , &
974 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
975 ierr )
976 CALL wrf_ext_write_field ( &
977 fid , & ! DataHandle
978 current_date(1:19) , & ! DateStr
979 'XLONG' , & ! Data Name
980 grid%xlong , & ! Field
981 WRF_FLOAT , & ! FieldType
982 grid%communicator , & ! Comm
983 grid%iocommunicator , & ! Comm
984 grid%domdesc , & ! Comm
985 grid%bdy_mask , & ! bdy_mask
986 dryrun , & ! flag
987 'XY' , & ! MemoryOrder
988 '' , & ! Stagger
989 'west_east' , & ! Dimname 1
990 'south_north' , & ! Dimname 2
991 '' , & ! Dimname 3
992 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
993 'degree_east' , & ! Units
994 'inc/wrf_auxinput1out.inc ext_write_field XLONG memorder XY' , & ! Debug message
995 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
996 ims , ime , jms , jme , 1 , 1 , &
997 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
998 ierr )
999 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1000 CALL wrf_ext_write_field ( &
1001 fid , & ! DataHandle
1002 current_date(1:19) , & ! DateStr
1003 'XLAT_U' , & ! Data Name
1004 grid%em_xlat_u , & ! Field
1005 WRF_FLOAT , & ! FieldType
1006 grid%communicator , & ! Comm
1007 grid%iocommunicator , & ! Comm
1008 grid%domdesc , & ! Comm
1009 grid%bdy_mask , & ! bdy_mask
1010 dryrun , & ! flag
1011 'XY' , & ! MemoryOrder
1012 'X' , & ! Stagger
1013 'west_east_stag' , & ! Dimname 1
1014 'south_north' , & ! Dimname 2
1015 '' , & ! Dimname 3
1016 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
1017 'degree_north' , & ! Units
1018 'inc/wrf_auxinput1out.inc ext_write_field XLAT_U memorder XY' , & ! Debug message
1019 ids , ide , jds , (jde-1) , 1 , 1 , &
1020 ims , ime , jms , jme , 1 , 1 , &
1021 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1022 ierr )
1023 END IF
1024 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1025 CALL wrf_ext_write_field ( &
1026 fid , & ! DataHandle
1027 current_date(1:19) , & ! DateStr
1028 'XLONG_U' , & ! Data Name
1029 grid%em_xlong_u , & ! Field
1030 WRF_FLOAT , & ! FieldType
1031 grid%communicator , & ! Comm
1032 grid%iocommunicator , & ! Comm
1033 grid%domdesc , & ! Comm
1034 grid%bdy_mask , & ! bdy_mask
1035 dryrun , & ! flag
1036 'XY' , & ! MemoryOrder
1037 'X' , & ! Stagger
1038 'west_east_stag' , & ! Dimname 1
1039 'south_north' , & ! Dimname 2
1040 '' , & ! Dimname 3
1041 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
1042 'degree_east' , & ! Units
1043 'inc/wrf_auxinput1out.inc ext_write_field XLONG_U memorder XY' , & ! Debug message
1044 ids , ide , jds , (jde-1) , 1 , 1 , &
1045 ims , ime , jms , jme , 1 , 1 , &
1046 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1047 ierr )
1048 END IF
1049 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1050 CALL wrf_ext_write_field ( &
1051 fid , & ! DataHandle
1052 current_date(1:19) , & ! DateStr
1053 'XLAT_V' , & ! Data Name
1054 grid%em_xlat_v , & ! Field
1055 WRF_FLOAT , & ! FieldType
1056 grid%communicator , & ! Comm
1057 grid%iocommunicator , & ! Comm
1058 grid%domdesc , & ! Comm
1059 grid%bdy_mask , & ! bdy_mask
1060 dryrun , & ! flag
1061 'XY' , & ! MemoryOrder
1062 'Y' , & ! Stagger
1063 'west_east' , & ! Dimname 1
1064 'south_north_stag' , & ! Dimname 2
1065 '' , & ! Dimname 3
1066 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
1067 'degree_north' , & ! Units
1068 'inc/wrf_auxinput1out.inc ext_write_field XLAT_V memorder XY' , & ! Debug message
1069 ids , (ide-1) , jds , jde , 1 , 1 , &
1070 ims , ime , jms , jme , 1 , 1 , &
1071 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
1072 ierr )
1073 END IF
1074 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1075 CALL wrf_ext_write_field ( &
1076 fid , & ! DataHandle
1077 current_date(1:19) , & ! DateStr
1078 'XLONG_V' , & ! Data Name
1079 grid%em_xlong_v , & ! Field
1080 WRF_FLOAT , & ! FieldType
1081 grid%communicator , & ! Comm
1082 grid%iocommunicator , & ! Comm
1083 grid%domdesc , & ! Comm
1084 grid%bdy_mask , & ! bdy_mask
1085 dryrun , & ! flag
1086 'XY' , & ! MemoryOrder
1087 'Y' , & ! Stagger
1088 'west_east' , & ! Dimname 1
1089 'south_north_stag' , & ! Dimname 2
1090 '' , & ! Dimname 3
1091 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
1092 'degree_east' , & ! Units
1093 'inc/wrf_auxinput1out.inc ext_write_field XLONG_V memorder XY' , & ! Debug message
1094 ids , (ide-1) , jds , jde , 1 , 1 , &
1095 ims , ime , jms , jme , 1 , 1 , &
1096 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
1097 ierr )
1098 END IF
1099 CALL wrf_ext_write_field ( &
1100 fid , & ! DataHandle
1101 current_date(1:19) , & ! DateStr
1102 'ALBBCK' , & ! Data Name
1103 grid%albbck , & ! Field
1104 WRF_FLOAT , & ! FieldType
1105 grid%communicator , & ! Comm
1106 grid%iocommunicator , & ! Comm
1107 grid%domdesc , & ! Comm
1108 grid%bdy_mask , & ! bdy_mask
1109 dryrun , & ! flag
1110 'XY' , & ! MemoryOrder
1111 '' , & ! Stagger
1112 'west_east' , & ! Dimname 1
1113 'south_north' , & ! Dimname 2
1114 '' , & ! Dimname 3
1115 'BACKGROUND ALBEDO' , & ! Desc
1116 '' , & ! Units
1117 'inc/wrf_auxinput1out.inc ext_write_field ALBBCK memorder XY' , & ! Debug message
1118 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1119 ims , ime , jms , jme , 1 , 1 , &
1120 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1121 ierr )
1122 CALL wrf_ext_write_field ( &
1123 fid , & ! DataHandle
1124 current_date(1:19) , & ! DateStr
1125 'TMN' , & ! Data Name
1126 grid%tmn , & ! Field
1127 WRF_FLOAT , & ! FieldType
1128 grid%communicator , & ! Comm
1129 grid%iocommunicator , & ! Comm
1130 grid%domdesc , & ! Comm
1131 grid%bdy_mask , & ! bdy_mask
1132 dryrun , & ! flag
1133 'XY' , & ! MemoryOrder
1134 '' , & ! Stagger
1135 'west_east' , & ! Dimname 1
1136 'south_north' , & ! Dimname 2
1137 '' , & ! Dimname 3
1138 'SOIL TEMPERATURE AT LOWER BOUNDARY' , & ! Desc
1139 'K' , & ! Units
1140 'inc/wrf_auxinput1out.inc ext_write_field TMN memorder XY' , & ! Debug message
1141 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1142 ims , ime , jms , jme , 1 , 1 , &
1143 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1144 ierr )
1145 !ENDOFREGISTRYGENERATEDINCLUDE