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