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