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