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