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