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