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