wrf_histout.inc

References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_histout.inc'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit.  Your changes to this file will be lost.
6 !
7 CALL wrf_ext_write_field (  &
8                        fid                , &  ! DataHandle 
9                        current_date(1:19) , &  ! DateStr 
10                        'LU_INDEX'               , &  ! Data Name 
11                        grid%lu_index               , &  ! Field 
12                        WRF_FLOAT          , &  ! FieldType 
13                        grid%communicator  , &  ! Comm
14                        grid%iocommunicator  , &  ! Comm
15                        grid%domdesc       , &  ! Comm
16                        grid%bdy_mask       , &  ! bdy_mask
17                        dryrun             , &  ! flag
18                        'XY'               , &  ! MemoryOrder
19                        ''               , &  ! Stagger
20                        'west_east'               , &  ! Dimname 1 
21                        'south_north'               , &  ! Dimname 2 
22                        ''               , &  ! Dimname 3 
23                        'LAND USE CATEGORY'               , &  ! Desc  
24                        ''               , &  ! Units 
25 'inc/wrf_histout.inc ext_write_field LU_INDEX memorder XY' , & ! Debug message
26 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
27 ims , ime , jms , jme , 1 , 1 ,  & 
28 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
29                        ierr )
30 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
31 CALL wrf_ext_write_field (  &
32                        fid                , &  ! DataHandle 
33                        current_date(1:19) , &  ! DateStr 
34                        'U'               , &  ! Data Name 
35                        grid%em_u_2               , &  ! Field 
36                        WRF_FLOAT          , &  ! FieldType 
37                        grid%communicator  , &  ! Comm
38                        grid%iocommunicator  , &  ! Comm
39                        grid%domdesc       , &  ! Comm
40                        grid%bdy_mask       , &  ! bdy_mask
41                        dryrun             , &  ! flag
42                        'XYZ'               , &  ! MemoryOrder
43                        'X'               , &  ! Stagger
44                        'west_east_stag'               , &  ! Dimname 1 
45                        'south_north'               , &  ! Dimname 2 
46                        'bottom_top'               , &  ! Dimname 3 
47                        'x-wind component'               , &  ! Desc  
48                        'm s-1'               , &  ! Units 
49 'inc/wrf_histout.inc ext_write_field U memorder XYZ' , & ! Debug message
50 ids , ide , jds , (jde-1) , kds , (kde-1) ,  & 
51 ims , ime , jms , jme , kms , kme ,  & 
52 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
53                        ierr )
54 END IF
55 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
56 CALL wrf_ext_write_field (  &
57                        fid                , &  ! DataHandle 
58                        current_date(1:19) , &  ! DateStr 
59                        'A_U'               , &  ! Data Name 
60                        grid%a_u_2               , &  ! Field 
61                        WRF_FLOAT          , &  ! FieldType 
62                        grid%communicator  , &  ! Comm
63                        grid%iocommunicator  , &  ! Comm
64                        grid%domdesc       , &  ! Comm
65                        grid%bdy_mask       , &  ! bdy_mask
66                        dryrun             , &  ! flag
67                        'XYZ'               , &  ! MemoryOrder
68                        'X'               , &  ! Stagger
69                        'west_east_stag'               , &  ! Dimname 1 
70                        'south_north'               , &  ! Dimname 2 
71                        'bottom_top'               , &  ! Dimname 3 
72                        'x-wind component'               , &  ! Desc  
73                        'm s-1'               , &  ! Units 
74 'inc/wrf_histout.inc ext_write_field A_U memorder XYZ' , & ! Debug message
75 ids , ide , jds , (jde-1) , kds , (kde-1) ,  & 
76 ims , ime , jms , jme , kms , kme ,  & 
77 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
78                        ierr )
79 END IF
80 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
81 CALL wrf_ext_write_field (  &
82                        fid                , &  ! DataHandle 
83                        current_date(1:19) , &  ! DateStr 
84                        'G_U'               , &  ! Data Name 
85                        grid%g_u_2               , &  ! Field 
86                        WRF_FLOAT          , &  ! FieldType 
87                        grid%communicator  , &  ! Comm
88                        grid%iocommunicator  , &  ! Comm
89                        grid%domdesc       , &  ! Comm
90                        grid%bdy_mask       , &  ! bdy_mask
91                        dryrun             , &  ! flag
92                        'XYZ'               , &  ! MemoryOrder
93                        'X'               , &  ! Stagger
94                        'west_east_stag'               , &  ! Dimname 1 
95                        'south_north'               , &  ! Dimname 2 
96                        'bottom_top'               , &  ! Dimname 3 
97                        'x-wind component'               , &  ! Desc  
98                        'm s-1'               , &  ! Units 
99 'inc/wrf_histout.inc ext_write_field G_U memorder XYZ' , & ! Debug message
100 ids , ide , jds , (jde-1) , kds , (kde-1) ,  & 
101 ims , ime , jms , jme , kms , kme ,  & 
102 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
103                        ierr )
104 END IF
105 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
106 CALL wrf_ext_write_field (  &
107                        fid                , &  ! DataHandle 
108                        current_date(1:19) , &  ! DateStr 
109                        'V'               , &  ! Data Name 
110                        grid%em_v_2               , &  ! Field 
111                        WRF_FLOAT          , &  ! FieldType 
112                        grid%communicator  , &  ! Comm
113                        grid%iocommunicator  , &  ! Comm
114                        grid%domdesc       , &  ! Comm
115                        grid%bdy_mask       , &  ! bdy_mask
116                        dryrun             , &  ! flag
117                        'XYZ'               , &  ! MemoryOrder
118                        'Y'               , &  ! Stagger
119                        'west_east'               , &  ! Dimname 1 
120                        'south_north_stag'               , &  ! Dimname 2 
121                        'bottom_top'               , &  ! Dimname 3 
122                        'y-wind component'               , &  ! Desc  
123                        'm s-1'               , &  ! Units 
124 'inc/wrf_histout.inc ext_write_field V memorder XYZ' , & ! Debug message
125 ids , (ide-1) , jds , jde , kds , (kde-1) ,  & 
126 ims , ime , jms , jme , kms , kme ,  & 
127 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
128                        ierr )
129 END IF
130 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
131 CALL wrf_ext_write_field (  &
132                        fid                , &  ! DataHandle 
133                        current_date(1:19) , &  ! DateStr 
134                        'A_V'               , &  ! Data Name 
135                        grid%a_v_2               , &  ! Field 
136                        WRF_FLOAT          , &  ! FieldType 
137                        grid%communicator  , &  ! Comm
138                        grid%iocommunicator  , &  ! Comm
139                        grid%domdesc       , &  ! Comm
140                        grid%bdy_mask       , &  ! bdy_mask
141                        dryrun             , &  ! flag
142                        'XYZ'               , &  ! MemoryOrder
143                        'Y'               , &  ! Stagger
144                        'west_east'               , &  ! Dimname 1 
145                        'south_north_stag'               , &  ! Dimname 2 
146                        'bottom_top'               , &  ! Dimname 3 
147                        'y-wind component'               , &  ! Desc  
148                        'm s-1'               , &  ! Units 
149 'inc/wrf_histout.inc ext_write_field A_V memorder XYZ' , & ! Debug message
150 ids , (ide-1) , jds , jde , kds , (kde-1) ,  & 
151 ims , ime , jms , jme , kms , kme ,  & 
152 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
153                        ierr )
154 END IF
155 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
156 CALL wrf_ext_write_field (  &
157                        fid                , &  ! DataHandle 
158                        current_date(1:19) , &  ! DateStr 
159                        'G_V'               , &  ! Data Name 
160                        grid%g_v_2               , &  ! Field 
161                        WRF_FLOAT          , &  ! FieldType 
162                        grid%communicator  , &  ! Comm
163                        grid%iocommunicator  , &  ! Comm
164                        grid%domdesc       , &  ! Comm
165                        grid%bdy_mask       , &  ! bdy_mask
166                        dryrun             , &  ! flag
167                        'XYZ'               , &  ! MemoryOrder
168                        'Y'               , &  ! Stagger
169                        'west_east'               , &  ! Dimname 1 
170                        'south_north_stag'               , &  ! Dimname 2 
171                        'bottom_top'               , &  ! Dimname 3 
172                        'y-wind component'               , &  ! Desc  
173                        'm s-1'               , &  ! Units 
174 'inc/wrf_histout.inc ext_write_field G_V memorder XYZ' , & ! Debug message
175 ids , (ide-1) , jds , jde , kds , (kde-1) ,  & 
176 ims , ime , jms , jme , kms , kme ,  & 
177 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
178                        ierr )
179 END IF
180 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
181 CALL wrf_ext_write_field (  &
182                        fid                , &  ! DataHandle 
183                        current_date(1:19) , &  ! DateStr 
184                        'W'               , &  ! Data Name 
185                        grid%em_w_2               , &  ! Field 
186                        WRF_FLOAT          , &  ! FieldType 
187                        grid%communicator  , &  ! Comm
188                        grid%iocommunicator  , &  ! Comm
189                        grid%domdesc       , &  ! Comm
190                        grid%bdy_mask       , &  ! bdy_mask
191                        dryrun             , &  ! flag
192                        'XYZ'               , &  ! MemoryOrder
193                        'Z'               , &  ! Stagger
194                        'west_east'               , &  ! Dimname 1 
195                        'south_north'               , &  ! Dimname 2 
196                        'bottom_top_stag'               , &  ! Dimname 3 
197                        'z-wind component'               , &  ! Desc  
198                        'm s-1'               , &  ! Units 
199 'inc/wrf_histout.inc ext_write_field W memorder XYZ' , & ! Debug message
200 ids , (ide-1) , jds , (jde-1) , kds , kde ,  & 
201 ims , ime , jms , jme , kms , kme ,  & 
202 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) ,  & 
203                        ierr )
204 END IF
205 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
206 CALL wrf_ext_write_field (  &
207                        fid                , &  ! DataHandle 
208                        current_date(1:19) , &  ! DateStr 
209                        'A_W'               , &  ! Data Name 
210                        grid%a_w_2               , &  ! Field 
211                        WRF_FLOAT          , &  ! FieldType 
212                        grid%communicator  , &  ! Comm
213                        grid%iocommunicator  , &  ! Comm
214                        grid%domdesc       , &  ! Comm
215                        grid%bdy_mask       , &  ! bdy_mask
216                        dryrun             , &  ! flag
217                        'XYZ'               , &  ! MemoryOrder
218                        'Z'               , &  ! Stagger
219                        'west_east'               , &  ! Dimname 1 
220                        'south_north'               , &  ! Dimname 2 
221                        'bottom_top_stag'               , &  ! Dimname 3 
222                        'z-wind component'               , &  ! Desc  
223                        'm s-1'               , &  ! Units 
224 'inc/wrf_histout.inc ext_write_field A_W memorder XYZ' , & ! Debug message
225 ids , (ide-1) , jds , (jde-1) , kds , kde ,  & 
226 ims , ime , jms , jme , kms , kme ,  & 
227 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) ,  & 
228                        ierr )
229 END IF
230 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
231 CALL wrf_ext_write_field (  &
232                        fid                , &  ! DataHandle 
233                        current_date(1:19) , &  ! DateStr 
234                        'G_W'               , &  ! Data Name 
235                        grid%g_w_2               , &  ! Field 
236                        WRF_FLOAT          , &  ! FieldType 
237                        grid%communicator  , &  ! Comm
238                        grid%iocommunicator  , &  ! Comm
239                        grid%domdesc       , &  ! Comm
240                        grid%bdy_mask       , &  ! bdy_mask
241                        dryrun             , &  ! flag
242                        'XYZ'               , &  ! MemoryOrder
243                        'Z'               , &  ! Stagger
244                        'west_east'               , &  ! Dimname 1 
245                        'south_north'               , &  ! Dimname 2 
246                        'bottom_top_stag'               , &  ! Dimname 3 
247                        'z-wind component'               , &  ! Desc  
248                        'm s-1'               , &  ! Units 
249 'inc/wrf_histout.inc ext_write_field G_W memorder XYZ' , & ! Debug message
250 ids , (ide-1) , jds , (jde-1) , kds , kde ,  & 
251 ims , ime , jms , jme , kms , kme ,  & 
252 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) ,  & 
253                        ierr )
254 END IF
255 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
256 CALL wrf_ext_write_field (  &
257                        fid                , &  ! DataHandle 
258                        current_date(1:19) , &  ! DateStr 
259                        'PH'               , &  ! Data Name 
260                        grid%em_ph_2               , &  ! Field 
261                        WRF_FLOAT          , &  ! FieldType 
262                        grid%communicator  , &  ! Comm
263                        grid%iocommunicator  , &  ! Comm
264                        grid%domdesc       , &  ! Comm
265                        grid%bdy_mask       , &  ! bdy_mask
266                        dryrun             , &  ! flag
267                        'XYZ'               , &  ! MemoryOrder
268                        'Z'               , &  ! Stagger
269                        'west_east'               , &  ! Dimname 1 
270                        'south_north'               , &  ! Dimname 2 
271                        'bottom_top_stag'               , &  ! Dimname 3 
272                        'perturbation geopotential'               , &  ! Desc  
273                        'm2 s-2'               , &  ! Units 
274 'inc/wrf_histout.inc ext_write_field PH memorder XYZ' , & ! Debug message
275 ids , (ide-1) , jds , (jde-1) , kds , kde ,  & 
276 ims , ime , jms , jme , kms , kme ,  & 
277 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) ,  & 
278                        ierr )
279 END IF
280 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
281 CALL wrf_ext_write_field (  &
282                        fid                , &  ! DataHandle 
283                        current_date(1:19) , &  ! DateStr 
284                        'A_PH'               , &  ! Data Name 
285                        grid%a_ph_2               , &  ! Field 
286                        WRF_FLOAT          , &  ! FieldType 
287                        grid%communicator  , &  ! Comm
288                        grid%iocommunicator  , &  ! Comm
289                        grid%domdesc       , &  ! Comm
290                        grid%bdy_mask       , &  ! bdy_mask
291                        dryrun             , &  ! flag
292                        'XYZ'               , &  ! MemoryOrder
293                        'Z'               , &  ! Stagger
294                        'west_east'               , &  ! Dimname 1 
295                        'south_north'               , &  ! Dimname 2 
296                        'bottom_top_stag'               , &  ! Dimname 3 
297                        'perturbation geopotential'               , &  ! Desc  
298                        'm2 s-2'               , &  ! Units 
299 'inc/wrf_histout.inc ext_write_field A_PH memorder XYZ' , & ! Debug message
300 ids , (ide-1) , jds , (jde-1) , kds , kde ,  & 
301 ims , ime , jms , jme , kms , kme ,  & 
302 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) ,  & 
303                        ierr )
304 END IF
305 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
306 CALL wrf_ext_write_field (  &
307                        fid                , &  ! DataHandle 
308                        current_date(1:19) , &  ! DateStr 
309                        'G_PH'               , &  ! Data Name 
310                        grid%g_ph_2               , &  ! Field 
311                        WRF_FLOAT          , &  ! FieldType 
312                        grid%communicator  , &  ! Comm
313                        grid%iocommunicator  , &  ! Comm
314                        grid%domdesc       , &  ! Comm
315                        grid%bdy_mask       , &  ! bdy_mask
316                        dryrun             , &  ! flag
317                        'XYZ'               , &  ! MemoryOrder
318                        'Z'               , &  ! Stagger
319                        'west_east'               , &  ! Dimname 1 
320                        'south_north'               , &  ! Dimname 2 
321                        'bottom_top_stag'               , &  ! Dimname 3 
322                        'perturbation geopotential'               , &  ! Desc  
323                        'm2 s-2'               , &  ! Units 
324 'inc/wrf_histout.inc ext_write_field G_PH memorder XYZ' , & ! Debug message
325 ids , (ide-1) , jds , (jde-1) , kds , kde ,  & 
326 ims , ime , jms , jme , kms , kme ,  & 
327 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) ,  & 
328                        ierr )
329 END IF
330 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
331 CALL wrf_ext_write_field (  &
332                        fid                , &  ! DataHandle 
333                        current_date(1:19) , &  ! DateStr 
334                        'PHB'               , &  ! Data Name 
335                        grid%em_phb               , &  ! Field 
336                        WRF_FLOAT          , &  ! FieldType 
337                        grid%communicator  , &  ! Comm
338                        grid%iocommunicator  , &  ! Comm
339                        grid%domdesc       , &  ! Comm
340                        grid%bdy_mask       , &  ! bdy_mask
341                        dryrun             , &  ! flag
342                        'XYZ'               , &  ! MemoryOrder
343                        'Z'               , &  ! Stagger
344                        'west_east'               , &  ! Dimname 1 
345                        'south_north'               , &  ! Dimname 2 
346                        'bottom_top_stag'               , &  ! Dimname 3 
347                        'base-state geopotential'               , &  ! Desc  
348                        'm2 s-2'               , &  ! Units 
349 'inc/wrf_histout.inc ext_write_field PHB memorder XYZ' , & ! Debug message
350 ids , (ide-1) , jds , (jde-1) , kds , kde ,  & 
351 ims , ime , jms , jme , kms , kme ,  & 
352 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) ,  & 
353                        ierr )
354 END IF
355 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
356 CALL wrf_ext_write_field (  &
357                        fid                , &  ! DataHandle 
358                        current_date(1:19) , &  ! DateStr 
359                        'T'               , &  ! Data Name 
360                        grid%em_t_2               , &  ! Field 
361                        WRF_FLOAT          , &  ! FieldType 
362                        grid%communicator  , &  ! Comm
363                        grid%iocommunicator  , &  ! Comm
364                        grid%domdesc       , &  ! Comm
365                        grid%bdy_mask       , &  ! bdy_mask
366                        dryrun             , &  ! flag
367                        'XYZ'               , &  ! MemoryOrder
368                        ''               , &  ! Stagger
369                        'west_east'               , &  ! Dimname 1 
370                        'south_north'               , &  ! Dimname 2 
371                        'bottom_top'               , &  ! Dimname 3 
372                        'perturbation potential temperature (theta-t0)'               , &  ! Desc  
373                        'K'               , &  ! Units 
374 'inc/wrf_histout.inc ext_write_field T memorder XYZ' , & ! Debug message
375 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) ,  & 
376 ims , ime , jms , jme , kms , kme ,  & 
377 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
378                        ierr )
379 END IF
380 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
381 CALL wrf_ext_write_field (  &
382                        fid                , &  ! DataHandle 
383                        current_date(1:19) , &  ! DateStr 
384                        'A_T'               , &  ! Data Name 
385                        grid%a_t_2               , &  ! Field 
386                        WRF_FLOAT          , &  ! FieldType 
387                        grid%communicator  , &  ! Comm
388                        grid%iocommunicator  , &  ! Comm
389                        grid%domdesc       , &  ! Comm
390                        grid%bdy_mask       , &  ! bdy_mask
391                        dryrun             , &  ! flag
392                        'XYZ'               , &  ! MemoryOrder
393                        ''               , &  ! Stagger
394                        'west_east'               , &  ! Dimname 1 
395                        'south_north'               , &  ! Dimname 2 
396                        'bottom_top'               , &  ! Dimname 3 
397                        'perturbation potential temperature (theta-t0)'               , &  ! Desc  
398                        'K'               , &  ! Units 
399 'inc/wrf_histout.inc ext_write_field A_T memorder XYZ' , & ! Debug message
400 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) ,  & 
401 ims , ime , jms , jme , kms , kme ,  & 
402 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
403                        ierr )
404 END IF
405 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
406 CALL wrf_ext_write_field (  &
407                        fid                , &  ! DataHandle 
408                        current_date(1:19) , &  ! DateStr 
409                        'G_T'               , &  ! Data Name 
410                        grid%g_t_2               , &  ! Field 
411                        WRF_FLOAT          , &  ! FieldType 
412                        grid%communicator  , &  ! Comm
413                        grid%iocommunicator  , &  ! Comm
414                        grid%domdesc       , &  ! Comm
415                        grid%bdy_mask       , &  ! bdy_mask
416                        dryrun             , &  ! flag
417                        'XYZ'               , &  ! MemoryOrder
418                        ''               , &  ! Stagger
419                        'west_east'               , &  ! Dimname 1 
420                        'south_north'               , &  ! Dimname 2 
421                        'bottom_top'               , &  ! Dimname 3 
422                        'perturbation potential temperature (theta-t0)'               , &  ! Desc  
423                        'K'               , &  ! Units 
424 'inc/wrf_histout.inc ext_write_field G_T memorder XYZ' , & ! Debug message
425 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) ,  & 
426 ims , ime , jms , jme , kms , kme ,  & 
427 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
428                        ierr )
429 END IF
430 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
431 CALL wrf_ext_write_field (  &
432                        fid                , &  ! DataHandle 
433                        current_date(1:19) , &  ! DateStr 
434                        'MU'               , &  ! Data Name 
435                        grid%em_mu_2               , &  ! Field 
436                        WRF_FLOAT          , &  ! FieldType 
437                        grid%communicator  , &  ! Comm
438                        grid%iocommunicator  , &  ! Comm
439                        grid%domdesc       , &  ! Comm
440                        grid%bdy_mask       , &  ! bdy_mask
441                        dryrun             , &  ! flag
442                        'XY'               , &  ! MemoryOrder
443                        ''               , &  ! Stagger
444                        'west_east'               , &  ! Dimname 1 
445                        'south_north'               , &  ! Dimname 2 
446                        ''               , &  ! Dimname 3 
447                        'perturbation dry air mass in column'               , &  ! Desc  
448                        'Pa'               , &  ! Units 
449 'inc/wrf_histout.inc ext_write_field MU memorder XY' , & ! Debug message
450 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
451 ims , ime , jms , jme , 1 , 1 ,  & 
452 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
453                        ierr )
454 END IF
455 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
456 CALL wrf_ext_write_field (  &
457                        fid                , &  ! DataHandle 
458                        current_date(1:19) , &  ! DateStr 
459                        'A_MU'               , &  ! Data Name 
460                        grid%a_mu_2               , &  ! Field 
461                        WRF_FLOAT          , &  ! FieldType 
462                        grid%communicator  , &  ! Comm
463                        grid%iocommunicator  , &  ! Comm
464                        grid%domdesc       , &  ! Comm
465                        grid%bdy_mask       , &  ! bdy_mask
466                        dryrun             , &  ! flag
467                        'XY'               , &  ! MemoryOrder
468                        ''               , &  ! Stagger
469                        'west_east'               , &  ! Dimname 1 
470                        'south_north'               , &  ! Dimname 2 
471                        ''               , &  ! Dimname 3 
472                        'perturbation dry air mass in column'               , &  ! Desc  
473                        'Pa'               , &  ! Units 
474 'inc/wrf_histout.inc ext_write_field A_MU memorder XY' , & ! Debug message
475 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
476 ims , ime , jms , jme , 1 , 1 ,  & 
477 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
478                        ierr )
479 END IF
480 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
481 CALL wrf_ext_write_field (  &
482                        fid                , &  ! DataHandle 
483                        current_date(1:19) , &  ! DateStr 
484                        'G_MU'               , &  ! Data Name 
485                        grid%g_mu_2               , &  ! Field 
486                        WRF_FLOAT          , &  ! FieldType 
487                        grid%communicator  , &  ! Comm
488                        grid%iocommunicator  , &  ! Comm
489                        grid%domdesc       , &  ! Comm
490                        grid%bdy_mask       , &  ! bdy_mask
491                        dryrun             , &  ! flag
492                        'XY'               , &  ! MemoryOrder
493                        ''               , &  ! Stagger
494                        'west_east'               , &  ! Dimname 1 
495                        'south_north'               , &  ! Dimname 2 
496                        ''               , &  ! Dimname 3 
497                        'perturbation dry air mass in column'               , &  ! Desc  
498                        'Pa'               , &  ! Units 
499 'inc/wrf_histout.inc ext_write_field G_MU memorder XY' , & ! Debug message
500 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
501 ims , ime , jms , jme , 1 , 1 ,  & 
502 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
503                        ierr )
504 END IF
505 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
506 CALL wrf_ext_write_field (  &
507                        fid                , &  ! DataHandle 
508                        current_date(1:19) , &  ! DateStr 
509                        'MUB'               , &  ! Data Name 
510                        grid%em_mub               , &  ! Field 
511                        WRF_FLOAT          , &  ! FieldType 
512                        grid%communicator  , &  ! Comm
513                        grid%iocommunicator  , &  ! Comm
514                        grid%domdesc       , &  ! Comm
515                        grid%bdy_mask       , &  ! bdy_mask
516                        dryrun             , &  ! flag
517                        'XY'               , &  ! MemoryOrder
518                        ''               , &  ! Stagger
519                        'west_east'               , &  ! Dimname 1 
520                        'south_north'               , &  ! Dimname 2 
521                        ''               , &  ! Dimname 3 
522                        'base state dry air mass in column'               , &  ! Desc  
523                        'Pa'               , &  ! Units 
524 'inc/wrf_histout.inc ext_write_field MUB memorder XY' , & ! Debug message
525 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
526 ims , ime , jms , jme , 1 , 1 ,  & 
527 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
528                        ierr )
529 END IF
530 CALL wrf_ext_write_field (  &
531                        fid                , &  ! DataHandle 
532                        current_date(1:19) , &  ! DateStr 
533                        'NEST_POS'               , &  ! Data Name 
534                        grid%nest_pos               , &  ! Field 
535                        WRF_FLOAT          , &  ! FieldType 
536                        grid%communicator  , &  ! Comm
537                        grid%iocommunicator  , &  ! Comm
538                        grid%domdesc       , &  ! Comm
539                        grid%bdy_mask       , &  ! bdy_mask
540                        dryrun             , &  ! flag
541                        'XY'               , &  ! MemoryOrder
542                        ''               , &  ! Stagger
543                        'west_east'               , &  ! Dimname 1 
544                        'south_north'               , &  ! Dimname 2 
545                        ''               , &  ! Dimname 3 
546                        '-'               , &  ! Desc  
547                        '-'               , &  ! Units 
548 'inc/wrf_histout.inc ext_write_field NEST_POS memorder XY' , & ! Debug message
549 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
550 ims , ime , jms , jme , 1 , 1 ,  & 
551 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
552                        ierr )
553 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
554 CALL wrf_ext_write_field (  &
555                        fid                , &  ! DataHandle 
556                        current_date(1:19) , &  ! DateStr 
557                        'P'               , &  ! Data Name 
558                        grid%em_p               , &  ! Field 
559                        WRF_FLOAT          , &  ! FieldType 
560                        grid%communicator  , &  ! Comm
561                        grid%iocommunicator  , &  ! Comm
562                        grid%domdesc       , &  ! Comm
563                        grid%bdy_mask       , &  ! bdy_mask
564                        dryrun             , &  ! flag
565                        'XYZ'               , &  ! MemoryOrder
566                        ''               , &  ! Stagger
567                        'west_east'               , &  ! Dimname 1 
568                        'south_north'               , &  ! Dimname 2 
569                        'bottom_top'               , &  ! Dimname 3 
570                        'perturbation pressure'               , &  ! Desc  
571                        'Pa'               , &  ! Units 
572 'inc/wrf_histout.inc ext_write_field P memorder XYZ' , & ! Debug message
573 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) ,  & 
574 ims , ime , jms , jme , kms , kme ,  & 
575 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
576                        ierr )
577 END IF
578 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
579 CALL wrf_ext_write_field (  &
580                        fid                , &  ! DataHandle 
581                        current_date(1:19) , &  ! DateStr 
582                        'SR'               , &  ! Data Name 
583                        grid%em_sr               , &  ! Field 
584                        WRF_FLOAT          , &  ! FieldType 
585                        grid%communicator  , &  ! Comm
586                        grid%iocommunicator  , &  ! Comm
587                        grid%domdesc       , &  ! Comm
588                        grid%bdy_mask       , &  ! bdy_mask
589                        dryrun             , &  ! flag
590                        'XY'               , &  ! MemoryOrder
591                        ''               , &  ! Stagger
592                        'west_east'               , &  ! Dimname 1 
593                        'south_north'               , &  ! Dimname 2 
594                        ''               , &  ! Dimname 3 
595                        'fraction of frozen precipitation'               , &  ! Desc  
596                        '-'               , &  ! Units 
597 'inc/wrf_histout.inc ext_write_field SR memorder XY' , & ! Debug message
598 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
599 ims , ime , jms , jme , 1 , 1 ,  & 
600 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
601                        ierr )
602 END IF
603 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
604 CALL wrf_ext_write_field (  &
605                        fid                , &  ! DataHandle 
606                        current_date(1:19) , &  ! DateStr 
607                        'FNM'               , &  ! Data Name 
608                        grid%em_fnm               , &  ! Field 
609                        WRF_FLOAT          , &  ! FieldType 
610                        grid%communicator  , &  ! Comm
611                        grid%iocommunicator  , &  ! Comm
612                        grid%domdesc       , &  ! Comm
613                        grid%bdy_mask       , &  ! bdy_mask
614                        dryrun             , &  ! flag
615                        'Z'               , &  ! MemoryOrder
616                        ''               , &  ! Stagger
617                        'bottom_top'               , &  ! Dimname 1 
618                        ''               , &  ! Dimname 2 
619                        ''               , &  ! Dimname 3 
620                        'upper weight for vertical stretching'               , &  ! Desc  
621                        ''               , &  ! Units 
622 'inc/wrf_histout.inc ext_write_field FNM memorder Z' , & ! Debug message
623 kds , (kde-1) , 1 , 1 , 1 , 1 ,  & 
624 kms , kme , 1 , 1 , 1 , 1 ,  & 
625 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 ,  & 
626                        ierr )
627 END IF
628 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
629 CALL wrf_ext_write_field (  &
630                        fid                , &  ! DataHandle 
631                        current_date(1:19) , &  ! DateStr 
632                        'FNP'               , &  ! Data Name 
633                        grid%em_fnp               , &  ! Field 
634                        WRF_FLOAT          , &  ! FieldType 
635                        grid%communicator  , &  ! Comm
636                        grid%iocommunicator  , &  ! Comm
637                        grid%domdesc       , &  ! Comm
638                        grid%bdy_mask       , &  ! bdy_mask
639                        dryrun             , &  ! flag
640                        'Z'               , &  ! MemoryOrder
641                        ''               , &  ! Stagger
642                        'bottom_top'               , &  ! Dimname 1 
643                        ''               , &  ! Dimname 2 
644                        ''               , &  ! Dimname 3 
645                        'lower weight for vertical stretching'               , &  ! Desc  
646                        ''               , &  ! Units 
647 'inc/wrf_histout.inc ext_write_field FNP memorder Z' , & ! Debug message
648 kds , (kde-1) , 1 , 1 , 1 , 1 ,  & 
649 kms , kme , 1 , 1 , 1 , 1 ,  & 
650 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 ,  & 
651                        ierr )
652 END IF
653 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
654 CALL wrf_ext_write_field (  &
655                        fid                , &  ! DataHandle 
656                        current_date(1:19) , &  ! DateStr 
657                        'RDNW'               , &  ! Data Name 
658                        grid%em_rdnw               , &  ! 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                        'Z'               , &  ! MemoryOrder
666                        ''               , &  ! Stagger
667                        'bottom_top'               , &  ! Dimname 1 
668                        ''               , &  ! Dimname 2 
669                        ''               , &  ! Dimname 3 
670                        'inverse d(eta) values between full (w) levels'               , &  ! Desc  
671                        ''               , &  ! Units 
672 'inc/wrf_histout.inc ext_write_field RDNW memorder Z' , & ! Debug message
673 kds , (kde-1) , 1 , 1 , 1 , 1 ,  & 
674 kms , kme , 1 , 1 , 1 , 1 ,  & 
675 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 ,  & 
676                        ierr )
677 END IF
678 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
679 CALL wrf_ext_write_field (  &
680                        fid                , &  ! DataHandle 
681                        current_date(1:19) , &  ! DateStr 
682                        'RDN'               , &  ! Data Name 
683                        grid%em_rdn               , &  ! Field 
684                        WRF_FLOAT          , &  ! FieldType 
685                        grid%communicator  , &  ! Comm
686                        grid%iocommunicator  , &  ! Comm
687                        grid%domdesc       , &  ! Comm
688                        grid%bdy_mask       , &  ! bdy_mask
689                        dryrun             , &  ! flag
690                        'Z'               , &  ! MemoryOrder
691                        ''               , &  ! Stagger
692                        'bottom_top'               , &  ! Dimname 1 
693                        ''               , &  ! Dimname 2 
694                        ''               , &  ! Dimname 3 
695                        'inverse d(eta) values between half (mass) levels'               , &  ! Desc  
696                        ''               , &  ! Units 
697 'inc/wrf_histout.inc ext_write_field RDN memorder Z' , & ! Debug message
698 kds , (kde-1) , 1 , 1 , 1 , 1 ,  & 
699 kms , kme , 1 , 1 , 1 , 1 ,  & 
700 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 ,  & 
701                        ierr )
702 END IF
703 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
704 CALL wrf_ext_write_field (  &
705                        fid                , &  ! DataHandle 
706                        current_date(1:19) , &  ! DateStr 
707                        'DNW'               , &  ! Data Name 
708                        grid%em_dnw               , &  ! Field 
709                        WRF_FLOAT          , &  ! FieldType 
710                        grid%communicator  , &  ! Comm
711                        grid%iocommunicator  , &  ! Comm
712                        grid%domdesc       , &  ! Comm
713                        grid%bdy_mask       , &  ! bdy_mask
714                        dryrun             , &  ! flag
715                        'Z'               , &  ! MemoryOrder
716                        ''               , &  ! Stagger
717                        'bottom_top'               , &  ! Dimname 1 
718                        ''               , &  ! Dimname 2 
719                        ''               , &  ! Dimname 3 
720                        'd(eta) values between full (w) levels'               , &  ! Desc  
721                        ''               , &  ! Units 
722 'inc/wrf_histout.inc ext_write_field DNW memorder Z' , & ! Debug message
723 kds , (kde-1) , 1 , 1 , 1 , 1 ,  & 
724 kms , kme , 1 , 1 , 1 , 1 ,  & 
725 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 ,  & 
726                        ierr )
727 END IF
728 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
729 CALL wrf_ext_write_field (  &
730                        fid                , &  ! DataHandle 
731                        current_date(1:19) , &  ! DateStr 
732                        'DN '               , &  ! Data Name 
733                        grid%em_dn               , &  ! Field 
734                        WRF_FLOAT          , &  ! FieldType 
735                        grid%communicator  , &  ! Comm
736                        grid%iocommunicator  , &  ! Comm
737                        grid%domdesc       , &  ! Comm
738                        grid%bdy_mask       , &  ! bdy_mask
739                        dryrun             , &  ! flag
740                        'Z'               , &  ! MemoryOrder
741                        ''               , &  ! Stagger
742                        'bottom_top'               , &  ! Dimname 1 
743                        ''               , &  ! Dimname 2 
744                        ''               , &  ! Dimname 3 
745                        'd(eta) values between half (mass) levels'               , &  ! Desc  
746                        ''               , &  ! Units 
747 'inc/wrf_histout.inc ext_write_field DN  memorder Z' , & ! Debug message
748 kds , (kde-1) , 1 , 1 , 1 , 1 ,  & 
749 kms , kme , 1 , 1 , 1 , 1 ,  & 
750 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 ,  & 
751                        ierr )
752 END IF
753 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
754 CALL wrf_ext_write_field (  &
755                        fid                , &  ! DataHandle 
756                        current_date(1:19) , &  ! DateStr 
757                        'ZNU'               , &  ! Data Name 
758                        grid%em_znu               , &  ! Field 
759                        WRF_FLOAT          , &  ! FieldType 
760                        grid%communicator  , &  ! Comm
761                        grid%iocommunicator  , &  ! Comm
762                        grid%domdesc       , &  ! Comm
763                        grid%bdy_mask       , &  ! bdy_mask
764                        dryrun             , &  ! flag
765                        'Z'               , &  ! MemoryOrder
766                        ''               , &  ! Stagger
767                        'bottom_top'               , &  ! Dimname 1 
768                        ''               , &  ! Dimname 2 
769                        ''               , &  ! Dimname 3 
770                        'eta values on half (mass) levels'               , &  ! Desc  
771                        ''               , &  ! Units 
772 'inc/wrf_histout.inc ext_write_field ZNU memorder Z' , & ! Debug message
773 kds , (kde-1) , 1 , 1 , 1 , 1 ,  & 
774 kms , kme , 1 , 1 , 1 , 1 ,  & 
775 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 ,  & 
776                        ierr )
777 END IF
778 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
779 CALL wrf_ext_write_field (  &
780                        fid                , &  ! DataHandle 
781                        current_date(1:19) , &  ! DateStr 
782                        'ZNW'               , &  ! Data Name 
783                        grid%em_znw               , &  ! Field 
784                        WRF_FLOAT          , &  ! FieldType 
785                        grid%communicator  , &  ! Comm
786                        grid%iocommunicator  , &  ! Comm
787                        grid%domdesc       , &  ! Comm
788                        grid%bdy_mask       , &  ! bdy_mask
789                        dryrun             , &  ! flag
790                        'Z'               , &  ! MemoryOrder
791                        'Z'               , &  ! Stagger
792                        'bottom_top_stag'               , &  ! Dimname 1 
793                        ''               , &  ! Dimname 2 
794                        ''               , &  ! Dimname 3 
795                        'eta values on full (w) levels'               , &  ! Desc  
796                        ''               , &  ! Units 
797 'inc/wrf_histout.inc ext_write_field ZNW memorder Z' , & ! Debug message
798 kds , kde , 1 , 1 , 1 , 1 ,  & 
799 kms , kme , 1 , 1 , 1 , 1 ,  & 
800 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 ,  & 
801                        ierr )
802 END IF
803 CALL wrf_ext_write_field (  &
804                        fid                , &  ! DataHandle 
805                        current_date(1:19) , &  ! DateStr 
806                        'CFN'               , &  ! Data Name 
807                        grid%cfn               , &  ! Field 
808                        WRF_FLOAT          , &  ! FieldType 
809                        grid%communicator  , &  ! Comm
810                        grid%iocommunicator  , &  ! Comm
811                        grid%domdesc       , &  ! Comm
812                        grid%bdy_mask       , &  ! bdy_mask
813                        dryrun             , &  ! flag
814                        '0'               , &  ! MemoryOrder
815                        ''               , &  ! Stagger
816                        ''               , &  ! Dimname 1 
817                        ''               , &  ! Dimname 2 
818                        ''               , &  ! Dimname 3 
819                        'extrapolation constant'               , &  ! Desc  
820                        ''               , &  ! Units 
821 'inc/wrf_histout.inc ext_write_field CFN memorder 0' , & ! Debug message
822 1 , 1 , 1 , 1 , 1 , 1 ,  & 
823 1 , 1 , 1 , 1 , 1 , 1 ,  & 
824 1 , 1 , 1 , 1 , 1 , 1 ,  & 
825                        ierr )
826 CALL wrf_ext_write_field (  &
827                        fid                , &  ! DataHandle 
828                        current_date(1:19) , &  ! DateStr 
829                        'CFN1'               , &  ! Data Name 
830                        grid%cfn1               , &  ! Field 
831                        WRF_FLOAT          , &  ! FieldType 
832                        grid%communicator  , &  ! Comm
833                        grid%iocommunicator  , &  ! Comm
834                        grid%domdesc       , &  ! Comm
835                        grid%bdy_mask       , &  ! bdy_mask
836                        dryrun             , &  ! flag
837                        '0'               , &  ! MemoryOrder
838                        ''               , &  ! Stagger
839                        ''               , &  ! Dimname 1 
840                        ''               , &  ! Dimname 2 
841                        ''               , &  ! Dimname 3 
842                        'extrapolation constant'               , &  ! Desc  
843                        ''               , &  ! Units 
844 'inc/wrf_histout.inc ext_write_field CFN1 memorder 0' , & ! Debug message
845 1 , 1 , 1 , 1 , 1 , 1 ,  & 
846 1 , 1 , 1 , 1 , 1 , 1 ,  & 
847 1 , 1 , 1 , 1 , 1 , 1 ,  & 
848                        ierr )
849 CALL wrf_ext_write_field (  &
850                        fid                , &  ! DataHandle 
851                        current_date(1:19) , &  ! DateStr 
852                        'A'               , &  ! Data Name 
853                        grid%kma_a               , &  ! Field 
854                        WRF_FLOAT          , &  ! FieldType 
855                        grid%communicator  , &  ! Comm
856                        grid%iocommunicator  , &  ! Comm
857                        grid%domdesc       , &  ! Comm
858                        grid%bdy_mask       , &  ! bdy_mask
859                        dryrun             , &  ! flag
860                        'Z'               , &  ! MemoryOrder
861                        'Z'               , &  ! Stagger
862                        'bottom_top_stag'               , &  ! Dimname 1 
863                        ''               , &  ! Dimname 2 
864                        ''               , &  ! Dimname 3 
865                        'KMA Constants A to convert surface presure to full level pressure'               , &  ! Desc  
866                        'dimensionless'               , &  ! Units 
867 'inc/wrf_histout.inc ext_write_field A memorder Z' , & ! Debug message
868 kds , kde , 1 , 1 , 1 , 1 ,  & 
869 kms , kme , 1 , 1 , 1 , 1 ,  & 
870 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 ,  & 
871                        ierr )
872 CALL wrf_ext_write_field (  &
873                        fid                , &  ! DataHandle 
874                        current_date(1:19) , &  ! DateStr 
875                        'B'               , &  ! Data Name 
876                        grid%kma_b               , &  ! Field 
877                        WRF_FLOAT          , &  ! FieldType 
878                        grid%communicator  , &  ! Comm
879                        grid%iocommunicator  , &  ! Comm
880                        grid%domdesc       , &  ! Comm
881                        grid%bdy_mask       , &  ! bdy_mask
882                        dryrun             , &  ! flag
883                        'Z'               , &  ! MemoryOrder
884                        'Z'               , &  ! Stagger
885                        'bottom_top_stag'               , &  ! Dimname 1 
886                        ''               , &  ! Dimname 2 
887                        ''               , &  ! Dimname 3 
888                        'KMA Constants B to convert surface presure to full level pressure'               , &  ! Desc  
889                        'dimensionless'               , &  ! Units 
890 'inc/wrf_histout.inc ext_write_field B memorder Z' , & ! Debug message
891 kds , kde , 1 , 1 , 1 , 1 ,  & 
892 kms , kme , 1 , 1 , 1 , 1 ,  & 
893 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 ,  & 
894                        ierr )
895 CALL wrf_ext_write_field (  &
896                        fid                , &  ! DataHandle 
897                        current_date(1:19) , &  ! DateStr 
898                        'Q2'               , &  ! Data Name 
899                        grid%q2               , &  ! Field 
900                        WRF_FLOAT          , &  ! FieldType 
901                        grid%communicator  , &  ! Comm
902                        grid%iocommunicator  , &  ! Comm
903                        grid%domdesc       , &  ! Comm
904                        grid%bdy_mask       , &  ! bdy_mask
905                        dryrun             , &  ! flag
906                        'XY'               , &  ! MemoryOrder
907                        ''               , &  ! Stagger
908                        'west_east'               , &  ! Dimname 1 
909                        'south_north'               , &  ! Dimname 2 
910                        ''               , &  ! Dimname 3 
911                        'QV at 2 M'               , &  ! Desc  
912                        'kg kg-1'               , &  ! Units 
913 'inc/wrf_histout.inc ext_write_field Q2 memorder XY' , & ! Debug message
914 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
915 ims , ime , jms , jme , 1 , 1 ,  & 
916 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
917                        ierr )
918 CALL wrf_ext_write_field (  &
919                        fid                , &  ! DataHandle 
920                        current_date(1:19) , &  ! DateStr 
921                        'T2'               , &  ! Data Name 
922                        grid%t2               , &  ! Field 
923                        WRF_FLOAT          , &  ! FieldType 
924                        grid%communicator  , &  ! Comm
925                        grid%iocommunicator  , &  ! Comm
926                        grid%domdesc       , &  ! Comm
927                        grid%bdy_mask       , &  ! bdy_mask
928                        dryrun             , &  ! flag
929                        'XY'               , &  ! MemoryOrder
930                        ''               , &  ! Stagger
931                        'west_east'               , &  ! Dimname 1 
932                        'south_north'               , &  ! Dimname 2 
933                        ''               , &  ! Dimname 3 
934                        'TEMP at 2 M'               , &  ! Desc  
935                        'K'               , &  ! Units 
936 'inc/wrf_histout.inc ext_write_field T2 memorder XY' , & ! Debug message
937 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
938 ims , ime , jms , jme , 1 , 1 ,  & 
939 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
940                        ierr )
941 CALL wrf_ext_write_field (  &
942                        fid                , &  ! DataHandle 
943                        current_date(1:19) , &  ! DateStr 
944                        'TH2'               , &  ! Data Name 
945                        grid%th2               , &  ! Field 
946                        WRF_FLOAT          , &  ! FieldType 
947                        grid%communicator  , &  ! Comm
948                        grid%iocommunicator  , &  ! Comm
949                        grid%domdesc       , &  ! Comm
950                        grid%bdy_mask       , &  ! bdy_mask
951                        dryrun             , &  ! flag
952                        'XY'               , &  ! MemoryOrder
953                        ''               , &  ! Stagger
954                        'west_east'               , &  ! Dimname 1 
955                        'south_north'               , &  ! Dimname 2 
956                        ''               , &  ! Dimname 3 
957                        'POT TEMP at 2 M'               , &  ! Desc  
958                        'K'               , &  ! Units 
959 'inc/wrf_histout.inc ext_write_field TH2 memorder XY' , & ! Debug message
960 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
961 ims , ime , jms , jme , 1 , 1 ,  & 
962 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
963                        ierr )
964 CALL wrf_ext_write_field (  &
965                        fid                , &  ! DataHandle 
966                        current_date(1:19) , &  ! DateStr 
967                        'PSFC'               , &  ! Data Name 
968                        grid%psfc               , &  ! Field 
969                        WRF_FLOAT          , &  ! FieldType 
970                        grid%communicator  , &  ! Comm
971                        grid%iocommunicator  , &  ! Comm
972                        grid%domdesc       , &  ! Comm
973                        grid%bdy_mask       , &  ! bdy_mask
974                        dryrun             , &  ! flag
975                        'XY'               , &  ! MemoryOrder
976                        ''               , &  ! Stagger
977                        'west_east'               , &  ! Dimname 1 
978                        'south_north'               , &  ! Dimname 2 
979                        ''               , &  ! Dimname 3 
980                        'SFC PRESSURE'               , &  ! Desc  
981                        'Pa'               , &  ! Units 
982 'inc/wrf_histout.inc ext_write_field PSFC memorder XY' , & ! Debug message
983 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
984 ims , ime , jms , jme , 1 , 1 ,  & 
985 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
986                        ierr )
987 CALL wrf_ext_write_field (  &
988                        fid                , &  ! DataHandle 
989                        current_date(1:19) , &  ! DateStr 
990                        'U10'               , &  ! Data Name 
991                        grid%u10               , &  ! Field 
992                        WRF_FLOAT          , &  ! FieldType 
993                        grid%communicator  , &  ! Comm
994                        grid%iocommunicator  , &  ! Comm
995                        grid%domdesc       , &  ! Comm
996                        grid%bdy_mask       , &  ! bdy_mask
997                        dryrun             , &  ! flag
998                        'XY'               , &  ! MemoryOrder
999                        ''               , &  ! Stagger
1000                        'west_east'               , &  ! Dimname 1 
1001                        'south_north'               , &  ! Dimname 2 
1002                        ''               , &  ! Dimname 3 
1003                        'U at 10 M'               , &  ! Desc  
1004                        'm s-1'               , &  ! Units 
1005 'inc/wrf_histout.inc ext_write_field U10 memorder XY' , & ! Debug message
1006 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1007 ims , ime , jms , jme , 1 , 1 ,  & 
1008 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1009                        ierr )
1010 CALL wrf_ext_write_field (  &
1011                        fid                , &  ! DataHandle 
1012                        current_date(1:19) , &  ! DateStr 
1013                        'V10'               , &  ! Data Name 
1014                        grid%v10               , &  ! Field 
1015                        WRF_FLOAT          , &  ! FieldType 
1016                        grid%communicator  , &  ! Comm
1017                        grid%iocommunicator  , &  ! Comm
1018                        grid%domdesc       , &  ! Comm
1019                        grid%bdy_mask       , &  ! bdy_mask
1020                        dryrun             , &  ! flag
1021                        'XY'               , &  ! MemoryOrder
1022                        ''               , &  ! Stagger
1023                        'west_east'               , &  ! Dimname 1 
1024                        'south_north'               , &  ! Dimname 2 
1025                        ''               , &  ! Dimname 3 
1026                        'V at 10 M'               , &  ! Desc  
1027                        'm s-1'               , &  ! Units 
1028 'inc/wrf_histout.inc ext_write_field V10 memorder XY' , & ! Debug message
1029 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1030 ims , ime , jms , jme , 1 , 1 ,  & 
1031 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1032                        ierr )
1033 CALL wrf_ext_write_field (  &
1034                        fid                , &  ! DataHandle 
1035                        current_date(1:19) , &  ! DateStr 
1036                        'RDX'               , &  ! Data Name 
1037                        grid%rdx               , &  ! Field 
1038                        WRF_FLOAT          , &  ! FieldType 
1039                        grid%communicator  , &  ! Comm
1040                        grid%iocommunicator  , &  ! Comm
1041                        grid%domdesc       , &  ! Comm
1042                        grid%bdy_mask       , &  ! bdy_mask
1043                        dryrun             , &  ! flag
1044                        '0'               , &  ! MemoryOrder
1045                        ''               , &  ! Stagger
1046                        ''               , &  ! Dimname 1 
1047                        ''               , &  ! Dimname 2 
1048                        ''               , &  ! Dimname 3 
1049                        'INVERSE X GRID LENGTH'               , &  ! Desc  
1050                        ''               , &  ! Units 
1051 'inc/wrf_histout.inc ext_write_field RDX memorder 0' , & ! Debug message
1052 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1053 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1054 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1055                        ierr )
1056 CALL wrf_ext_write_field (  &
1057                        fid                , &  ! DataHandle 
1058                        current_date(1:19) , &  ! DateStr 
1059                        'RDY'               , &  ! Data Name 
1060                        grid%rdy               , &  ! Field 
1061                        WRF_FLOAT          , &  ! FieldType 
1062                        grid%communicator  , &  ! Comm
1063                        grid%iocommunicator  , &  ! Comm
1064                        grid%domdesc       , &  ! Comm
1065                        grid%bdy_mask       , &  ! bdy_mask
1066                        dryrun             , &  ! flag
1067                        '0'               , &  ! MemoryOrder
1068                        ''               , &  ! Stagger
1069                        ''               , &  ! Dimname 1 
1070                        ''               , &  ! Dimname 2 
1071                        ''               , &  ! Dimname 3 
1072                        'INVERSE Y GRID LENGTH'               , &  ! Desc  
1073                        ''               , &  ! Units 
1074 'inc/wrf_histout.inc ext_write_field RDY memorder 0' , & ! Debug message
1075 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1076 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1077 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1078                        ierr )
1079 CALL wrf_ext_write_field (  &
1080                        fid                , &  ! DataHandle 
1081                        current_date(1:19) , &  ! DateStr 
1082                        'RESM'               , &  ! Data Name 
1083                        grid%resm               , &  ! Field 
1084                        WRF_FLOAT          , &  ! FieldType 
1085                        grid%communicator  , &  ! Comm
1086                        grid%iocommunicator  , &  ! Comm
1087                        grid%domdesc       , &  ! Comm
1088                        grid%bdy_mask       , &  ! bdy_mask
1089                        dryrun             , &  ! flag
1090                        '0'               , &  ! MemoryOrder
1091                        ''               , &  ! Stagger
1092                        ''               , &  ! Dimname 1 
1093                        ''               , &  ! Dimname 2 
1094                        ''               , &  ! Dimname 3 
1095                        'TIME WEIGHT CONSTANT FOR SMALL STEPS'               , &  ! Desc  
1096                        ''               , &  ! Units 
1097 'inc/wrf_histout.inc ext_write_field RESM memorder 0' , & ! Debug message
1098 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1099 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1100 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1101                        ierr )
1102 CALL wrf_ext_write_field (  &
1103                        fid                , &  ! DataHandle 
1104                        current_date(1:19) , &  ! DateStr 
1105                        'ZETATOP'               , &  ! Data Name 
1106                        grid%zetatop               , &  ! Field 
1107                        WRF_FLOAT          , &  ! FieldType 
1108                        grid%communicator  , &  ! Comm
1109                        grid%iocommunicator  , &  ! Comm
1110                        grid%domdesc       , &  ! Comm
1111                        grid%bdy_mask       , &  ! bdy_mask
1112                        dryrun             , &  ! flag
1113                        '0'               , &  ! MemoryOrder
1114                        ''               , &  ! Stagger
1115                        ''               , &  ! Dimname 1 
1116                        ''               , &  ! Dimname 2 
1117                        ''               , &  ! Dimname 3 
1118                        'ZETA AT MODEL TOP'               , &  ! Desc  
1119                        ''               , &  ! Units 
1120 'inc/wrf_histout.inc ext_write_field ZETATOP memorder 0' , & ! Debug message
1121 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1122 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1123 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1124                        ierr )
1125 CALL wrf_ext_write_field (  &
1126                        fid                , &  ! DataHandle 
1127                        current_date(1:19) , &  ! DateStr 
1128                        'CF1'               , &  ! Data Name 
1129                        grid%cf1               , &  ! Field 
1130                        WRF_FLOAT          , &  ! FieldType 
1131                        grid%communicator  , &  ! Comm
1132                        grid%iocommunicator  , &  ! Comm
1133                        grid%domdesc       , &  ! Comm
1134                        grid%bdy_mask       , &  ! bdy_mask
1135                        dryrun             , &  ! flag
1136                        '0'               , &  ! MemoryOrder
1137                        ''               , &  ! Stagger
1138                        ''               , &  ! Dimname 1 
1139                        ''               , &  ! Dimname 2 
1140                        ''               , &  ! Dimname 3 
1141                        '2nd order extrapolation constant'               , &  ! Desc  
1142                        ''               , &  ! Units 
1143 'inc/wrf_histout.inc ext_write_field CF1 memorder 0' , & ! Debug message
1144 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1145 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1146 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1147                        ierr )
1148 CALL wrf_ext_write_field (  &
1149                        fid                , &  ! DataHandle 
1150                        current_date(1:19) , &  ! DateStr 
1151                        'CF2'               , &  ! Data Name 
1152                        grid%cf2               , &  ! Field 
1153                        WRF_FLOAT          , &  ! FieldType 
1154                        grid%communicator  , &  ! Comm
1155                        grid%iocommunicator  , &  ! Comm
1156                        grid%domdesc       , &  ! Comm
1157                        grid%bdy_mask       , &  ! bdy_mask
1158                        dryrun             , &  ! flag
1159                        '0'               , &  ! MemoryOrder
1160                        ''               , &  ! Stagger
1161                        ''               , &  ! Dimname 1 
1162                        ''               , &  ! Dimname 2 
1163                        ''               , &  ! Dimname 3 
1164                        '2nd order extrapolation constant'               , &  ! Desc  
1165                        ''               , &  ! Units 
1166 'inc/wrf_histout.inc ext_write_field CF2 memorder 0' , & ! Debug message
1167 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1168 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1169 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1170                        ierr )
1171 CALL wrf_ext_write_field (  &
1172                        fid                , &  ! DataHandle 
1173                        current_date(1:19) , &  ! DateStr 
1174                        'CF3'               , &  ! Data Name 
1175                        grid%cf3               , &  ! Field 
1176                        WRF_FLOAT          , &  ! FieldType 
1177                        grid%communicator  , &  ! Comm
1178                        grid%iocommunicator  , &  ! Comm
1179                        grid%domdesc       , &  ! Comm
1180                        grid%bdy_mask       , &  ! bdy_mask
1181                        dryrun             , &  ! flag
1182                        '0'               , &  ! MemoryOrder
1183                        ''               , &  ! Stagger
1184                        ''               , &  ! Dimname 1 
1185                        ''               , &  ! Dimname 2 
1186                        ''               , &  ! Dimname 3 
1187                        '2nd order extrapolation constant'               , &  ! Desc  
1188                        ''               , &  ! Units 
1189 'inc/wrf_histout.inc ext_write_field CF3 memorder 0' , & ! Debug message
1190 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1191 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1192 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1193                        ierr )
1194 CALL wrf_ext_write_field (  &
1195                        fid                , &  ! DataHandle 
1196                        current_date(1:19) , &  ! DateStr 
1197                        'ITIMESTEP'               , &  ! Data Name 
1198                        grid%itimestep               , &  ! Field 
1199                        WRF_integer             , &  ! FieldType 
1200                        grid%communicator  , &  ! Comm
1201                        grid%iocommunicator  , &  ! Comm
1202                        grid%domdesc       , &  ! Comm
1203                        grid%bdy_mask       , &  ! bdy_mask
1204                        dryrun             , &  ! flag
1205                        '0'               , &  ! MemoryOrder
1206                        ''               , &  ! Stagger
1207                        ''               , &  ! Dimname 1 
1208                        ''               , &  ! Dimname 2 
1209                        ''               , &  ! Dimname 3 
1210                        ''               , &  ! Desc  
1211                        ''               , &  ! Units 
1212 'inc/wrf_histout.inc ext_write_field ITIMESTEP memorder 0' , & ! Debug message
1213 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1214 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1215 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1216                        ierr )
1217 CALL wrf_ext_write_field (  &
1218                        fid                , &  ! DataHandle 
1219                        current_date(1:19) , &  ! DateStr 
1220                        'XTIME'               , &  ! Data Name 
1221                        grid%xtime               , &  ! Field 
1222                        WRF_FLOAT          , &  ! FieldType 
1223                        grid%communicator  , &  ! Comm
1224                        grid%iocommunicator  , &  ! Comm
1225                        grid%domdesc       , &  ! Comm
1226                        grid%bdy_mask       , &  ! bdy_mask
1227                        dryrun             , &  ! flag
1228                        '0'               , &  ! MemoryOrder
1229                        ''               , &  ! Stagger
1230                        ''               , &  ! Dimname 1 
1231                        ''               , &  ! Dimname 2 
1232                        ''               , &  ! Dimname 3 
1233                        'minutes since simulation start'               , &  ! Desc  
1234                        ''               , &  ! Units 
1235 'inc/wrf_histout.inc ext_write_field XTIME memorder 0' , & ! Debug message
1236 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1237 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1238 1 , 1 , 1 , 1 , 1 , 1 ,  & 
1239                        ierr )
1240 DO itrace = PARAM_FIRST_SCALAR , num_moist
1241   IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
1242     IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1243                (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM)    .or. &
1244                (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1245     CALL wrf_ext_write_field (  &
1246           fid                             , &  ! DataHandle
1247           current_date(1:19)              , &  ! DateStr
1248           TRIM(moist_dname_table( grid%id, itrace )), & !data name
1249           grid%moist(ims,jms,kms,itrace)  , &  ! Field
1250                        WRF_FLOAT             , &  ! FieldType 
1251           grid%communicator  , &  ! Comm
1252           grid%iocommunicator  , &  ! Comm
1253           grid%domdesc       , &  ! Comm
1254           grid%bdy_mask       , &  ! bdy_mask
1255           dryrun             , &  ! flag
1256           'XYZ'               , &  ! MemoryOrder
1257           ''                , &  ! Stagger
1258                        'west_east'               , &  ! Dimname 1 
1259                        'south_north'               , &  ! Dimname 2 
1260                        'bottom_top'               , &  ! Dimname 3 
1261           moist_desc_table( grid%id, itrace  ), & ! Desc
1262           moist_units_table( grid%id, itrace  ), & ! Units
1263 'inc/wrf_histout.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1264 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) ,  & 
1265 ims , ime , jms , jme , kms , kme ,  & 
1266 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
1267                          ierr )
1268      ENDIF
1269   ENDIF
1270 ENDDO
1271 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
1272   IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
1273     IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1274                (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM)    .or. &
1275                (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1276     CALL wrf_ext_write_field (  &
1277           fid                             , &  ! DataHandle
1278           current_date(1:19)              , &  ! DateStr
1279           TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
1280           grid%a_moist(ims,jms,kms,itrace)  , &  ! Field
1281                        WRF_FLOAT             , &  ! FieldType 
1282           grid%communicator  , &  ! Comm
1283           grid%iocommunicator  , &  ! Comm
1284           grid%domdesc       , &  ! Comm
1285           grid%bdy_mask       , &  ! bdy_mask
1286           dryrun             , &  ! flag
1287           'XYZ'               , &  ! MemoryOrder
1288           ''                , &  ! Stagger
1289                        'west_east'               , &  ! Dimname 1 
1290                        'south_north'               , &  ! Dimname 2 
1291                        'bottom_top'               , &  ! Dimname 3 
1292           a_moist_desc_table( grid%id, itrace  ), & ! Desc
1293           a_moist_units_table( grid%id, itrace  ), & ! Units
1294 'inc/wrf_histout.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1295 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) ,  & 
1296 ims , ime , jms , jme , kms , kme ,  & 
1297 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
1298                          ierr )
1299      ENDIF
1300   ENDIF
1301 ENDDO
1302 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
1303   IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
1304     IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1305                (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM)    .or. &
1306                (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1307     CALL wrf_ext_write_field (  &
1308           fid                             , &  ! DataHandle
1309           current_date(1:19)              , &  ! DateStr
1310           TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
1311           grid%g_moist(ims,jms,kms,itrace)  , &  ! Field
1312                        WRF_FLOAT             , &  ! FieldType 
1313           grid%communicator  , &  ! Comm
1314           grid%iocommunicator  , &  ! Comm
1315           grid%domdesc       , &  ! Comm
1316           grid%bdy_mask       , &  ! bdy_mask
1317           dryrun             , &  ! flag
1318           'XYZ'               , &  ! MemoryOrder
1319           ''                , &  ! Stagger
1320                        'west_east'               , &  ! Dimname 1 
1321                        'south_north'               , &  ! Dimname 2 
1322                        'bottom_top'               , &  ! Dimname 3 
1323           g_moist_desc_table( grid%id, itrace  ), & ! Desc
1324           g_moist_units_table( grid%id, itrace  ), & ! Units
1325 'inc/wrf_histout.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1326 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) ,  & 
1327 ims , ime , jms , jme , kms , kme ,  & 
1328 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
1329                          ierr )
1330      ENDIF
1331   ENDIF
1332 ENDDO
1333 DO itrace = PARAM_FIRST_SCALAR , num_scalar
1334   IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
1335     IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1336                (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM)    .or. &
1337                (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1338     CALL wrf_ext_write_field (  &
1339           fid                             , &  ! DataHandle
1340           current_date(1:19)              , &  ! DateStr
1341           TRIM(scalar_dname_table( grid%id, itrace )), & !data name
1342           grid%scalar(ims,jms,kms,itrace)  , &  ! 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           'XYZ'               , &  ! MemoryOrder
1350           ''                , &  ! Stagger
1351                        'west_east'               , &  ! Dimname 1 
1352                        'south_north'               , &  ! Dimname 2 
1353                        'bottom_top'               , &  ! Dimname 3 
1354           scalar_desc_table( grid%id, itrace  ), & ! Desc
1355           scalar_units_table( grid%id, itrace  ), & ! Units
1356 'inc/wrf_histout.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1357 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) ,  & 
1358 ims , ime , jms , jme , kms , kme ,  & 
1359 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
1360                          ierr )
1361      ENDIF
1362   ENDIF
1363 ENDDO
1364 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
1365   IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
1366     IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1367                (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM)    .or. &
1368                (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1369     CALL wrf_ext_write_field (  &
1370           fid                             , &  ! DataHandle
1371           current_date(1:19)              , &  ! DateStr
1372           TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
1373           grid%a_scalar(ims,jms,kms,itrace)  , &  ! Field
1374                        WRF_FLOAT             , &  ! FieldType 
1375           grid%communicator  , &  ! Comm
1376           grid%iocommunicator  , &  ! Comm
1377           grid%domdesc       , &  ! Comm
1378           grid%bdy_mask       , &  ! bdy_mask
1379           dryrun             , &  ! flag
1380           'XYZ'               , &  ! MemoryOrder
1381           ''                , &  ! Stagger
1382                        'west_east'               , &  ! Dimname 1 
1383                        'south_north'               , &  ! Dimname 2 
1384                        'bottom_top'               , &  ! Dimname 3 
1385           a_scalar_desc_table( grid%id, itrace  ), & ! Desc
1386           a_scalar_units_table( grid%id, itrace  ), & ! Units
1387 'inc/wrf_histout.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1388 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) ,  & 
1389 ims , ime , jms , jme , kms , kme ,  & 
1390 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
1391                          ierr )
1392      ENDIF
1393   ENDIF
1394 ENDDO
1395 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
1396   IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
1397     IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1398                (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM)    .or. &
1399                (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1400     CALL wrf_ext_write_field (  &
1401           fid                             , &  ! DataHandle
1402           current_date(1:19)              , &  ! DateStr
1403           TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
1404           grid%g_scalar(ims,jms,kms,itrace)  , &  ! Field
1405                        WRF_FLOAT             , &  ! FieldType 
1406           grid%communicator  , &  ! Comm
1407           grid%iocommunicator  , &  ! Comm
1408           grid%domdesc       , &  ! Comm
1409           grid%bdy_mask       , &  ! bdy_mask
1410           dryrun             , &  ! flag
1411           'XYZ'               , &  ! MemoryOrder
1412           ''                , &  ! Stagger
1413                        'west_east'               , &  ! Dimname 1 
1414                        'south_north'               , &  ! Dimname 2 
1415                        'bottom_top'               , &  ! Dimname 3 
1416           g_scalar_desc_table( grid%id, itrace  ), & ! Desc
1417           g_scalar_units_table( grid%id, itrace  ), & ! Units
1418 'inc/wrf_histout.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1419 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) ,  & 
1420 ims , ime , jms , jme , kms , kme ,  & 
1421 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) ,  & 
1422                          ierr )
1423      ENDIF
1424   ENDIF
1425 ENDDO
1426 CALL wrf_ext_write_field (  &
1427                        fid                , &  ! DataHandle 
1428                        current_date(1:19) , &  ! DateStr 
1429                        'LANDMASK'               , &  ! Data Name 
1430                        grid%landmask               , &  ! Field 
1431                        WRF_FLOAT          , &  ! FieldType 
1432                        grid%communicator  , &  ! Comm
1433                        grid%iocommunicator  , &  ! Comm
1434                        grid%domdesc       , &  ! Comm
1435                        grid%bdy_mask       , &  ! bdy_mask
1436                        dryrun             , &  ! flag
1437                        'XY'               , &  ! MemoryOrder
1438                        ''               , &  ! Stagger
1439                        'west_east'               , &  ! Dimname 1 
1440                        'south_north'               , &  ! Dimname 2 
1441                        ''               , &  ! Dimname 3 
1442                        'LAND MASK (1 FOR LAND, 0 FOR WATER)'               , &  ! Desc  
1443                        ''               , &  ! Units 
1444 'inc/wrf_histout.inc ext_write_field LANDMASK memorder XY' , & ! Debug message
1445 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1446 ims , ime , jms , jme , 1 , 1 ,  & 
1447 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1448                        ierr )
1449 CALL wrf_ext_write_field (  &
1450                        fid                , &  ! DataHandle 
1451                        current_date(1:19) , &  ! DateStr 
1452                        'TSLB'               , &  ! Data Name 
1453                        grid%tslb               , &  ! Field 
1454                        WRF_FLOAT          , &  ! FieldType 
1455                        grid%communicator  , &  ! Comm
1456                        grid%iocommunicator  , &  ! Comm
1457                        grid%domdesc       , &  ! Comm
1458                        grid%bdy_mask       , &  ! bdy_mask
1459                        dryrun             , &  ! flag
1460                        'XYZ'               , &  ! MemoryOrder
1461                        'Z'               , &  ! Stagger
1462                        'west_east'               , &  ! Dimname 1 
1463                        'south_north'               , &  ! Dimname 2 
1464                        'soil_layers_stag'               , &  ! Dimname 3 
1465                        'SOIL TEMPERATURE'               , &  ! Desc  
1466                        'K'               , &  ! Units 
1467 'inc/wrf_histout.inc ext_write_field TSLB memorder XYZ' , & ! Debug message
1468 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers ,  & 
1469 ims , ime , jms , jme , 1 , config_flags%num_soil_layers ,  & 
1470 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers ,  & 
1471                        ierr )
1472 CALL wrf_ext_write_field (  &
1473                        fid                , &  ! DataHandle 
1474                        current_date(1:19) , &  ! DateStr 
1475                        'ZS'               , &  ! Data Name 
1476                        grid%zs               , &  ! Field 
1477                        WRF_FLOAT          , &  ! FieldType 
1478                        grid%communicator  , &  ! Comm
1479                        grid%iocommunicator  , &  ! Comm
1480                        grid%domdesc       , &  ! Comm
1481                        grid%bdy_mask       , &  ! bdy_mask
1482                        dryrun             , &  ! flag
1483                        'Z'               , &  ! MemoryOrder
1484                        'Z'               , &  ! Stagger
1485                        'soil_layers_stag'               , &  ! Dimname 1 
1486                        ''               , &  ! Dimname 2 
1487                        ''               , &  ! Dimname 3 
1488                        'DEPTHS OF CENTERS OF SOIL LAYERS'               , &  ! Desc  
1489                        'm'               , &  ! Units 
1490 'inc/wrf_histout.inc ext_write_field ZS memorder Z' , & ! Debug message
1491 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 ,  & 
1492 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 ,  & 
1493 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 ,  & 
1494                        ierr )
1495 CALL wrf_ext_write_field (  &
1496                        fid                , &  ! DataHandle 
1497                        current_date(1:19) , &  ! DateStr 
1498                        'DZS'               , &  ! Data Name 
1499                        grid%dzs               , &  ! Field 
1500                        WRF_FLOAT          , &  ! FieldType 
1501                        grid%communicator  , &  ! Comm
1502                        grid%iocommunicator  , &  ! Comm
1503                        grid%domdesc       , &  ! Comm
1504                        grid%bdy_mask       , &  ! bdy_mask
1505                        dryrun             , &  ! flag
1506                        'Z'               , &  ! MemoryOrder
1507                        'Z'               , &  ! Stagger
1508                        'soil_layers_stag'               , &  ! Dimname 1 
1509                        ''               , &  ! Dimname 2 
1510                        ''               , &  ! Dimname 3 
1511                        'THICKNESSES OF SOIL LAYERS'               , &  ! Desc  
1512                        'm'               , &  ! Units 
1513 'inc/wrf_histout.inc ext_write_field DZS memorder Z' , & ! Debug message
1514 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 ,  & 
1515 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 ,  & 
1516 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 ,  & 
1517                        ierr )
1518 CALL wrf_ext_write_field (  &
1519                        fid                , &  ! DataHandle 
1520                        current_date(1:19) , &  ! DateStr 
1521                        'SMOIS'               , &  ! Data Name 
1522                        grid%smois               , &  ! Field 
1523                        WRF_FLOAT          , &  ! FieldType 
1524                        grid%communicator  , &  ! Comm
1525                        grid%iocommunicator  , &  ! Comm
1526                        grid%domdesc       , &  ! Comm
1527                        grid%bdy_mask       , &  ! bdy_mask
1528                        dryrun             , &  ! flag
1529                        'XYZ'               , &  ! MemoryOrder
1530                        'Z'               , &  ! Stagger
1531                        'west_east'               , &  ! Dimname 1 
1532                        'south_north'               , &  ! Dimname 2 
1533                        'soil_layers_stag'               , &  ! Dimname 3 
1534                        'SOIL MOISTURE'               , &  ! Desc  
1535                        'm3 m-3'               , &  ! Units 
1536 'inc/wrf_histout.inc ext_write_field SMOIS memorder XYZ' , & ! Debug message
1537 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers ,  & 
1538 ims , ime , jms , jme , 1 , config_flags%num_soil_layers ,  & 
1539 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers ,  & 
1540                        ierr )
1541 CALL wrf_ext_write_field (  &
1542                        fid                , &  ! DataHandle 
1543                        current_date(1:19) , &  ! DateStr 
1544                        'SH2O'               , &  ! Data Name 
1545                        grid%sh2o               , &  ! Field 
1546                        WRF_FLOAT          , &  ! FieldType 
1547                        grid%communicator  , &  ! Comm
1548                        grid%iocommunicator  , &  ! Comm
1549                        grid%domdesc       , &  ! Comm
1550                        grid%bdy_mask       , &  ! bdy_mask
1551                        dryrun             , &  ! flag
1552                        'XYZ'               , &  ! MemoryOrder
1553                        'Z'               , &  ! Stagger
1554                        'west_east'               , &  ! Dimname 1 
1555                        'south_north'               , &  ! Dimname 2 
1556                        'soil_layers_stag'               , &  ! Dimname 3 
1557                        'SOIL LIQUID WATER'               , &  ! Desc  
1558                        'm3 m-3'               , &  ! Units 
1559 'inc/wrf_histout.inc ext_write_field SH2O memorder XYZ' , & ! Debug message
1560 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers ,  & 
1561 ims , ime , jms , jme , 1 , config_flags%num_soil_layers ,  & 
1562 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers ,  & 
1563                        ierr )
1564 CALL wrf_ext_write_field (  &
1565                        fid                , &  ! DataHandle 
1566                        current_date(1:19) , &  ! DateStr 
1567                        'XICE'               , &  ! Data Name 
1568                        grid%xice               , &  ! Field 
1569                        WRF_FLOAT          , &  ! FieldType 
1570                        grid%communicator  , &  ! Comm
1571                        grid%iocommunicator  , &  ! Comm
1572                        grid%domdesc       , &  ! Comm
1573                        grid%bdy_mask       , &  ! bdy_mask
1574                        dryrun             , &  ! flag
1575                        'XY'               , &  ! MemoryOrder
1576                        ''               , &  ! Stagger
1577                        'west_east'               , &  ! Dimname 1 
1578                        'south_north'               , &  ! Dimname 2 
1579                        ''               , &  ! Dimname 3 
1580                        'SEA ICE FLAG'               , &  ! Desc  
1581                        ''               , &  ! Units 
1582 'inc/wrf_histout.inc ext_write_field XICE memorder XY' , & ! Debug message
1583 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1584 ims , ime , jms , jme , 1 , 1 ,  & 
1585 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1586                        ierr )
1587 CALL wrf_ext_write_field (  &
1588                        fid                , &  ! DataHandle 
1589                        current_date(1:19) , &  ! DateStr 
1590                        'SFROFF'               , &  ! Data Name 
1591                        grid%sfcrunoff               , &  ! Field 
1592                        WRF_FLOAT          , &  ! FieldType 
1593                        grid%communicator  , &  ! Comm
1594                        grid%iocommunicator  , &  ! Comm
1595                        grid%domdesc       , &  ! Comm
1596                        grid%bdy_mask       , &  ! bdy_mask
1597                        dryrun             , &  ! flag
1598                        'XY'               , &  ! MemoryOrder
1599                        ''               , &  ! Stagger
1600                        'west_east'               , &  ! Dimname 1 
1601                        'south_north'               , &  ! Dimname 2 
1602                        ''               , &  ! Dimname 3 
1603                        'SURFACE RUNOFF'               , &  ! Desc  
1604                        'mm'               , &  ! Units 
1605 'inc/wrf_histout.inc ext_write_field SFROFF memorder XY' , & ! Debug message
1606 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1607 ims , ime , jms , jme , 1 , 1 ,  & 
1608 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1609                        ierr )
1610 CALL wrf_ext_write_field (  &
1611                        fid                , &  ! DataHandle 
1612                        current_date(1:19) , &  ! DateStr 
1613                        'UDROFF'               , &  ! Data Name 
1614                        grid%udrunoff               , &  ! Field 
1615                        WRF_FLOAT          , &  ! FieldType 
1616                        grid%communicator  , &  ! Comm
1617                        grid%iocommunicator  , &  ! Comm
1618                        grid%domdesc       , &  ! Comm
1619                        grid%bdy_mask       , &  ! bdy_mask
1620                        dryrun             , &  ! flag
1621                        'XY'               , &  ! MemoryOrder
1622                        ''               , &  ! Stagger
1623                        'west_east'               , &  ! Dimname 1 
1624                        'south_north'               , &  ! Dimname 2 
1625                        ''               , &  ! Dimname 3 
1626                        'UNDERGROUND RUNOFF'               , &  ! Desc  
1627                        'mm'               , &  ! Units 
1628 'inc/wrf_histout.inc ext_write_field UDROFF memorder XY' , & ! Debug message
1629 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1630 ims , ime , jms , jme , 1 , 1 ,  & 
1631 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1632                        ierr )
1633 CALL wrf_ext_write_field (  &
1634                        fid                , &  ! DataHandle 
1635                        current_date(1:19) , &  ! DateStr 
1636                        'IVGTYP'               , &  ! Data Name 
1637                        grid%ivgtyp               , &  ! Field 
1638                        WRF_integer             , &  ! FieldType 
1639                        grid%communicator  , &  ! Comm
1640                        grid%iocommunicator  , &  ! Comm
1641                        grid%domdesc       , &  ! Comm
1642                        grid%bdy_mask       , &  ! bdy_mask
1643                        dryrun             , &  ! flag
1644                        'XY'               , &  ! MemoryOrder
1645                        ''               , &  ! Stagger
1646                        'west_east'               , &  ! Dimname 1 
1647                        'south_north'               , &  ! Dimname 2 
1648                        ''               , &  ! Dimname 3 
1649                        'DOMINANT VEGETATION CATEGORY'               , &  ! Desc  
1650                        ''               , &  ! Units 
1651 'inc/wrf_histout.inc ext_write_field IVGTYP memorder XY' , & ! Debug message
1652 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1653 ims , ime , jms , jme , 1 , 1 ,  & 
1654 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1655                        ierr )
1656 CALL wrf_ext_write_field (  &
1657                        fid                , &  ! DataHandle 
1658                        current_date(1:19) , &  ! DateStr 
1659                        'ISLTYP'               , &  ! Data Name 
1660                        grid%isltyp               , &  ! Field 
1661                        WRF_integer             , &  ! FieldType 
1662                        grid%communicator  , &  ! Comm
1663                        grid%iocommunicator  , &  ! Comm
1664                        grid%domdesc       , &  ! Comm
1665                        grid%bdy_mask       , &  ! bdy_mask
1666                        dryrun             , &  ! flag
1667                        'XY'               , &  ! MemoryOrder
1668                        ''               , &  ! Stagger
1669                        'west_east'               , &  ! Dimname 1 
1670                        'south_north'               , &  ! Dimname 2 
1671                        ''               , &  ! Dimname 3 
1672                        'DOMINANT SOIL CATEGORY'               , &  ! Desc  
1673                        ''               , &  ! Units 
1674 'inc/wrf_histout.inc ext_write_field ISLTYP memorder XY' , & ! Debug message
1675 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1676 ims , ime , jms , jme , 1 , 1 ,  & 
1677 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1678                        ierr )
1679 CALL wrf_ext_write_field (  &
1680                        fid                , &  ! DataHandle 
1681                        current_date(1:19) , &  ! DateStr 
1682                        'VEGFRA'               , &  ! Data Name 
1683                        grid%vegfra               , &  ! Field 
1684                        WRF_FLOAT          , &  ! FieldType 
1685                        grid%communicator  , &  ! Comm
1686                        grid%iocommunicator  , &  ! Comm
1687                        grid%domdesc       , &  ! Comm
1688                        grid%bdy_mask       , &  ! bdy_mask
1689                        dryrun             , &  ! flag
1690                        'XY'               , &  ! MemoryOrder
1691                        ''               , &  ! Stagger
1692                        'west_east'               , &  ! Dimname 1 
1693                        'south_north'               , &  ! Dimname 2 
1694                        ''               , &  ! Dimname 3 
1695                        'VEGETATION FRACTION'               , &  ! Desc  
1696                        ''               , &  ! Units 
1697 'inc/wrf_histout.inc ext_write_field VEGFRA memorder XY' , & ! Debug message
1698 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1699 ims , ime , jms , jme , 1 , 1 ,  & 
1700 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1701                        ierr )
1702 CALL wrf_ext_write_field (  &
1703                        fid                , &  ! DataHandle 
1704                        current_date(1:19) , &  ! DateStr 
1705                        'SNOW'               , &  ! Data Name 
1706                        grid%snow               , &  ! Field 
1707                        WRF_FLOAT          , &  ! FieldType 
1708                        grid%communicator  , &  ! Comm
1709                        grid%iocommunicator  , &  ! Comm
1710                        grid%domdesc       , &  ! Comm
1711                        grid%bdy_mask       , &  ! bdy_mask
1712                        dryrun             , &  ! flag
1713                        'XY'               , &  ! MemoryOrder
1714                        ''               , &  ! Stagger
1715                        'west_east'               , &  ! Dimname 1 
1716                        'south_north'               , &  ! Dimname 2 
1717                        ''               , &  ! Dimname 3 
1718                        'SNOW WATER EQUIVALENT'               , &  ! Desc  
1719                        'kg m-2'               , &  ! Units 
1720 'inc/wrf_histout.inc ext_write_field SNOW memorder XY' , & ! Debug message
1721 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1722 ims , ime , jms , jme , 1 , 1 ,  & 
1723 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1724                        ierr )
1725 CALL wrf_ext_write_field (  &
1726                        fid                , &  ! DataHandle 
1727                        current_date(1:19) , &  ! DateStr 
1728                        'SNOWH'               , &  ! Data Name 
1729                        grid%snowh               , &  ! Field 
1730                        WRF_FLOAT          , &  ! FieldType 
1731                        grid%communicator  , &  ! Comm
1732                        grid%iocommunicator  , &  ! Comm
1733                        grid%domdesc       , &  ! Comm
1734                        grid%bdy_mask       , &  ! bdy_mask
1735                        dryrun             , &  ! flag
1736                        'XY'               , &  ! MemoryOrder
1737                        ''               , &  ! Stagger
1738                        'west_east'               , &  ! Dimname 1 
1739                        'south_north'               , &  ! Dimname 2 
1740                        ''               , &  ! Dimname 3 
1741                        'PHYSICAL SNOW DEPTH'               , &  ! Desc  
1742                        'm'               , &  ! Units 
1743 'inc/wrf_histout.inc ext_write_field SNOWH memorder XY' , & ! Debug message
1744 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1745 ims , ime , jms , jme , 1 , 1 ,  & 
1746 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1747                        ierr )
1748 CALL wrf_ext_write_field (  &
1749                        fid                , &  ! DataHandle 
1750                        current_date(1:19) , &  ! DateStr 
1751                        'RHOSN'               , &  ! Data Name 
1752                        grid%rhosn               , &  ! Field 
1753                        WRF_FLOAT          , &  ! FieldType 
1754                        grid%communicator  , &  ! Comm
1755                        grid%iocommunicator  , &  ! Comm
1756                        grid%domdesc       , &  ! Comm
1757                        grid%bdy_mask       , &  ! bdy_mask
1758                        dryrun             , &  ! flag
1759                        'XY'               , &  ! MemoryOrder
1760                        ''               , &  ! Stagger
1761                        'west_east'               , &  ! Dimname 1 
1762                        'south_north'               , &  ! Dimname 2 
1763                        ''               , &  ! Dimname 3 
1764                        ' SNOW DENSITY'               , &  ! Desc  
1765                        'kg m-3'               , &  ! Units 
1766 'inc/wrf_histout.inc ext_write_field RHOSN memorder XY' , & ! Debug message
1767 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1768 ims , ime , jms , jme , 1 , 1 ,  & 
1769 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1770                        ierr )
1771 CALL wrf_ext_write_field (  &
1772                        fid                , &  ! DataHandle 
1773                        current_date(1:19) , &  ! DateStr 
1774                        'CANWAT'               , &  ! Data Name 
1775                        grid%canwat               , &  ! Field 
1776                        WRF_FLOAT          , &  ! FieldType 
1777                        grid%communicator  , &  ! Comm
1778                        grid%iocommunicator  , &  ! Comm
1779                        grid%domdesc       , &  ! Comm
1780                        grid%bdy_mask       , &  ! bdy_mask
1781                        dryrun             , &  ! flag
1782                        'XY'               , &  ! MemoryOrder
1783                        ''               , &  ! Stagger
1784                        'west_east'               , &  ! Dimname 1 
1785                        'south_north'               , &  ! Dimname 2 
1786                        ''               , &  ! Dimname 3 
1787                        'CANOPY WATER'               , &  ! Desc  
1788                        'kg m-2'               , &  ! Units 
1789 'inc/wrf_histout.inc ext_write_field CANWAT memorder XY' , & ! Debug message
1790 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1791 ims , ime , jms , jme , 1 , 1 ,  & 
1792 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1793                        ierr )
1794 CALL wrf_ext_write_field (  &
1795                        fid                , &  ! DataHandle 
1796                        current_date(1:19) , &  ! DateStr 
1797                        'SST'               , &  ! Data Name 
1798                        grid%sst               , &  ! Field 
1799                        WRF_FLOAT          , &  ! FieldType 
1800                        grid%communicator  , &  ! Comm
1801                        grid%iocommunicator  , &  ! Comm
1802                        grid%domdesc       , &  ! Comm
1803                        grid%bdy_mask       , &  ! bdy_mask
1804                        dryrun             , &  ! flag
1805                        'XY'               , &  ! MemoryOrder
1806                        ''               , &  ! Stagger
1807                        'west_east'               , &  ! Dimname 1 
1808                        'south_north'               , &  ! Dimname 2 
1809                        ''               , &  ! Dimname 3 
1810                        'SEA SURFACE TEMPERATURE'               , &  ! Desc  
1811                        'K'               , &  ! Units 
1812 'inc/wrf_histout.inc ext_write_field SST memorder XY' , & ! Debug message
1813 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1814 ims , ime , jms , jme , 1 , 1 ,  & 
1815 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1816                        ierr )
1817 CALL wrf_ext_write_field (  &
1818                        fid                , &  ! DataHandle 
1819                        current_date(1:19) , &  ! DateStr 
1820                        'MAPFAC_M'               , &  ! Data Name 
1821                        grid%msft               , &  ! Field 
1822                        WRF_FLOAT          , &  ! FieldType 
1823                        grid%communicator  , &  ! Comm
1824                        grid%iocommunicator  , &  ! Comm
1825                        grid%domdesc       , &  ! Comm
1826                        grid%bdy_mask       , &  ! bdy_mask
1827                        dryrun             , &  ! flag
1828                        'XY'               , &  ! MemoryOrder
1829                        ''               , &  ! Stagger
1830                        'west_east'               , &  ! Dimname 1 
1831                        'south_north'               , &  ! Dimname 2 
1832                        ''               , &  ! Dimname 3 
1833                        'Map scale factor on mass grid'               , &  ! Desc  
1834                        ''               , &  ! Units 
1835 'inc/wrf_histout.inc ext_write_field MAPFAC_M memorder XY' , & ! Debug message
1836 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1837 ims , ime , jms , jme , 1 , 1 ,  & 
1838 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1839                        ierr )
1840 CALL wrf_ext_write_field (  &
1841                        fid                , &  ! DataHandle 
1842                        current_date(1:19) , &  ! DateStr 
1843                        'MAPFAC_U'               , &  ! Data Name 
1844                        grid%msfu               , &  ! Field 
1845                        WRF_FLOAT          , &  ! FieldType 
1846                        grid%communicator  , &  ! Comm
1847                        grid%iocommunicator  , &  ! Comm
1848                        grid%domdesc       , &  ! Comm
1849                        grid%bdy_mask       , &  ! bdy_mask
1850                        dryrun             , &  ! flag
1851                        'XY'               , &  ! MemoryOrder
1852                        'X'               , &  ! Stagger
1853                        'west_east_stag'               , &  ! Dimname 1 
1854                        'south_north'               , &  ! Dimname 2 
1855                        ''               , &  ! Dimname 3 
1856                        'Map scale factor on u-grid'               , &  ! Desc  
1857                        ''               , &  ! Units 
1858 'inc/wrf_histout.inc ext_write_field MAPFAC_U memorder XY' , & ! Debug message
1859 ids , ide , jds , (jde-1) , 1 , 1 ,  & 
1860 ims , ime , jms , jme , 1 , 1 ,  & 
1861 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1862                        ierr )
1863 CALL wrf_ext_write_field (  &
1864                        fid                , &  ! DataHandle 
1865                        current_date(1:19) , &  ! DateStr 
1866                        'MAPFAC_V'               , &  ! Data Name 
1867                        grid%msfv               , &  ! Field 
1868                        WRF_FLOAT          , &  ! FieldType 
1869                        grid%communicator  , &  ! Comm
1870                        grid%iocommunicator  , &  ! Comm
1871                        grid%domdesc       , &  ! Comm
1872                        grid%bdy_mask       , &  ! bdy_mask
1873                        dryrun             , &  ! flag
1874                        'XY'               , &  ! MemoryOrder
1875                        'Y'               , &  ! Stagger
1876                        'west_east'               , &  ! Dimname 1 
1877                        'south_north_stag'               , &  ! Dimname 2 
1878                        ''               , &  ! Dimname 3 
1879                        'Map scale factor on v-grid'               , &  ! Desc  
1880                        ''               , &  ! Units 
1881 'inc/wrf_histout.inc ext_write_field MAPFAC_V memorder XY' , & ! Debug message
1882 ids , (ide-1) , jds , jde , 1 , 1 ,  & 
1883 ims , ime , jms , jme , 1 , 1 ,  & 
1884 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 ,  & 
1885                        ierr )
1886 CALL wrf_ext_write_field (  &
1887                        fid                , &  ! DataHandle 
1888                        current_date(1:19) , &  ! DateStr 
1889                        'F'               , &  ! Data Name 
1890                        grid%f               , &  ! Field 
1891                        WRF_FLOAT          , &  ! FieldType 
1892                        grid%communicator  , &  ! Comm
1893                        grid%iocommunicator  , &  ! Comm
1894                        grid%domdesc       , &  ! Comm
1895                        grid%bdy_mask       , &  ! bdy_mask
1896                        dryrun             , &  ! flag
1897                        'XY'               , &  ! MemoryOrder
1898                        ''               , &  ! Stagger
1899                        'west_east'               , &  ! Dimname 1 
1900                        'south_north'               , &  ! Dimname 2 
1901                        ''               , &  ! Dimname 3 
1902                        'Coriolis sine latitude term'               , &  ! Desc  
1903                        's-1'               , &  ! Units 
1904 'inc/wrf_histout.inc ext_write_field F memorder XY' , & ! Debug message
1905 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1906 ims , ime , jms , jme , 1 , 1 ,  & 
1907 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1908                        ierr )
1909 CALL wrf_ext_write_field (  &
1910                        fid                , &  ! DataHandle 
1911                        current_date(1:19) , &  ! DateStr 
1912                        'E'               , &  ! Data Name 
1913                        grid%e               , &  ! Field 
1914                        WRF_FLOAT          , &  ! FieldType 
1915                        grid%communicator  , &  ! Comm
1916                        grid%iocommunicator  , &  ! Comm
1917                        grid%domdesc       , &  ! Comm
1918                        grid%bdy_mask       , &  ! bdy_mask
1919                        dryrun             , &  ! flag
1920                        'XY'               , &  ! MemoryOrder
1921                        ''               , &  ! Stagger
1922                        'west_east'               , &  ! Dimname 1 
1923                        'south_north'               , &  ! Dimname 2 
1924                        ''               , &  ! Dimname 3 
1925                        'Coriolis cosine latitude term'               , &  ! Desc  
1926                        's-1'               , &  ! Units 
1927 'inc/wrf_histout.inc ext_write_field E memorder XY' , & ! Debug message
1928 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1929 ims , ime , jms , jme , 1 , 1 ,  & 
1930 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1931                        ierr )
1932 CALL wrf_ext_write_field (  &
1933                        fid                , &  ! DataHandle 
1934                        current_date(1:19) , &  ! DateStr 
1935                        'SINALPHA'               , &  ! Data Name 
1936                        grid%sina               , &  ! Field 
1937                        WRF_FLOAT          , &  ! FieldType 
1938                        grid%communicator  , &  ! Comm
1939                        grid%iocommunicator  , &  ! Comm
1940                        grid%domdesc       , &  ! Comm
1941                        grid%bdy_mask       , &  ! bdy_mask
1942                        dryrun             , &  ! flag
1943                        'XY'               , &  ! MemoryOrder
1944                        ''               , &  ! Stagger
1945                        'west_east'               , &  ! Dimname 1 
1946                        'south_north'               , &  ! Dimname 2 
1947                        ''               , &  ! Dimname 3 
1948                        'Local sine of map rotation'               , &  ! Desc  
1949                        ''               , &  ! Units 
1950 'inc/wrf_histout.inc ext_write_field SINALPHA memorder XY' , & ! Debug message
1951 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1952 ims , ime , jms , jme , 1 , 1 ,  & 
1953 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1954                        ierr )
1955 CALL wrf_ext_write_field (  &
1956                        fid                , &  ! DataHandle 
1957                        current_date(1:19) , &  ! DateStr 
1958                        'COSALPHA'               , &  ! Data Name 
1959                        grid%cosa               , &  ! Field 
1960                        WRF_FLOAT          , &  ! FieldType 
1961                        grid%communicator  , &  ! Comm
1962                        grid%iocommunicator  , &  ! Comm
1963                        grid%domdesc       , &  ! Comm
1964                        grid%bdy_mask       , &  ! bdy_mask
1965                        dryrun             , &  ! flag
1966                        'XY'               , &  ! MemoryOrder
1967                        ''               , &  ! Stagger
1968                        'west_east'               , &  ! Dimname 1 
1969                        'south_north'               , &  ! Dimname 2 
1970                        ''               , &  ! Dimname 3 
1971                        'Local cosine of map rotation'               , &  ! Desc  
1972                        ''               , &  ! Units 
1973 'inc/wrf_histout.inc ext_write_field COSALPHA memorder XY' , & ! Debug message
1974 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1975 ims , ime , jms , jme , 1 , 1 ,  & 
1976 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
1977                        ierr )
1978 CALL wrf_ext_write_field (  &
1979                        fid                , &  ! DataHandle 
1980                        current_date(1:19) , &  ! DateStr 
1981                        'HGT'               , &  ! Data Name 
1982                        grid%ht               , &  ! Field 
1983                        WRF_FLOAT          , &  ! FieldType 
1984                        grid%communicator  , &  ! Comm
1985                        grid%iocommunicator  , &  ! Comm
1986                        grid%domdesc       , &  ! Comm
1987                        grid%bdy_mask       , &  ! bdy_mask
1988                        dryrun             , &  ! flag
1989                        'XY'               , &  ! MemoryOrder
1990                        ''               , &  ! Stagger
1991                        'west_east'               , &  ! Dimname 1 
1992                        'south_north'               , &  ! Dimname 2 
1993                        ''               , &  ! Dimname 3 
1994                        'Terrain Height'               , &  ! Desc  
1995                        'm'               , &  ! Units 
1996 'inc/wrf_histout.inc ext_write_field HGT memorder XY' , & ! Debug message
1997 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
1998 ims , ime , jms , jme , 1 , 1 ,  & 
1999 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
2000                        ierr )
2001 CALL wrf_ext_write_field (  &
2002                        fid                , &  ! DataHandle 
2003                        current_date(1:19) , &  ! DateStr 
2004                        'TSK'               , &  ! Data Name 
2005                        grid%tsk               , &  ! Field 
2006                        WRF_FLOAT          , &  ! FieldType 
2007                        grid%communicator  , &  ! Comm
2008                        grid%iocommunicator  , &  ! Comm
2009                        grid%domdesc       , &  ! Comm
2010                        grid%bdy_mask       , &  ! bdy_mask
2011                        dryrun             , &  ! flag
2012                        'XY'               , &  ! MemoryOrder
2013                        ''               , &  ! Stagger
2014                        'west_east'               , &  ! Dimname 1 
2015                        'south_north'               , &  ! Dimname 2 
2016                        ''               , &  ! Dimname 3 
2017                        'SURFACE SKIN TEMPERATURE'               , &  ! Desc  
2018                        'K'               , &  ! Units 
2019 'inc/wrf_histout.inc ext_write_field TSK memorder XY' , & ! Debug message
2020 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
2021 ims , ime , jms , jme , 1 , 1 ,  & 
2022 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
2023                        ierr )
2024 CALL wrf_ext_write_field (  &
2025                        fid                , &  ! DataHandle 
2026                        current_date(1:19) , &  ! DateStr 
2027                        'P_TOP'               , &  ! Data Name 
2028                        grid%p_top               , &  ! Field 
2029                        WRF_FLOAT          , &  ! FieldType 
2030                        grid%communicator  , &  ! Comm
2031                        grid%iocommunicator  , &  ! Comm
2032                        grid%domdesc       , &  ! Comm
2033                        grid%bdy_mask       , &  ! bdy_mask
2034                        dryrun             , &  ! flag
2035                        '0'               , &  ! MemoryOrder
2036                        ''               , &  ! Stagger
2037                        ''               , &  ! Dimname 1 
2038                        ''               , &  ! Dimname 2 
2039                        ''               , &  ! Dimname 3 
2040                        'PRESSURE TOP OF THE MODEL'               , &  ! Desc  
2041                        'Pa'               , &  ! Units 
2042 'inc/wrf_histout.inc ext_write_field P_TOP memorder 0' , & ! Debug message
2043 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2044 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2045 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2046                        ierr )
2047 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2048 CALL wrf_ext_write_field (  &
2049                        fid                , &  ! DataHandle 
2050                        current_date(1:19) , &  ! DateStr 
2051                        'LAT_LL_T'               , &  ! Data Name 
2052                        grid%em_lat_ll_t               , &  ! Field 
2053                        WRF_FLOAT          , &  ! FieldType 
2054                        grid%communicator  , &  ! Comm
2055                        grid%iocommunicator  , &  ! Comm
2056                        grid%domdesc       , &  ! Comm
2057                        grid%bdy_mask       , &  ! bdy_mask
2058                        dryrun             , &  ! flag
2059                        '0'               , &  ! MemoryOrder
2060                        ''               , &  ! Stagger
2061                        ''               , &  ! Dimname 1 
2062                        ''               , &  ! Dimname 2 
2063                        ''               , &  ! Dimname 3 
2064                        'latitude lower left, temp point'               , &  ! Desc  
2065                        'degrees'               , &  ! Units 
2066 'inc/wrf_histout.inc ext_write_field LAT_LL_T memorder 0' , & ! Debug message
2067 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2068 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2069 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2070                        ierr )
2071 END IF
2072 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2073 CALL wrf_ext_write_field (  &
2074                        fid                , &  ! DataHandle 
2075                        current_date(1:19) , &  ! DateStr 
2076                        'LAT_UL_T'               , &  ! Data Name 
2077                        grid%em_lat_ul_t               , &  ! Field 
2078                        WRF_FLOAT          , &  ! FieldType 
2079                        grid%communicator  , &  ! Comm
2080                        grid%iocommunicator  , &  ! Comm
2081                        grid%domdesc       , &  ! Comm
2082                        grid%bdy_mask       , &  ! bdy_mask
2083                        dryrun             , &  ! flag
2084                        '0'               , &  ! MemoryOrder
2085                        ''               , &  ! Stagger
2086                        ''               , &  ! Dimname 1 
2087                        ''               , &  ! Dimname 2 
2088                        ''               , &  ! Dimname 3 
2089                        'latitude up left, temp point'               , &  ! Desc  
2090                        'degrees'               , &  ! Units 
2091 'inc/wrf_histout.inc ext_write_field LAT_UL_T memorder 0' , & ! Debug message
2092 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2093 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2094 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2095                        ierr )
2096 END IF
2097 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2098 CALL wrf_ext_write_field (  &
2099                        fid                , &  ! DataHandle 
2100                        current_date(1:19) , &  ! DateStr 
2101                        'LAT_UR_T'               , &  ! Data Name 
2102                        grid%em_lat_ur_t               , &  ! Field 
2103                        WRF_FLOAT          , &  ! FieldType 
2104                        grid%communicator  , &  ! Comm
2105                        grid%iocommunicator  , &  ! Comm
2106                        grid%domdesc       , &  ! Comm
2107                        grid%bdy_mask       , &  ! bdy_mask
2108                        dryrun             , &  ! flag
2109                        '0'               , &  ! MemoryOrder
2110                        ''               , &  ! Stagger
2111                        ''               , &  ! Dimname 1 
2112                        ''               , &  ! Dimname 2 
2113                        ''               , &  ! Dimname 3 
2114                        'latitude up right, temp point'               , &  ! Desc  
2115                        'degrees'               , &  ! Units 
2116 'inc/wrf_histout.inc ext_write_field LAT_UR_T memorder 0' , & ! Debug message
2117 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2118 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2119 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2120                        ierr )
2121 END IF
2122 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2123 CALL wrf_ext_write_field (  &
2124                        fid                , &  ! DataHandle 
2125                        current_date(1:19) , &  ! DateStr 
2126                        'LAT_LR_T'               , &  ! Data Name 
2127                        grid%em_lat_lr_t               , &  ! Field 
2128                        WRF_FLOAT          , &  ! FieldType 
2129                        grid%communicator  , &  ! Comm
2130                        grid%iocommunicator  , &  ! Comm
2131                        grid%domdesc       , &  ! Comm
2132                        grid%bdy_mask       , &  ! bdy_mask
2133                        dryrun             , &  ! flag
2134                        '0'               , &  ! MemoryOrder
2135                        ''               , &  ! Stagger
2136                        ''               , &  ! Dimname 1 
2137                        ''               , &  ! Dimname 2 
2138                        ''               , &  ! Dimname 3 
2139                        'latitude lower right, temp point'               , &  ! Desc  
2140                        'degrees'               , &  ! Units 
2141 'inc/wrf_histout.inc ext_write_field LAT_LR_T memorder 0' , & ! Debug message
2142 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2143 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2144 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2145                        ierr )
2146 END IF
2147 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2148 CALL wrf_ext_write_field (  &
2149                        fid                , &  ! DataHandle 
2150                        current_date(1:19) , &  ! DateStr 
2151                        'LAT_LL_U'               , &  ! Data Name 
2152                        grid%em_lat_ll_u               , &  ! Field 
2153                        WRF_FLOAT          , &  ! FieldType 
2154                        grid%communicator  , &  ! Comm
2155                        grid%iocommunicator  , &  ! Comm
2156                        grid%domdesc       , &  ! Comm
2157                        grid%bdy_mask       , &  ! bdy_mask
2158                        dryrun             , &  ! flag
2159                        '0'               , &  ! MemoryOrder
2160                        ''               , &  ! Stagger
2161                        ''               , &  ! Dimname 1 
2162                        ''               , &  ! Dimname 2 
2163                        ''               , &  ! Dimname 3 
2164                        'latitude lower left, u point'               , &  ! Desc  
2165                        'degrees'               , &  ! Units 
2166 'inc/wrf_histout.inc ext_write_field LAT_LL_U memorder 0' , & ! Debug message
2167 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2168 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2169 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2170                        ierr )
2171 END IF
2172 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2173 CALL wrf_ext_write_field (  &
2174                        fid                , &  ! DataHandle 
2175                        current_date(1:19) , &  ! DateStr 
2176                        'LAT_UL_U'               , &  ! Data Name 
2177                        grid%em_lat_ul_u               , &  ! Field 
2178                        WRF_FLOAT          , &  ! FieldType 
2179                        grid%communicator  , &  ! Comm
2180                        grid%iocommunicator  , &  ! Comm
2181                        grid%domdesc       , &  ! Comm
2182                        grid%bdy_mask       , &  ! bdy_mask
2183                        dryrun             , &  ! flag
2184                        '0'               , &  ! MemoryOrder
2185                        ''               , &  ! Stagger
2186                        ''               , &  ! Dimname 1 
2187                        ''               , &  ! Dimname 2 
2188                        ''               , &  ! Dimname 3 
2189                        'latitude up left, u point'               , &  ! Desc  
2190                        'degrees'               , &  ! Units 
2191 'inc/wrf_histout.inc ext_write_field LAT_UL_U memorder 0' , & ! Debug message
2192 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2193 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2194 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2195                        ierr )
2196 END IF
2197 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2198 CALL wrf_ext_write_field (  &
2199                        fid                , &  ! DataHandle 
2200                        current_date(1:19) , &  ! DateStr 
2201                        'LAT_UR_U'               , &  ! Data Name 
2202                        grid%em_lat_ur_u               , &  ! Field 
2203                        WRF_FLOAT          , &  ! FieldType 
2204                        grid%communicator  , &  ! Comm
2205                        grid%iocommunicator  , &  ! Comm
2206                        grid%domdesc       , &  ! Comm
2207                        grid%bdy_mask       , &  ! bdy_mask
2208                        dryrun             , &  ! flag
2209                        '0'               , &  ! MemoryOrder
2210                        ''               , &  ! Stagger
2211                        ''               , &  ! Dimname 1 
2212                        ''               , &  ! Dimname 2 
2213                        ''               , &  ! Dimname 3 
2214                        'latitude up right, u point'               , &  ! Desc  
2215                        'degrees'               , &  ! Units 
2216 'inc/wrf_histout.inc ext_write_field LAT_UR_U memorder 0' , & ! Debug message
2217 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2218 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2219 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2220                        ierr )
2221 END IF
2222 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2223 CALL wrf_ext_write_field (  &
2224                        fid                , &  ! DataHandle 
2225                        current_date(1:19) , &  ! DateStr 
2226                        'LAT_LR_U'               , &  ! Data Name 
2227                        grid%em_lat_lr_u               , &  ! Field 
2228                        WRF_FLOAT          , &  ! FieldType 
2229                        grid%communicator  , &  ! Comm
2230                        grid%iocommunicator  , &  ! Comm
2231                        grid%domdesc       , &  ! Comm
2232                        grid%bdy_mask       , &  ! bdy_mask
2233                        dryrun             , &  ! flag
2234                        '0'               , &  ! MemoryOrder
2235                        ''               , &  ! Stagger
2236                        ''               , &  ! Dimname 1 
2237                        ''               , &  ! Dimname 2 
2238                        ''               , &  ! Dimname 3 
2239                        'latitude lower right, u point'               , &  ! Desc  
2240                        'degrees'               , &  ! Units 
2241 'inc/wrf_histout.inc ext_write_field LAT_LR_U memorder 0' , & ! Debug message
2242 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2243 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2244 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2245                        ierr )
2246 END IF
2247 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2248 CALL wrf_ext_write_field (  &
2249                        fid                , &  ! DataHandle 
2250                        current_date(1:19) , &  ! DateStr 
2251                        'LAT_LL_V'               , &  ! Data Name 
2252                        grid%em_lat_ll_v               , &  ! Field 
2253                        WRF_FLOAT          , &  ! FieldType 
2254                        grid%communicator  , &  ! Comm
2255                        grid%iocommunicator  , &  ! Comm
2256                        grid%domdesc       , &  ! Comm
2257                        grid%bdy_mask       , &  ! bdy_mask
2258                        dryrun             , &  ! flag
2259                        '0'               , &  ! MemoryOrder
2260                        ''               , &  ! Stagger
2261                        ''               , &  ! Dimname 1 
2262                        ''               , &  ! Dimname 2 
2263                        ''               , &  ! Dimname 3 
2264                        'latitude lower left, v point'               , &  ! Desc  
2265                        'degrees'               , &  ! Units 
2266 'inc/wrf_histout.inc ext_write_field LAT_LL_V memorder 0' , & ! Debug message
2267 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2268 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2269 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2270                        ierr )
2271 END IF
2272 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2273 CALL wrf_ext_write_field (  &
2274                        fid                , &  ! DataHandle 
2275                        current_date(1:19) , &  ! DateStr 
2276                        'LAT_UL_V'               , &  ! Data Name 
2277                        grid%em_lat_ul_v               , &  ! Field 
2278                        WRF_FLOAT          , &  ! FieldType 
2279                        grid%communicator  , &  ! Comm
2280                        grid%iocommunicator  , &  ! Comm
2281                        grid%domdesc       , &  ! Comm
2282                        grid%bdy_mask       , &  ! bdy_mask
2283                        dryrun             , &  ! flag
2284                        '0'               , &  ! MemoryOrder
2285                        ''               , &  ! Stagger
2286                        ''               , &  ! Dimname 1 
2287                        ''               , &  ! Dimname 2 
2288                        ''               , &  ! Dimname 3 
2289                        'latitude up left, v point'               , &  ! Desc  
2290                        'degrees'               , &  ! Units 
2291 'inc/wrf_histout.inc ext_write_field LAT_UL_V memorder 0' , & ! Debug message
2292 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2293 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2294 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2295                        ierr )
2296 END IF
2297 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2298 CALL wrf_ext_write_field (  &
2299                        fid                , &  ! DataHandle 
2300                        current_date(1:19) , &  ! DateStr 
2301                        'LAT_UR_V'               , &  ! Data Name 
2302                        grid%em_lat_ur_v               , &  ! Field 
2303                        WRF_FLOAT          , &  ! FieldType 
2304                        grid%communicator  , &  ! Comm
2305                        grid%iocommunicator  , &  ! Comm
2306                        grid%domdesc       , &  ! Comm
2307                        grid%bdy_mask       , &  ! bdy_mask
2308                        dryrun             , &  ! flag
2309                        '0'               , &  ! MemoryOrder
2310                        ''               , &  ! Stagger
2311                        ''               , &  ! Dimname 1 
2312                        ''               , &  ! Dimname 2 
2313                        ''               , &  ! Dimname 3 
2314                        'latitude up right, v point'               , &  ! Desc  
2315                        'degrees'               , &  ! Units 
2316 'inc/wrf_histout.inc ext_write_field LAT_UR_V memorder 0' , & ! Debug message
2317 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2318 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2319 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2320                        ierr )
2321 END IF
2322 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2323 CALL wrf_ext_write_field (  &
2324                        fid                , &  ! DataHandle 
2325                        current_date(1:19) , &  ! DateStr 
2326                        'LAT_LR_V'               , &  ! Data Name 
2327                        grid%em_lat_lr_v               , &  ! Field 
2328                        WRF_FLOAT          , &  ! FieldType 
2329                        grid%communicator  , &  ! Comm
2330                        grid%iocommunicator  , &  ! Comm
2331                        grid%domdesc       , &  ! Comm
2332                        grid%bdy_mask       , &  ! bdy_mask
2333                        dryrun             , &  ! flag
2334                        '0'               , &  ! MemoryOrder
2335                        ''               , &  ! Stagger
2336                        ''               , &  ! Dimname 1 
2337                        ''               , &  ! Dimname 2 
2338                        ''               , &  ! Dimname 3 
2339                        'latitude lower right, v point'               , &  ! Desc  
2340                        'degrees'               , &  ! Units 
2341 'inc/wrf_histout.inc ext_write_field LAT_LR_V memorder 0' , & ! Debug message
2342 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2343 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2344 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2345                        ierr )
2346 END IF
2347 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2348 CALL wrf_ext_write_field (  &
2349                        fid                , &  ! DataHandle 
2350                        current_date(1:19) , &  ! DateStr 
2351                        'LAT_LL_D'               , &  ! Data Name 
2352                        grid%em_lat_ll_d               , &  ! Field 
2353                        WRF_FLOAT          , &  ! FieldType 
2354                        grid%communicator  , &  ! Comm
2355                        grid%iocommunicator  , &  ! Comm
2356                        grid%domdesc       , &  ! Comm
2357                        grid%bdy_mask       , &  ! bdy_mask
2358                        dryrun             , &  ! flag
2359                        '0'               , &  ! MemoryOrder
2360                        ''               , &  ! Stagger
2361                        ''               , &  ! Dimname 1 
2362                        ''               , &  ! Dimname 2 
2363                        ''               , &  ! Dimname 3 
2364                        'latitude lower left, massless point'               , &  ! Desc  
2365                        'degrees'               , &  ! Units 
2366 'inc/wrf_histout.inc ext_write_field LAT_LL_D memorder 0' , & ! Debug message
2367 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2368 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2369 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2370                        ierr )
2371 END IF
2372 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2373 CALL wrf_ext_write_field (  &
2374                        fid                , &  ! DataHandle 
2375                        current_date(1:19) , &  ! DateStr 
2376                        'LAT_UL_D'               , &  ! Data Name 
2377                        grid%em_lat_ul_d               , &  ! Field 
2378                        WRF_FLOAT          , &  ! FieldType 
2379                        grid%communicator  , &  ! Comm
2380                        grid%iocommunicator  , &  ! Comm
2381                        grid%domdesc       , &  ! Comm
2382                        grid%bdy_mask       , &  ! bdy_mask
2383                        dryrun             , &  ! flag
2384                        '0'               , &  ! MemoryOrder
2385                        ''               , &  ! Stagger
2386                        ''               , &  ! Dimname 1 
2387                        ''               , &  ! Dimname 2 
2388                        ''               , &  ! Dimname 3 
2389                        'latitude up left, massless point'               , &  ! Desc  
2390                        'degrees'               , &  ! Units 
2391 'inc/wrf_histout.inc ext_write_field LAT_UL_D memorder 0' , & ! Debug message
2392 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2393 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2394 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2395                        ierr )
2396 END IF
2397 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2398 CALL wrf_ext_write_field (  &
2399                        fid                , &  ! DataHandle 
2400                        current_date(1:19) , &  ! DateStr 
2401                        'LAT_UR_D'               , &  ! Data Name 
2402                        grid%em_lat_ur_d               , &  ! Field 
2403                        WRF_FLOAT          , &  ! FieldType 
2404                        grid%communicator  , &  ! Comm
2405                        grid%iocommunicator  , &  ! Comm
2406                        grid%domdesc       , &  ! Comm
2407                        grid%bdy_mask       , &  ! bdy_mask
2408                        dryrun             , &  ! flag
2409                        '0'               , &  ! MemoryOrder
2410                        ''               , &  ! Stagger
2411                        ''               , &  ! Dimname 1 
2412                        ''               , &  ! Dimname 2 
2413                        ''               , &  ! Dimname 3 
2414                        'latitude up right, massless point'               , &  ! Desc  
2415                        'degrees'               , &  ! Units 
2416 'inc/wrf_histout.inc ext_write_field LAT_UR_D memorder 0' , & ! Debug message
2417 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2418 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2419 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2420                        ierr )
2421 END IF
2422 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2423 CALL wrf_ext_write_field (  &
2424                        fid                , &  ! DataHandle 
2425                        current_date(1:19) , &  ! DateStr 
2426                        'LAT_LR_D'               , &  ! Data Name 
2427                        grid%em_lat_lr_d               , &  ! Field 
2428                        WRF_FLOAT          , &  ! FieldType 
2429                        grid%communicator  , &  ! Comm
2430                        grid%iocommunicator  , &  ! Comm
2431                        grid%domdesc       , &  ! Comm
2432                        grid%bdy_mask       , &  ! bdy_mask
2433                        dryrun             , &  ! flag
2434                        '0'               , &  ! MemoryOrder
2435                        ''               , &  ! Stagger
2436                        ''               , &  ! Dimname 1 
2437                        ''               , &  ! Dimname 2 
2438                        ''               , &  ! Dimname 3 
2439                        'latitude lower right, massless point'               , &  ! Desc  
2440                        'degrees'               , &  ! Units 
2441 'inc/wrf_histout.inc ext_write_field LAT_LR_D memorder 0' , & ! Debug message
2442 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2443 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2444 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2445                        ierr )
2446 END IF
2447 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2448 CALL wrf_ext_write_field (  &
2449                        fid                , &  ! DataHandle 
2450                        current_date(1:19) , &  ! DateStr 
2451                        'LON_LL_T'               , &  ! Data Name 
2452                        grid%em_lon_ll_t               , &  ! Field 
2453                        WRF_FLOAT          , &  ! FieldType 
2454                        grid%communicator  , &  ! Comm
2455                        grid%iocommunicator  , &  ! Comm
2456                        grid%domdesc       , &  ! Comm
2457                        grid%bdy_mask       , &  ! bdy_mask
2458                        dryrun             , &  ! flag
2459                        '0'               , &  ! MemoryOrder
2460                        ''               , &  ! Stagger
2461                        ''               , &  ! Dimname 1 
2462                        ''               , &  ! Dimname 2 
2463                        ''               , &  ! Dimname 3 
2464                        'longitude lower left, temp point'               , &  ! Desc  
2465                        'degrees'               , &  ! Units 
2466 'inc/wrf_histout.inc ext_write_field LON_LL_T memorder 0' , & ! Debug message
2467 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2468 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2469 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2470                        ierr )
2471 END IF
2472 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2473 CALL wrf_ext_write_field (  &
2474                        fid                , &  ! DataHandle 
2475                        current_date(1:19) , &  ! DateStr 
2476                        'LON_UL_T'               , &  ! Data Name 
2477                        grid%em_lon_ul_t               , &  ! Field 
2478                        WRF_FLOAT          , &  ! FieldType 
2479                        grid%communicator  , &  ! Comm
2480                        grid%iocommunicator  , &  ! Comm
2481                        grid%domdesc       , &  ! Comm
2482                        grid%bdy_mask       , &  ! bdy_mask
2483                        dryrun             , &  ! flag
2484                        '0'               , &  ! MemoryOrder
2485                        ''               , &  ! Stagger
2486                        ''               , &  ! Dimname 1 
2487                        ''               , &  ! Dimname 2 
2488                        ''               , &  ! Dimname 3 
2489                        'longitude up left, temp point'               , &  ! Desc  
2490                        'degrees'               , &  ! Units 
2491 'inc/wrf_histout.inc ext_write_field LON_UL_T memorder 0' , & ! Debug message
2492 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2493 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2494 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2495                        ierr )
2496 END IF
2497 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2498 CALL wrf_ext_write_field (  &
2499                        fid                , &  ! DataHandle 
2500                        current_date(1:19) , &  ! DateStr 
2501                        'LON_UR_T'               , &  ! Data Name 
2502                        grid%em_lon_ur_t               , &  ! Field 
2503                        WRF_FLOAT          , &  ! FieldType 
2504                        grid%communicator  , &  ! Comm
2505                        grid%iocommunicator  , &  ! Comm
2506                        grid%domdesc       , &  ! Comm
2507                        grid%bdy_mask       , &  ! bdy_mask
2508                        dryrun             , &  ! flag
2509                        '0'               , &  ! MemoryOrder
2510                        ''               , &  ! Stagger
2511                        ''               , &  ! Dimname 1 
2512                        ''               , &  ! Dimname 2 
2513                        ''               , &  ! Dimname 3 
2514                        'longitude up right, temp point'               , &  ! Desc  
2515                        'degrees'               , &  ! Units 
2516 'inc/wrf_histout.inc ext_write_field LON_UR_T memorder 0' , & ! Debug message
2517 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2518 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2519 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2520                        ierr )
2521 END IF
2522 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2523 CALL wrf_ext_write_field (  &
2524                        fid                , &  ! DataHandle 
2525                        current_date(1:19) , &  ! DateStr 
2526                        'LON_LR_T'               , &  ! Data Name 
2527                        grid%em_lon_lr_t               , &  ! Field 
2528                        WRF_FLOAT          , &  ! FieldType 
2529                        grid%communicator  , &  ! Comm
2530                        grid%iocommunicator  , &  ! Comm
2531                        grid%domdesc       , &  ! Comm
2532                        grid%bdy_mask       , &  ! bdy_mask
2533                        dryrun             , &  ! flag
2534                        '0'               , &  ! MemoryOrder
2535                        ''               , &  ! Stagger
2536                        ''               , &  ! Dimname 1 
2537                        ''               , &  ! Dimname 2 
2538                        ''               , &  ! Dimname 3 
2539                        'longitude lower right, temp point'               , &  ! Desc  
2540                        'degrees'               , &  ! Units 
2541 'inc/wrf_histout.inc ext_write_field LON_LR_T memorder 0' , & ! Debug message
2542 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2543 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2544 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2545                        ierr )
2546 END IF
2547 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2548 CALL wrf_ext_write_field (  &
2549                        fid                , &  ! DataHandle 
2550                        current_date(1:19) , &  ! DateStr 
2551                        'LON_LL_U'               , &  ! Data Name 
2552                        grid%em_lon_ll_u               , &  ! Field 
2553                        WRF_FLOAT          , &  ! FieldType 
2554                        grid%communicator  , &  ! Comm
2555                        grid%iocommunicator  , &  ! Comm
2556                        grid%domdesc       , &  ! Comm
2557                        grid%bdy_mask       , &  ! bdy_mask
2558                        dryrun             , &  ! flag
2559                        '0'               , &  ! MemoryOrder
2560                        ''               , &  ! Stagger
2561                        ''               , &  ! Dimname 1 
2562                        ''               , &  ! Dimname 2 
2563                        ''               , &  ! Dimname 3 
2564                        'longitude lower left, u point'               , &  ! Desc  
2565                        'degrees'               , &  ! Units 
2566 'inc/wrf_histout.inc ext_write_field LON_LL_U memorder 0' , & ! Debug message
2567 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2568 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2569 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2570                        ierr )
2571 END IF
2572 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2573 CALL wrf_ext_write_field (  &
2574                        fid                , &  ! DataHandle 
2575                        current_date(1:19) , &  ! DateStr 
2576                        'LON_UL_U'               , &  ! Data Name 
2577                        grid%em_lon_ul_u               , &  ! Field 
2578                        WRF_FLOAT          , &  ! FieldType 
2579                        grid%communicator  , &  ! Comm
2580                        grid%iocommunicator  , &  ! Comm
2581                        grid%domdesc       , &  ! Comm
2582                        grid%bdy_mask       , &  ! bdy_mask
2583                        dryrun             , &  ! flag
2584                        '0'               , &  ! MemoryOrder
2585                        ''               , &  ! Stagger
2586                        ''               , &  ! Dimname 1 
2587                        ''               , &  ! Dimname 2 
2588                        ''               , &  ! Dimname 3 
2589                        'longitude up left, u point'               , &  ! Desc  
2590                        'degrees'               , &  ! Units 
2591 'inc/wrf_histout.inc ext_write_field LON_UL_U memorder 0' , & ! Debug message
2592 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2593 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2594 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2595                        ierr )
2596 END IF
2597 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2598 CALL wrf_ext_write_field (  &
2599                        fid                , &  ! DataHandle 
2600                        current_date(1:19) , &  ! DateStr 
2601                        'LON_UR_U'               , &  ! Data Name 
2602                        grid%em_lon_ur_u               , &  ! Field 
2603                        WRF_FLOAT          , &  ! FieldType 
2604                        grid%communicator  , &  ! Comm
2605                        grid%iocommunicator  , &  ! Comm
2606                        grid%domdesc       , &  ! Comm
2607                        grid%bdy_mask       , &  ! bdy_mask
2608                        dryrun             , &  ! flag
2609                        '0'               , &  ! MemoryOrder
2610                        ''               , &  ! Stagger
2611                        ''               , &  ! Dimname 1 
2612                        ''               , &  ! Dimname 2 
2613                        ''               , &  ! Dimname 3 
2614                        'longitude up right, u point'               , &  ! Desc  
2615                        'degrees'               , &  ! Units 
2616 'inc/wrf_histout.inc ext_write_field LON_UR_U memorder 0' , & ! Debug message
2617 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2618 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2619 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2620                        ierr )
2621 END IF
2622 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2623 CALL wrf_ext_write_field (  &
2624                        fid                , &  ! DataHandle 
2625                        current_date(1:19) , &  ! DateStr 
2626                        'LON_LR_U'               , &  ! Data Name 
2627                        grid%em_lon_lr_u               , &  ! Field 
2628                        WRF_FLOAT          , &  ! FieldType 
2629                        grid%communicator  , &  ! Comm
2630                        grid%iocommunicator  , &  ! Comm
2631                        grid%domdesc       , &  ! Comm
2632                        grid%bdy_mask       , &  ! bdy_mask
2633                        dryrun             , &  ! flag
2634                        '0'               , &  ! MemoryOrder
2635                        ''               , &  ! Stagger
2636                        ''               , &  ! Dimname 1 
2637                        ''               , &  ! Dimname 2 
2638                        ''               , &  ! Dimname 3 
2639                        'longitude lower right, u point'               , &  ! Desc  
2640                        'degrees'               , &  ! Units 
2641 'inc/wrf_histout.inc ext_write_field LON_LR_U memorder 0' , & ! Debug message
2642 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2643 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2644 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2645                        ierr )
2646 END IF
2647 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2648 CALL wrf_ext_write_field (  &
2649                        fid                , &  ! DataHandle 
2650                        current_date(1:19) , &  ! DateStr 
2651                        'LON_LL_V'               , &  ! Data Name 
2652                        grid%em_lon_ll_v               , &  ! Field 
2653                        WRF_FLOAT          , &  ! FieldType 
2654                        grid%communicator  , &  ! Comm
2655                        grid%iocommunicator  , &  ! Comm
2656                        grid%domdesc       , &  ! Comm
2657                        grid%bdy_mask       , &  ! bdy_mask
2658                        dryrun             , &  ! flag
2659                        '0'               , &  ! MemoryOrder
2660                        ''               , &  ! Stagger
2661                        ''               , &  ! Dimname 1 
2662                        ''               , &  ! Dimname 2 
2663                        ''               , &  ! Dimname 3 
2664                        'longitude lower left, v point'               , &  ! Desc  
2665                        'degrees'               , &  ! Units 
2666 'inc/wrf_histout.inc ext_write_field LON_LL_V memorder 0' , & ! Debug message
2667 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2668 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2669 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2670                        ierr )
2671 END IF
2672 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2673 CALL wrf_ext_write_field (  &
2674                        fid                , &  ! DataHandle 
2675                        current_date(1:19) , &  ! DateStr 
2676                        'LON_UL_V'               , &  ! Data Name 
2677                        grid%em_lon_ul_v               , &  ! Field 
2678                        WRF_FLOAT          , &  ! FieldType 
2679                        grid%communicator  , &  ! Comm
2680                        grid%iocommunicator  , &  ! Comm
2681                        grid%domdesc       , &  ! Comm
2682                        grid%bdy_mask       , &  ! bdy_mask
2683                        dryrun             , &  ! flag
2684                        '0'               , &  ! MemoryOrder
2685                        ''               , &  ! Stagger
2686                        ''               , &  ! Dimname 1 
2687                        ''               , &  ! Dimname 2 
2688                        ''               , &  ! Dimname 3 
2689                        'longitude up left, v point'               , &  ! Desc  
2690                        'degrees'               , &  ! Units 
2691 'inc/wrf_histout.inc ext_write_field LON_UL_V memorder 0' , & ! Debug message
2692 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2693 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2694 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2695                        ierr )
2696 END IF
2697 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2698 CALL wrf_ext_write_field (  &
2699                        fid                , &  ! DataHandle 
2700                        current_date(1:19) , &  ! DateStr 
2701                        'LON_UR_V'               , &  ! Data Name 
2702                        grid%em_lon_ur_v               , &  ! Field 
2703                        WRF_FLOAT          , &  ! FieldType 
2704                        grid%communicator  , &  ! Comm
2705                        grid%iocommunicator  , &  ! Comm
2706                        grid%domdesc       , &  ! Comm
2707                        grid%bdy_mask       , &  ! bdy_mask
2708                        dryrun             , &  ! flag
2709                        '0'               , &  ! MemoryOrder
2710                        ''               , &  ! Stagger
2711                        ''               , &  ! Dimname 1 
2712                        ''               , &  ! Dimname 2 
2713                        ''               , &  ! Dimname 3 
2714                        'longitude up right, v point'               , &  ! Desc  
2715                        'degrees'               , &  ! Units 
2716 'inc/wrf_histout.inc ext_write_field LON_UR_V memorder 0' , & ! Debug message
2717 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2718 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2719 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2720                        ierr )
2721 END IF
2722 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2723 CALL wrf_ext_write_field (  &
2724                        fid                , &  ! DataHandle 
2725                        current_date(1:19) , &  ! DateStr 
2726                        'LON_LR_V'               , &  ! Data Name 
2727                        grid%em_lon_lr_v               , &  ! Field 
2728                        WRF_FLOAT          , &  ! FieldType 
2729                        grid%communicator  , &  ! Comm
2730                        grid%iocommunicator  , &  ! Comm
2731                        grid%domdesc       , &  ! Comm
2732                        grid%bdy_mask       , &  ! bdy_mask
2733                        dryrun             , &  ! flag
2734                        '0'               , &  ! MemoryOrder
2735                        ''               , &  ! Stagger
2736                        ''               , &  ! Dimname 1 
2737                        ''               , &  ! Dimname 2 
2738                        ''               , &  ! Dimname 3 
2739                        'longitude lower right, v point'               , &  ! Desc  
2740                        'degrees'               , &  ! Units 
2741 'inc/wrf_histout.inc ext_write_field LON_LR_V memorder 0' , & ! Debug message
2742 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2743 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2744 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2745                        ierr )
2746 END IF
2747 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2748 CALL wrf_ext_write_field (  &
2749                        fid                , &  ! DataHandle 
2750                        current_date(1:19) , &  ! DateStr 
2751                        'LON_LL_D'               , &  ! Data Name 
2752                        grid%em_lon_ll_d               , &  ! Field 
2753                        WRF_FLOAT          , &  ! FieldType 
2754                        grid%communicator  , &  ! Comm
2755                        grid%iocommunicator  , &  ! Comm
2756                        grid%domdesc       , &  ! Comm
2757                        grid%bdy_mask       , &  ! bdy_mask
2758                        dryrun             , &  ! flag
2759                        '0'               , &  ! MemoryOrder
2760                        ''               , &  ! Stagger
2761                        ''               , &  ! Dimname 1 
2762                        ''               , &  ! Dimname 2 
2763                        ''               , &  ! Dimname 3 
2764                        'longitude lower left, massless point'               , &  ! Desc  
2765                        'degrees'               , &  ! Units 
2766 'inc/wrf_histout.inc ext_write_field LON_LL_D memorder 0' , & ! Debug message
2767 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2768 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2769 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2770                        ierr )
2771 END IF
2772 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2773 CALL wrf_ext_write_field (  &
2774                        fid                , &  ! DataHandle 
2775                        current_date(1:19) , &  ! DateStr 
2776                        'LON_UL_D'               , &  ! Data Name 
2777                        grid%em_lon_ul_d               , &  ! Field 
2778                        WRF_FLOAT          , &  ! FieldType 
2779                        grid%communicator  , &  ! Comm
2780                        grid%iocommunicator  , &  ! Comm
2781                        grid%domdesc       , &  ! Comm
2782                        grid%bdy_mask       , &  ! bdy_mask
2783                        dryrun             , &  ! flag
2784                        '0'               , &  ! MemoryOrder
2785                        ''               , &  ! Stagger
2786                        ''               , &  ! Dimname 1 
2787                        ''               , &  ! Dimname 2 
2788                        ''               , &  ! Dimname 3 
2789                        'longitude up left, massless point'               , &  ! Desc  
2790                        'degrees'               , &  ! Units 
2791 'inc/wrf_histout.inc ext_write_field LON_UL_D memorder 0' , & ! Debug message
2792 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2793 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2794 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2795                        ierr )
2796 END IF
2797 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2798 CALL wrf_ext_write_field (  &
2799                        fid                , &  ! DataHandle 
2800                        current_date(1:19) , &  ! DateStr 
2801                        'LON_UR_D'               , &  ! Data Name 
2802                        grid%em_lon_ur_d               , &  ! Field 
2803                        WRF_FLOAT          , &  ! FieldType 
2804                        grid%communicator  , &  ! Comm
2805                        grid%iocommunicator  , &  ! Comm
2806                        grid%domdesc       , &  ! Comm
2807                        grid%bdy_mask       , &  ! bdy_mask
2808                        dryrun             , &  ! flag
2809                        '0'               , &  ! MemoryOrder
2810                        ''               , &  ! Stagger
2811                        ''               , &  ! Dimname 1 
2812                        ''               , &  ! Dimname 2 
2813                        ''               , &  ! Dimname 3 
2814                        'longitude up right, massless point'               , &  ! Desc  
2815                        'degrees'               , &  ! Units 
2816 'inc/wrf_histout.inc ext_write_field LON_UR_D memorder 0' , & ! Debug message
2817 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2818 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2819 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2820                        ierr )
2821 END IF
2822 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2823 CALL wrf_ext_write_field (  &
2824                        fid                , &  ! DataHandle 
2825                        current_date(1:19) , &  ! DateStr 
2826                        'LON_LR_D'               , &  ! Data Name 
2827                        grid%em_lon_lr_d               , &  ! Field 
2828                        WRF_FLOAT          , &  ! FieldType 
2829                        grid%communicator  , &  ! Comm
2830                        grid%iocommunicator  , &  ! Comm
2831                        grid%domdesc       , &  ! Comm
2832                        grid%bdy_mask       , &  ! bdy_mask
2833                        dryrun             , &  ! flag
2834                        '0'               , &  ! MemoryOrder
2835                        ''               , &  ! Stagger
2836                        ''               , &  ! Dimname 1 
2837                        ''               , &  ! Dimname 2 
2838                        ''               , &  ! Dimname 3 
2839                        'longitude lower right, massless point'               , &  ! Desc  
2840                        'degrees'               , &  ! Units 
2841 'inc/wrf_histout.inc ext_write_field LON_LR_D memorder 0' , & ! Debug message
2842 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2843 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2844 1 , 1 , 1 , 1 , 1 , 1 ,  & 
2845                        ierr )
2846 END IF
2847 CALL wrf_ext_write_field (  &
2848                        fid                , &  ! DataHandle 
2849                        current_date(1:19) , &  ! DateStr 
2850                        'RAINC'               , &  ! Data Name 
2851                        grid%rainc               , &  ! Field 
2852                        WRF_FLOAT          , &  ! FieldType 
2853                        grid%communicator  , &  ! Comm
2854                        grid%iocommunicator  , &  ! Comm
2855                        grid%domdesc       , &  ! Comm
2856                        grid%bdy_mask       , &  ! bdy_mask
2857                        dryrun             , &  ! flag
2858                        'XY'               , &  ! MemoryOrder
2859                        ''               , &  ! Stagger
2860                        'west_east'               , &  ! Dimname 1 
2861                        'south_north'               , &  ! Dimname 2 
2862                        ''               , &  ! Dimname 3 
2863                        'ACCUMULATED TOTAL CUMULUS PRECIPITATION'               , &  ! Desc  
2864                        'mm'               , &  ! Units 
2865 'inc/wrf_histout.inc ext_write_field RAINC memorder XY' , & ! Debug message
2866 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
2867 ims , ime , jms , jme , 1 , 1 ,  & 
2868 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
2869                        ierr )
2870 CALL wrf_ext_write_field (  &
2871                        fid                , &  ! DataHandle 
2872                        current_date(1:19) , &  ! DateStr 
2873                        'RAINNC'               , &  ! Data Name 
2874                        grid%rainnc               , &  ! Field 
2875                        WRF_FLOAT          , &  ! FieldType 
2876                        grid%communicator  , &  ! Comm
2877                        grid%iocommunicator  , &  ! Comm
2878                        grid%domdesc       , &  ! Comm
2879                        grid%bdy_mask       , &  ! bdy_mask
2880                        dryrun             , &  ! flag
2881                        'XY'               , &  ! MemoryOrder
2882                        ''               , &  ! Stagger
2883                        'west_east'               , &  ! Dimname 1 
2884                        'south_north'               , &  ! Dimname 2 
2885                        ''               , &  ! Dimname 3 
2886                        'ACCUMULATED TOTAL GRID SCALE PRECIPITATION'               , &  ! Desc  
2887                        'mm'               , &  ! Units 
2888 'inc/wrf_histout.inc ext_write_field RAINNC memorder XY' , & ! Debug message
2889 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
2890 ims , ime , jms , jme , 1 , 1 ,  & 
2891 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
2892                        ierr )
2893 CALL wrf_ext_write_field (  &
2894                        fid                , &  ! DataHandle 
2895                        current_date(1:19) , &  ! DateStr 
2896                        'XLAT'               , &  ! Data Name 
2897                        grid%xlat               , &  ! Field 
2898                        WRF_FLOAT          , &  ! FieldType 
2899                        grid%communicator  , &  ! Comm
2900                        grid%iocommunicator  , &  ! Comm
2901                        grid%domdesc       , &  ! Comm
2902                        grid%bdy_mask       , &  ! bdy_mask
2903                        dryrun             , &  ! flag
2904                        'XY'               , &  ! MemoryOrder
2905                        ''               , &  ! Stagger
2906                        'west_east'               , &  ! Dimname 1 
2907                        'south_north'               , &  ! Dimname 2 
2908                        ''               , &  ! Dimname 3 
2909                        'LATITUDE, SOUTH IS NEGATIVE'               , &  ! Desc  
2910                        'degree_north'               , &  ! Units 
2911 'inc/wrf_histout.inc ext_write_field XLAT memorder XY' , & ! Debug message
2912 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
2913 ims , ime , jms , jme , 1 , 1 ,  & 
2914 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
2915                        ierr )
2916 CALL wrf_ext_write_field (  &
2917                        fid                , &  ! DataHandle 
2918                        current_date(1:19) , &  ! DateStr 
2919                        'XLONG'               , &  ! Data Name 
2920                        grid%xlong               , &  ! Field 
2921                        WRF_FLOAT          , &  ! FieldType 
2922                        grid%communicator  , &  ! Comm
2923                        grid%iocommunicator  , &  ! Comm
2924                        grid%domdesc       , &  ! Comm
2925                        grid%bdy_mask       , &  ! bdy_mask
2926                        dryrun             , &  ! flag
2927                        'XY'               , &  ! MemoryOrder
2928                        ''               , &  ! Stagger
2929                        'west_east'               , &  ! Dimname 1 
2930                        'south_north'               , &  ! Dimname 2 
2931                        ''               , &  ! Dimname 3 
2932                        'LONGITUDE, WEST IS NEGATIVE'               , &  ! Desc  
2933                        'degree_east'               , &  ! Units 
2934 'inc/wrf_histout.inc ext_write_field XLONG memorder XY' , & ! Debug message
2935 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
2936 ims , ime , jms , jme , 1 , 1 ,  & 
2937 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
2938                        ierr )
2939 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2940 CALL wrf_ext_write_field (  &
2941                        fid                , &  ! DataHandle 
2942                        current_date(1:19) , &  ! DateStr 
2943                        'XLAT_U'               , &  ! Data Name 
2944                        grid%em_xlat_u               , &  ! Field 
2945                        WRF_FLOAT          , &  ! FieldType 
2946                        grid%communicator  , &  ! Comm
2947                        grid%iocommunicator  , &  ! Comm
2948                        grid%domdesc       , &  ! Comm
2949                        grid%bdy_mask       , &  ! bdy_mask
2950                        dryrun             , &  ! flag
2951                        'XY'               , &  ! MemoryOrder
2952                        'X'               , &  ! Stagger
2953                        'west_east_stag'               , &  ! Dimname 1 
2954                        'south_north'               , &  ! Dimname 2 
2955                        ''               , &  ! Dimname 3 
2956                        'LATITUDE, SOUTH IS NEGATIVE'               , &  ! Desc  
2957                        'degree_north'               , &  ! Units 
2958 'inc/wrf_histout.inc ext_write_field XLAT_U memorder XY' , & ! Debug message
2959 ids , ide , jds , (jde-1) , 1 , 1 ,  & 
2960 ims , ime , jms , jme , 1 , 1 ,  & 
2961 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
2962                        ierr )
2963 END IF
2964 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2965 CALL wrf_ext_write_field (  &
2966                        fid                , &  ! DataHandle 
2967                        current_date(1:19) , &  ! DateStr 
2968                        'XLONG_U'               , &  ! Data Name 
2969                        grid%em_xlong_u               , &  ! Field 
2970                        WRF_FLOAT          , &  ! FieldType 
2971                        grid%communicator  , &  ! Comm
2972                        grid%iocommunicator  , &  ! Comm
2973                        grid%domdesc       , &  ! Comm
2974                        grid%bdy_mask       , &  ! bdy_mask
2975                        dryrun             , &  ! flag
2976                        'XY'               , &  ! MemoryOrder
2977                        'X'               , &  ! Stagger
2978                        'west_east_stag'               , &  ! Dimname 1 
2979                        'south_north'               , &  ! Dimname 2 
2980                        ''               , &  ! Dimname 3 
2981                        'LONGITUDE, WEST IS NEGATIVE'               , &  ! Desc  
2982                        'degree_east'               , &  ! Units 
2983 'inc/wrf_histout.inc ext_write_field XLONG_U memorder XY' , & ! Debug message
2984 ids , ide , jds , (jde-1) , 1 , 1 ,  & 
2985 ims , ime , jms , jme , 1 , 1 ,  & 
2986 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
2987                        ierr )
2988 END IF
2989 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2990 CALL wrf_ext_write_field (  &
2991                        fid                , &  ! DataHandle 
2992                        current_date(1:19) , &  ! DateStr 
2993                        'XLAT_V'               , &  ! Data Name 
2994                        grid%em_xlat_v               , &  ! Field 
2995                        WRF_FLOAT          , &  ! FieldType 
2996                        grid%communicator  , &  ! Comm
2997                        grid%iocommunicator  , &  ! Comm
2998                        grid%domdesc       , &  ! Comm
2999                        grid%bdy_mask       , &  ! bdy_mask
3000                        dryrun             , &  ! flag
3001                        'XY'               , &  ! MemoryOrder
3002                        'Y'               , &  ! Stagger
3003                        'west_east'               , &  ! Dimname 1 
3004                        'south_north_stag'               , &  ! Dimname 2 
3005                        ''               , &  ! Dimname 3 
3006                        'LATITUDE, SOUTH IS NEGATIVE'               , &  ! Desc  
3007                        'degree_north'               , &  ! Units 
3008 'inc/wrf_histout.inc ext_write_field XLAT_V memorder XY' , & ! Debug message
3009 ids , (ide-1) , jds , jde , 1 , 1 ,  & 
3010 ims , ime , jms , jme , 1 , 1 ,  & 
3011 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 ,  & 
3012                        ierr )
3013 END IF
3014 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3015 CALL wrf_ext_write_field (  &
3016                        fid                , &  ! DataHandle 
3017                        current_date(1:19) , &  ! DateStr 
3018                        'XLONG_V'               , &  ! Data Name 
3019                        grid%em_xlong_v               , &  ! Field 
3020                        WRF_FLOAT          , &  ! FieldType 
3021                        grid%communicator  , &  ! Comm
3022                        grid%iocommunicator  , &  ! Comm
3023                        grid%domdesc       , &  ! Comm
3024                        grid%bdy_mask       , &  ! bdy_mask
3025                        dryrun             , &  ! flag
3026                        'XY'               , &  ! MemoryOrder
3027                        'Y'               , &  ! Stagger
3028                        'west_east'               , &  ! Dimname 1 
3029                        'south_north_stag'               , &  ! Dimname 2 
3030                        ''               , &  ! Dimname 3 
3031                        'LONGITUDE, WEST IS NEGATIVE'               , &  ! Desc  
3032                        'degree_east'               , &  ! Units 
3033 'inc/wrf_histout.inc ext_write_field XLONG_V memorder XY' , & ! Debug message
3034 ids , (ide-1) , jds , jde , 1 , 1 ,  & 
3035 ims , ime , jms , jme , 1 , 1 ,  & 
3036 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 ,  & 
3037                        ierr )
3038 END IF
3039 CALL wrf_ext_write_field (  &
3040                        fid                , &  ! DataHandle 
3041                        current_date(1:19) , &  ! DateStr 
3042                        'TMN'               , &  ! Data Name 
3043                        grid%tmn               , &  ! Field 
3044                        WRF_FLOAT          , &  ! FieldType 
3045                        grid%communicator  , &  ! Comm
3046                        grid%iocommunicator  , &  ! Comm
3047                        grid%domdesc       , &  ! Comm
3048                        grid%bdy_mask       , &  ! bdy_mask
3049                        dryrun             , &  ! flag
3050                        'XY'               , &  ! MemoryOrder
3051                        ''               , &  ! Stagger
3052                        'west_east'               , &  ! Dimname 1 
3053                        'south_north'               , &  ! Dimname 2 
3054                        ''               , &  ! Dimname 3 
3055                        'SOIL TEMPERATURE AT LOWER BOUNDARY'               , &  ! Desc  
3056                        'K'               , &  ! Units 
3057 'inc/wrf_histout.inc ext_write_field TMN memorder XY' , & ! Debug message
3058 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
3059 ims , ime , jms , jme , 1 , 1 ,  & 
3060 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
3061                        ierr )
3062 CALL wrf_ext_write_field (  &
3063                        fid                , &  ! DataHandle 
3064                        current_date(1:19) , &  ! DateStr 
3065                        'XLAND'               , &  ! Data Name 
3066                        grid%xland               , &  ! Field 
3067                        WRF_FLOAT          , &  ! FieldType 
3068                        grid%communicator  , &  ! Comm
3069                        grid%iocommunicator  , &  ! Comm
3070                        grid%domdesc       , &  ! Comm
3071                        grid%bdy_mask       , &  ! bdy_mask
3072                        dryrun             , &  ! flag
3073                        'XY'               , &  ! MemoryOrder
3074                        ''               , &  ! Stagger
3075                        'west_east'               , &  ! Dimname 1 
3076                        'south_north'               , &  ! Dimname 2 
3077                        ''               , &  ! Dimname 3 
3078                        'LAND MASK (1 FOR LAND, 2 FOR WATER)'               , &  ! Desc  
3079                        ''               , &  ! Units 
3080 'inc/wrf_histout.inc ext_write_field XLAND memorder XY' , & ! Debug message
3081 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
3082 ims , ime , jms , jme , 1 , 1 ,  & 
3083 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
3084                        ierr )
3085 CALL wrf_ext_write_field (  &
3086                        fid                , &  ! DataHandle 
3087                        current_date(1:19) , &  ! DateStr 
3088                        'SNOWC'               , &  ! Data Name 
3089                        grid%snowc               , &  ! Field 
3090                        WRF_FLOAT          , &  ! FieldType 
3091                        grid%communicator  , &  ! Comm
3092                        grid%iocommunicator  , &  ! Comm
3093                        grid%domdesc       , &  ! Comm
3094                        grid%bdy_mask       , &  ! bdy_mask
3095                        dryrun             , &  ! flag
3096                        'XY'               , &  ! MemoryOrder
3097                        ''               , &  ! Stagger
3098                        'west_east'               , &  ! Dimname 1 
3099                        'south_north'               , &  ! Dimname 2 
3100                        ''               , &  ! Dimname 3 
3101                        'FLAG INDICATING SNOW COVERAGE (1 FOR SNOW COVER)'               , &  ! Desc  
3102                        ''               , &  ! Units 
3103 'inc/wrf_histout.inc ext_write_field SNOWC memorder XY' , & ! Debug message
3104 ids , (ide-1) , jds , (jde-1) , 1 , 1 ,  & 
3105 ims , ime , jms , jme , 1 , 1 ,  & 
3106 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 ,  & 
3107                        ierr )
3108 !ENDOFREGISTRYGENERATEDINCLUDE