wrf_restartout.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_restartout.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_restartout.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_1' , & ! Data Name
35 grid%em_u_1 , & ! 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_restartout.inc ext_write_field U_1 memorder XYZ' , & ! Debug message
50 ids , ide , jds , (jde-1) , kds , (kde-1) , &
51 ims , ime , jms , jme , kms , kme , &
52 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
53 ierr )
54 END IF
55 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
56 CALL wrf_ext_write_field ( &
57 fid , & ! DataHandle
58 current_date(1:19) , & ! DateStr
59 'U_2' , & ! Data Name
60 grid%em_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_restartout.inc ext_write_field U_2 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 ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
81 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
82 CALL wrf_ext_write_field ( &
83 fid , & ! DataHandle
84 current_date(1:19) , & ! DateStr
85 'A_U_1' , & ! Data Name
86 grid%em_a_u_1 , & ! Field
87 WRF_FLOAT , & ! FieldType
88 grid%communicator , & ! Comm
89 grid%iocommunicator , & ! Comm
90 grid%domdesc , & ! Comm
91 grid%bdy_mask , & ! bdy_mask
92 dryrun , & ! flag
93 'XYZ' , & ! MemoryOrder
94 'X' , & ! Stagger
95 'west_east_stag' , & ! Dimname 1
96 'south_north' , & ! Dimname 2
97 'bottom_top' , & ! Dimname 3
98 'x-wind component' , & ! Desc
99 'm s-1' , & ! Units
100 'inc/wrf_restartout.inc ext_write_field A_U_1 memorder XYZ' , & ! Debug message
101 ids , ide , jds , (jde-1) , kds , (kde-1) , &
102 ims , ime , jms , jme , kms , kme , &
103 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
104 ierr )
105 END IF
106 END IF
107 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
108 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
109 CALL wrf_ext_write_field ( &
110 fid , & ! DataHandle
111 current_date(1:19) , & ! DateStr
112 'A_U_2' , & ! Data Name
113 grid%em_a_u_2 , & ! Field
114 WRF_FLOAT , & ! FieldType
115 grid%communicator , & ! Comm
116 grid%iocommunicator , & ! Comm
117 grid%domdesc , & ! Comm
118 grid%bdy_mask , & ! bdy_mask
119 dryrun , & ! flag
120 'XYZ' , & ! MemoryOrder
121 'X' , & ! Stagger
122 'west_east_stag' , & ! Dimname 1
123 'south_north' , & ! Dimname 2
124 'bottom_top' , & ! Dimname 3
125 'x-wind component' , & ! Desc
126 'm s-1' , & ! Units
127 'inc/wrf_restartout.inc ext_write_field A_U_2 memorder XYZ' , & ! Debug message
128 ids , ide , jds , (jde-1) , kds , (kde-1) , &
129 ims , ime , jms , jme , kms , kme , &
130 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
131 ierr )
132 END IF
133 END IF
134 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
135 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
136 CALL wrf_ext_write_field ( &
137 fid , & ! DataHandle
138 current_date(1:19) , & ! DateStr
139 'G_U_1' , & ! Data Name
140 grid%em_g_u_1 , & ! Field
141 WRF_FLOAT , & ! FieldType
142 grid%communicator , & ! Comm
143 grid%iocommunicator , & ! Comm
144 grid%domdesc , & ! Comm
145 grid%bdy_mask , & ! bdy_mask
146 dryrun , & ! flag
147 'XYZ' , & ! MemoryOrder
148 'X' , & ! Stagger
149 'west_east_stag' , & ! Dimname 1
150 'south_north' , & ! Dimname 2
151 'bottom_top' , & ! Dimname 3
152 'x-wind component' , & ! Desc
153 'm s-1' , & ! Units
154 'inc/wrf_restartout.inc ext_write_field G_U_1 memorder XYZ' , & ! Debug message
155 ids , ide , jds , (jde-1) , kds , (kde-1) , &
156 ims , ime , jms , jme , kms , kme , &
157 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
158 ierr )
159 END IF
160 END IF
161 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
162 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
163 CALL wrf_ext_write_field ( &
164 fid , & ! DataHandle
165 current_date(1:19) , & ! DateStr
166 'G_U_2' , & ! Data Name
167 grid%em_g_u_2 , & ! Field
168 WRF_FLOAT , & ! FieldType
169 grid%communicator , & ! Comm
170 grid%iocommunicator , & ! Comm
171 grid%domdesc , & ! Comm
172 grid%bdy_mask , & ! bdy_mask
173 dryrun , & ! flag
174 'XYZ' , & ! MemoryOrder
175 'X' , & ! Stagger
176 'west_east_stag' , & ! Dimname 1
177 'south_north' , & ! Dimname 2
178 'bottom_top' , & ! Dimname 3
179 'x-wind component' , & ! Desc
180 'm s-1' , & ! Units
181 'inc/wrf_restartout.inc ext_write_field G_U_2 memorder XYZ' , & ! Debug message
182 ids , ide , jds , (jde-1) , kds , (kde-1) , &
183 ims , ime , jms , jme , kms , kme , &
184 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
185 ierr )
186 END IF
187 END IF
188 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
189 CALL wrf_ext_write_field ( &
190 fid , & ! DataHandle
191 current_date(1:19) , & ! DateStr
192 'V_1' , & ! Data Name
193 grid%em_v_1 , & ! Field
194 WRF_FLOAT , & ! FieldType
195 grid%communicator , & ! Comm
196 grid%iocommunicator , & ! Comm
197 grid%domdesc , & ! Comm
198 grid%bdy_mask , & ! bdy_mask
199 dryrun , & ! flag
200 'XYZ' , & ! MemoryOrder
201 'Y' , & ! Stagger
202 'west_east' , & ! Dimname 1
203 'south_north_stag' , & ! Dimname 2
204 'bottom_top' , & ! Dimname 3
205 'y-wind component' , & ! Desc
206 'm s-1' , & ! Units
207 'inc/wrf_restartout.inc ext_write_field V_1 memorder XYZ' , & ! Debug message
208 ids , (ide-1) , jds , jde , kds , (kde-1) , &
209 ims , ime , jms , jme , kms , kme , &
210 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
211 ierr )
212 END IF
213 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
214 CALL wrf_ext_write_field ( &
215 fid , & ! DataHandle
216 current_date(1:19) , & ! DateStr
217 'V_2' , & ! Data Name
218 grid%em_v_2 , & ! Field
219 WRF_FLOAT , & ! FieldType
220 grid%communicator , & ! Comm
221 grid%iocommunicator , & ! Comm
222 grid%domdesc , & ! Comm
223 grid%bdy_mask , & ! bdy_mask
224 dryrun , & ! flag
225 'XYZ' , & ! MemoryOrder
226 'Y' , & ! Stagger
227 'west_east' , & ! Dimname 1
228 'south_north_stag' , & ! Dimname 2
229 'bottom_top' , & ! Dimname 3
230 'y-wind component' , & ! Desc
231 'm s-1' , & ! Units
232 'inc/wrf_restartout.inc ext_write_field V_2 memorder XYZ' , & ! Debug message
233 ids , (ide-1) , jds , jde , kds , (kde-1) , &
234 ims , ime , jms , jme , kms , kme , &
235 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
236 ierr )
237 END IF
238 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
239 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
240 CALL wrf_ext_write_field ( &
241 fid , & ! DataHandle
242 current_date(1:19) , & ! DateStr
243 'A_V_1' , & ! Data Name
244 grid%em_a_v_1 , & ! Field
245 WRF_FLOAT , & ! FieldType
246 grid%communicator , & ! Comm
247 grid%iocommunicator , & ! Comm
248 grid%domdesc , & ! Comm
249 grid%bdy_mask , & ! bdy_mask
250 dryrun , & ! flag
251 'XYZ' , & ! MemoryOrder
252 'Y' , & ! Stagger
253 'west_east' , & ! Dimname 1
254 'south_north_stag' , & ! Dimname 2
255 'bottom_top' , & ! Dimname 3
256 'y-wind component' , & ! Desc
257 'm s-1' , & ! Units
258 'inc/wrf_restartout.inc ext_write_field A_V_1 memorder XYZ' , & ! Debug message
259 ids , (ide-1) , jds , jde , kds , (kde-1) , &
260 ims , ime , jms , jme , kms , kme , &
261 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
262 ierr )
263 END IF
264 END IF
265 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
266 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
267 CALL wrf_ext_write_field ( &
268 fid , & ! DataHandle
269 current_date(1:19) , & ! DateStr
270 'A_V_2' , & ! Data Name
271 grid%em_a_v_2 , & ! Field
272 WRF_FLOAT , & ! FieldType
273 grid%communicator , & ! Comm
274 grid%iocommunicator , & ! Comm
275 grid%domdesc , & ! Comm
276 grid%bdy_mask , & ! bdy_mask
277 dryrun , & ! flag
278 'XYZ' , & ! MemoryOrder
279 'Y' , & ! Stagger
280 'west_east' , & ! Dimname 1
281 'south_north_stag' , & ! Dimname 2
282 'bottom_top' , & ! Dimname 3
283 'y-wind component' , & ! Desc
284 'm s-1' , & ! Units
285 'inc/wrf_restartout.inc ext_write_field A_V_2 memorder XYZ' , & ! Debug message
286 ids , (ide-1) , jds , jde , kds , (kde-1) , &
287 ims , ime , jms , jme , kms , kme , &
288 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
289 ierr )
290 END IF
291 END IF
292 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
293 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
294 CALL wrf_ext_write_field ( &
295 fid , & ! DataHandle
296 current_date(1:19) , & ! DateStr
297 'G_V_1' , & ! Data Name
298 grid%em_g_v_1 , & ! Field
299 WRF_FLOAT , & ! FieldType
300 grid%communicator , & ! Comm
301 grid%iocommunicator , & ! Comm
302 grid%domdesc , & ! Comm
303 grid%bdy_mask , & ! bdy_mask
304 dryrun , & ! flag
305 'XYZ' , & ! MemoryOrder
306 'Y' , & ! Stagger
307 'west_east' , & ! Dimname 1
308 'south_north_stag' , & ! Dimname 2
309 'bottom_top' , & ! Dimname 3
310 'y-wind component' , & ! Desc
311 'm s-1' , & ! Units
312 'inc/wrf_restartout.inc ext_write_field G_V_1 memorder XYZ' , & ! Debug message
313 ids , (ide-1) , jds , jde , kds , (kde-1) , &
314 ims , ime , jms , jme , kms , kme , &
315 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
316 ierr )
317 END IF
318 END IF
319 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
320 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
321 CALL wrf_ext_write_field ( &
322 fid , & ! DataHandle
323 current_date(1:19) , & ! DateStr
324 'G_V_2' , & ! Data Name
325 grid%em_g_v_2 , & ! Field
326 WRF_FLOAT , & ! FieldType
327 grid%communicator , & ! Comm
328 grid%iocommunicator , & ! Comm
329 grid%domdesc , & ! Comm
330 grid%bdy_mask , & ! bdy_mask
331 dryrun , & ! flag
332 'XYZ' , & ! MemoryOrder
333 'Y' , & ! Stagger
334 'west_east' , & ! Dimname 1
335 'south_north_stag' , & ! Dimname 2
336 'bottom_top' , & ! Dimname 3
337 'y-wind component' , & ! Desc
338 'm s-1' , & ! Units
339 'inc/wrf_restartout.inc ext_write_field G_V_2 memorder XYZ' , & ! Debug message
340 ids , (ide-1) , jds , jde , kds , (kde-1) , &
341 ims , ime , jms , jme , kms , kme , &
342 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
343 ierr )
344 END IF
345 END IF
346 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
347 CALL wrf_ext_write_field ( &
348 fid , & ! DataHandle
349 current_date(1:19) , & ! DateStr
350 'W_1' , & ! Data Name
351 grid%em_w_1 , & ! Field
352 WRF_FLOAT , & ! FieldType
353 grid%communicator , & ! Comm
354 grid%iocommunicator , & ! Comm
355 grid%domdesc , & ! Comm
356 grid%bdy_mask , & ! bdy_mask
357 dryrun , & ! flag
358 'XYZ' , & ! MemoryOrder
359 'Z' , & ! Stagger
360 'west_east' , & ! Dimname 1
361 'south_north' , & ! Dimname 2
362 'bottom_top_stag' , & ! Dimname 3
363 'z-wind component' , & ! Desc
364 'm s-1' , & ! Units
365 'inc/wrf_restartout.inc ext_write_field W_1 memorder XYZ' , & ! Debug message
366 ids , (ide-1) , jds , (jde-1) , kds , kde , &
367 ims , ime , jms , jme , kms , kme , &
368 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
369 ierr )
370 END IF
371 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
372 CALL wrf_ext_write_field ( &
373 fid , & ! DataHandle
374 current_date(1:19) , & ! DateStr
375 'W_2' , & ! Data Name
376 grid%em_w_2 , & ! Field
377 WRF_FLOAT , & ! FieldType
378 grid%communicator , & ! Comm
379 grid%iocommunicator , & ! Comm
380 grid%domdesc , & ! Comm
381 grid%bdy_mask , & ! bdy_mask
382 dryrun , & ! flag
383 'XYZ' , & ! MemoryOrder
384 'Z' , & ! Stagger
385 'west_east' , & ! Dimname 1
386 'south_north' , & ! Dimname 2
387 'bottom_top_stag' , & ! Dimname 3
388 'z-wind component' , & ! Desc
389 'm s-1' , & ! Units
390 'inc/wrf_restartout.inc ext_write_field W_2 memorder XYZ' , & ! Debug message
391 ids , (ide-1) , jds , (jde-1) , kds , kde , &
392 ims , ime , jms , jme , kms , kme , &
393 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
394 ierr )
395 END IF
396 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
397 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
398 CALL wrf_ext_write_field ( &
399 fid , & ! DataHandle
400 current_date(1:19) , & ! DateStr
401 'A_W_1' , & ! Data Name
402 grid%em_a_w_1 , & ! Field
403 WRF_FLOAT , & ! FieldType
404 grid%communicator , & ! Comm
405 grid%iocommunicator , & ! Comm
406 grid%domdesc , & ! Comm
407 grid%bdy_mask , & ! bdy_mask
408 dryrun , & ! flag
409 'XYZ' , & ! MemoryOrder
410 'Z' , & ! Stagger
411 'west_east' , & ! Dimname 1
412 'south_north' , & ! Dimname 2
413 'bottom_top_stag' , & ! Dimname 3
414 'z-wind component' , & ! Desc
415 'm s-1' , & ! Units
416 'inc/wrf_restartout.inc ext_write_field A_W_1 memorder XYZ' , & ! Debug message
417 ids , (ide-1) , jds , (jde-1) , kds , kde , &
418 ims , ime , jms , jme , kms , kme , &
419 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
420 ierr )
421 END IF
422 END IF
423 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
424 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
425 CALL wrf_ext_write_field ( &
426 fid , & ! DataHandle
427 current_date(1:19) , & ! DateStr
428 'A_W_2' , & ! Data Name
429 grid%em_a_w_2 , & ! Field
430 WRF_FLOAT , & ! FieldType
431 grid%communicator , & ! Comm
432 grid%iocommunicator , & ! Comm
433 grid%domdesc , & ! Comm
434 grid%bdy_mask , & ! bdy_mask
435 dryrun , & ! flag
436 'XYZ' , & ! MemoryOrder
437 'Z' , & ! Stagger
438 'west_east' , & ! Dimname 1
439 'south_north' , & ! Dimname 2
440 'bottom_top_stag' , & ! Dimname 3
441 'z-wind component' , & ! Desc
442 'm s-1' , & ! Units
443 'inc/wrf_restartout.inc ext_write_field A_W_2 memorder XYZ' , & ! Debug message
444 ids , (ide-1) , jds , (jde-1) , kds , kde , &
445 ims , ime , jms , jme , kms , kme , &
446 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
447 ierr )
448 END IF
449 END IF
450 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
451 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
452 CALL wrf_ext_write_field ( &
453 fid , & ! DataHandle
454 current_date(1:19) , & ! DateStr
455 'G_W_1' , & ! Data Name
456 grid%em_g_w_1 , & ! Field
457 WRF_FLOAT , & ! FieldType
458 grid%communicator , & ! Comm
459 grid%iocommunicator , & ! Comm
460 grid%domdesc , & ! Comm
461 grid%bdy_mask , & ! bdy_mask
462 dryrun , & ! flag
463 'XYZ' , & ! MemoryOrder
464 'Z' , & ! Stagger
465 'west_east' , & ! Dimname 1
466 'south_north' , & ! Dimname 2
467 'bottom_top_stag' , & ! Dimname 3
468 'z-wind component' , & ! Desc
469 'm s-1' , & ! Units
470 'inc/wrf_restartout.inc ext_write_field G_W_1 memorder XYZ' , & ! Debug message
471 ids , (ide-1) , jds , (jde-1) , kds , kde , &
472 ims , ime , jms , jme , kms , kme , &
473 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
474 ierr )
475 END IF
476 END IF
477 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
478 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
479 CALL wrf_ext_write_field ( &
480 fid , & ! DataHandle
481 current_date(1:19) , & ! DateStr
482 'G_W_2' , & ! Data Name
483 grid%em_g_w_2 , & ! Field
484 WRF_FLOAT , & ! FieldType
485 grid%communicator , & ! Comm
486 grid%iocommunicator , & ! Comm
487 grid%domdesc , & ! Comm
488 grid%bdy_mask , & ! bdy_mask
489 dryrun , & ! flag
490 'XYZ' , & ! MemoryOrder
491 'Z' , & ! Stagger
492 'west_east' , & ! Dimname 1
493 'south_north' , & ! Dimname 2
494 'bottom_top_stag' , & ! Dimname 3
495 'z-wind component' , & ! Desc
496 'm s-1' , & ! Units
497 'inc/wrf_restartout.inc ext_write_field G_W_2 memorder XYZ' , & ! Debug message
498 ids , (ide-1) , jds , (jde-1) , kds , kde , &
499 ims , ime , jms , jme , kms , kme , &
500 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
501 ierr )
502 END IF
503 END IF
504 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
505 CALL wrf_ext_write_field ( &
506 fid , & ! DataHandle
507 current_date(1:19) , & ! DateStr
508 'WW' , & ! Data Name
509 grid%em_ww , & ! Field
510 WRF_FLOAT , & ! FieldType
511 grid%communicator , & ! Comm
512 grid%iocommunicator , & ! Comm
513 grid%domdesc , & ! Comm
514 grid%bdy_mask , & ! bdy_mask
515 dryrun , & ! flag
516 'XYZ' , & ! MemoryOrder
517 'Z' , & ! Stagger
518 'west_east' , & ! Dimname 1
519 'south_north' , & ! Dimname 2
520 'bottom_top_stag' , & ! Dimname 3
521 'mu-coupled eta-dot' , & ! Desc
522 'Pa s-1' , & ! Units
523 'inc/wrf_restartout.inc ext_write_field WW memorder XYZ' , & ! Debug message
524 ids , (ide-1) , jds , (jde-1) , kds , kde , &
525 ims , ime , jms , jme , kms , kme , &
526 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
527 ierr )
528 END IF
529 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
530 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
531 CALL wrf_ext_write_field ( &
532 fid , & ! DataHandle
533 current_date(1:19) , & ! DateStr
534 'A_WW' , & ! Data Name
535 grid%em_a_ww , & ! 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 'XYZ' , & ! MemoryOrder
543 'Z' , & ! Stagger
544 'west_east' , & ! Dimname 1
545 'south_north' , & ! Dimname 2
546 'bottom_top_stag' , & ! Dimname 3
547 'mu-coupled eta-dot' , & ! Desc
548 'Pa s-1' , & ! Units
549 'inc/wrf_restartout.inc ext_write_field A_WW memorder XYZ' , & ! Debug message
550 ids , (ide-1) , jds , (jde-1) , kds , kde , &
551 ims , ime , jms , jme , kms , kme , &
552 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
553 ierr )
554 END IF
555 END IF
556 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
557 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
558 CALL wrf_ext_write_field ( &
559 fid , & ! DataHandle
560 current_date(1:19) , & ! DateStr
561 'G_WW' , & ! Data Name
562 grid%em_g_ww , & ! Field
563 WRF_FLOAT , & ! FieldType
564 grid%communicator , & ! Comm
565 grid%iocommunicator , & ! Comm
566 grid%domdesc , & ! Comm
567 grid%bdy_mask , & ! bdy_mask
568 dryrun , & ! flag
569 'XYZ' , & ! MemoryOrder
570 'Z' , & ! Stagger
571 'west_east' , & ! Dimname 1
572 'south_north' , & ! Dimname 2
573 'bottom_top_stag' , & ! Dimname 3
574 'mu-coupled eta-dot' , & ! Desc
575 'Pa s-1' , & ! Units
576 'inc/wrf_restartout.inc ext_write_field G_WW memorder XYZ' , & ! Debug message
577 ids , (ide-1) , jds , (jde-1) , kds , kde , &
578 ims , ime , jms , jme , kms , kme , &
579 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
580 ierr )
581 END IF
582 END IF
583 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
584 CALL wrf_ext_write_field ( &
585 fid , & ! DataHandle
586 current_date(1:19) , & ! DateStr
587 'PH_1' , & ! Data Name
588 grid%em_ph_1 , & ! Field
589 WRF_FLOAT , & ! FieldType
590 grid%communicator , & ! Comm
591 grid%iocommunicator , & ! Comm
592 grid%domdesc , & ! Comm
593 grid%bdy_mask , & ! bdy_mask
594 dryrun , & ! flag
595 'XYZ' , & ! MemoryOrder
596 'Z' , & ! Stagger
597 'west_east' , & ! Dimname 1
598 'south_north' , & ! Dimname 2
599 'bottom_top_stag' , & ! Dimname 3
600 'perturbation geopotential' , & ! Desc
601 'm2 s-2' , & ! Units
602 'inc/wrf_restartout.inc ext_write_field PH_1 memorder XYZ' , & ! Debug message
603 ids , (ide-1) , jds , (jde-1) , kds , kde , &
604 ims , ime , jms , jme , kms , kme , &
605 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
606 ierr )
607 END IF
608 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
609 CALL wrf_ext_write_field ( &
610 fid , & ! DataHandle
611 current_date(1:19) , & ! DateStr
612 'PH_2' , & ! Data Name
613 grid%em_ph_2 , & ! Field
614 WRF_FLOAT , & ! FieldType
615 grid%communicator , & ! Comm
616 grid%iocommunicator , & ! Comm
617 grid%domdesc , & ! Comm
618 grid%bdy_mask , & ! bdy_mask
619 dryrun , & ! flag
620 'XYZ' , & ! MemoryOrder
621 'Z' , & ! Stagger
622 'west_east' , & ! Dimname 1
623 'south_north' , & ! Dimname 2
624 'bottom_top_stag' , & ! Dimname 3
625 'perturbation geopotential' , & ! Desc
626 'm2 s-2' , & ! Units
627 'inc/wrf_restartout.inc ext_write_field PH_2 memorder XYZ' , & ! Debug message
628 ids , (ide-1) , jds , (jde-1) , kds , kde , &
629 ims , ime , jms , jme , kms , kme , &
630 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
631 ierr )
632 END IF
633 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
634 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
635 CALL wrf_ext_write_field ( &
636 fid , & ! DataHandle
637 current_date(1:19) , & ! DateStr
638 'A_PH_1' , & ! Data Name
639 grid%em_a_ph_1 , & ! Field
640 WRF_FLOAT , & ! FieldType
641 grid%communicator , & ! Comm
642 grid%iocommunicator , & ! Comm
643 grid%domdesc , & ! Comm
644 grid%bdy_mask , & ! bdy_mask
645 dryrun , & ! flag
646 'XYZ' , & ! MemoryOrder
647 'Z' , & ! Stagger
648 'west_east' , & ! Dimname 1
649 'south_north' , & ! Dimname 2
650 'bottom_top_stag' , & ! Dimname 3
651 'perturbation geopotential' , & ! Desc
652 'm2 s-2' , & ! Units
653 'inc/wrf_restartout.inc ext_write_field A_PH_1 memorder XYZ' , & ! Debug message
654 ids , (ide-1) , jds , (jde-1) , kds , kde , &
655 ims , ime , jms , jme , kms , kme , &
656 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
657 ierr )
658 END IF
659 END IF
660 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
661 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
662 CALL wrf_ext_write_field ( &
663 fid , & ! DataHandle
664 current_date(1:19) , & ! DateStr
665 'A_PH_2' , & ! Data Name
666 grid%em_a_ph_2 , & ! Field
667 WRF_FLOAT , & ! FieldType
668 grid%communicator , & ! Comm
669 grid%iocommunicator , & ! Comm
670 grid%domdesc , & ! Comm
671 grid%bdy_mask , & ! bdy_mask
672 dryrun , & ! flag
673 'XYZ' , & ! MemoryOrder
674 'Z' , & ! Stagger
675 'west_east' , & ! Dimname 1
676 'south_north' , & ! Dimname 2
677 'bottom_top_stag' , & ! Dimname 3
678 'perturbation geopotential' , & ! Desc
679 'm2 s-2' , & ! Units
680 'inc/wrf_restartout.inc ext_write_field A_PH_2 memorder XYZ' , & ! Debug message
681 ids , (ide-1) , jds , (jde-1) , kds , kde , &
682 ims , ime , jms , jme , kms , kme , &
683 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
684 ierr )
685 END IF
686 END IF
687 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
688 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
689 CALL wrf_ext_write_field ( &
690 fid , & ! DataHandle
691 current_date(1:19) , & ! DateStr
692 'G_PH_1' , & ! Data Name
693 grid%em_g_ph_1 , & ! Field
694 WRF_FLOAT , & ! FieldType
695 grid%communicator , & ! Comm
696 grid%iocommunicator , & ! Comm
697 grid%domdesc , & ! Comm
698 grid%bdy_mask , & ! bdy_mask
699 dryrun , & ! flag
700 'XYZ' , & ! MemoryOrder
701 'Z' , & ! Stagger
702 'west_east' , & ! Dimname 1
703 'south_north' , & ! Dimname 2
704 'bottom_top_stag' , & ! Dimname 3
705 'perturbation geopotential' , & ! Desc
706 'm2 s-2' , & ! Units
707 'inc/wrf_restartout.inc ext_write_field G_PH_1 memorder XYZ' , & ! Debug message
708 ids , (ide-1) , jds , (jde-1) , kds , kde , &
709 ims , ime , jms , jme , kms , kme , &
710 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
711 ierr )
712 END IF
713 END IF
714 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
715 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
716 CALL wrf_ext_write_field ( &
717 fid , & ! DataHandle
718 current_date(1:19) , & ! DateStr
719 'G_PH_2' , & ! Data Name
720 grid%em_g_ph_2 , & ! Field
721 WRF_FLOAT , & ! FieldType
722 grid%communicator , & ! Comm
723 grid%iocommunicator , & ! Comm
724 grid%domdesc , & ! Comm
725 grid%bdy_mask , & ! bdy_mask
726 dryrun , & ! flag
727 'XYZ' , & ! MemoryOrder
728 'Z' , & ! Stagger
729 'west_east' , & ! Dimname 1
730 'south_north' , & ! Dimname 2
731 'bottom_top_stag' , & ! Dimname 3
732 'perturbation geopotential' , & ! Desc
733 'm2 s-2' , & ! Units
734 'inc/wrf_restartout.inc ext_write_field G_PH_2 memorder XYZ' , & ! Debug message
735 ids , (ide-1) , jds , (jde-1) , kds , kde , &
736 ims , ime , jms , jme , kms , kme , &
737 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
738 ierr )
739 END IF
740 END IF
741 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
742 CALL wrf_ext_write_field ( &
743 fid , & ! DataHandle
744 current_date(1:19) , & ! DateStr
745 'PHB' , & ! Data Name
746 grid%em_phb , & ! Field
747 WRF_FLOAT , & ! FieldType
748 grid%communicator , & ! Comm
749 grid%iocommunicator , & ! Comm
750 grid%domdesc , & ! Comm
751 grid%bdy_mask , & ! bdy_mask
752 dryrun , & ! flag
753 'XYZ' , & ! MemoryOrder
754 'Z' , & ! Stagger
755 'west_east' , & ! Dimname 1
756 'south_north' , & ! Dimname 2
757 'bottom_top_stag' , & ! Dimname 3
758 'base-state geopotential' , & ! Desc
759 'm2 s-2' , & ! Units
760 'inc/wrf_restartout.inc ext_write_field PHB memorder XYZ' , & ! Debug message
761 ids , (ide-1) , jds , (jde-1) , kds , kde , &
762 ims , ime , jms , jme , kms , kme , &
763 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
764 ierr )
765 END IF
766 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
767 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
768 CALL wrf_ext_write_field ( &
769 fid , & ! DataHandle
770 current_date(1:19) , & ! DateStr
771 'A_PHB' , & ! Data Name
772 grid%em_a_phb , & ! Field
773 WRF_FLOAT , & ! FieldType
774 grid%communicator , & ! Comm
775 grid%iocommunicator , & ! Comm
776 grid%domdesc , & ! Comm
777 grid%bdy_mask , & ! bdy_mask
778 dryrun , & ! flag
779 'XYZ' , & ! MemoryOrder
780 'Z' , & ! Stagger
781 'west_east' , & ! Dimname 1
782 'south_north' , & ! Dimname 2
783 'bottom_top_stag' , & ! Dimname 3
784 'base-state geopotential' , & ! Desc
785 'm2 s-2' , & ! Units
786 'inc/wrf_restartout.inc ext_write_field A_PHB memorder XYZ' , & ! Debug message
787 ids , (ide-1) , jds , (jde-1) , kds , kde , &
788 ims , ime , jms , jme , kms , kme , &
789 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
790 ierr )
791 END IF
792 END IF
793 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
794 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
795 CALL wrf_ext_write_field ( &
796 fid , & ! DataHandle
797 current_date(1:19) , & ! DateStr
798 'G_PHB' , & ! Data Name
799 grid%em_g_phb , & ! Field
800 WRF_FLOAT , & ! FieldType
801 grid%communicator , & ! Comm
802 grid%iocommunicator , & ! Comm
803 grid%domdesc , & ! Comm
804 grid%bdy_mask , & ! bdy_mask
805 dryrun , & ! flag
806 'XYZ' , & ! MemoryOrder
807 'Z' , & ! Stagger
808 'west_east' , & ! Dimname 1
809 'south_north' , & ! Dimname 2
810 'bottom_top_stag' , & ! Dimname 3
811 'base-state geopotential' , & ! Desc
812 'm2 s-2' , & ! Units
813 'inc/wrf_restartout.inc ext_write_field G_PHB memorder XYZ' , & ! Debug message
814 ids , (ide-1) , jds , (jde-1) , kds , kde , &
815 ims , ime , jms , jme , kms , kme , &
816 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
817 ierr )
818 END IF
819 END IF
820 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
821 CALL wrf_ext_write_field ( &
822 fid , & ! DataHandle
823 current_date(1:19) , & ! DateStr
824 'PH0' , & ! Data Name
825 grid%em_ph0 , & ! Field
826 WRF_FLOAT , & ! FieldType
827 grid%communicator , & ! Comm
828 grid%iocommunicator , & ! Comm
829 grid%domdesc , & ! Comm
830 grid%bdy_mask , & ! bdy_mask
831 dryrun , & ! flag
832 'XYZ' , & ! MemoryOrder
833 'Z' , & ! Stagger
834 'west_east' , & ! Dimname 1
835 'south_north' , & ! Dimname 2
836 'bottom_top_stag' , & ! Dimname 3
837 'initial geopotential' , & ! Desc
838 'm2 s-2' , & ! Units
839 'inc/wrf_restartout.inc ext_write_field PH0 memorder XYZ' , & ! Debug message
840 ids , (ide-1) , jds , (jde-1) , kds , kde , &
841 ims , ime , jms , jme , kms , kme , &
842 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
843 ierr )
844 END IF
845 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
846 CALL wrf_ext_write_field ( &
847 fid , & ! DataHandle
848 current_date(1:19) , & ! DateStr
849 'PHP' , & ! Data Name
850 grid%em_php , & ! Field
851 WRF_FLOAT , & ! FieldType
852 grid%communicator , & ! Comm
853 grid%iocommunicator , & ! Comm
854 grid%domdesc , & ! Comm
855 grid%bdy_mask , & ! bdy_mask
856 dryrun , & ! flag
857 'XYZ' , & ! MemoryOrder
858 'Z' , & ! Stagger
859 'west_east' , & ! Dimname 1
860 'south_north' , & ! Dimname 2
861 'bottom_top_stag' , & ! Dimname 3
862 'geopotential' , & ! Desc
863 'm2 s-2' , & ! Units
864 'inc/wrf_restartout.inc ext_write_field PHP memorder XYZ' , & ! Debug message
865 ids , (ide-1) , jds , (jde-1) , kds , kde , &
866 ims , ime , jms , jme , kms , kme , &
867 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
868 ierr )
869 END IF
870 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
871 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
872 CALL wrf_ext_write_field ( &
873 fid , & ! DataHandle
874 current_date(1:19) , & ! DateStr
875 'A_PHP' , & ! Data Name
876 grid%em_a_php , & ! Field
877 WRF_FLOAT , & ! FieldType
878 grid%communicator , & ! Comm
879 grid%iocommunicator , & ! Comm
880 grid%domdesc , & ! Comm
881 grid%bdy_mask , & ! bdy_mask
882 dryrun , & ! flag
883 'XYZ' , & ! MemoryOrder
884 'Z' , & ! Stagger
885 'west_east' , & ! Dimname 1
886 'south_north' , & ! Dimname 2
887 'bottom_top_stag' , & ! Dimname 3
888 'geopotential' , & ! Desc
889 'm2 s-2' , & ! Units
890 'inc/wrf_restartout.inc ext_write_field A_PHP memorder XYZ' , & ! Debug message
891 ids , (ide-1) , jds , (jde-1) , kds , kde , &
892 ims , ime , jms , jme , kms , kme , &
893 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
894 ierr )
895 END IF
896 END IF
897 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
898 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
899 CALL wrf_ext_write_field ( &
900 fid , & ! DataHandle
901 current_date(1:19) , & ! DateStr
902 'G_PHP' , & ! Data Name
903 grid%em_g_php , & ! Field
904 WRF_FLOAT , & ! FieldType
905 grid%communicator , & ! Comm
906 grid%iocommunicator , & ! Comm
907 grid%domdesc , & ! Comm
908 grid%bdy_mask , & ! bdy_mask
909 dryrun , & ! flag
910 'XYZ' , & ! MemoryOrder
911 'Z' , & ! Stagger
912 'west_east' , & ! Dimname 1
913 'south_north' , & ! Dimname 2
914 'bottom_top_stag' , & ! Dimname 3
915 'geopotential' , & ! Desc
916 'm2 s-2' , & ! Units
917 'inc/wrf_restartout.inc ext_write_field G_PHP memorder XYZ' , & ! Debug message
918 ids , (ide-1) , jds , (jde-1) , kds , kde , &
919 ims , ime , jms , jme , kms , kme , &
920 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
921 ierr )
922 END IF
923 END IF
924 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
925 CALL wrf_ext_write_field ( &
926 fid , & ! DataHandle
927 current_date(1:19) , & ! DateStr
928 'T_1' , & ! Data Name
929 grid%em_t_1 , & ! Field
930 WRF_FLOAT , & ! FieldType
931 grid%communicator , & ! Comm
932 grid%iocommunicator , & ! Comm
933 grid%domdesc , & ! Comm
934 grid%bdy_mask , & ! bdy_mask
935 dryrun , & ! flag
936 'XYZ' , & ! MemoryOrder
937 '' , & ! Stagger
938 'west_east' , & ! Dimname 1
939 'south_north' , & ! Dimname 2
940 'bottom_top' , & ! Dimname 3
941 'perturbation potential temperature (theta-t0)' , & ! Desc
942 'K' , & ! Units
943 'inc/wrf_restartout.inc ext_write_field T_1 memorder XYZ' , & ! Debug message
944 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
945 ims , ime , jms , jme , kms , kme , &
946 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
947 ierr )
948 END IF
949 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
950 CALL wrf_ext_write_field ( &
951 fid , & ! DataHandle
952 current_date(1:19) , & ! DateStr
953 'T_2' , & ! Data Name
954 grid%em_t_2 , & ! Field
955 WRF_FLOAT , & ! FieldType
956 grid%communicator , & ! Comm
957 grid%iocommunicator , & ! Comm
958 grid%domdesc , & ! Comm
959 grid%bdy_mask , & ! bdy_mask
960 dryrun , & ! flag
961 'XYZ' , & ! MemoryOrder
962 '' , & ! Stagger
963 'west_east' , & ! Dimname 1
964 'south_north' , & ! Dimname 2
965 'bottom_top' , & ! Dimname 3
966 'perturbation potential temperature (theta-t0)' , & ! Desc
967 'K' , & ! Units
968 'inc/wrf_restartout.inc ext_write_field T_2 memorder XYZ' , & ! Debug message
969 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
970 ims , ime , jms , jme , kms , kme , &
971 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
972 ierr )
973 END IF
974 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
975 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
976 CALL wrf_ext_write_field ( &
977 fid , & ! DataHandle
978 current_date(1:19) , & ! DateStr
979 'A_T_1' , & ! Data Name
980 grid%em_a_t_1 , & ! Field
981 WRF_FLOAT , & ! FieldType
982 grid%communicator , & ! Comm
983 grid%iocommunicator , & ! Comm
984 grid%domdesc , & ! Comm
985 grid%bdy_mask , & ! bdy_mask
986 dryrun , & ! flag
987 'XYZ' , & ! MemoryOrder
988 '' , & ! Stagger
989 'west_east' , & ! Dimname 1
990 'south_north' , & ! Dimname 2
991 'bottom_top' , & ! Dimname 3
992 'perturbation potential temperature (theta-t0)' , & ! Desc
993 'K' , & ! Units
994 'inc/wrf_restartout.inc ext_write_field A_T_1 memorder XYZ' , & ! Debug message
995 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
996 ims , ime , jms , jme , kms , kme , &
997 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
998 ierr )
999 END IF
1000 END IF
1001 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1002 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1003 CALL wrf_ext_write_field ( &
1004 fid , & ! DataHandle
1005 current_date(1:19) , & ! DateStr
1006 'A_T_2' , & ! Data Name
1007 grid%em_a_t_2 , & ! Field
1008 WRF_FLOAT , & ! FieldType
1009 grid%communicator , & ! Comm
1010 grid%iocommunicator , & ! Comm
1011 grid%domdesc , & ! Comm
1012 grid%bdy_mask , & ! bdy_mask
1013 dryrun , & ! flag
1014 'XYZ' , & ! MemoryOrder
1015 '' , & ! Stagger
1016 'west_east' , & ! Dimname 1
1017 'south_north' , & ! Dimname 2
1018 'bottom_top' , & ! Dimname 3
1019 'perturbation potential temperature (theta-t0)' , & ! Desc
1020 'K' , & ! Units
1021 'inc/wrf_restartout.inc ext_write_field A_T_2 memorder XYZ' , & ! Debug message
1022 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1023 ims , ime , jms , jme , kms , kme , &
1024 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1025 ierr )
1026 END IF
1027 END IF
1028 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1029 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1030 CALL wrf_ext_write_field ( &
1031 fid , & ! DataHandle
1032 current_date(1:19) , & ! DateStr
1033 'G_T_1' , & ! Data Name
1034 grid%em_g_t_1 , & ! Field
1035 WRF_FLOAT , & ! FieldType
1036 grid%communicator , & ! Comm
1037 grid%iocommunicator , & ! Comm
1038 grid%domdesc , & ! Comm
1039 grid%bdy_mask , & ! bdy_mask
1040 dryrun , & ! flag
1041 'XYZ' , & ! MemoryOrder
1042 '' , & ! Stagger
1043 'west_east' , & ! Dimname 1
1044 'south_north' , & ! Dimname 2
1045 'bottom_top' , & ! Dimname 3
1046 'perturbation potential temperature (theta-t0)' , & ! Desc
1047 'K' , & ! Units
1048 'inc/wrf_restartout.inc ext_write_field G_T_1 memorder XYZ' , & ! Debug message
1049 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1050 ims , ime , jms , jme , kms , kme , &
1051 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1052 ierr )
1053 END IF
1054 END IF
1055 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1056 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1057 CALL wrf_ext_write_field ( &
1058 fid , & ! DataHandle
1059 current_date(1:19) , & ! DateStr
1060 'G_T_2' , & ! Data Name
1061 grid%em_g_t_2 , & ! Field
1062 WRF_FLOAT , & ! FieldType
1063 grid%communicator , & ! Comm
1064 grid%iocommunicator , & ! Comm
1065 grid%domdesc , & ! Comm
1066 grid%bdy_mask , & ! bdy_mask
1067 dryrun , & ! flag
1068 'XYZ' , & ! MemoryOrder
1069 '' , & ! Stagger
1070 'west_east' , & ! Dimname 1
1071 'south_north' , & ! Dimname 2
1072 'bottom_top' , & ! Dimname 3
1073 'perturbation potential temperature (theta-t0)' , & ! Desc
1074 'K' , & ! Units
1075 'inc/wrf_restartout.inc ext_write_field G_T_2 memorder XYZ' , & ! Debug message
1076 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1077 ims , ime , jms , jme , kms , kme , &
1078 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1079 ierr )
1080 END IF
1081 END IF
1082 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1083 CALL wrf_ext_write_field ( &
1084 fid , & ! DataHandle
1085 current_date(1:19) , & ! DateStr
1086 'T_INIT' , & ! Data Name
1087 grid%em_t_init , & ! Field
1088 WRF_FLOAT , & ! FieldType
1089 grid%communicator , & ! Comm
1090 grid%iocommunicator , & ! Comm
1091 grid%domdesc , & ! Comm
1092 grid%bdy_mask , & ! bdy_mask
1093 dryrun , & ! flag
1094 'XYZ' , & ! MemoryOrder
1095 '' , & ! Stagger
1096 'west_east' , & ! Dimname 1
1097 'south_north' , & ! Dimname 2
1098 'bottom_top' , & ! Dimname 3
1099 'initial potential temperature' , & ! Desc
1100 'K' , & ! Units
1101 'inc/wrf_restartout.inc ext_write_field T_INIT memorder XYZ' , & ! Debug message
1102 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1103 ims , ime , jms , jme , kms , kme , &
1104 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1105 ierr )
1106 END IF
1107 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1108 CALL wrf_ext_write_field ( &
1109 fid , & ! DataHandle
1110 current_date(1:19) , & ! DateStr
1111 'MU_1' , & ! Data Name
1112 grid%em_mu_1 , & ! Field
1113 WRF_FLOAT , & ! FieldType
1114 grid%communicator , & ! Comm
1115 grid%iocommunicator , & ! Comm
1116 grid%domdesc , & ! Comm
1117 grid%bdy_mask , & ! bdy_mask
1118 dryrun , & ! flag
1119 'XY' , & ! MemoryOrder
1120 '' , & ! Stagger
1121 'west_east' , & ! Dimname 1
1122 'south_north' , & ! Dimname 2
1123 '' , & ! Dimname 3
1124 'perturbation dry air mass in column' , & ! Desc
1125 'Pa' , & ! Units
1126 'inc/wrf_restartout.inc ext_write_field MU_1 memorder XY' , & ! Debug message
1127 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1128 ims , ime , jms , jme , 1 , 1 , &
1129 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1130 ierr )
1131 END IF
1132 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1133 CALL wrf_ext_write_field ( &
1134 fid , & ! DataHandle
1135 current_date(1:19) , & ! DateStr
1136 'MU_2' , & ! Data Name
1137 grid%em_mu_2 , & ! Field
1138 WRF_FLOAT , & ! FieldType
1139 grid%communicator , & ! Comm
1140 grid%iocommunicator , & ! Comm
1141 grid%domdesc , & ! Comm
1142 grid%bdy_mask , & ! bdy_mask
1143 dryrun , & ! flag
1144 'XY' , & ! MemoryOrder
1145 '' , & ! Stagger
1146 'west_east' , & ! Dimname 1
1147 'south_north' , & ! Dimname 2
1148 '' , & ! Dimname 3
1149 'perturbation dry air mass in column' , & ! Desc
1150 'Pa' , & ! Units
1151 'inc/wrf_restartout.inc ext_write_field MU_2 memorder XY' , & ! Debug message
1152 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1153 ims , ime , jms , jme , 1 , 1 , &
1154 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1155 ierr )
1156 END IF
1157 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1158 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1159 CALL wrf_ext_write_field ( &
1160 fid , & ! DataHandle
1161 current_date(1:19) , & ! DateStr
1162 'A_MU_1' , & ! Data Name
1163 grid%em_a_mu_1 , & ! Field
1164 WRF_FLOAT , & ! FieldType
1165 grid%communicator , & ! Comm
1166 grid%iocommunicator , & ! Comm
1167 grid%domdesc , & ! Comm
1168 grid%bdy_mask , & ! bdy_mask
1169 dryrun , & ! flag
1170 'XY' , & ! MemoryOrder
1171 '' , & ! Stagger
1172 'west_east' , & ! Dimname 1
1173 'south_north' , & ! Dimname 2
1174 '' , & ! Dimname 3
1175 'perturbation dry air mass in column' , & ! Desc
1176 'Pa' , & ! Units
1177 'inc/wrf_restartout.inc ext_write_field A_MU_1 memorder XY' , & ! Debug message
1178 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1179 ims , ime , jms , jme , 1 , 1 , &
1180 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1181 ierr )
1182 END IF
1183 END IF
1184 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1185 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1186 CALL wrf_ext_write_field ( &
1187 fid , & ! DataHandle
1188 current_date(1:19) , & ! DateStr
1189 'A_MU_2' , & ! Data Name
1190 grid%em_a_mu_2 , & ! Field
1191 WRF_FLOAT , & ! FieldType
1192 grid%communicator , & ! Comm
1193 grid%iocommunicator , & ! Comm
1194 grid%domdesc , & ! Comm
1195 grid%bdy_mask , & ! bdy_mask
1196 dryrun , & ! flag
1197 'XY' , & ! MemoryOrder
1198 '' , & ! Stagger
1199 'west_east' , & ! Dimname 1
1200 'south_north' , & ! Dimname 2
1201 '' , & ! Dimname 3
1202 'perturbation dry air mass in column' , & ! Desc
1203 'Pa' , & ! Units
1204 'inc/wrf_restartout.inc ext_write_field A_MU_2 memorder XY' , & ! Debug message
1205 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1206 ims , ime , jms , jme , 1 , 1 , &
1207 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1208 ierr )
1209 END IF
1210 END IF
1211 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1212 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1213 CALL wrf_ext_write_field ( &
1214 fid , & ! DataHandle
1215 current_date(1:19) , & ! DateStr
1216 'G_MU_1' , & ! Data Name
1217 grid%em_g_mu_1 , & ! Field
1218 WRF_FLOAT , & ! FieldType
1219 grid%communicator , & ! Comm
1220 grid%iocommunicator , & ! Comm
1221 grid%domdesc , & ! Comm
1222 grid%bdy_mask , & ! bdy_mask
1223 dryrun , & ! flag
1224 'XY' , & ! MemoryOrder
1225 '' , & ! Stagger
1226 'west_east' , & ! Dimname 1
1227 'south_north' , & ! Dimname 2
1228 '' , & ! Dimname 3
1229 'perturbation dry air mass in column' , & ! Desc
1230 'Pa' , & ! Units
1231 'inc/wrf_restartout.inc ext_write_field G_MU_1 memorder XY' , & ! Debug message
1232 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1233 ims , ime , jms , jme , 1 , 1 , &
1234 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1235 ierr )
1236 END IF
1237 END IF
1238 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1239 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1240 CALL wrf_ext_write_field ( &
1241 fid , & ! DataHandle
1242 current_date(1:19) , & ! DateStr
1243 'G_MU_2' , & ! Data Name
1244 grid%em_g_mu_2 , & ! Field
1245 WRF_FLOAT , & ! FieldType
1246 grid%communicator , & ! Comm
1247 grid%iocommunicator , & ! Comm
1248 grid%domdesc , & ! Comm
1249 grid%bdy_mask , & ! bdy_mask
1250 dryrun , & ! flag
1251 'XY' , & ! MemoryOrder
1252 '' , & ! Stagger
1253 'west_east' , & ! Dimname 1
1254 'south_north' , & ! Dimname 2
1255 '' , & ! Dimname 3
1256 'perturbation dry air mass in column' , & ! Desc
1257 'Pa' , & ! Units
1258 'inc/wrf_restartout.inc ext_write_field G_MU_2 memorder XY' , & ! Debug message
1259 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1260 ims , ime , jms , jme , 1 , 1 , &
1261 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1262 ierr )
1263 END IF
1264 END IF
1265 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1266 CALL wrf_ext_write_field ( &
1267 fid , & ! DataHandle
1268 current_date(1:19) , & ! DateStr
1269 'MUB' , & ! Data Name
1270 grid%em_mub , & ! Field
1271 WRF_FLOAT , & ! FieldType
1272 grid%communicator , & ! Comm
1273 grid%iocommunicator , & ! Comm
1274 grid%domdesc , & ! Comm
1275 grid%bdy_mask , & ! bdy_mask
1276 dryrun , & ! flag
1277 'XY' , & ! MemoryOrder
1278 '' , & ! Stagger
1279 'west_east' , & ! Dimname 1
1280 'south_north' , & ! Dimname 2
1281 '' , & ! Dimname 3
1282 'base state dry air mass in column' , & ! Desc
1283 'Pa' , & ! Units
1284 'inc/wrf_restartout.inc ext_write_field MUB memorder XY' , & ! Debug message
1285 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1286 ims , ime , jms , jme , 1 , 1 , &
1287 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1288 ierr )
1289 END IF
1290 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1291 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1292 CALL wrf_ext_write_field ( &
1293 fid , & ! DataHandle
1294 current_date(1:19) , & ! DateStr
1295 'A_MUB' , & ! Data Name
1296 grid%em_a_mub , & ! Field
1297 WRF_FLOAT , & ! FieldType
1298 grid%communicator , & ! Comm
1299 grid%iocommunicator , & ! Comm
1300 grid%domdesc , & ! Comm
1301 grid%bdy_mask , & ! bdy_mask
1302 dryrun , & ! flag
1303 'XY' , & ! MemoryOrder
1304 '' , & ! Stagger
1305 'west_east' , & ! Dimname 1
1306 'south_north' , & ! Dimname 2
1307 '' , & ! Dimname 3
1308 'base state dry air mass in column' , & ! Desc
1309 'Pa' , & ! Units
1310 'inc/wrf_restartout.inc ext_write_field A_MUB memorder XY' , & ! Debug message
1311 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1312 ims , ime , jms , jme , 1 , 1 , &
1313 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1314 ierr )
1315 END IF
1316 END IF
1317 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1318 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1319 CALL wrf_ext_write_field ( &
1320 fid , & ! DataHandle
1321 current_date(1:19) , & ! DateStr
1322 'G_MUB' , & ! Data Name
1323 grid%em_g_mub , & ! Field
1324 WRF_FLOAT , & ! FieldType
1325 grid%communicator , & ! Comm
1326 grid%iocommunicator , & ! Comm
1327 grid%domdesc , & ! Comm
1328 grid%bdy_mask , & ! bdy_mask
1329 dryrun , & ! flag
1330 'XY' , & ! MemoryOrder
1331 '' , & ! Stagger
1332 'west_east' , & ! Dimname 1
1333 'south_north' , & ! Dimname 2
1334 '' , & ! Dimname 3
1335 'base state dry air mass in column' , & ! Desc
1336 'Pa' , & ! Units
1337 'inc/wrf_restartout.inc ext_write_field G_MUB memorder XY' , & ! Debug message
1338 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1339 ims , ime , jms , jme , 1 , 1 , &
1340 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1341 ierr )
1342 END IF
1343 END IF
1344 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1345 CALL wrf_ext_write_field ( &
1346 fid , & ! DataHandle
1347 current_date(1:19) , & ! DateStr
1348 'MU0' , & ! Data Name
1349 grid%em_mu0 , & ! Field
1350 WRF_FLOAT , & ! FieldType
1351 grid%communicator , & ! Comm
1352 grid%iocommunicator , & ! Comm
1353 grid%domdesc , & ! Comm
1354 grid%bdy_mask , & ! bdy_mask
1355 dryrun , & ! flag
1356 'XY' , & ! MemoryOrder
1357 '' , & ! Stagger
1358 'west_east' , & ! Dimname 1
1359 'south_north' , & ! Dimname 2
1360 '' , & ! Dimname 3
1361 'initial dry mass in column' , & ! Desc
1362 'Pa' , & ! Units
1363 'inc/wrf_restartout.inc ext_write_field MU0 memorder XY' , & ! Debug message
1364 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1365 ims , ime , jms , jme , 1 , 1 , &
1366 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1367 ierr )
1368 END IF
1369 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1370 CALL wrf_ext_write_field ( &
1371 fid , & ! DataHandle
1372 current_date(1:19) , & ! DateStr
1373 'TKE_1' , & ! Data Name
1374 grid%em_tke_1 , & ! 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 'TURBULENCE KINETIC ENERGY' , & ! Desc
1387 'm2 s-2' , & ! Units
1388 'inc/wrf_restartout.inc ext_write_field TKE_1 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 END IF
1394 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1395 CALL wrf_ext_write_field ( &
1396 fid , & ! DataHandle
1397 current_date(1:19) , & ! DateStr
1398 'TKE_2' , & ! Data Name
1399 grid%em_tke_2 , & ! Field
1400 WRF_FLOAT , & ! FieldType
1401 grid%communicator , & ! Comm
1402 grid%iocommunicator , & ! Comm
1403 grid%domdesc , & ! Comm
1404 grid%bdy_mask , & ! bdy_mask
1405 dryrun , & ! flag
1406 'XYZ' , & ! MemoryOrder
1407 '' , & ! Stagger
1408 'west_east' , & ! Dimname 1
1409 'south_north' , & ! Dimname 2
1410 'bottom_top' , & ! Dimname 3
1411 'TURBULENCE KINETIC ENERGY' , & ! Desc
1412 'm2 s-2' , & ! Units
1413 'inc/wrf_restartout.inc ext_write_field TKE_2 memorder XYZ' , & ! Debug message
1414 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1415 ims , ime , jms , jme , kms , kme , &
1416 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1417 ierr )
1418 END IF
1419 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1420 CALL wrf_ext_write_field ( &
1421 fid , & ! DataHandle
1422 current_date(1:19) , & ! DateStr
1423 'P' , & ! Data Name
1424 grid%em_p , & ! Field
1425 WRF_FLOAT , & ! FieldType
1426 grid%communicator , & ! Comm
1427 grid%iocommunicator , & ! Comm
1428 grid%domdesc , & ! Comm
1429 grid%bdy_mask , & ! bdy_mask
1430 dryrun , & ! flag
1431 'XYZ' , & ! MemoryOrder
1432 '' , & ! Stagger
1433 'west_east' , & ! Dimname 1
1434 'south_north' , & ! Dimname 2
1435 'bottom_top' , & ! Dimname 3
1436 'perturbation pressure' , & ! Desc
1437 'Pa' , & ! Units
1438 'inc/wrf_restartout.inc ext_write_field P memorder XYZ' , & ! Debug message
1439 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1440 ims , ime , jms , jme , kms , kme , &
1441 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1442 ierr )
1443 END IF
1444 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1445 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1446 CALL wrf_ext_write_field ( &
1447 fid , & ! DataHandle
1448 current_date(1:19) , & ! DateStr
1449 'A_P' , & ! Data Name
1450 grid%em_a_p , & ! Field
1451 WRF_FLOAT , & ! FieldType
1452 grid%communicator , & ! Comm
1453 grid%iocommunicator , & ! Comm
1454 grid%domdesc , & ! Comm
1455 grid%bdy_mask , & ! bdy_mask
1456 dryrun , & ! flag
1457 'XYZ' , & ! MemoryOrder
1458 '' , & ! Stagger
1459 'west_east' , & ! Dimname 1
1460 'south_north' , & ! Dimname 2
1461 'bottom_top' , & ! Dimname 3
1462 'perturbation pressure' , & ! Desc
1463 'Pa' , & ! Units
1464 'inc/wrf_restartout.inc ext_write_field A_P memorder XYZ' , & ! Debug message
1465 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1466 ims , ime , jms , jme , kms , kme , &
1467 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1468 ierr )
1469 END IF
1470 END IF
1471 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1472 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1473 CALL wrf_ext_write_field ( &
1474 fid , & ! DataHandle
1475 current_date(1:19) , & ! DateStr
1476 'G_P' , & ! Data Name
1477 grid%em_g_p , & ! Field
1478 WRF_FLOAT , & ! FieldType
1479 grid%communicator , & ! Comm
1480 grid%iocommunicator , & ! Comm
1481 grid%domdesc , & ! Comm
1482 grid%bdy_mask , & ! bdy_mask
1483 dryrun , & ! flag
1484 'XYZ' , & ! MemoryOrder
1485 '' , & ! Stagger
1486 'west_east' , & ! Dimname 1
1487 'south_north' , & ! Dimname 2
1488 'bottom_top' , & ! Dimname 3
1489 'perturbation pressure' , & ! Desc
1490 'Pa' , & ! Units
1491 'inc/wrf_restartout.inc ext_write_field G_P memorder XYZ' , & ! Debug message
1492 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1493 ims , ime , jms , jme , kms , kme , &
1494 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1495 ierr )
1496 END IF
1497 END IF
1498 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1499 CALL wrf_ext_write_field ( &
1500 fid , & ! DataHandle
1501 current_date(1:19) , & ! DateStr
1502 'AL' , & ! Data Name
1503 grid%em_al , & ! Field
1504 WRF_FLOAT , & ! FieldType
1505 grid%communicator , & ! Comm
1506 grid%iocommunicator , & ! Comm
1507 grid%domdesc , & ! Comm
1508 grid%bdy_mask , & ! bdy_mask
1509 dryrun , & ! flag
1510 'XYZ' , & ! MemoryOrder
1511 '' , & ! Stagger
1512 'west_east' , & ! Dimname 1
1513 'south_north' , & ! Dimname 2
1514 'bottom_top' , & ! Dimname 3
1515 'inverse perturbation density' , & ! Desc
1516 'm3 kg-1' , & ! Units
1517 'inc/wrf_restartout.inc ext_write_field AL memorder XYZ' , & ! Debug message
1518 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1519 ims , ime , jms , jme , kms , kme , &
1520 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1521 ierr )
1522 END IF
1523 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1524 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1525 CALL wrf_ext_write_field ( &
1526 fid , & ! DataHandle
1527 current_date(1:19) , & ! DateStr
1528 'A_AL' , & ! Data Name
1529 grid%em_a_al , & ! Field
1530 WRF_FLOAT , & ! FieldType
1531 grid%communicator , & ! Comm
1532 grid%iocommunicator , & ! Comm
1533 grid%domdesc , & ! Comm
1534 grid%bdy_mask , & ! bdy_mask
1535 dryrun , & ! flag
1536 'XYZ' , & ! MemoryOrder
1537 '' , & ! Stagger
1538 'west_east' , & ! Dimname 1
1539 'south_north' , & ! Dimname 2
1540 'bottom_top' , & ! Dimname 3
1541 'inverse perturbation density' , & ! Desc
1542 'm3 kg-1' , & ! Units
1543 'inc/wrf_restartout.inc ext_write_field A_AL memorder XYZ' , & ! Debug message
1544 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1545 ims , ime , jms , jme , kms , kme , &
1546 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1547 ierr )
1548 END IF
1549 END IF
1550 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1551 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1552 CALL wrf_ext_write_field ( &
1553 fid , & ! DataHandle
1554 current_date(1:19) , & ! DateStr
1555 'G_AL' , & ! Data Name
1556 grid%em_g_al , & ! Field
1557 WRF_FLOAT , & ! FieldType
1558 grid%communicator , & ! Comm
1559 grid%iocommunicator , & ! Comm
1560 grid%domdesc , & ! Comm
1561 grid%bdy_mask , & ! bdy_mask
1562 dryrun , & ! flag
1563 'XYZ' , & ! MemoryOrder
1564 '' , & ! Stagger
1565 'west_east' , & ! Dimname 1
1566 'south_north' , & ! Dimname 2
1567 'bottom_top' , & ! Dimname 3
1568 'inverse perturbation density' , & ! Desc
1569 'm3 kg-1' , & ! Units
1570 'inc/wrf_restartout.inc ext_write_field G_AL memorder XYZ' , & ! Debug message
1571 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1572 ims , ime , jms , jme , kms , kme , &
1573 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1574 ierr )
1575 END IF
1576 END IF
1577 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1578 CALL wrf_ext_write_field ( &
1579 fid , & ! DataHandle
1580 current_date(1:19) , & ! DateStr
1581 'ALT' , & ! Data Name
1582 grid%em_alt , & ! Field
1583 WRF_FLOAT , & ! FieldType
1584 grid%communicator , & ! Comm
1585 grid%iocommunicator , & ! Comm
1586 grid%domdesc , & ! Comm
1587 grid%bdy_mask , & ! bdy_mask
1588 dryrun , & ! flag
1589 'XYZ' , & ! MemoryOrder
1590 '' , & ! Stagger
1591 'west_east' , & ! Dimname 1
1592 'south_north' , & ! Dimname 2
1593 'bottom_top' , & ! Dimname 3
1594 'inverse density' , & ! Desc
1595 'm3 kg-1' , & ! Units
1596 'inc/wrf_restartout.inc ext_write_field ALT memorder XYZ' , & ! Debug message
1597 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1598 ims , ime , jms , jme , kms , kme , &
1599 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1600 ierr )
1601 END IF
1602 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1603 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1604 CALL wrf_ext_write_field ( &
1605 fid , & ! DataHandle
1606 current_date(1:19) , & ! DateStr
1607 'A_ALT' , & ! Data Name
1608 grid%em_a_alt , & ! Field
1609 WRF_FLOAT , & ! FieldType
1610 grid%communicator , & ! Comm
1611 grid%iocommunicator , & ! Comm
1612 grid%domdesc , & ! Comm
1613 grid%bdy_mask , & ! bdy_mask
1614 dryrun , & ! flag
1615 'XYZ' , & ! MemoryOrder
1616 '' , & ! Stagger
1617 'west_east' , & ! Dimname 1
1618 'south_north' , & ! Dimname 2
1619 'bottom_top' , & ! Dimname 3
1620 'inverse density' , & ! Desc
1621 'm3 kg-1' , & ! Units
1622 'inc/wrf_restartout.inc ext_write_field A_ALT memorder XYZ' , & ! Debug message
1623 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1624 ims , ime , jms , jme , kms , kme , &
1625 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1626 ierr )
1627 END IF
1628 END IF
1629 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1630 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1631 CALL wrf_ext_write_field ( &
1632 fid , & ! DataHandle
1633 current_date(1:19) , & ! DateStr
1634 'G_ALT' , & ! Data Name
1635 grid%em_g_alt , & ! Field
1636 WRF_FLOAT , & ! FieldType
1637 grid%communicator , & ! Comm
1638 grid%iocommunicator , & ! Comm
1639 grid%domdesc , & ! Comm
1640 grid%bdy_mask , & ! bdy_mask
1641 dryrun , & ! flag
1642 'XYZ' , & ! MemoryOrder
1643 '' , & ! Stagger
1644 'west_east' , & ! Dimname 1
1645 'south_north' , & ! Dimname 2
1646 'bottom_top' , & ! Dimname 3
1647 'inverse density' , & ! Desc
1648 'm3 kg-1' , & ! Units
1649 'inc/wrf_restartout.inc ext_write_field G_ALT memorder XYZ' , & ! Debug message
1650 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1651 ims , ime , jms , jme , kms , kme , &
1652 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1653 ierr )
1654 END IF
1655 END IF
1656 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1657 CALL wrf_ext_write_field ( &
1658 fid , & ! DataHandle
1659 current_date(1:19) , & ! DateStr
1660 'ALB' , & ! Data Name
1661 grid%em_alb , & ! Field
1662 WRF_FLOAT , & ! FieldType
1663 grid%communicator , & ! Comm
1664 grid%iocommunicator , & ! Comm
1665 grid%domdesc , & ! Comm
1666 grid%bdy_mask , & ! bdy_mask
1667 dryrun , & ! flag
1668 'XYZ' , & ! MemoryOrder
1669 '' , & ! Stagger
1670 'west_east' , & ! Dimname 1
1671 'south_north' , & ! Dimname 2
1672 'bottom_top' , & ! Dimname 3
1673 'inverse base density' , & ! Desc
1674 'm3 kg-1' , & ! Units
1675 'inc/wrf_restartout.inc ext_write_field ALB memorder XYZ' , & ! Debug message
1676 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1677 ims , ime , jms , jme , kms , kme , &
1678 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1679 ierr )
1680 END IF
1681 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1682 CALL wrf_ext_write_field ( &
1683 fid , & ! DataHandle
1684 current_date(1:19) , & ! DateStr
1685 'PB' , & ! Data Name
1686 grid%em_pb , & ! Field
1687 WRF_FLOAT , & ! FieldType
1688 grid%communicator , & ! Comm
1689 grid%iocommunicator , & ! Comm
1690 grid%domdesc , & ! Comm
1691 grid%bdy_mask , & ! bdy_mask
1692 dryrun , & ! flag
1693 'XYZ' , & ! MemoryOrder
1694 '' , & ! Stagger
1695 'west_east' , & ! Dimname 1
1696 'south_north' , & ! Dimname 2
1697 'bottom_top' , & ! Dimname 3
1698 'BASE STATE PRESSURE ' , & ! Desc
1699 'Pa' , & ! Units
1700 'inc/wrf_restartout.inc ext_write_field PB memorder XYZ' , & ! Debug message
1701 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1702 ims , ime , jms , jme , kms , kme , &
1703 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1704 ierr )
1705 END IF
1706 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1707 CALL wrf_ext_write_field ( &
1708 fid , & ! DataHandle
1709 current_date(1:19) , & ! DateStr
1710 'SR' , & ! Data Name
1711 grid%em_sr , & ! Field
1712 WRF_FLOAT , & ! FieldType
1713 grid%communicator , & ! Comm
1714 grid%iocommunicator , & ! Comm
1715 grid%domdesc , & ! Comm
1716 grid%bdy_mask , & ! bdy_mask
1717 dryrun , & ! flag
1718 'XY' , & ! MemoryOrder
1719 '' , & ! Stagger
1720 'west_east' , & ! Dimname 1
1721 'south_north' , & ! Dimname 2
1722 '' , & ! Dimname 3
1723 'fraction of frozen precipitation' , & ! Desc
1724 '-' , & ! Units
1725 'inc/wrf_restartout.inc ext_write_field SR memorder XY' , & ! Debug message
1726 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1727 ims , ime , jms , jme , 1 , 1 , &
1728 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1729 ierr )
1730 END IF
1731 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1732 CALL wrf_ext_write_field ( &
1733 fid , & ! DataHandle
1734 current_date(1:19) , & ! DateStr
1735 'FNM' , & ! Data Name
1736 grid%em_fnm , & ! Field
1737 WRF_FLOAT , & ! FieldType
1738 grid%communicator , & ! Comm
1739 grid%iocommunicator , & ! Comm
1740 grid%domdesc , & ! Comm
1741 grid%bdy_mask , & ! bdy_mask
1742 dryrun , & ! flag
1743 'Z' , & ! MemoryOrder
1744 '' , & ! Stagger
1745 'bottom_top' , & ! Dimname 1
1746 '' , & ! Dimname 2
1747 '' , & ! Dimname 3
1748 'upper weight for vertical stretching' , & ! Desc
1749 '' , & ! Units
1750 'inc/wrf_restartout.inc ext_write_field FNM memorder Z' , & ! Debug message
1751 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1752 kms , kme , 1 , 1 , 1 , 1 , &
1753 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1754 ierr )
1755 END IF
1756 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1757 CALL wrf_ext_write_field ( &
1758 fid , & ! DataHandle
1759 current_date(1:19) , & ! DateStr
1760 'FNP' , & ! Data Name
1761 grid%em_fnp , & ! Field
1762 WRF_FLOAT , & ! FieldType
1763 grid%communicator , & ! Comm
1764 grid%iocommunicator , & ! Comm
1765 grid%domdesc , & ! Comm
1766 grid%bdy_mask , & ! bdy_mask
1767 dryrun , & ! flag
1768 'Z' , & ! MemoryOrder
1769 '' , & ! Stagger
1770 'bottom_top' , & ! Dimname 1
1771 '' , & ! Dimname 2
1772 '' , & ! Dimname 3
1773 'lower weight for vertical stretching' , & ! Desc
1774 '' , & ! Units
1775 'inc/wrf_restartout.inc ext_write_field FNP memorder Z' , & ! Debug message
1776 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1777 kms , kme , 1 , 1 , 1 , 1 , &
1778 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1779 ierr )
1780 END IF
1781 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1782 CALL wrf_ext_write_field ( &
1783 fid , & ! DataHandle
1784 current_date(1:19) , & ! DateStr
1785 'RDNW' , & ! Data Name
1786 grid%em_rdnw , & ! Field
1787 WRF_FLOAT , & ! FieldType
1788 grid%communicator , & ! Comm
1789 grid%iocommunicator , & ! Comm
1790 grid%domdesc , & ! Comm
1791 grid%bdy_mask , & ! bdy_mask
1792 dryrun , & ! flag
1793 'Z' , & ! MemoryOrder
1794 '' , & ! Stagger
1795 'bottom_top' , & ! Dimname 1
1796 '' , & ! Dimname 2
1797 '' , & ! Dimname 3
1798 'inverse d(eta) values between full (w) levels' , & ! Desc
1799 '' , & ! Units
1800 'inc/wrf_restartout.inc ext_write_field RDNW memorder Z' , & ! Debug message
1801 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1802 kms , kme , 1 , 1 , 1 , 1 , &
1803 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1804 ierr )
1805 END IF
1806 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1807 CALL wrf_ext_write_field ( &
1808 fid , & ! DataHandle
1809 current_date(1:19) , & ! DateStr
1810 'RDN' , & ! Data Name
1811 grid%em_rdn , & ! Field
1812 WRF_FLOAT , & ! FieldType
1813 grid%communicator , & ! Comm
1814 grid%iocommunicator , & ! Comm
1815 grid%domdesc , & ! Comm
1816 grid%bdy_mask , & ! bdy_mask
1817 dryrun , & ! flag
1818 'Z' , & ! MemoryOrder
1819 '' , & ! Stagger
1820 'bottom_top' , & ! Dimname 1
1821 '' , & ! Dimname 2
1822 '' , & ! Dimname 3
1823 'inverse d(eta) values between half (mass) levels' , & ! Desc
1824 '' , & ! Units
1825 'inc/wrf_restartout.inc ext_write_field RDN memorder Z' , & ! Debug message
1826 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1827 kms , kme , 1 , 1 , 1 , 1 , &
1828 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1829 ierr )
1830 END IF
1831 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1832 CALL wrf_ext_write_field ( &
1833 fid , & ! DataHandle
1834 current_date(1:19) , & ! DateStr
1835 'DNW' , & ! Data Name
1836 grid%em_dnw , & ! Field
1837 WRF_FLOAT , & ! FieldType
1838 grid%communicator , & ! Comm
1839 grid%iocommunicator , & ! Comm
1840 grid%domdesc , & ! Comm
1841 grid%bdy_mask , & ! bdy_mask
1842 dryrun , & ! flag
1843 'Z' , & ! MemoryOrder
1844 '' , & ! Stagger
1845 'bottom_top' , & ! Dimname 1
1846 '' , & ! Dimname 2
1847 '' , & ! Dimname 3
1848 'd(eta) values between full (w) levels' , & ! Desc
1849 '' , & ! Units
1850 'inc/wrf_restartout.inc ext_write_field DNW memorder Z' , & ! Debug message
1851 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1852 kms , kme , 1 , 1 , 1 , 1 , &
1853 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1854 ierr )
1855 END IF
1856 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1857 CALL wrf_ext_write_field ( &
1858 fid , & ! DataHandle
1859 current_date(1:19) , & ! DateStr
1860 'DN ' , & ! Data Name
1861 grid%em_dn , & ! Field
1862 WRF_FLOAT , & ! FieldType
1863 grid%communicator , & ! Comm
1864 grid%iocommunicator , & ! Comm
1865 grid%domdesc , & ! Comm
1866 grid%bdy_mask , & ! bdy_mask
1867 dryrun , & ! flag
1868 'Z' , & ! MemoryOrder
1869 '' , & ! Stagger
1870 'bottom_top' , & ! Dimname 1
1871 '' , & ! Dimname 2
1872 '' , & ! Dimname 3
1873 'd(eta) values between half (mass) levels' , & ! Desc
1874 '' , & ! Units
1875 'inc/wrf_restartout.inc ext_write_field DN memorder Z' , & ! Debug message
1876 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1877 kms , kme , 1 , 1 , 1 , 1 , &
1878 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1879 ierr )
1880 END IF
1881 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1882 CALL wrf_ext_write_field ( &
1883 fid , & ! DataHandle
1884 current_date(1:19) , & ! DateStr
1885 'ZNU' , & ! Data Name
1886 grid%em_znu , & ! Field
1887 WRF_FLOAT , & ! FieldType
1888 grid%communicator , & ! Comm
1889 grid%iocommunicator , & ! Comm
1890 grid%domdesc , & ! Comm
1891 grid%bdy_mask , & ! bdy_mask
1892 dryrun , & ! flag
1893 'Z' , & ! MemoryOrder
1894 '' , & ! Stagger
1895 'bottom_top' , & ! Dimname 1
1896 '' , & ! Dimname 2
1897 '' , & ! Dimname 3
1898 'eta values on half (mass) levels' , & ! Desc
1899 '' , & ! Units
1900 'inc/wrf_restartout.inc ext_write_field ZNU memorder Z' , & ! Debug message
1901 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1902 kms , kme , 1 , 1 , 1 , 1 , &
1903 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1904 ierr )
1905 END IF
1906 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1907 CALL wrf_ext_write_field ( &
1908 fid , & ! DataHandle
1909 current_date(1:19) , & ! DateStr
1910 'ZNW' , & ! Data Name
1911 grid%em_znw , & ! Field
1912 WRF_FLOAT , & ! FieldType
1913 grid%communicator , & ! Comm
1914 grid%iocommunicator , & ! Comm
1915 grid%domdesc , & ! Comm
1916 grid%bdy_mask , & ! bdy_mask
1917 dryrun , & ! flag
1918 'Z' , & ! MemoryOrder
1919 'Z' , & ! Stagger
1920 'bottom_top_stag' , & ! Dimname 1
1921 '' , & ! Dimname 2
1922 '' , & ! Dimname 3
1923 'eta values on full (w) levels' , & ! Desc
1924 '' , & ! Units
1925 'inc/wrf_restartout.inc ext_write_field ZNW memorder Z' , & ! Debug message
1926 kds , kde , 1 , 1 , 1 , 1 , &
1927 kms , kme , 1 , 1 , 1 , 1 , &
1928 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
1929 ierr )
1930 END IF
1931 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1932 CALL wrf_ext_write_field ( &
1933 fid , & ! DataHandle
1934 current_date(1:19) , & ! DateStr
1935 'T_BASE' , & ! Data Name
1936 grid%em_t_base , & ! Field
1937 WRF_FLOAT , & ! FieldType
1938 grid%communicator , & ! Comm
1939 grid%iocommunicator , & ! Comm
1940 grid%domdesc , & ! Comm
1941 grid%bdy_mask , & ! bdy_mask
1942 dryrun , & ! flag
1943 'Z' , & ! MemoryOrder
1944 '' , & ! Stagger
1945 'bottom_top' , & ! Dimname 1
1946 '' , & ! Dimname 2
1947 '' , & ! Dimname 3
1948 'BASE STATET T IN IDEALIZED CASES' , & ! Desc
1949 'K' , & ! Units
1950 'inc/wrf_restartout.inc ext_write_field T_BASE memorder Z' , & ! Debug message
1951 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1952 kms , kme , 1 , 1 , 1 , 1 , &
1953 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1954 ierr )
1955 END IF
1956 CALL wrf_ext_write_field ( &
1957 fid , & ! DataHandle
1958 current_date(1:19) , & ! DateStr
1959 'CFN' , & ! Data Name
1960 grid%cfn , & ! Field
1961 WRF_FLOAT , & ! FieldType
1962 grid%communicator , & ! Comm
1963 grid%iocommunicator , & ! Comm
1964 grid%domdesc , & ! Comm
1965 grid%bdy_mask , & ! bdy_mask
1966 dryrun , & ! flag
1967 '0' , & ! MemoryOrder
1968 '' , & ! Stagger
1969 '' , & ! Dimname 1
1970 '' , & ! Dimname 2
1971 '' , & ! Dimname 3
1972 'extrapolation constant' , & ! Desc
1973 '' , & ! Units
1974 'inc/wrf_restartout.inc ext_write_field CFN memorder 0' , & ! Debug message
1975 1 , 1 , 1 , 1 , 1 , 1 , &
1976 1 , 1 , 1 , 1 , 1 , 1 , &
1977 1 , 1 , 1 , 1 , 1 , 1 , &
1978 ierr )
1979 CALL wrf_ext_write_field ( &
1980 fid , & ! DataHandle
1981 current_date(1:19) , & ! DateStr
1982 'CFN1' , & ! Data Name
1983 grid%cfn1 , & ! Field
1984 WRF_FLOAT , & ! FieldType
1985 grid%communicator , & ! Comm
1986 grid%iocommunicator , & ! Comm
1987 grid%domdesc , & ! Comm
1988 grid%bdy_mask , & ! bdy_mask
1989 dryrun , & ! flag
1990 '0' , & ! MemoryOrder
1991 '' , & ! Stagger
1992 '' , & ! Dimname 1
1993 '' , & ! Dimname 2
1994 '' , & ! Dimname 3
1995 'extrapolation constant' , & ! Desc
1996 '' , & ! Units
1997 'inc/wrf_restartout.inc ext_write_field CFN1 memorder 0' , & ! Debug message
1998 1 , 1 , 1 , 1 , 1 , 1 , &
1999 1 , 1 , 1 , 1 , 1 , 1 , &
2000 1 , 1 , 1 , 1 , 1 , 1 , &
2001 ierr )
2002 CALL wrf_ext_write_field ( &
2003 fid , & ! DataHandle
2004 current_date(1:19) , & ! DateStr
2005 'STEP_NUMBER' , & ! Data Name
2006 grid%step_number , & ! Field
2007 WRF_integer , & ! FieldType
2008 grid%communicator , & ! Comm
2009 grid%iocommunicator , & ! Comm
2010 grid%domdesc , & ! Comm
2011 grid%bdy_mask , & ! bdy_mask
2012 dryrun , & ! flag
2013 '0' , & ! MemoryOrder
2014 '' , & ! Stagger
2015 '' , & ! Dimname 1
2016 '' , & ! Dimname 2
2017 '' , & ! Dimname 3
2018 '' , & ! Desc
2019 '-' , & ! Units
2020 'inc/wrf_restartout.inc ext_write_field STEP_NUMBER memorder 0' , & ! Debug message
2021 1 , 1 , 1 , 1 , 1 , 1 , &
2022 1 , 1 , 1 , 1 , 1 , 1 , &
2023 1 , 1 , 1 , 1 , 1 , 1 , &
2024 ierr )
2025 CALL wrf_ext_write_field ( &
2026 fid , & ! DataHandle
2027 current_date(1:19) , & ! DateStr
2028 'A' , & ! Data Name
2029 grid%kma_a , & ! Field
2030 WRF_FLOAT , & ! FieldType
2031 grid%communicator , & ! Comm
2032 grid%iocommunicator , & ! Comm
2033 grid%domdesc , & ! Comm
2034 grid%bdy_mask , & ! bdy_mask
2035 dryrun , & ! flag
2036 'Z' , & ! MemoryOrder
2037 'Z' , & ! Stagger
2038 'bottom_top_stag' , & ! Dimname 1
2039 '' , & ! Dimname 2
2040 '' , & ! Dimname 3
2041 'KMA Constants A to convert surface presure to full level pressure' , & ! Desc
2042 'dimensionless' , & ! Units
2043 'inc/wrf_restartout.inc ext_write_field A memorder Z' , & ! Debug message
2044 kds , kde , 1 , 1 , 1 , 1 , &
2045 kms , kme , 1 , 1 , 1 , 1 , &
2046 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
2047 ierr )
2048 CALL wrf_ext_write_field ( &
2049 fid , & ! DataHandle
2050 current_date(1:19) , & ! DateStr
2051 'B' , & ! Data Name
2052 grid%kma_b , & ! Field
2053 WRF_FLOAT , & ! FieldType
2054 grid%communicator , & ! Comm
2055 grid%iocommunicator , & ! Comm
2056 grid%domdesc , & ! Comm
2057 grid%bdy_mask , & ! bdy_mask
2058 dryrun , & ! flag
2059 'Z' , & ! MemoryOrder
2060 'Z' , & ! Stagger
2061 'bottom_top_stag' , & ! Dimname 1
2062 '' , & ! Dimname 2
2063 '' , & ! Dimname 3
2064 'KMA Constants B to convert surface presure to full level pressure' , & ! Desc
2065 'dimensionless' , & ! Units
2066 'inc/wrf_restartout.inc ext_write_field B memorder Z' , & ! Debug message
2067 kds , kde , 1 , 1 , 1 , 1 , &
2068 kms , kme , 1 , 1 , 1 , 1 , &
2069 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
2070 ierr )
2071 CALL wrf_ext_write_field ( &
2072 fid , & ! DataHandle
2073 current_date(1:19) , & ! DateStr
2074 'Q2' , & ! Data Name
2075 grid%q2 , & ! Field
2076 WRF_FLOAT , & ! FieldType
2077 grid%communicator , & ! Comm
2078 grid%iocommunicator , & ! Comm
2079 grid%domdesc , & ! Comm
2080 grid%bdy_mask , & ! bdy_mask
2081 dryrun , & ! flag
2082 'XY' , & ! MemoryOrder
2083 '' , & ! Stagger
2084 'west_east' , & ! Dimname 1
2085 'south_north' , & ! Dimname 2
2086 '' , & ! Dimname 3
2087 'QV at 2 M' , & ! Desc
2088 'kg kg-1' , & ! Units
2089 'inc/wrf_restartout.inc ext_write_field Q2 memorder XY' , & ! Debug message
2090 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2091 ims , ime , jms , jme , 1 , 1 , &
2092 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2093 ierr )
2094 CALL wrf_ext_write_field ( &
2095 fid , & ! DataHandle
2096 current_date(1:19) , & ! DateStr
2097 'T2' , & ! Data Name
2098 grid%t2 , & ! Field
2099 WRF_FLOAT , & ! FieldType
2100 grid%communicator , & ! Comm
2101 grid%iocommunicator , & ! Comm
2102 grid%domdesc , & ! Comm
2103 grid%bdy_mask , & ! bdy_mask
2104 dryrun , & ! flag
2105 'XY' , & ! MemoryOrder
2106 '' , & ! Stagger
2107 'west_east' , & ! Dimname 1
2108 'south_north' , & ! Dimname 2
2109 '' , & ! Dimname 3
2110 'TEMP at 2 M' , & ! Desc
2111 'K' , & ! Units
2112 'inc/wrf_restartout.inc ext_write_field T2 memorder XY' , & ! Debug message
2113 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2114 ims , ime , jms , jme , 1 , 1 , &
2115 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2116 ierr )
2117 CALL wrf_ext_write_field ( &
2118 fid , & ! DataHandle
2119 current_date(1:19) , & ! DateStr
2120 'TH2' , & ! Data Name
2121 grid%th2 , & ! Field
2122 WRF_FLOAT , & ! FieldType
2123 grid%communicator , & ! Comm
2124 grid%iocommunicator , & ! Comm
2125 grid%domdesc , & ! Comm
2126 grid%bdy_mask , & ! bdy_mask
2127 dryrun , & ! flag
2128 'XY' , & ! MemoryOrder
2129 '' , & ! Stagger
2130 'west_east' , & ! Dimname 1
2131 'south_north' , & ! Dimname 2
2132 '' , & ! Dimname 3
2133 'POT TEMP at 2 M' , & ! Desc
2134 'K' , & ! Units
2135 'inc/wrf_restartout.inc ext_write_field TH2 memorder XY' , & ! Debug message
2136 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2137 ims , ime , jms , jme , 1 , 1 , &
2138 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2139 ierr )
2140 CALL wrf_ext_write_field ( &
2141 fid , & ! DataHandle
2142 current_date(1:19) , & ! DateStr
2143 'PSFC' , & ! Data Name
2144 grid%psfc , & ! Field
2145 WRF_FLOAT , & ! FieldType
2146 grid%communicator , & ! Comm
2147 grid%iocommunicator , & ! Comm
2148 grid%domdesc , & ! Comm
2149 grid%bdy_mask , & ! bdy_mask
2150 dryrun , & ! flag
2151 'XY' , & ! MemoryOrder
2152 '' , & ! Stagger
2153 'west_east' , & ! Dimname 1
2154 'south_north' , & ! Dimname 2
2155 '' , & ! Dimname 3
2156 'SFC PRESSURE' , & ! Desc
2157 'Pa' , & ! Units
2158 'inc/wrf_restartout.inc ext_write_field PSFC memorder XY' , & ! Debug message
2159 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2160 ims , ime , jms , jme , 1 , 1 , &
2161 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2162 ierr )
2163 CALL wrf_ext_write_field ( &
2164 fid , & ! DataHandle
2165 current_date(1:19) , & ! DateStr
2166 'U10' , & ! Data Name
2167 grid%u10 , & ! Field
2168 WRF_FLOAT , & ! FieldType
2169 grid%communicator , & ! Comm
2170 grid%iocommunicator , & ! Comm
2171 grid%domdesc , & ! Comm
2172 grid%bdy_mask , & ! bdy_mask
2173 dryrun , & ! flag
2174 'XY' , & ! MemoryOrder
2175 '' , & ! Stagger
2176 'west_east' , & ! Dimname 1
2177 'south_north' , & ! Dimname 2
2178 '' , & ! Dimname 3
2179 'U at 10 M' , & ! Desc
2180 'm s-1' , & ! Units
2181 'inc/wrf_restartout.inc ext_write_field U10 memorder XY' , & ! Debug message
2182 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2183 ims , ime , jms , jme , 1 , 1 , &
2184 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2185 ierr )
2186 CALL wrf_ext_write_field ( &
2187 fid , & ! DataHandle
2188 current_date(1:19) , & ! DateStr
2189 'V10' , & ! Data Name
2190 grid%v10 , & ! Field
2191 WRF_FLOAT , & ! FieldType
2192 grid%communicator , & ! Comm
2193 grid%iocommunicator , & ! Comm
2194 grid%domdesc , & ! Comm
2195 grid%bdy_mask , & ! bdy_mask
2196 dryrun , & ! flag
2197 'XY' , & ! MemoryOrder
2198 '' , & ! Stagger
2199 'west_east' , & ! Dimname 1
2200 'south_north' , & ! Dimname 2
2201 '' , & ! Dimname 3
2202 'V at 10 M' , & ! Desc
2203 'm s-1' , & ! Units
2204 'inc/wrf_restartout.inc ext_write_field V10 memorder XY' , & ! Debug message
2205 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2206 ims , ime , jms , jme , 1 , 1 , &
2207 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2208 ierr )
2209 CALL wrf_ext_write_field ( &
2210 fid , & ! DataHandle
2211 current_date(1:19) , & ! DateStr
2212 'URATX' , & ! Data Name
2213 grid%uratx , & ! Field
2214 WRF_FLOAT , & ! FieldType
2215 grid%communicator , & ! Comm
2216 grid%iocommunicator , & ! Comm
2217 grid%domdesc , & ! Comm
2218 grid%bdy_mask , & ! bdy_mask
2219 dryrun , & ! flag
2220 'XY' , & ! MemoryOrder
2221 '' , & ! Stagger
2222 'west_east' , & ! Dimname 1
2223 'south_north' , & ! Dimname 2
2224 '' , & ! Dimname 3
2225 'Ratio of U over U10 on mass points ' , & ! Desc
2226 'dimensionless' , & ! Units
2227 'inc/wrf_restartout.inc ext_write_field URATX memorder XY' , & ! Debug message
2228 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2229 ims , ime , jms , jme , 1 , 1 , &
2230 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2231 ierr )
2232 CALL wrf_ext_write_field ( &
2233 fid , & ! DataHandle
2234 current_date(1:19) , & ! DateStr
2235 'VRATX' , & ! Data Name
2236 grid%vratx , & ! Field
2237 WRF_FLOAT , & ! FieldType
2238 grid%communicator , & ! Comm
2239 grid%iocommunicator , & ! Comm
2240 grid%domdesc , & ! Comm
2241 grid%bdy_mask , & ! bdy_mask
2242 dryrun , & ! flag
2243 'XY' , & ! MemoryOrder
2244 '' , & ! Stagger
2245 'west_east' , & ! Dimname 1
2246 'south_north' , & ! Dimname 2
2247 '' , & ! Dimname 3
2248 'Ratio of V over V10 on mass points ' , & ! Desc
2249 'dimensionless' , & ! Units
2250 'inc/wrf_restartout.inc ext_write_field VRATX memorder XY' , & ! Debug message
2251 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2252 ims , ime , jms , jme , 1 , 1 , &
2253 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2254 ierr )
2255 CALL wrf_ext_write_field ( &
2256 fid , & ! DataHandle
2257 current_date(1:19) , & ! DateStr
2258 'TRATX' , & ! Data Name
2259 grid%tratx , & ! Field
2260 WRF_FLOAT , & ! FieldType
2261 grid%communicator , & ! Comm
2262 grid%iocommunicator , & ! Comm
2263 grid%domdesc , & ! Comm
2264 grid%bdy_mask , & ! bdy_mask
2265 dryrun , & ! flag
2266 'XY' , & ! MemoryOrder
2267 '' , & ! Stagger
2268 'west_east' , & ! Dimname 1
2269 'south_north' , & ! Dimname 2
2270 '' , & ! Dimname 3
2271 'Ratio of T over TH2 on mass points ' , & ! Desc
2272 'dimensionless' , & ! Units
2273 'inc/wrf_restartout.inc ext_write_field TRATX memorder XY' , & ! Debug message
2274 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2275 ims , ime , jms , jme , 1 , 1 , &
2276 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2277 ierr )
2278 CALL wrf_ext_write_field ( &
2279 fid , & ! DataHandle
2280 current_date(1:19) , & ! DateStr
2281 'RDX' , & ! Data Name
2282 grid%rdx , & ! Field
2283 WRF_FLOAT , & ! FieldType
2284 grid%communicator , & ! Comm
2285 grid%iocommunicator , & ! Comm
2286 grid%domdesc , & ! Comm
2287 grid%bdy_mask , & ! bdy_mask
2288 dryrun , & ! flag
2289 '0' , & ! MemoryOrder
2290 '' , & ! Stagger
2291 '' , & ! Dimname 1
2292 '' , & ! Dimname 2
2293 '' , & ! Dimname 3
2294 'INVERSE X GRID LENGTH' , & ! Desc
2295 '' , & ! Units
2296 'inc/wrf_restartout.inc ext_write_field RDX memorder 0' , & ! Debug message
2297 1 , 1 , 1 , 1 , 1 , 1 , &
2298 1 , 1 , 1 , 1 , 1 , 1 , &
2299 1 , 1 , 1 , 1 , 1 , 1 , &
2300 ierr )
2301 CALL wrf_ext_write_field ( &
2302 fid , & ! DataHandle
2303 current_date(1:19) , & ! DateStr
2304 'RDY' , & ! Data Name
2305 grid%rdy , & ! Field
2306 WRF_FLOAT , & ! FieldType
2307 grid%communicator , & ! Comm
2308 grid%iocommunicator , & ! Comm
2309 grid%domdesc , & ! Comm
2310 grid%bdy_mask , & ! bdy_mask
2311 dryrun , & ! flag
2312 '0' , & ! MemoryOrder
2313 '' , & ! Stagger
2314 '' , & ! Dimname 1
2315 '' , & ! Dimname 2
2316 '' , & ! Dimname 3
2317 'INVERSE Y GRID LENGTH' , & ! Desc
2318 '' , & ! Units
2319 'inc/wrf_restartout.inc ext_write_field RDY memorder 0' , & ! Debug message
2320 1 , 1 , 1 , 1 , 1 , 1 , &
2321 1 , 1 , 1 , 1 , 1 , 1 , &
2322 1 , 1 , 1 , 1 , 1 , 1 , &
2323 ierr )
2324 CALL wrf_ext_write_field ( &
2325 fid , & ! DataHandle
2326 current_date(1:19) , & ! DateStr
2327 'DTS' , & ! Data Name
2328 grid%dts , & ! Field
2329 WRF_FLOAT , & ! FieldType
2330 grid%communicator , & ! Comm
2331 grid%iocommunicator , & ! Comm
2332 grid%domdesc , & ! Comm
2333 grid%bdy_mask , & ! bdy_mask
2334 dryrun , & ! flag
2335 '0' , & ! MemoryOrder
2336 '' , & ! Stagger
2337 '' , & ! Dimname 1
2338 '' , & ! Dimname 2
2339 '' , & ! Dimname 3
2340 'SMALL TIMESTEP' , & ! Desc
2341 '' , & ! Units
2342 'inc/wrf_restartout.inc ext_write_field DTS memorder 0' , & ! Debug message
2343 1 , 1 , 1 , 1 , 1 , 1 , &
2344 1 , 1 , 1 , 1 , 1 , 1 , &
2345 1 , 1 , 1 , 1 , 1 , 1 , &
2346 ierr )
2347 CALL wrf_ext_write_field ( &
2348 fid , & ! DataHandle
2349 current_date(1:19) , & ! DateStr
2350 'DTSEPS' , & ! Data Name
2351 grid%dtseps , & ! Field
2352 WRF_FLOAT , & ! FieldType
2353 grid%communicator , & ! Comm
2354 grid%iocommunicator , & ! Comm
2355 grid%domdesc , & ! Comm
2356 grid%bdy_mask , & ! bdy_mask
2357 dryrun , & ! flag
2358 '0' , & ! MemoryOrder
2359 '' , & ! Stagger
2360 '' , & ! Dimname 1
2361 '' , & ! Dimname 2
2362 '' , & ! Dimname 3
2363 'TIME WEIGHT CONSTANT FOR SMALL STEPS' , & ! Desc
2364 '' , & ! Units
2365 'inc/wrf_restartout.inc ext_write_field DTSEPS memorder 0' , & ! Debug message
2366 1 , 1 , 1 , 1 , 1 , 1 , &
2367 1 , 1 , 1 , 1 , 1 , 1 , &
2368 1 , 1 , 1 , 1 , 1 , 1 , &
2369 ierr )
2370 CALL wrf_ext_write_field ( &
2371 fid , & ! DataHandle
2372 current_date(1:19) , & ! DateStr
2373 'RESM' , & ! Data Name
2374 grid%resm , & ! Field
2375 WRF_FLOAT , & ! FieldType
2376 grid%communicator , & ! Comm
2377 grid%iocommunicator , & ! Comm
2378 grid%domdesc , & ! Comm
2379 grid%bdy_mask , & ! bdy_mask
2380 dryrun , & ! flag
2381 '0' , & ! MemoryOrder
2382 '' , & ! Stagger
2383 '' , & ! Dimname 1
2384 '' , & ! Dimname 2
2385 '' , & ! Dimname 3
2386 'TIME WEIGHT CONSTANT FOR SMALL STEPS' , & ! Desc
2387 '' , & ! Units
2388 'inc/wrf_restartout.inc ext_write_field RESM memorder 0' , & ! Debug message
2389 1 , 1 , 1 , 1 , 1 , 1 , &
2390 1 , 1 , 1 , 1 , 1 , 1 , &
2391 1 , 1 , 1 , 1 , 1 , 1 , &
2392 ierr )
2393 CALL wrf_ext_write_field ( &
2394 fid , & ! DataHandle
2395 current_date(1:19) , & ! DateStr
2396 'ZETATOP' , & ! Data Name
2397 grid%zetatop , & ! Field
2398 WRF_FLOAT , & ! FieldType
2399 grid%communicator , & ! Comm
2400 grid%iocommunicator , & ! Comm
2401 grid%domdesc , & ! Comm
2402 grid%bdy_mask , & ! bdy_mask
2403 dryrun , & ! flag
2404 '0' , & ! MemoryOrder
2405 '' , & ! Stagger
2406 '' , & ! Dimname 1
2407 '' , & ! Dimname 2
2408 '' , & ! Dimname 3
2409 'ZETA AT MODEL TOP' , & ! Desc
2410 '' , & ! Units
2411 'inc/wrf_restartout.inc ext_write_field ZETATOP memorder 0' , & ! Debug message
2412 1 , 1 , 1 , 1 , 1 , 1 , &
2413 1 , 1 , 1 , 1 , 1 , 1 , &
2414 1 , 1 , 1 , 1 , 1 , 1 , &
2415 ierr )
2416 CALL wrf_ext_write_field ( &
2417 fid , & ! DataHandle
2418 current_date(1:19) , & ! DateStr
2419 'CF1' , & ! Data Name
2420 grid%cf1 , & ! Field
2421 WRF_FLOAT , & ! FieldType
2422 grid%communicator , & ! Comm
2423 grid%iocommunicator , & ! Comm
2424 grid%domdesc , & ! Comm
2425 grid%bdy_mask , & ! bdy_mask
2426 dryrun , & ! flag
2427 '0' , & ! MemoryOrder
2428 '' , & ! Stagger
2429 '' , & ! Dimname 1
2430 '' , & ! Dimname 2
2431 '' , & ! Dimname 3
2432 '2nd order extrapolation constant' , & ! Desc
2433 '' , & ! Units
2434 'inc/wrf_restartout.inc ext_write_field CF1 memorder 0' , & ! Debug message
2435 1 , 1 , 1 , 1 , 1 , 1 , &
2436 1 , 1 , 1 , 1 , 1 , 1 , &
2437 1 , 1 , 1 , 1 , 1 , 1 , &
2438 ierr )
2439 CALL wrf_ext_write_field ( &
2440 fid , & ! DataHandle
2441 current_date(1:19) , & ! DateStr
2442 'CF2' , & ! Data Name
2443 grid%cf2 , & ! Field
2444 WRF_FLOAT , & ! FieldType
2445 grid%communicator , & ! Comm
2446 grid%iocommunicator , & ! Comm
2447 grid%domdesc , & ! Comm
2448 grid%bdy_mask , & ! bdy_mask
2449 dryrun , & ! flag
2450 '0' , & ! MemoryOrder
2451 '' , & ! Stagger
2452 '' , & ! Dimname 1
2453 '' , & ! Dimname 2
2454 '' , & ! Dimname 3
2455 '2nd order extrapolation constant' , & ! Desc
2456 '' , & ! Units
2457 'inc/wrf_restartout.inc ext_write_field CF2 memorder 0' , & ! Debug message
2458 1 , 1 , 1 , 1 , 1 , 1 , &
2459 1 , 1 , 1 , 1 , 1 , 1 , &
2460 1 , 1 , 1 , 1 , 1 , 1 , &
2461 ierr )
2462 CALL wrf_ext_write_field ( &
2463 fid , & ! DataHandle
2464 current_date(1:19) , & ! DateStr
2465 'CF3' , & ! Data Name
2466 grid%cf3 , & ! Field
2467 WRF_FLOAT , & ! FieldType
2468 grid%communicator , & ! Comm
2469 grid%iocommunicator , & ! Comm
2470 grid%domdesc , & ! Comm
2471 grid%bdy_mask , & ! bdy_mask
2472 dryrun , & ! flag
2473 '0' , & ! MemoryOrder
2474 '' , & ! Stagger
2475 '' , & ! Dimname 1
2476 '' , & ! Dimname 2
2477 '' , & ! Dimname 3
2478 '2nd order extrapolation constant' , & ! Desc
2479 '' , & ! Units
2480 'inc/wrf_restartout.inc ext_write_field CF3 memorder 0' , & ! Debug message
2481 1 , 1 , 1 , 1 , 1 , 1 , &
2482 1 , 1 , 1 , 1 , 1 , 1 , &
2483 1 , 1 , 1 , 1 , 1 , 1 , &
2484 ierr )
2485 CALL wrf_ext_write_field ( &
2486 fid , & ! DataHandle
2487 current_date(1:19) , & ! DateStr
2488 'ITIMESTEP' , & ! Data Name
2489 grid%itimestep , & ! Field
2490 WRF_integer , & ! FieldType
2491 grid%communicator , & ! Comm
2492 grid%iocommunicator , & ! Comm
2493 grid%domdesc , & ! Comm
2494 grid%bdy_mask , & ! bdy_mask
2495 dryrun , & ! flag
2496 '0' , & ! MemoryOrder
2497 '' , & ! Stagger
2498 '' , & ! Dimname 1
2499 '' , & ! Dimname 2
2500 '' , & ! Dimname 3
2501 '' , & ! Desc
2502 '' , & ! Units
2503 'inc/wrf_restartout.inc ext_write_field ITIMESTEP memorder 0' , & ! Debug message
2504 1 , 1 , 1 , 1 , 1 , 1 , &
2505 1 , 1 , 1 , 1 , 1 , 1 , &
2506 1 , 1 , 1 , 1 , 1 , 1 , &
2507 ierr )
2508 CALL wrf_ext_write_field ( &
2509 fid , & ! DataHandle
2510 current_date(1:19) , & ! DateStr
2511 'XTIME' , & ! Data Name
2512 grid%xtime , & ! Field
2513 WRF_FLOAT , & ! FieldType
2514 grid%communicator , & ! Comm
2515 grid%iocommunicator , & ! Comm
2516 grid%domdesc , & ! Comm
2517 grid%bdy_mask , & ! bdy_mask
2518 dryrun , & ! flag
2519 '0' , & ! MemoryOrder
2520 '' , & ! Stagger
2521 '' , & ! Dimname 1
2522 '' , & ! Dimname 2
2523 '' , & ! Dimname 3
2524 'minutes since simulation start' , & ! Desc
2525 '' , & ! Units
2526 'inc/wrf_restartout.inc ext_write_field XTIME memorder 0' , & ! Debug message
2527 1 , 1 , 1 , 1 , 1 , 1 , &
2528 1 , 1 , 1 , 1 , 1 , 1 , &
2529 1 , 1 , 1 , 1 , 1 , 1 , &
2530 ierr )
2531 CALL wrf_ext_write_field ( &
2532 fid , & ! DataHandle
2533 current_date(1:19) , & ! DateStr
2534 'XI' , & ! Data Name
2535 grid%xi , & ! Field
2536 WRF_FLOAT , & ! FieldType
2537 grid%communicator , & ! Comm
2538 grid%iocommunicator , & ! Comm
2539 grid%domdesc , & ! Comm
2540 grid%bdy_mask , & ! bdy_mask
2541 dryrun , & ! flag
2542 '0' , & ! MemoryOrder
2543 '' , & ! Stagger
2544 '' , & ! Dimname 1
2545 '' , & ! Dimname 2
2546 '' , & ! Dimname 3
2547 '-' , & ! Desc
2548 '-' , & ! Units
2549 'inc/wrf_restartout.inc ext_write_field XI memorder 0' , & ! Debug message
2550 1 , 1 , 1 , 1 , 1 , 1 , &
2551 1 , 1 , 1 , 1 , 1 , 1 , &
2552 1 , 1 , 1 , 1 , 1 , 1 , &
2553 ierr )
2554 CALL wrf_ext_write_field ( &
2555 fid , & ! DataHandle
2556 current_date(1:19) , & ! DateStr
2557 'XJ' , & ! Data Name
2558 grid%xj , & ! Field
2559 WRF_FLOAT , & ! FieldType
2560 grid%communicator , & ! Comm
2561 grid%iocommunicator , & ! Comm
2562 grid%domdesc , & ! Comm
2563 grid%bdy_mask , & ! bdy_mask
2564 dryrun , & ! flag
2565 '0' , & ! MemoryOrder
2566 '' , & ! Stagger
2567 '' , & ! Dimname 1
2568 '' , & ! Dimname 2
2569 '' , & ! Dimname 3
2570 '-' , & ! Desc
2571 '-' , & ! Units
2572 'inc/wrf_restartout.inc ext_write_field XJ memorder 0' , & ! Debug message
2573 1 , 1 , 1 , 1 , 1 , 1 , &
2574 1 , 1 , 1 , 1 , 1 , 1 , &
2575 1 , 1 , 1 , 1 , 1 , 1 , &
2576 ierr )
2577 CALL wrf_ext_write_field ( &
2578 fid , & ! DataHandle
2579 current_date(1:19) , & ! DateStr
2580 'VC_I' , & ! Data Name
2581 grid%vc_i , & ! Field
2582 WRF_FLOAT , & ! FieldType
2583 grid%communicator , & ! Comm
2584 grid%iocommunicator , & ! Comm
2585 grid%domdesc , & ! Comm
2586 grid%bdy_mask , & ! bdy_mask
2587 dryrun , & ! flag
2588 '0' , & ! MemoryOrder
2589 '' , & ! Stagger
2590 '' , & ! Dimname 1
2591 '' , & ! Dimname 2
2592 '' , & ! Dimname 3
2593 '-' , & ! Desc
2594 '-' , & ! Units
2595 'inc/wrf_restartout.inc ext_write_field VC_I memorder 0' , & ! Debug message
2596 1 , 1 , 1 , 1 , 1 , 1 , &
2597 1 , 1 , 1 , 1 , 1 , 1 , &
2598 1 , 1 , 1 , 1 , 1 , 1 , &
2599 ierr )
2600 CALL wrf_ext_write_field ( &
2601 fid , & ! DataHandle
2602 current_date(1:19) , & ! DateStr
2603 'VC_J' , & ! Data Name
2604 grid%vc_j , & ! Field
2605 WRF_FLOAT , & ! FieldType
2606 grid%communicator , & ! Comm
2607 grid%iocommunicator , & ! Comm
2608 grid%domdesc , & ! Comm
2609 grid%bdy_mask , & ! bdy_mask
2610 dryrun , & ! flag
2611 '0' , & ! MemoryOrder
2612 '' , & ! Stagger
2613 '' , & ! Dimname 1
2614 '' , & ! Dimname 2
2615 '' , & ! Dimname 3
2616 '-' , & ! Desc
2617 '-' , & ! Units
2618 'inc/wrf_restartout.inc ext_write_field VC_J memorder 0' , & ! Debug message
2619 1 , 1 , 1 , 1 , 1 , 1 , &
2620 1 , 1 , 1 , 1 , 1 , 1 , &
2621 1 , 1 , 1 , 1 , 1 , 1 , &
2622 ierr )
2623 DO itrace = PARAM_FIRST_SCALAR , num_moist
2624 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
2625 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2626 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2627 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2628 CALL wrf_ext_write_field ( &
2629 fid , & ! DataHandle
2630 current_date(1:19) , & ! DateStr
2631 TRIM(moist_dname_table( grid%id, itrace )), & !data name
2632 grid%moist(ims,jms,kms,itrace) , & ! Field
2633 WRF_FLOAT , & ! FieldType
2634 grid%communicator , & ! Comm
2635 grid%iocommunicator , & ! Comm
2636 grid%domdesc , & ! Comm
2637 grid%bdy_mask , & ! bdy_mask
2638 dryrun , & ! flag
2639 'XYZ' , & ! MemoryOrder
2640 '' , & ! Stagger
2641 'west_east' , & ! Dimname 1
2642 'south_north' , & ! Dimname 2
2643 'bottom_top' , & ! Dimname 3
2644 moist_desc_table( grid%id, itrace ), & ! Desc
2645 moist_units_table( grid%id, itrace ), & ! Units
2646 'inc/wrf_restartout.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2647 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2648 ims , ime , jms , jme , kms , kme , &
2649 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2650 ierr )
2651 ENDIF
2652 ENDIF
2653 ENDDO
2654 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
2655 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
2656 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2657 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2658 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2659 CALL wrf_ext_write_field ( &
2660 fid , & ! DataHandle
2661 current_date(1:19) , & ! DateStr
2662 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
2663 grid%a_moist(ims,jms,kms,itrace) , & ! Field
2664 WRF_FLOAT , & ! FieldType
2665 grid%communicator , & ! Comm
2666 grid%iocommunicator , & ! Comm
2667 grid%domdesc , & ! Comm
2668 grid%bdy_mask , & ! bdy_mask
2669 dryrun , & ! flag
2670 'XYZ' , & ! MemoryOrder
2671 '' , & ! Stagger
2672 'west_east' , & ! Dimname 1
2673 'south_north' , & ! Dimname 2
2674 'bottom_top' , & ! Dimname 3
2675 a_moist_desc_table( grid%id, itrace ), & ! Desc
2676 a_moist_units_table( grid%id, itrace ), & ! Units
2677 'inc/wrf_restartout.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2678 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2679 ims , ime , jms , jme , kms , kme , &
2680 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2681 ierr )
2682 ENDIF
2683 ENDIF
2684 ENDDO
2685 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
2686 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
2687 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2688 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2689 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2690 CALL wrf_ext_write_field ( &
2691 fid , & ! DataHandle
2692 current_date(1:19) , & ! DateStr
2693 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
2694 grid%g_moist(ims,jms,kms,itrace) , & ! Field
2695 WRF_FLOAT , & ! FieldType
2696 grid%communicator , & ! Comm
2697 grid%iocommunicator , & ! Comm
2698 grid%domdesc , & ! Comm
2699 grid%bdy_mask , & ! bdy_mask
2700 dryrun , & ! flag
2701 'XYZ' , & ! MemoryOrder
2702 '' , & ! Stagger
2703 'west_east' , & ! Dimname 1
2704 'south_north' , & ! Dimname 2
2705 'bottom_top' , & ! Dimname 3
2706 g_moist_desc_table( grid%id, itrace ), & ! Desc
2707 g_moist_units_table( grid%id, itrace ), & ! Units
2708 'inc/wrf_restartout.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2709 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2710 ims , ime , jms , jme , kms , kme , &
2711 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2712 ierr )
2713 ENDIF
2714 ENDIF
2715 ENDDO
2716 DO itrace = PARAM_FIRST_SCALAR , num_scalar
2717 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
2718 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2719 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2720 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2721 CALL wrf_ext_write_field ( &
2722 fid , & ! DataHandle
2723 current_date(1:19) , & ! DateStr
2724 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
2725 grid%scalar(ims,jms,kms,itrace) , & ! Field
2726 WRF_FLOAT , & ! FieldType
2727 grid%communicator , & ! Comm
2728 grid%iocommunicator , & ! Comm
2729 grid%domdesc , & ! Comm
2730 grid%bdy_mask , & ! bdy_mask
2731 dryrun , & ! flag
2732 'XYZ' , & ! MemoryOrder
2733 '' , & ! Stagger
2734 'west_east' , & ! Dimname 1
2735 'south_north' , & ! Dimname 2
2736 'bottom_top' , & ! Dimname 3
2737 scalar_desc_table( grid%id, itrace ), & ! Desc
2738 scalar_units_table( grid%id, itrace ), & ! Units
2739 'inc/wrf_restartout.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2740 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2741 ims , ime , jms , jme , kms , kme , &
2742 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2743 ierr )
2744 ENDIF
2745 ENDIF
2746 ENDDO
2747 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
2748 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
2749 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2750 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2751 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2752 CALL wrf_ext_write_field ( &
2753 fid , & ! DataHandle
2754 current_date(1:19) , & ! DateStr
2755 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
2756 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
2757 WRF_FLOAT , & ! FieldType
2758 grid%communicator , & ! Comm
2759 grid%iocommunicator , & ! Comm
2760 grid%domdesc , & ! Comm
2761 grid%bdy_mask , & ! bdy_mask
2762 dryrun , & ! flag
2763 'XYZ' , & ! MemoryOrder
2764 '' , & ! Stagger
2765 'west_east' , & ! Dimname 1
2766 'south_north' , & ! Dimname 2
2767 'bottom_top' , & ! Dimname 3
2768 a_scalar_desc_table( grid%id, itrace ), & ! Desc
2769 a_scalar_units_table( grid%id, itrace ), & ! Units
2770 'inc/wrf_restartout.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2771 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2772 ims , ime , jms , jme , kms , kme , &
2773 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2774 ierr )
2775 ENDIF
2776 ENDIF
2777 ENDDO
2778 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
2779 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
2780 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2781 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2782 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2783 CALL wrf_ext_write_field ( &
2784 fid , & ! DataHandle
2785 current_date(1:19) , & ! DateStr
2786 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
2787 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
2788 WRF_FLOAT , & ! FieldType
2789 grid%communicator , & ! Comm
2790 grid%iocommunicator , & ! Comm
2791 grid%domdesc , & ! Comm
2792 grid%bdy_mask , & ! bdy_mask
2793 dryrun , & ! flag
2794 'XYZ' , & ! MemoryOrder
2795 '' , & ! Stagger
2796 'west_east' , & ! Dimname 1
2797 'south_north' , & ! Dimname 2
2798 'bottom_top' , & ! Dimname 3
2799 g_scalar_desc_table( grid%id, itrace ), & ! Desc
2800 g_scalar_units_table( grid%id, itrace ), & ! Units
2801 'inc/wrf_restartout.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2802 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2803 ims , ime , jms , jme , kms , kme , &
2804 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2805 ierr )
2806 ENDIF
2807 ENDIF
2808 ENDDO
2809 CALL wrf_ext_write_field ( &
2810 fid , & ! DataHandle
2811 current_date(1:19) , & ! DateStr
2812 'FCX' , & ! Data Name
2813 grid%fcx , & ! Field
2814 WRF_FLOAT , & ! FieldType
2815 grid%communicator , & ! Comm
2816 grid%iocommunicator , & ! Comm
2817 grid%domdesc , & ! Comm
2818 grid%bdy_mask , & ! bdy_mask
2819 dryrun , & ! flag
2820 'C' , & ! MemoryOrder
2821 '' , & ! Stagger
2822 '' , & ! Dimname 1
2823 '' , & ! Dimname 2
2824 '' , & ! Dimname 3
2825 'RELAXATION TERM FOR BOUNDARY ZONE' , & ! Desc
2826 '' , & ! Units
2827 'inc/wrf_restartout.inc ext_write_field FCX memorder C' , & ! Debug message
2828 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2829 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2830 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2831 ierr )
2832 CALL wrf_ext_write_field ( &
2833 fid , & ! DataHandle
2834 current_date(1:19) , & ! DateStr
2835 'GCX' , & ! Data Name
2836 grid%gcx , & ! Field
2837 WRF_FLOAT , & ! FieldType
2838 grid%communicator , & ! Comm
2839 grid%iocommunicator , & ! Comm
2840 grid%domdesc , & ! Comm
2841 grid%bdy_mask , & ! bdy_mask
2842 dryrun , & ! flag
2843 'C' , & ! MemoryOrder
2844 '' , & ! Stagger
2845 '' , & ! Dimname 1
2846 '' , & ! Dimname 2
2847 '' , & ! Dimname 3
2848 '2ND RELAXATION TERM FOR BOUNDARY ZONE' , & ! Desc
2849 '' , & ! Units
2850 'inc/wrf_restartout.inc ext_write_field GCX memorder C' , & ! Debug message
2851 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2852 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2853 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2854 ierr )
2855 CALL wrf_ext_write_field ( &
2856 fid , & ! DataHandle
2857 current_date(1:19) , & ! DateStr
2858 'DTBC' , & ! Data Name
2859 grid%dtbc , & ! Field
2860 WRF_FLOAT , & ! FieldType
2861 grid%communicator , & ! Comm
2862 grid%iocommunicator , & ! Comm
2863 grid%domdesc , & ! Comm
2864 grid%bdy_mask , & ! bdy_mask
2865 dryrun , & ! flag
2866 '0' , & ! MemoryOrder
2867 '' , & ! Stagger
2868 '' , & ! Dimname 1
2869 '' , & ! Dimname 2
2870 '' , & ! Dimname 3
2871 'TIME SINCE BOUNDARY READ' , & ! Desc
2872 '' , & ! Units
2873 'inc/wrf_restartout.inc ext_write_field DTBC memorder 0' , & ! Debug message
2874 1 , 1 , 1 , 1 , 1 , 1 , &
2875 1 , 1 , 1 , 1 , 1 , 1 , &
2876 1 , 1 , 1 , 1 , 1 , 1 , &
2877 ierr )
2878 CALL wrf_ext_write_field ( &
2879 fid , & ! DataHandle
2880 current_date(1:19) , & ! DateStr
2881 'LANDMASK' , & ! Data Name
2882 grid%landmask , & ! Field
2883 WRF_FLOAT , & ! FieldType
2884 grid%communicator , & ! Comm
2885 grid%iocommunicator , & ! Comm
2886 grid%domdesc , & ! Comm
2887 grid%bdy_mask , & ! bdy_mask
2888 dryrun , & ! flag
2889 'XY' , & ! MemoryOrder
2890 '' , & ! Stagger
2891 'west_east' , & ! Dimname 1
2892 'south_north' , & ! Dimname 2
2893 '' , & ! Dimname 3
2894 'LAND MASK (1 FOR LAND, 0 FOR WATER)' , & ! Desc
2895 '' , & ! Units
2896 'inc/wrf_restartout.inc ext_write_field LANDMASK memorder XY' , & ! Debug message
2897 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2898 ims , ime , jms , jme , 1 , 1 , &
2899 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2900 ierr )
2901 CALL wrf_ext_write_field ( &
2902 fid , & ! DataHandle
2903 current_date(1:19) , & ! DateStr
2904 'SHDMAX' , & ! Data Name
2905 grid%shdmax , & ! Field
2906 WRF_FLOAT , & ! FieldType
2907 grid%communicator , & ! Comm
2908 grid%iocommunicator , & ! Comm
2909 grid%domdesc , & ! Comm
2910 grid%bdy_mask , & ! bdy_mask
2911 dryrun , & ! flag
2912 'XY' , & ! MemoryOrder
2913 '' , & ! Stagger
2914 'west_east' , & ! Dimname 1
2915 'south_north' , & ! Dimname 2
2916 '' , & ! Dimname 3
2917 'ANNUAL MAX VEG FRACTION' , & ! Desc
2918 '' , & ! Units
2919 'inc/wrf_restartout.inc ext_write_field SHDMAX memorder XY' , & ! Debug message
2920 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2921 ims , ime , jms , jme , 1 , 1 , &
2922 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2923 ierr )
2924 CALL wrf_ext_write_field ( &
2925 fid , & ! DataHandle
2926 current_date(1:19) , & ! DateStr
2927 'SHDMIN' , & ! Data Name
2928 grid%shdmin , & ! Field
2929 WRF_FLOAT , & ! FieldType
2930 grid%communicator , & ! Comm
2931 grid%iocommunicator , & ! Comm
2932 grid%domdesc , & ! Comm
2933 grid%bdy_mask , & ! bdy_mask
2934 dryrun , & ! flag
2935 'XY' , & ! MemoryOrder
2936 '' , & ! Stagger
2937 'west_east' , & ! Dimname 1
2938 'south_north' , & ! Dimname 2
2939 '' , & ! Dimname 3
2940 'ANNUAL MIN VEG FRACTION' , & ! Desc
2941 '' , & ! Units
2942 'inc/wrf_restartout.inc ext_write_field SHDMIN memorder XY' , & ! Debug message
2943 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2944 ims , ime , jms , jme , 1 , 1 , &
2945 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2946 ierr )
2947 CALL wrf_ext_write_field ( &
2948 fid , & ! DataHandle
2949 current_date(1:19) , & ! DateStr
2950 'SNOALB' , & ! Data Name
2951 grid%snoalb , & ! Field
2952 WRF_FLOAT , & ! FieldType
2953 grid%communicator , & ! Comm
2954 grid%iocommunicator , & ! Comm
2955 grid%domdesc , & ! Comm
2956 grid%bdy_mask , & ! bdy_mask
2957 dryrun , & ! flag
2958 'XY' , & ! MemoryOrder
2959 '' , & ! Stagger
2960 'west_east' , & ! Dimname 1
2961 'south_north' , & ! Dimname 2
2962 '' , & ! Dimname 3
2963 'ANNUAL MAX SNOW ALBEDO IN FRACTION' , & ! Desc
2964 '' , & ! Units
2965 'inc/wrf_restartout.inc ext_write_field SNOALB memorder XY' , & ! Debug message
2966 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2967 ims , ime , jms , jme , 1 , 1 , &
2968 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2969 ierr )
2970 CALL wrf_ext_write_field ( &
2971 fid , & ! DataHandle
2972 current_date(1:19) , & ! DateStr
2973 'TSLB' , & ! Data Name
2974 grid%tslb , & ! Field
2975 WRF_FLOAT , & ! FieldType
2976 grid%communicator , & ! Comm
2977 grid%iocommunicator , & ! Comm
2978 grid%domdesc , & ! Comm
2979 grid%bdy_mask , & ! bdy_mask
2980 dryrun , & ! flag
2981 'XYZ' , & ! MemoryOrder
2982 'Z' , & ! Stagger
2983 'west_east' , & ! Dimname 1
2984 'south_north' , & ! Dimname 2
2985 'soil_layers_stag' , & ! Dimname 3
2986 'SOIL TEMPERATURE' , & ! Desc
2987 'K' , & ! Units
2988 'inc/wrf_restartout.inc ext_write_field TSLB memorder XYZ' , & ! Debug message
2989 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
2990 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
2991 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
2992 ierr )
2993 CALL wrf_ext_write_field ( &
2994 fid , & ! DataHandle
2995 current_date(1:19) , & ! DateStr
2996 'ZS' , & ! Data Name
2997 grid%zs , & ! Field
2998 WRF_FLOAT , & ! FieldType
2999 grid%communicator , & ! Comm
3000 grid%iocommunicator , & ! Comm
3001 grid%domdesc , & ! Comm
3002 grid%bdy_mask , & ! bdy_mask
3003 dryrun , & ! flag
3004 'Z' , & ! MemoryOrder
3005 'Z' , & ! Stagger
3006 'soil_layers_stag' , & ! Dimname 1
3007 '' , & ! Dimname 2
3008 '' , & ! Dimname 3
3009 'DEPTHS OF CENTERS OF SOIL LAYERS' , & ! Desc
3010 'm' , & ! Units
3011 'inc/wrf_restartout.inc ext_write_field ZS memorder Z' , & ! Debug message
3012 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
3013 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
3014 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
3015 ierr )
3016 CALL wrf_ext_write_field ( &
3017 fid , & ! DataHandle
3018 current_date(1:19) , & ! DateStr
3019 'DZS' , & ! Data Name
3020 grid%dzs , & ! Field
3021 WRF_FLOAT , & ! FieldType
3022 grid%communicator , & ! Comm
3023 grid%iocommunicator , & ! Comm
3024 grid%domdesc , & ! Comm
3025 grid%bdy_mask , & ! bdy_mask
3026 dryrun , & ! flag
3027 'Z' , & ! MemoryOrder
3028 'Z' , & ! Stagger
3029 'soil_layers_stag' , & ! Dimname 1
3030 '' , & ! Dimname 2
3031 '' , & ! Dimname 3
3032 'THICKNESSES OF SOIL LAYERS' , & ! Desc
3033 'm' , & ! Units
3034 'inc/wrf_restartout.inc ext_write_field DZS memorder Z' , & ! Debug message
3035 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
3036 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
3037 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
3038 ierr )
3039 CALL wrf_ext_write_field ( &
3040 fid , & ! DataHandle
3041 current_date(1:19) , & ! DateStr
3042 'SMOIS' , & ! Data Name
3043 grid%smois , & ! Field
3044 WRF_FLOAT , & ! FieldType
3045 grid%communicator , & ! Comm
3046 grid%iocommunicator , & ! Comm
3047 grid%domdesc , & ! Comm
3048 grid%bdy_mask , & ! bdy_mask
3049 dryrun , & ! flag
3050 'XYZ' , & ! MemoryOrder
3051 'Z' , & ! Stagger
3052 'west_east' , & ! Dimname 1
3053 'south_north' , & ! Dimname 2
3054 'soil_layers_stag' , & ! Dimname 3
3055 'SOIL MOISTURE' , & ! Desc
3056 'm3 m-3' , & ! Units
3057 'inc/wrf_restartout.inc ext_write_field SMOIS memorder XYZ' , & ! Debug message
3058 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
3059 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
3060 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
3061 ierr )
3062 CALL wrf_ext_write_field ( &
3063 fid , & ! DataHandle
3064 current_date(1:19) , & ! DateStr
3065 'SH2O' , & ! Data Name
3066 grid%sh2o , & ! Field
3067 WRF_FLOAT , & ! FieldType
3068 grid%communicator , & ! Comm
3069 grid%iocommunicator , & ! Comm
3070 grid%domdesc , & ! Comm
3071 grid%bdy_mask , & ! bdy_mask
3072 dryrun , & ! flag
3073 'XYZ' , & ! MemoryOrder
3074 'Z' , & ! Stagger
3075 'west_east' , & ! Dimname 1
3076 'south_north' , & ! Dimname 2
3077 'soil_layers_stag' , & ! Dimname 3
3078 'SOIL LIQUID WATER' , & ! Desc
3079 'm3 m-3' , & ! Units
3080 'inc/wrf_restartout.inc ext_write_field SH2O memorder XYZ' , & ! Debug message
3081 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
3082 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
3083 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
3084 ierr )
3085 CALL wrf_ext_write_field ( &
3086 fid , & ! DataHandle
3087 current_date(1:19) , & ! DateStr
3088 'XICE' , & ! Data Name
3089 grid%xice , & ! Field
3090 WRF_FLOAT , & ! FieldType
3091 grid%communicator , & ! Comm
3092 grid%iocommunicator , & ! Comm
3093 grid%domdesc , & ! Comm
3094 grid%bdy_mask , & ! bdy_mask
3095 dryrun , & ! flag
3096 'XY' , & ! MemoryOrder
3097 '' , & ! Stagger
3098 'west_east' , & ! Dimname 1
3099 'south_north' , & ! Dimname 2
3100 '' , & ! Dimname 3
3101 'SEA ICE FLAG' , & ! Desc
3102 '' , & ! Units
3103 'inc/wrf_restartout.inc ext_write_field XICE memorder XY' , & ! Debug message
3104 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3105 ims , ime , jms , jme , 1 , 1 , &
3106 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3107 ierr )
3108 CALL wrf_ext_write_field ( &
3109 fid , & ! DataHandle
3110 current_date(1:19) , & ! DateStr
3111 'SFROFF' , & ! Data Name
3112 grid%sfcrunoff , & ! Field
3113 WRF_FLOAT , & ! FieldType
3114 grid%communicator , & ! Comm
3115 grid%iocommunicator , & ! Comm
3116 grid%domdesc , & ! Comm
3117 grid%bdy_mask , & ! bdy_mask
3118 dryrun , & ! flag
3119 'XY' , & ! MemoryOrder
3120 '' , & ! Stagger
3121 'west_east' , & ! Dimname 1
3122 'south_north' , & ! Dimname 2
3123 '' , & ! Dimname 3
3124 'SURFACE RUNOFF' , & ! Desc
3125 'mm' , & ! Units
3126 'inc/wrf_restartout.inc ext_write_field SFROFF memorder XY' , & ! Debug message
3127 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3128 ims , ime , jms , jme , 1 , 1 , &
3129 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3130 ierr )
3131 CALL wrf_ext_write_field ( &
3132 fid , & ! DataHandle
3133 current_date(1:19) , & ! DateStr
3134 'UDROFF' , & ! Data Name
3135 grid%udrunoff , & ! Field
3136 WRF_FLOAT , & ! FieldType
3137 grid%communicator , & ! Comm
3138 grid%iocommunicator , & ! Comm
3139 grid%domdesc , & ! Comm
3140 grid%bdy_mask , & ! bdy_mask
3141 dryrun , & ! flag
3142 'XY' , & ! MemoryOrder
3143 '' , & ! Stagger
3144 'west_east' , & ! Dimname 1
3145 'south_north' , & ! Dimname 2
3146 '' , & ! Dimname 3
3147 'UNDERGROUND RUNOFF' , & ! Desc
3148 'mm' , & ! Units
3149 'inc/wrf_restartout.inc ext_write_field UDROFF memorder XY' , & ! Debug message
3150 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3151 ims , ime , jms , jme , 1 , 1 , &
3152 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3153 ierr )
3154 CALL wrf_ext_write_field ( &
3155 fid , & ! DataHandle
3156 current_date(1:19) , & ! DateStr
3157 'IVGTYP' , & ! Data Name
3158 grid%ivgtyp , & ! Field
3159 WRF_integer , & ! FieldType
3160 grid%communicator , & ! Comm
3161 grid%iocommunicator , & ! Comm
3162 grid%domdesc , & ! Comm
3163 grid%bdy_mask , & ! bdy_mask
3164 dryrun , & ! flag
3165 'XY' , & ! MemoryOrder
3166 '' , & ! Stagger
3167 'west_east' , & ! Dimname 1
3168 'south_north' , & ! Dimname 2
3169 '' , & ! Dimname 3
3170 'DOMINANT VEGETATION CATEGORY' , & ! Desc
3171 '' , & ! Units
3172 'inc/wrf_restartout.inc ext_write_field IVGTYP memorder XY' , & ! Debug message
3173 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3174 ims , ime , jms , jme , 1 , 1 , &
3175 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3176 ierr )
3177 CALL wrf_ext_write_field ( &
3178 fid , & ! DataHandle
3179 current_date(1:19) , & ! DateStr
3180 'ISLTYP' , & ! Data Name
3181 grid%isltyp , & ! Field
3182 WRF_integer , & ! FieldType
3183 grid%communicator , & ! Comm
3184 grid%iocommunicator , & ! Comm
3185 grid%domdesc , & ! Comm
3186 grid%bdy_mask , & ! bdy_mask
3187 dryrun , & ! flag
3188 'XY' , & ! MemoryOrder
3189 '' , & ! Stagger
3190 'west_east' , & ! Dimname 1
3191 'south_north' , & ! Dimname 2
3192 '' , & ! Dimname 3
3193 'DOMINANT SOIL CATEGORY' , & ! Desc
3194 '' , & ! Units
3195 'inc/wrf_restartout.inc ext_write_field ISLTYP memorder XY' , & ! Debug message
3196 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3197 ims , ime , jms , jme , 1 , 1 , &
3198 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3199 ierr )
3200 CALL wrf_ext_write_field ( &
3201 fid , & ! DataHandle
3202 current_date(1:19) , & ! DateStr
3203 'VEGFRA' , & ! Data Name
3204 grid%vegfra , & ! Field
3205 WRF_FLOAT , & ! FieldType
3206 grid%communicator , & ! Comm
3207 grid%iocommunicator , & ! Comm
3208 grid%domdesc , & ! Comm
3209 grid%bdy_mask , & ! bdy_mask
3210 dryrun , & ! flag
3211 'XY' , & ! MemoryOrder
3212 '' , & ! Stagger
3213 'west_east' , & ! Dimname 1
3214 'south_north' , & ! Dimname 2
3215 '' , & ! Dimname 3
3216 'VEGETATION FRACTION' , & ! Desc
3217 '' , & ! Units
3218 'inc/wrf_restartout.inc ext_write_field VEGFRA memorder XY' , & ! Debug message
3219 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3220 ims , ime , jms , jme , 1 , 1 , &
3221 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3222 ierr )
3223 CALL wrf_ext_write_field ( &
3224 fid , & ! DataHandle
3225 current_date(1:19) , & ! DateStr
3226 'SFCEVP' , & ! Data Name
3227 grid%sfcevp , & ! 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 'XY' , & ! MemoryOrder
3235 '' , & ! Stagger
3236 'west_east' , & ! Dimname 1
3237 'south_north' , & ! Dimname 2
3238 '' , & ! Dimname 3
3239 'SURFACE EVAPORATION' , & ! Desc
3240 'kg m-2' , & ! Units
3241 'inc/wrf_restartout.inc ext_write_field SFCEVP memorder XY' , & ! Debug message
3242 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3243 ims , ime , jms , jme , 1 , 1 , &
3244 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3245 ierr )
3246 CALL wrf_ext_write_field ( &
3247 fid , & ! DataHandle
3248 current_date(1:19) , & ! DateStr
3249 'ACSNOW' , & ! Data Name
3250 grid%acsnow , & ! Field
3251 WRF_FLOAT , & ! FieldType
3252 grid%communicator , & ! Comm
3253 grid%iocommunicator , & ! Comm
3254 grid%domdesc , & ! Comm
3255 grid%bdy_mask , & ! bdy_mask
3256 dryrun , & ! flag
3257 'XY' , & ! MemoryOrder
3258 '' , & ! Stagger
3259 'west_east' , & ! Dimname 1
3260 'south_north' , & ! Dimname 2
3261 '' , & ! Dimname 3
3262 'ACCUMULATED SNOW' , & ! Desc
3263 'kg m-2' , & ! Units
3264 'inc/wrf_restartout.inc ext_write_field ACSNOW memorder XY' , & ! Debug message
3265 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3266 ims , ime , jms , jme , 1 , 1 , &
3267 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3268 ierr )
3269 CALL wrf_ext_write_field ( &
3270 fid , & ! DataHandle
3271 current_date(1:19) , & ! DateStr
3272 'ACSNOM' , & ! Data Name
3273 grid%acsnom , & ! Field
3274 WRF_FLOAT , & ! FieldType
3275 grid%communicator , & ! Comm
3276 grid%iocommunicator , & ! Comm
3277 grid%domdesc , & ! Comm
3278 grid%bdy_mask , & ! bdy_mask
3279 dryrun , & ! flag
3280 'XY' , & ! MemoryOrder
3281 '' , & ! Stagger
3282 'west_east' , & ! Dimname 1
3283 'south_north' , & ! Dimname 2
3284 '' , & ! Dimname 3
3285 'ACCUMULATED MELTED SNOW' , & ! Desc
3286 'kg m-2' , & ! Units
3287 'inc/wrf_restartout.inc ext_write_field ACSNOM memorder XY' , & ! Debug message
3288 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3289 ims , ime , jms , jme , 1 , 1 , &
3290 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3291 ierr )
3292 CALL wrf_ext_write_field ( &
3293 fid , & ! DataHandle
3294 current_date(1:19) , & ! DateStr
3295 'SNOW' , & ! Data Name
3296 grid%snow , & ! Field
3297 WRF_FLOAT , & ! FieldType
3298 grid%communicator , & ! Comm
3299 grid%iocommunicator , & ! Comm
3300 grid%domdesc , & ! Comm
3301 grid%bdy_mask , & ! bdy_mask
3302 dryrun , & ! flag
3303 'XY' , & ! MemoryOrder
3304 '' , & ! Stagger
3305 'west_east' , & ! Dimname 1
3306 'south_north' , & ! Dimname 2
3307 '' , & ! Dimname 3
3308 'SNOW WATER EQUIVALENT' , & ! Desc
3309 'kg m-2' , & ! Units
3310 'inc/wrf_restartout.inc ext_write_field SNOW memorder XY' , & ! Debug message
3311 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3312 ims , ime , jms , jme , 1 , 1 , &
3313 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3314 ierr )
3315 CALL wrf_ext_write_field ( &
3316 fid , & ! DataHandle
3317 current_date(1:19) , & ! DateStr
3318 'SNOWH' , & ! Data Name
3319 grid%snowh , & ! Field
3320 WRF_FLOAT , & ! FieldType
3321 grid%communicator , & ! Comm
3322 grid%iocommunicator , & ! Comm
3323 grid%domdesc , & ! Comm
3324 grid%bdy_mask , & ! bdy_mask
3325 dryrun , & ! flag
3326 'XY' , & ! MemoryOrder
3327 '' , & ! Stagger
3328 'west_east' , & ! Dimname 1
3329 'south_north' , & ! Dimname 2
3330 '' , & ! Dimname 3
3331 'PHYSICAL SNOW DEPTH' , & ! Desc
3332 'm' , & ! Units
3333 'inc/wrf_restartout.inc ext_write_field SNOWH memorder XY' , & ! Debug message
3334 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3335 ims , ime , jms , jme , 1 , 1 , &
3336 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3337 ierr )
3338 CALL wrf_ext_write_field ( &
3339 fid , & ! DataHandle
3340 current_date(1:19) , & ! DateStr
3341 'RHOSN' , & ! Data Name
3342 grid%rhosn , & ! Field
3343 WRF_FLOAT , & ! FieldType
3344 grid%communicator , & ! Comm
3345 grid%iocommunicator , & ! Comm
3346 grid%domdesc , & ! Comm
3347 grid%bdy_mask , & ! bdy_mask
3348 dryrun , & ! flag
3349 'XY' , & ! MemoryOrder
3350 '' , & ! Stagger
3351 'west_east' , & ! Dimname 1
3352 'south_north' , & ! Dimname 2
3353 '' , & ! Dimname 3
3354 ' SNOW DENSITY' , & ! Desc
3355 'kg m-3' , & ! Units
3356 'inc/wrf_restartout.inc ext_write_field RHOSN memorder XY' , & ! Debug message
3357 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3358 ims , ime , jms , jme , 1 , 1 , &
3359 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3360 ierr )
3361 CALL wrf_ext_write_field ( &
3362 fid , & ! DataHandle
3363 current_date(1:19) , & ! DateStr
3364 'CANWAT' , & ! Data Name
3365 grid%canwat , & ! Field
3366 WRF_FLOAT , & ! FieldType
3367 grid%communicator , & ! Comm
3368 grid%iocommunicator , & ! Comm
3369 grid%domdesc , & ! Comm
3370 grid%bdy_mask , & ! bdy_mask
3371 dryrun , & ! flag
3372 'XY' , & ! MemoryOrder
3373 '' , & ! Stagger
3374 'west_east' , & ! Dimname 1
3375 'south_north' , & ! Dimname 2
3376 '' , & ! Dimname 3
3377 'CANOPY WATER' , & ! Desc
3378 'kg m-2' , & ! Units
3379 'inc/wrf_restartout.inc ext_write_field CANWAT memorder XY' , & ! Debug message
3380 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3381 ims , ime , jms , jme , 1 , 1 , &
3382 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3383 ierr )
3384 CALL wrf_ext_write_field ( &
3385 fid , & ! DataHandle
3386 current_date(1:19) , & ! DateStr
3387 'SST' , & ! Data Name
3388 grid%sst , & ! Field
3389 WRF_FLOAT , & ! FieldType
3390 grid%communicator , & ! Comm
3391 grid%iocommunicator , & ! Comm
3392 grid%domdesc , & ! Comm
3393 grid%bdy_mask , & ! bdy_mask
3394 dryrun , & ! flag
3395 'XY' , & ! MemoryOrder
3396 '' , & ! Stagger
3397 'west_east' , & ! Dimname 1
3398 'south_north' , & ! Dimname 2
3399 '' , & ! Dimname 3
3400 'SEA SURFACE TEMPERATURE' , & ! Desc
3401 'K' , & ! Units
3402 'inc/wrf_restartout.inc ext_write_field SST memorder XY' , & ! Debug message
3403 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3404 ims , ime , jms , jme , 1 , 1 , &
3405 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3406 ierr )
3407 CALL wrf_ext_write_field ( &
3408 fid , & ! DataHandle
3409 current_date(1:19) , & ! DateStr
3410 'HTOP' , & ! Data Name
3411 grid%htop , & ! Field
3412 WRF_FLOAT , & ! FieldType
3413 grid%communicator , & ! Comm
3414 grid%iocommunicator , & ! Comm
3415 grid%domdesc , & ! Comm
3416 grid%bdy_mask , & ! bdy_mask
3417 dryrun , & ! flag
3418 'XY' , & ! MemoryOrder
3419 '' , & ! Stagger
3420 'west_east' , & ! Dimname 1
3421 'south_north' , & ! Dimname 2
3422 '' , & ! Dimname 3
3423 'TOP OF CONVECTION LELVEL' , & ! Desc
3424 '' , & ! Units
3425 'inc/wrf_restartout.inc ext_write_field HTOP memorder XY' , & ! Debug message
3426 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3427 ims , ime , jms , jme , 1 , 1 , &
3428 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3429 ierr )
3430 CALL wrf_ext_write_field ( &
3431 fid , & ! DataHandle
3432 current_date(1:19) , & ! DateStr
3433 'HBOT' , & ! Data Name
3434 grid%hbot , & ! Field
3435 WRF_FLOAT , & ! FieldType
3436 grid%communicator , & ! Comm
3437 grid%iocommunicator , & ! Comm
3438 grid%domdesc , & ! Comm
3439 grid%bdy_mask , & ! bdy_mask
3440 dryrun , & ! flag
3441 'XY' , & ! MemoryOrder
3442 '' , & ! Stagger
3443 'west_east' , & ! Dimname 1
3444 'south_north' , & ! Dimname 2
3445 '' , & ! Dimname 3
3446 'BOT OF CONVECTION LELVEL' , & ! Desc
3447 '' , & ! Units
3448 'inc/wrf_restartout.inc ext_write_field HBOT memorder XY' , & ! Debug message
3449 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3450 ims , ime , jms , jme , 1 , 1 , &
3451 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3452 ierr )
3453 CALL wrf_ext_write_field ( &
3454 fid , & ! DataHandle
3455 current_date(1:19) , & ! DateStr
3456 'CUPPT' , & ! Data Name
3457 grid%cuppt , & ! Field
3458 WRF_FLOAT , & ! FieldType
3459 grid%communicator , & ! Comm
3460 grid%iocommunicator , & ! Comm
3461 grid%domdesc , & ! Comm
3462 grid%bdy_mask , & ! bdy_mask
3463 dryrun , & ! flag
3464 'XY' , & ! MemoryOrder
3465 '' , & ! Stagger
3466 'west_east' , & ! Dimname 1
3467 'south_north' , & ! Dimname 2
3468 '' , & ! Dimname 3
3469 'ACCUMULATED CONVECTIVE RAIN SINC LAST CALL TO THE RADIATION' , & ! Desc
3470 '' , & ! Units
3471 'inc/wrf_restartout.inc ext_write_field CUPPT memorder XY' , & ! Debug message
3472 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3473 ims , ime , jms , jme , 1 , 1 , &
3474 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3475 ierr )
3476 CALL wrf_ext_write_field ( &
3477 fid , & ! DataHandle
3478 current_date(1:19) , & ! DateStr
3479 'H_DIABATIC' , & ! Data Name
3480 grid%h_diabatic , & ! Field
3481 WRF_FLOAT , & ! FieldType
3482 grid%communicator , & ! Comm
3483 grid%iocommunicator , & ! Comm
3484 grid%domdesc , & ! Comm
3485 grid%bdy_mask , & ! bdy_mask
3486 dryrun , & ! flag
3487 'XYZ' , & ! MemoryOrder
3488 '' , & ! Stagger
3489 'west_east' , & ! Dimname 1
3490 'south_north' , & ! Dimname 2
3491 'bottom_top' , & ! Dimname 3
3492 'PREVIOUS TIMESTEP CONDENSATIONAL HEATING' , & ! Desc
3493 '' , & ! Units
3494 'inc/wrf_restartout.inc ext_write_field H_DIABATIC memorder XYZ' , & ! Debug message
3495 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
3496 ims , ime , jms , jme , kms , kme , &
3497 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
3498 ierr )
3499 CALL wrf_ext_write_field ( &
3500 fid , & ! DataHandle
3501 current_date(1:19) , & ! DateStr
3502 'MAPFAC_M' , & ! Data Name
3503 grid%msft , & ! Field
3504 WRF_FLOAT , & ! FieldType
3505 grid%communicator , & ! Comm
3506 grid%iocommunicator , & ! Comm
3507 grid%domdesc , & ! Comm
3508 grid%bdy_mask , & ! bdy_mask
3509 dryrun , & ! flag
3510 'XY' , & ! MemoryOrder
3511 '' , & ! Stagger
3512 'west_east' , & ! Dimname 1
3513 'south_north' , & ! Dimname 2
3514 '' , & ! Dimname 3
3515 'Map scale factor on mass grid' , & ! Desc
3516 '' , & ! Units
3517 'inc/wrf_restartout.inc ext_write_field MAPFAC_M memorder XY' , & ! Debug message
3518 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3519 ims , ime , jms , jme , 1 , 1 , &
3520 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3521 ierr )
3522 CALL wrf_ext_write_field ( &
3523 fid , & ! DataHandle
3524 current_date(1:19) , & ! DateStr
3525 'MAPFAC_U' , & ! Data Name
3526 grid%msfu , & ! Field
3527 WRF_FLOAT , & ! FieldType
3528 grid%communicator , & ! Comm
3529 grid%iocommunicator , & ! Comm
3530 grid%domdesc , & ! Comm
3531 grid%bdy_mask , & ! bdy_mask
3532 dryrun , & ! flag
3533 'XY' , & ! MemoryOrder
3534 'X' , & ! Stagger
3535 'west_east_stag' , & ! Dimname 1
3536 'south_north' , & ! Dimname 2
3537 '' , & ! Dimname 3
3538 'Map scale factor on u-grid' , & ! Desc
3539 '' , & ! Units
3540 'inc/wrf_restartout.inc ext_write_field MAPFAC_U memorder XY' , & ! Debug message
3541 ids , ide , jds , (jde-1) , 1 , 1 , &
3542 ims , ime , jms , jme , 1 , 1 , &
3543 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3544 ierr )
3545 CALL wrf_ext_write_field ( &
3546 fid , & ! DataHandle
3547 current_date(1:19) , & ! DateStr
3548 'MAPFAC_V' , & ! Data Name
3549 grid%msfv , & ! Field
3550 WRF_FLOAT , & ! FieldType
3551 grid%communicator , & ! Comm
3552 grid%iocommunicator , & ! Comm
3553 grid%domdesc , & ! Comm
3554 grid%bdy_mask , & ! bdy_mask
3555 dryrun , & ! flag
3556 'XY' , & ! MemoryOrder
3557 'Y' , & ! Stagger
3558 'west_east' , & ! Dimname 1
3559 'south_north_stag' , & ! Dimname 2
3560 '' , & ! Dimname 3
3561 'Map scale factor on v-grid' , & ! Desc
3562 '' , & ! Units
3563 'inc/wrf_restartout.inc ext_write_field MAPFAC_V memorder XY' , & ! Debug message
3564 ids , (ide-1) , jds , jde , 1 , 1 , &
3565 ims , ime , jms , jme , 1 , 1 , &
3566 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
3567 ierr )
3568 CALL wrf_ext_write_field ( &
3569 fid , & ! DataHandle
3570 current_date(1:19) , & ! DateStr
3571 'F' , & ! Data Name
3572 grid%f , & ! Field
3573 WRF_FLOAT , & ! FieldType
3574 grid%communicator , & ! Comm
3575 grid%iocommunicator , & ! Comm
3576 grid%domdesc , & ! Comm
3577 grid%bdy_mask , & ! bdy_mask
3578 dryrun , & ! flag
3579 'XY' , & ! MemoryOrder
3580 '' , & ! Stagger
3581 'west_east' , & ! Dimname 1
3582 'south_north' , & ! Dimname 2
3583 '' , & ! Dimname 3
3584 'Coriolis sine latitude term' , & ! Desc
3585 's-1' , & ! Units
3586 'inc/wrf_restartout.inc ext_write_field F memorder XY' , & ! Debug message
3587 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3588 ims , ime , jms , jme , 1 , 1 , &
3589 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3590 ierr )
3591 CALL wrf_ext_write_field ( &
3592 fid , & ! DataHandle
3593 current_date(1:19) , & ! DateStr
3594 'E' , & ! Data Name
3595 grid%e , & ! Field
3596 WRF_FLOAT , & ! FieldType
3597 grid%communicator , & ! Comm
3598 grid%iocommunicator , & ! Comm
3599 grid%domdesc , & ! Comm
3600 grid%bdy_mask , & ! bdy_mask
3601 dryrun , & ! flag
3602 'XY' , & ! MemoryOrder
3603 '' , & ! Stagger
3604 'west_east' , & ! Dimname 1
3605 'south_north' , & ! Dimname 2
3606 '' , & ! Dimname 3
3607 'Coriolis cosine latitude term' , & ! Desc
3608 's-1' , & ! Units
3609 'inc/wrf_restartout.inc ext_write_field E memorder XY' , & ! Debug message
3610 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3611 ims , ime , jms , jme , 1 , 1 , &
3612 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3613 ierr )
3614 CALL wrf_ext_write_field ( &
3615 fid , & ! DataHandle
3616 current_date(1:19) , & ! DateStr
3617 'SINALPHA' , & ! Data Name
3618 grid%sina , & ! Field
3619 WRF_FLOAT , & ! FieldType
3620 grid%communicator , & ! Comm
3621 grid%iocommunicator , & ! Comm
3622 grid%domdesc , & ! Comm
3623 grid%bdy_mask , & ! bdy_mask
3624 dryrun , & ! flag
3625 'XY' , & ! MemoryOrder
3626 '' , & ! Stagger
3627 'west_east' , & ! Dimname 1
3628 'south_north' , & ! Dimname 2
3629 '' , & ! Dimname 3
3630 'Local sine of map rotation' , & ! Desc
3631 '' , & ! Units
3632 'inc/wrf_restartout.inc ext_write_field SINALPHA memorder XY' , & ! Debug message
3633 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3634 ims , ime , jms , jme , 1 , 1 , &
3635 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3636 ierr )
3637 CALL wrf_ext_write_field ( &
3638 fid , & ! DataHandle
3639 current_date(1:19) , & ! DateStr
3640 'COSALPHA' , & ! Data Name
3641 grid%cosa , & ! Field
3642 WRF_FLOAT , & ! FieldType
3643 grid%communicator , & ! Comm
3644 grid%iocommunicator , & ! Comm
3645 grid%domdesc , & ! Comm
3646 grid%bdy_mask , & ! bdy_mask
3647 dryrun , & ! flag
3648 'XY' , & ! MemoryOrder
3649 '' , & ! Stagger
3650 'west_east' , & ! Dimname 1
3651 'south_north' , & ! Dimname 2
3652 '' , & ! Dimname 3
3653 'Local cosine of map rotation' , & ! Desc
3654 '' , & ! Units
3655 'inc/wrf_restartout.inc ext_write_field COSALPHA memorder XY' , & ! Debug message
3656 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3657 ims , ime , jms , jme , 1 , 1 , &
3658 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3659 ierr )
3660 CALL wrf_ext_write_field ( &
3661 fid , & ! DataHandle
3662 current_date(1:19) , & ! DateStr
3663 'HGT' , & ! Data Name
3664 grid%ht , & ! Field
3665 WRF_FLOAT , & ! FieldType
3666 grid%communicator , & ! Comm
3667 grid%iocommunicator , & ! Comm
3668 grid%domdesc , & ! Comm
3669 grid%bdy_mask , & ! bdy_mask
3670 dryrun , & ! flag
3671 'XY' , & ! MemoryOrder
3672 '' , & ! Stagger
3673 'west_east' , & ! Dimname 1
3674 'south_north' , & ! Dimname 2
3675 '' , & ! Dimname 3
3676 'Terrain Height' , & ! Desc
3677 'm' , & ! Units
3678 'inc/wrf_restartout.inc ext_write_field HGT memorder XY' , & ! Debug message
3679 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3680 ims , ime , jms , jme , 1 , 1 , &
3681 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3682 ierr )
3683 CALL wrf_ext_write_field ( &
3684 fid , & ! DataHandle
3685 current_date(1:19) , & ! DateStr
3686 'TSK' , & ! Data Name
3687 grid%tsk , & ! Field
3688 WRF_FLOAT , & ! FieldType
3689 grid%communicator , & ! Comm
3690 grid%iocommunicator , & ! Comm
3691 grid%domdesc , & ! Comm
3692 grid%bdy_mask , & ! bdy_mask
3693 dryrun , & ! flag
3694 'XY' , & ! MemoryOrder
3695 '' , & ! Stagger
3696 'west_east' , & ! Dimname 1
3697 'south_north' , & ! Dimname 2
3698 '' , & ! Dimname 3
3699 'SURFACE SKIN TEMPERATURE' , & ! Desc
3700 'K' , & ! Units
3701 'inc/wrf_restartout.inc ext_write_field TSK memorder XY' , & ! Debug message
3702 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3703 ims , ime , jms , jme , 1 , 1 , &
3704 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3705 ierr )
3706 CALL wrf_ext_write_field ( &
3707 fid , & ! DataHandle
3708 current_date(1:19) , & ! DateStr
3709 'U_BASE' , & ! Data Name
3710 grid%u_base , & ! Field
3711 WRF_FLOAT , & ! FieldType
3712 grid%communicator , & ! Comm
3713 grid%iocommunicator , & ! Comm
3714 grid%domdesc , & ! Comm
3715 grid%bdy_mask , & ! bdy_mask
3716 dryrun , & ! flag
3717 'Z' , & ! MemoryOrder
3718 '' , & ! Stagger
3719 'bottom_top' , & ! Dimname 1
3720 '' , & ! Dimname 2
3721 '' , & ! Dimname 3
3722 'BASE STATE X WIND IN IDEALIZED CASES' , & ! Desc
3723 '' , & ! Units
3724 'inc/wrf_restartout.inc ext_write_field U_BASE memorder Z' , & ! Debug message
3725 kds , (kde-1) , 1 , 1 , 1 , 1 , &
3726 kms , kme , 1 , 1 , 1 , 1 , &
3727 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
3728 ierr )
3729 CALL wrf_ext_write_field ( &
3730 fid , & ! DataHandle
3731 current_date(1:19) , & ! DateStr
3732 'V_BASE' , & ! Data Name
3733 grid%v_base , & ! Field
3734 WRF_FLOAT , & ! FieldType
3735 grid%communicator , & ! Comm
3736 grid%iocommunicator , & ! Comm
3737 grid%domdesc , & ! Comm
3738 grid%bdy_mask , & ! bdy_mask
3739 dryrun , & ! flag
3740 'Z' , & ! MemoryOrder
3741 '' , & ! Stagger
3742 'bottom_top' , & ! Dimname 1
3743 '' , & ! Dimname 2
3744 '' , & ! Dimname 3
3745 'BASE STATE Y WIND IN IDEALIZED CASES' , & ! Desc
3746 '' , & ! Units
3747 'inc/wrf_restartout.inc ext_write_field V_BASE memorder Z' , & ! Debug message
3748 kds , (kde-1) , 1 , 1 , 1 , 1 , &
3749 kms , kme , 1 , 1 , 1 , 1 , &
3750 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
3751 ierr )
3752 CALL wrf_ext_write_field ( &
3753 fid , & ! DataHandle
3754 current_date(1:19) , & ! DateStr
3755 'QV_BASE' , & ! Data Name
3756 grid%qv_base , & ! Field
3757 WRF_FLOAT , & ! FieldType
3758 grid%communicator , & ! Comm
3759 grid%iocommunicator , & ! Comm
3760 grid%domdesc , & ! Comm
3761 grid%bdy_mask , & ! bdy_mask
3762 dryrun , & ! flag
3763 'Z' , & ! MemoryOrder
3764 '' , & ! Stagger
3765 'bottom_top' , & ! Dimname 1
3766 '' , & ! Dimname 2
3767 '' , & ! Dimname 3
3768 'BASE STATE QV IN IDEALIZED CASES' , & ! Desc
3769 '' , & ! Units
3770 'inc/wrf_restartout.inc ext_write_field QV_BASE memorder Z' , & ! Debug message
3771 kds , (kde-1) , 1 , 1 , 1 , 1 , &
3772 kms , kme , 1 , 1 , 1 , 1 , &
3773 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
3774 ierr )
3775 CALL wrf_ext_write_field ( &
3776 fid , & ! DataHandle
3777 current_date(1:19) , & ! DateStr
3778 'Z_BASE' , & ! Data Name
3779 grid%z_base , & ! Field
3780 WRF_FLOAT , & ! FieldType
3781 grid%communicator , & ! Comm
3782 grid%iocommunicator , & ! Comm
3783 grid%domdesc , & ! Comm
3784 grid%bdy_mask , & ! bdy_mask
3785 dryrun , & ! flag
3786 'Z' , & ! MemoryOrder
3787 '' , & ! Stagger
3788 'bottom_top' , & ! Dimname 1
3789 '' , & ! Dimname 2
3790 '' , & ! Dimname 3
3791 'BASE STATE HEIGHT IN IDEALIZED CASES' , & ! Desc
3792 '' , & ! Units
3793 'inc/wrf_restartout.inc ext_write_field Z_BASE memorder Z' , & ! Debug message
3794 kds , (kde-1) , 1 , 1 , 1 , 1 , &
3795 kms , kme , 1 , 1 , 1 , 1 , &
3796 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
3797 ierr )
3798 CALL wrf_ext_write_field ( &
3799 fid , & ! DataHandle
3800 current_date(1:19) , & ! DateStr
3801 'U_FRAME' , & ! Data Name
3802 grid%u_frame , & ! Field
3803 WRF_FLOAT , & ! FieldType
3804 grid%communicator , & ! Comm
3805 grid%iocommunicator , & ! Comm
3806 grid%domdesc , & ! Comm
3807 grid%bdy_mask , & ! bdy_mask
3808 dryrun , & ! flag
3809 '0' , & ! MemoryOrder
3810 '' , & ! Stagger
3811 '' , & ! Dimname 1
3812 '' , & ! Dimname 2
3813 '' , & ! Dimname 3
3814 'FRAME X WIND' , & ! Desc
3815 'm s-1' , & ! Units
3816 'inc/wrf_restartout.inc ext_write_field U_FRAME memorder 0' , & ! Debug message
3817 1 , 1 , 1 , 1 , 1 , 1 , &
3818 1 , 1 , 1 , 1 , 1 , 1 , &
3819 1 , 1 , 1 , 1 , 1 , 1 , &
3820 ierr )
3821 CALL wrf_ext_write_field ( &
3822 fid , & ! DataHandle
3823 current_date(1:19) , & ! DateStr
3824 'V_FRAME' , & ! Data Name
3825 grid%v_frame , & ! Field
3826 WRF_FLOAT , & ! FieldType
3827 grid%communicator , & ! Comm
3828 grid%iocommunicator , & ! Comm
3829 grid%domdesc , & ! Comm
3830 grid%bdy_mask , & ! bdy_mask
3831 dryrun , & ! flag
3832 '0' , & ! MemoryOrder
3833 '' , & ! Stagger
3834 '' , & ! Dimname 1
3835 '' , & ! Dimname 2
3836 '' , & ! Dimname 3
3837 'FRAME Y WIND' , & ! Desc
3838 'm s-1' , & ! Units
3839 'inc/wrf_restartout.inc ext_write_field V_FRAME memorder 0' , & ! Debug message
3840 1 , 1 , 1 , 1 , 1 , 1 , &
3841 1 , 1 , 1 , 1 , 1 , 1 , &
3842 1 , 1 , 1 , 1 , 1 , 1 , &
3843 ierr )
3844 CALL wrf_ext_write_field ( &
3845 fid , & ! DataHandle
3846 current_date(1:19) , & ! DateStr
3847 'P_TOP' , & ! Data Name
3848 grid%p_top , & ! Field
3849 WRF_FLOAT , & ! FieldType
3850 grid%communicator , & ! Comm
3851 grid%iocommunicator , & ! Comm
3852 grid%domdesc , & ! Comm
3853 grid%bdy_mask , & ! bdy_mask
3854 dryrun , & ! flag
3855 '0' , & ! MemoryOrder
3856 '' , & ! Stagger
3857 '' , & ! Dimname 1
3858 '' , & ! Dimname 2
3859 '' , & ! Dimname 3
3860 'PRESSURE TOP OF THE MODEL' , & ! Desc
3861 'Pa' , & ! Units
3862 'inc/wrf_restartout.inc ext_write_field P_TOP memorder 0' , & ! Debug message
3863 1 , 1 , 1 , 1 , 1 , 1 , &
3864 1 , 1 , 1 , 1 , 1 , 1 , &
3865 1 , 1 , 1 , 1 , 1 , 1 , &
3866 ierr )
3867 CALL wrf_ext_write_field ( &
3868 fid , & ! DataHandle
3869 current_date(1:19) , & ! DateStr
3870 'IMICROGRAM' , & ! Data Name
3871 grid%imicrogram , & ! Field
3872 WRF_integer , & ! FieldType
3873 grid%communicator , & ! Comm
3874 grid%iocommunicator , & ! Comm
3875 grid%domdesc , & ! Comm
3876 grid%bdy_mask , & ! bdy_mask
3877 dryrun , & ! flag
3878 '0' , & ! MemoryOrder
3879 '' , & ! Stagger
3880 '' , & ! Dimname 1
3881 '' , & ! Dimname 2
3882 '' , & ! Dimname 3
3883 'flag 0/1 0=mixratio, 1=mcrograms/m3' , & ! Desc
3884 '' , & ! Units
3885 'inc/wrf_restartout.inc ext_write_field IMICROGRAM memorder 0' , & ! Debug message
3886 1 , 1 , 1 , 1 , 1 , 1 , &
3887 1 , 1 , 1 , 1 , 1 , 1 , &
3888 1 , 1 , 1 , 1 , 1 , 1 , &
3889 ierr )
3890 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3891 CALL wrf_ext_write_field ( &
3892 fid , & ! DataHandle
3893 current_date(1:19) , & ! DateStr
3894 'LAT_LL_T' , & ! Data Name
3895 grid%em_lat_ll_t , & ! Field
3896 WRF_FLOAT , & ! FieldType
3897 grid%communicator , & ! Comm
3898 grid%iocommunicator , & ! Comm
3899 grid%domdesc , & ! Comm
3900 grid%bdy_mask , & ! bdy_mask
3901 dryrun , & ! flag
3902 '0' , & ! MemoryOrder
3903 '' , & ! Stagger
3904 '' , & ! Dimname 1
3905 '' , & ! Dimname 2
3906 '' , & ! Dimname 3
3907 'latitude lower left, temp point' , & ! Desc
3908 'degrees' , & ! Units
3909 'inc/wrf_restartout.inc ext_write_field LAT_LL_T memorder 0' , & ! Debug message
3910 1 , 1 , 1 , 1 , 1 , 1 , &
3911 1 , 1 , 1 , 1 , 1 , 1 , &
3912 1 , 1 , 1 , 1 , 1 , 1 , &
3913 ierr )
3914 END IF
3915 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3916 CALL wrf_ext_write_field ( &
3917 fid , & ! DataHandle
3918 current_date(1:19) , & ! DateStr
3919 'LAT_UL_T' , & ! Data Name
3920 grid%em_lat_ul_t , & ! Field
3921 WRF_FLOAT , & ! FieldType
3922 grid%communicator , & ! Comm
3923 grid%iocommunicator , & ! Comm
3924 grid%domdesc , & ! Comm
3925 grid%bdy_mask , & ! bdy_mask
3926 dryrun , & ! flag
3927 '0' , & ! MemoryOrder
3928 '' , & ! Stagger
3929 '' , & ! Dimname 1
3930 '' , & ! Dimname 2
3931 '' , & ! Dimname 3
3932 'latitude up left, temp point' , & ! Desc
3933 'degrees' , & ! Units
3934 'inc/wrf_restartout.inc ext_write_field LAT_UL_T memorder 0' , & ! Debug message
3935 1 , 1 , 1 , 1 , 1 , 1 , &
3936 1 , 1 , 1 , 1 , 1 , 1 , &
3937 1 , 1 , 1 , 1 , 1 , 1 , &
3938 ierr )
3939 END IF
3940 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3941 CALL wrf_ext_write_field ( &
3942 fid , & ! DataHandle
3943 current_date(1:19) , & ! DateStr
3944 'LAT_UR_T' , & ! Data Name
3945 grid%em_lat_ur_t , & ! Field
3946 WRF_FLOAT , & ! FieldType
3947 grid%communicator , & ! Comm
3948 grid%iocommunicator , & ! Comm
3949 grid%domdesc , & ! Comm
3950 grid%bdy_mask , & ! bdy_mask
3951 dryrun , & ! flag
3952 '0' , & ! MemoryOrder
3953 '' , & ! Stagger
3954 '' , & ! Dimname 1
3955 '' , & ! Dimname 2
3956 '' , & ! Dimname 3
3957 'latitude up right, temp point' , & ! Desc
3958 'degrees' , & ! Units
3959 'inc/wrf_restartout.inc ext_write_field LAT_UR_T memorder 0' , & ! Debug message
3960 1 , 1 , 1 , 1 , 1 , 1 , &
3961 1 , 1 , 1 , 1 , 1 , 1 , &
3962 1 , 1 , 1 , 1 , 1 , 1 , &
3963 ierr )
3964 END IF
3965 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3966 CALL wrf_ext_write_field ( &
3967 fid , & ! DataHandle
3968 current_date(1:19) , & ! DateStr
3969 'LAT_LR_T' , & ! Data Name
3970 grid%em_lat_lr_t , & ! Field
3971 WRF_FLOAT , & ! FieldType
3972 grid%communicator , & ! Comm
3973 grid%iocommunicator , & ! Comm
3974 grid%domdesc , & ! Comm
3975 grid%bdy_mask , & ! bdy_mask
3976 dryrun , & ! flag
3977 '0' , & ! MemoryOrder
3978 '' , & ! Stagger
3979 '' , & ! Dimname 1
3980 '' , & ! Dimname 2
3981 '' , & ! Dimname 3
3982 'latitude lower right, temp point' , & ! Desc
3983 'degrees' , & ! Units
3984 'inc/wrf_restartout.inc ext_write_field LAT_LR_T memorder 0' , & ! Debug message
3985 1 , 1 , 1 , 1 , 1 , 1 , &
3986 1 , 1 , 1 , 1 , 1 , 1 , &
3987 1 , 1 , 1 , 1 , 1 , 1 , &
3988 ierr )
3989 END IF
3990 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3991 CALL wrf_ext_write_field ( &
3992 fid , & ! DataHandle
3993 current_date(1:19) , & ! DateStr
3994 'LAT_LL_U' , & ! Data Name
3995 grid%em_lat_ll_u , & ! Field
3996 WRF_FLOAT , & ! FieldType
3997 grid%communicator , & ! Comm
3998 grid%iocommunicator , & ! Comm
3999 grid%domdesc , & ! Comm
4000 grid%bdy_mask , & ! bdy_mask
4001 dryrun , & ! flag
4002 '0' , & ! MemoryOrder
4003 '' , & ! Stagger
4004 '' , & ! Dimname 1
4005 '' , & ! Dimname 2
4006 '' , & ! Dimname 3
4007 'latitude lower left, u point' , & ! Desc
4008 'degrees' , & ! Units
4009 'inc/wrf_restartout.inc ext_write_field LAT_LL_U memorder 0' , & ! Debug message
4010 1 , 1 , 1 , 1 , 1 , 1 , &
4011 1 , 1 , 1 , 1 , 1 , 1 , &
4012 1 , 1 , 1 , 1 , 1 , 1 , &
4013 ierr )
4014 END IF
4015 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4016 CALL wrf_ext_write_field ( &
4017 fid , & ! DataHandle
4018 current_date(1:19) , & ! DateStr
4019 'LAT_UL_U' , & ! Data Name
4020 grid%em_lat_ul_u , & ! Field
4021 WRF_FLOAT , & ! FieldType
4022 grid%communicator , & ! Comm
4023 grid%iocommunicator , & ! Comm
4024 grid%domdesc , & ! Comm
4025 grid%bdy_mask , & ! bdy_mask
4026 dryrun , & ! flag
4027 '0' , & ! MemoryOrder
4028 '' , & ! Stagger
4029 '' , & ! Dimname 1
4030 '' , & ! Dimname 2
4031 '' , & ! Dimname 3
4032 'latitude up left, u point' , & ! Desc
4033 'degrees' , & ! Units
4034 'inc/wrf_restartout.inc ext_write_field LAT_UL_U memorder 0' , & ! Debug message
4035 1 , 1 , 1 , 1 , 1 , 1 , &
4036 1 , 1 , 1 , 1 , 1 , 1 , &
4037 1 , 1 , 1 , 1 , 1 , 1 , &
4038 ierr )
4039 END IF
4040 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4041 CALL wrf_ext_write_field ( &
4042 fid , & ! DataHandle
4043 current_date(1:19) , & ! DateStr
4044 'LAT_UR_U' , & ! Data Name
4045 grid%em_lat_ur_u , & ! Field
4046 WRF_FLOAT , & ! FieldType
4047 grid%communicator , & ! Comm
4048 grid%iocommunicator , & ! Comm
4049 grid%domdesc , & ! Comm
4050 grid%bdy_mask , & ! bdy_mask
4051 dryrun , & ! flag
4052 '0' , & ! MemoryOrder
4053 '' , & ! Stagger
4054 '' , & ! Dimname 1
4055 '' , & ! Dimname 2
4056 '' , & ! Dimname 3
4057 'latitude up right, u point' , & ! Desc
4058 'degrees' , & ! Units
4059 'inc/wrf_restartout.inc ext_write_field LAT_UR_U memorder 0' , & ! Debug message
4060 1 , 1 , 1 , 1 , 1 , 1 , &
4061 1 , 1 , 1 , 1 , 1 , 1 , &
4062 1 , 1 , 1 , 1 , 1 , 1 , &
4063 ierr )
4064 END IF
4065 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4066 CALL wrf_ext_write_field ( &
4067 fid , & ! DataHandle
4068 current_date(1:19) , & ! DateStr
4069 'LAT_LR_U' , & ! Data Name
4070 grid%em_lat_lr_u , & ! Field
4071 WRF_FLOAT , & ! FieldType
4072 grid%communicator , & ! Comm
4073 grid%iocommunicator , & ! Comm
4074 grid%domdesc , & ! Comm
4075 grid%bdy_mask , & ! bdy_mask
4076 dryrun , & ! flag
4077 '0' , & ! MemoryOrder
4078 '' , & ! Stagger
4079 '' , & ! Dimname 1
4080 '' , & ! Dimname 2
4081 '' , & ! Dimname 3
4082 'latitude lower right, u point' , & ! Desc
4083 'degrees' , & ! Units
4084 'inc/wrf_restartout.inc ext_write_field LAT_LR_U memorder 0' , & ! Debug message
4085 1 , 1 , 1 , 1 , 1 , 1 , &
4086 1 , 1 , 1 , 1 , 1 , 1 , &
4087 1 , 1 , 1 , 1 , 1 , 1 , &
4088 ierr )
4089 END IF
4090 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4091 CALL wrf_ext_write_field ( &
4092 fid , & ! DataHandle
4093 current_date(1:19) , & ! DateStr
4094 'LAT_LL_V' , & ! Data Name
4095 grid%em_lat_ll_v , & ! Field
4096 WRF_FLOAT , & ! FieldType
4097 grid%communicator , & ! Comm
4098 grid%iocommunicator , & ! Comm
4099 grid%domdesc , & ! Comm
4100 grid%bdy_mask , & ! bdy_mask
4101 dryrun , & ! flag
4102 '0' , & ! MemoryOrder
4103 '' , & ! Stagger
4104 '' , & ! Dimname 1
4105 '' , & ! Dimname 2
4106 '' , & ! Dimname 3
4107 'latitude lower left, v point' , & ! Desc
4108 'degrees' , & ! Units
4109 'inc/wrf_restartout.inc ext_write_field LAT_LL_V memorder 0' , & ! Debug message
4110 1 , 1 , 1 , 1 , 1 , 1 , &
4111 1 , 1 , 1 , 1 , 1 , 1 , &
4112 1 , 1 , 1 , 1 , 1 , 1 , &
4113 ierr )
4114 END IF
4115 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4116 CALL wrf_ext_write_field ( &
4117 fid , & ! DataHandle
4118 current_date(1:19) , & ! DateStr
4119 'LAT_UL_V' , & ! Data Name
4120 grid%em_lat_ul_v , & ! Field
4121 WRF_FLOAT , & ! FieldType
4122 grid%communicator , & ! Comm
4123 grid%iocommunicator , & ! Comm
4124 grid%domdesc , & ! Comm
4125 grid%bdy_mask , & ! bdy_mask
4126 dryrun , & ! flag
4127 '0' , & ! MemoryOrder
4128 '' , & ! Stagger
4129 '' , & ! Dimname 1
4130 '' , & ! Dimname 2
4131 '' , & ! Dimname 3
4132 'latitude up left, v point' , & ! Desc
4133 'degrees' , & ! Units
4134 'inc/wrf_restartout.inc ext_write_field LAT_UL_V memorder 0' , & ! Debug message
4135 1 , 1 , 1 , 1 , 1 , 1 , &
4136 1 , 1 , 1 , 1 , 1 , 1 , &
4137 1 , 1 , 1 , 1 , 1 , 1 , &
4138 ierr )
4139 END IF
4140 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4141 CALL wrf_ext_write_field ( &
4142 fid , & ! DataHandle
4143 current_date(1:19) , & ! DateStr
4144 'LAT_UR_V' , & ! Data Name
4145 grid%em_lat_ur_v , & ! Field
4146 WRF_FLOAT , & ! FieldType
4147 grid%communicator , & ! Comm
4148 grid%iocommunicator , & ! Comm
4149 grid%domdesc , & ! Comm
4150 grid%bdy_mask , & ! bdy_mask
4151 dryrun , & ! flag
4152 '0' , & ! MemoryOrder
4153 '' , & ! Stagger
4154 '' , & ! Dimname 1
4155 '' , & ! Dimname 2
4156 '' , & ! Dimname 3
4157 'latitude up right, v point' , & ! Desc
4158 'degrees' , & ! Units
4159 'inc/wrf_restartout.inc ext_write_field LAT_UR_V memorder 0' , & ! Debug message
4160 1 , 1 , 1 , 1 , 1 , 1 , &
4161 1 , 1 , 1 , 1 , 1 , 1 , &
4162 1 , 1 , 1 , 1 , 1 , 1 , &
4163 ierr )
4164 END IF
4165 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4166 CALL wrf_ext_write_field ( &
4167 fid , & ! DataHandle
4168 current_date(1:19) , & ! DateStr
4169 'LAT_LR_V' , & ! Data Name
4170 grid%em_lat_lr_v , & ! Field
4171 WRF_FLOAT , & ! FieldType
4172 grid%communicator , & ! Comm
4173 grid%iocommunicator , & ! Comm
4174 grid%domdesc , & ! Comm
4175 grid%bdy_mask , & ! bdy_mask
4176 dryrun , & ! flag
4177 '0' , & ! MemoryOrder
4178 '' , & ! Stagger
4179 '' , & ! Dimname 1
4180 '' , & ! Dimname 2
4181 '' , & ! Dimname 3
4182 'latitude lower right, v point' , & ! Desc
4183 'degrees' , & ! Units
4184 'inc/wrf_restartout.inc ext_write_field LAT_LR_V memorder 0' , & ! Debug message
4185 1 , 1 , 1 , 1 , 1 , 1 , &
4186 1 , 1 , 1 , 1 , 1 , 1 , &
4187 1 , 1 , 1 , 1 , 1 , 1 , &
4188 ierr )
4189 END IF
4190 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4191 CALL wrf_ext_write_field ( &
4192 fid , & ! DataHandle
4193 current_date(1:19) , & ! DateStr
4194 'LAT_LL_D' , & ! Data Name
4195 grid%em_lat_ll_d , & ! Field
4196 WRF_FLOAT , & ! FieldType
4197 grid%communicator , & ! Comm
4198 grid%iocommunicator , & ! Comm
4199 grid%domdesc , & ! Comm
4200 grid%bdy_mask , & ! bdy_mask
4201 dryrun , & ! flag
4202 '0' , & ! MemoryOrder
4203 '' , & ! Stagger
4204 '' , & ! Dimname 1
4205 '' , & ! Dimname 2
4206 '' , & ! Dimname 3
4207 'latitude lower left, massless point' , & ! Desc
4208 'degrees' , & ! Units
4209 'inc/wrf_restartout.inc ext_write_field LAT_LL_D memorder 0' , & ! Debug message
4210 1 , 1 , 1 , 1 , 1 , 1 , &
4211 1 , 1 , 1 , 1 , 1 , 1 , &
4212 1 , 1 , 1 , 1 , 1 , 1 , &
4213 ierr )
4214 END IF
4215 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4216 CALL wrf_ext_write_field ( &
4217 fid , & ! DataHandle
4218 current_date(1:19) , & ! DateStr
4219 'LAT_UL_D' , & ! Data Name
4220 grid%em_lat_ul_d , & ! Field
4221 WRF_FLOAT , & ! FieldType
4222 grid%communicator , & ! Comm
4223 grid%iocommunicator , & ! Comm
4224 grid%domdesc , & ! Comm
4225 grid%bdy_mask , & ! bdy_mask
4226 dryrun , & ! flag
4227 '0' , & ! MemoryOrder
4228 '' , & ! Stagger
4229 '' , & ! Dimname 1
4230 '' , & ! Dimname 2
4231 '' , & ! Dimname 3
4232 'latitude up left, massless point' , & ! Desc
4233 'degrees' , & ! Units
4234 'inc/wrf_restartout.inc ext_write_field LAT_UL_D memorder 0' , & ! Debug message
4235 1 , 1 , 1 , 1 , 1 , 1 , &
4236 1 , 1 , 1 , 1 , 1 , 1 , &
4237 1 , 1 , 1 , 1 , 1 , 1 , &
4238 ierr )
4239 END IF
4240 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4241 CALL wrf_ext_write_field ( &
4242 fid , & ! DataHandle
4243 current_date(1:19) , & ! DateStr
4244 'LAT_UR_D' , & ! Data Name
4245 grid%em_lat_ur_d , & ! Field
4246 WRF_FLOAT , & ! FieldType
4247 grid%communicator , & ! Comm
4248 grid%iocommunicator , & ! Comm
4249 grid%domdesc , & ! Comm
4250 grid%bdy_mask , & ! bdy_mask
4251 dryrun , & ! flag
4252 '0' , & ! MemoryOrder
4253 '' , & ! Stagger
4254 '' , & ! Dimname 1
4255 '' , & ! Dimname 2
4256 '' , & ! Dimname 3
4257 'latitude up right, massless point' , & ! Desc
4258 'degrees' , & ! Units
4259 'inc/wrf_restartout.inc ext_write_field LAT_UR_D memorder 0' , & ! Debug message
4260 1 , 1 , 1 , 1 , 1 , 1 , &
4261 1 , 1 , 1 , 1 , 1 , 1 , &
4262 1 , 1 , 1 , 1 , 1 , 1 , &
4263 ierr )
4264 END IF
4265 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4266 CALL wrf_ext_write_field ( &
4267 fid , & ! DataHandle
4268 current_date(1:19) , & ! DateStr
4269 'LAT_LR_D' , & ! Data Name
4270 grid%em_lat_lr_d , & ! Field
4271 WRF_FLOAT , & ! FieldType
4272 grid%communicator , & ! Comm
4273 grid%iocommunicator , & ! Comm
4274 grid%domdesc , & ! Comm
4275 grid%bdy_mask , & ! bdy_mask
4276 dryrun , & ! flag
4277 '0' , & ! MemoryOrder
4278 '' , & ! Stagger
4279 '' , & ! Dimname 1
4280 '' , & ! Dimname 2
4281 '' , & ! Dimname 3
4282 'latitude lower right, massless point' , & ! Desc
4283 'degrees' , & ! Units
4284 'inc/wrf_restartout.inc ext_write_field LAT_LR_D memorder 0' , & ! Debug message
4285 1 , 1 , 1 , 1 , 1 , 1 , &
4286 1 , 1 , 1 , 1 , 1 , 1 , &
4287 1 , 1 , 1 , 1 , 1 , 1 , &
4288 ierr )
4289 END IF
4290 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4291 CALL wrf_ext_write_field ( &
4292 fid , & ! DataHandle
4293 current_date(1:19) , & ! DateStr
4294 'LON_LL_T' , & ! Data Name
4295 grid%em_lon_ll_t , & ! Field
4296 WRF_FLOAT , & ! FieldType
4297 grid%communicator , & ! Comm
4298 grid%iocommunicator , & ! Comm
4299 grid%domdesc , & ! Comm
4300 grid%bdy_mask , & ! bdy_mask
4301 dryrun , & ! flag
4302 '0' , & ! MemoryOrder
4303 '' , & ! Stagger
4304 '' , & ! Dimname 1
4305 '' , & ! Dimname 2
4306 '' , & ! Dimname 3
4307 'longitude lower left, temp point' , & ! Desc
4308 'degrees' , & ! Units
4309 'inc/wrf_restartout.inc ext_write_field LON_LL_T memorder 0' , & ! Debug message
4310 1 , 1 , 1 , 1 , 1 , 1 , &
4311 1 , 1 , 1 , 1 , 1 , 1 , &
4312 1 , 1 , 1 , 1 , 1 , 1 , &
4313 ierr )
4314 END IF
4315 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4316 CALL wrf_ext_write_field ( &
4317 fid , & ! DataHandle
4318 current_date(1:19) , & ! DateStr
4319 'LON_UL_T' , & ! Data Name
4320 grid%em_lon_ul_t , & ! Field
4321 WRF_FLOAT , & ! FieldType
4322 grid%communicator , & ! Comm
4323 grid%iocommunicator , & ! Comm
4324 grid%domdesc , & ! Comm
4325 grid%bdy_mask , & ! bdy_mask
4326 dryrun , & ! flag
4327 '0' , & ! MemoryOrder
4328 '' , & ! Stagger
4329 '' , & ! Dimname 1
4330 '' , & ! Dimname 2
4331 '' , & ! Dimname 3
4332 'longitude up left, temp point' , & ! Desc
4333 'degrees' , & ! Units
4334 'inc/wrf_restartout.inc ext_write_field LON_UL_T memorder 0' , & ! Debug message
4335 1 , 1 , 1 , 1 , 1 , 1 , &
4336 1 , 1 , 1 , 1 , 1 , 1 , &
4337 1 , 1 , 1 , 1 , 1 , 1 , &
4338 ierr )
4339 END IF
4340 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4341 CALL wrf_ext_write_field ( &
4342 fid , & ! DataHandle
4343 current_date(1:19) , & ! DateStr
4344 'LON_UR_T' , & ! Data Name
4345 grid%em_lon_ur_t , & ! Field
4346 WRF_FLOAT , & ! FieldType
4347 grid%communicator , & ! Comm
4348 grid%iocommunicator , & ! Comm
4349 grid%domdesc , & ! Comm
4350 grid%bdy_mask , & ! bdy_mask
4351 dryrun , & ! flag
4352 '0' , & ! MemoryOrder
4353 '' , & ! Stagger
4354 '' , & ! Dimname 1
4355 '' , & ! Dimname 2
4356 '' , & ! Dimname 3
4357 'longitude up right, temp point' , & ! Desc
4358 'degrees' , & ! Units
4359 'inc/wrf_restartout.inc ext_write_field LON_UR_T memorder 0' , & ! Debug message
4360 1 , 1 , 1 , 1 , 1 , 1 , &
4361 1 , 1 , 1 , 1 , 1 , 1 , &
4362 1 , 1 , 1 , 1 , 1 , 1 , &
4363 ierr )
4364 END IF
4365 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4366 CALL wrf_ext_write_field ( &
4367 fid , & ! DataHandle
4368 current_date(1:19) , & ! DateStr
4369 'LON_LR_T' , & ! Data Name
4370 grid%em_lon_lr_t , & ! Field
4371 WRF_FLOAT , & ! FieldType
4372 grid%communicator , & ! Comm
4373 grid%iocommunicator , & ! Comm
4374 grid%domdesc , & ! Comm
4375 grid%bdy_mask , & ! bdy_mask
4376 dryrun , & ! flag
4377 '0' , & ! MemoryOrder
4378 '' , & ! Stagger
4379 '' , & ! Dimname 1
4380 '' , & ! Dimname 2
4381 '' , & ! Dimname 3
4382 'longitude lower right, temp point' , & ! Desc
4383 'degrees' , & ! Units
4384 'inc/wrf_restartout.inc ext_write_field LON_LR_T memorder 0' , & ! Debug message
4385 1 , 1 , 1 , 1 , 1 , 1 , &
4386 1 , 1 , 1 , 1 , 1 , 1 , &
4387 1 , 1 , 1 , 1 , 1 , 1 , &
4388 ierr )
4389 END IF
4390 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4391 CALL wrf_ext_write_field ( &
4392 fid , & ! DataHandle
4393 current_date(1:19) , & ! DateStr
4394 'LON_LL_U' , & ! Data Name
4395 grid%em_lon_ll_u , & ! Field
4396 WRF_FLOAT , & ! FieldType
4397 grid%communicator , & ! Comm
4398 grid%iocommunicator , & ! Comm
4399 grid%domdesc , & ! Comm
4400 grid%bdy_mask , & ! bdy_mask
4401 dryrun , & ! flag
4402 '0' , & ! MemoryOrder
4403 '' , & ! Stagger
4404 '' , & ! Dimname 1
4405 '' , & ! Dimname 2
4406 '' , & ! Dimname 3
4407 'longitude lower left, u point' , & ! Desc
4408 'degrees' , & ! Units
4409 'inc/wrf_restartout.inc ext_write_field LON_LL_U memorder 0' , & ! Debug message
4410 1 , 1 , 1 , 1 , 1 , 1 , &
4411 1 , 1 , 1 , 1 , 1 , 1 , &
4412 1 , 1 , 1 , 1 , 1 , 1 , &
4413 ierr )
4414 END IF
4415 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4416 CALL wrf_ext_write_field ( &
4417 fid , & ! DataHandle
4418 current_date(1:19) , & ! DateStr
4419 'LON_UL_U' , & ! Data Name
4420 grid%em_lon_ul_u , & ! Field
4421 WRF_FLOAT , & ! FieldType
4422 grid%communicator , & ! Comm
4423 grid%iocommunicator , & ! Comm
4424 grid%domdesc , & ! Comm
4425 grid%bdy_mask , & ! bdy_mask
4426 dryrun , & ! flag
4427 '0' , & ! MemoryOrder
4428 '' , & ! Stagger
4429 '' , & ! Dimname 1
4430 '' , & ! Dimname 2
4431 '' , & ! Dimname 3
4432 'longitude up left, u point' , & ! Desc
4433 'degrees' , & ! Units
4434 'inc/wrf_restartout.inc ext_write_field LON_UL_U memorder 0' , & ! Debug message
4435 1 , 1 , 1 , 1 , 1 , 1 , &
4436 1 , 1 , 1 , 1 , 1 , 1 , &
4437 1 , 1 , 1 , 1 , 1 , 1 , &
4438 ierr )
4439 END IF
4440 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4441 CALL wrf_ext_write_field ( &
4442 fid , & ! DataHandle
4443 current_date(1:19) , & ! DateStr
4444 'LON_UR_U' , & ! Data Name
4445 grid%em_lon_ur_u , & ! Field
4446 WRF_FLOAT , & ! FieldType
4447 grid%communicator , & ! Comm
4448 grid%iocommunicator , & ! Comm
4449 grid%domdesc , & ! Comm
4450 grid%bdy_mask , & ! bdy_mask
4451 dryrun , & ! flag
4452 '0' , & ! MemoryOrder
4453 '' , & ! Stagger
4454 '' , & ! Dimname 1
4455 '' , & ! Dimname 2
4456 '' , & ! Dimname 3
4457 'longitude up right, u point' , & ! Desc
4458 'degrees' , & ! Units
4459 'inc/wrf_restartout.inc ext_write_field LON_UR_U memorder 0' , & ! Debug message
4460 1 , 1 , 1 , 1 , 1 , 1 , &
4461 1 , 1 , 1 , 1 , 1 , 1 , &
4462 1 , 1 , 1 , 1 , 1 , 1 , &
4463 ierr )
4464 END IF
4465 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4466 CALL wrf_ext_write_field ( &
4467 fid , & ! DataHandle
4468 current_date(1:19) , & ! DateStr
4469 'LON_LR_U' , & ! Data Name
4470 grid%em_lon_lr_u , & ! Field
4471 WRF_FLOAT , & ! FieldType
4472 grid%communicator , & ! Comm
4473 grid%iocommunicator , & ! Comm
4474 grid%domdesc , & ! Comm
4475 grid%bdy_mask , & ! bdy_mask
4476 dryrun , & ! flag
4477 '0' , & ! MemoryOrder
4478 '' , & ! Stagger
4479 '' , & ! Dimname 1
4480 '' , & ! Dimname 2
4481 '' , & ! Dimname 3
4482 'longitude lower right, u point' , & ! Desc
4483 'degrees' , & ! Units
4484 'inc/wrf_restartout.inc ext_write_field LON_LR_U memorder 0' , & ! Debug message
4485 1 , 1 , 1 , 1 , 1 , 1 , &
4486 1 , 1 , 1 , 1 , 1 , 1 , &
4487 1 , 1 , 1 , 1 , 1 , 1 , &
4488 ierr )
4489 END IF
4490 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4491 CALL wrf_ext_write_field ( &
4492 fid , & ! DataHandle
4493 current_date(1:19) , & ! DateStr
4494 'LON_LL_V' , & ! Data Name
4495 grid%em_lon_ll_v , & ! Field
4496 WRF_FLOAT , & ! FieldType
4497 grid%communicator , & ! Comm
4498 grid%iocommunicator , & ! Comm
4499 grid%domdesc , & ! Comm
4500 grid%bdy_mask , & ! bdy_mask
4501 dryrun , & ! flag
4502 '0' , & ! MemoryOrder
4503 '' , & ! Stagger
4504 '' , & ! Dimname 1
4505 '' , & ! Dimname 2
4506 '' , & ! Dimname 3
4507 'longitude lower left, v point' , & ! Desc
4508 'degrees' , & ! Units
4509 'inc/wrf_restartout.inc ext_write_field LON_LL_V memorder 0' , & ! Debug message
4510 1 , 1 , 1 , 1 , 1 , 1 , &
4511 1 , 1 , 1 , 1 , 1 , 1 , &
4512 1 , 1 , 1 , 1 , 1 , 1 , &
4513 ierr )
4514 END IF
4515 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4516 CALL wrf_ext_write_field ( &
4517 fid , & ! DataHandle
4518 current_date(1:19) , & ! DateStr
4519 'LON_UL_V' , & ! Data Name
4520 grid%em_lon_ul_v , & ! Field
4521 WRF_FLOAT , & ! FieldType
4522 grid%communicator , & ! Comm
4523 grid%iocommunicator , & ! Comm
4524 grid%domdesc , & ! Comm
4525 grid%bdy_mask , & ! bdy_mask
4526 dryrun , & ! flag
4527 '0' , & ! MemoryOrder
4528 '' , & ! Stagger
4529 '' , & ! Dimname 1
4530 '' , & ! Dimname 2
4531 '' , & ! Dimname 3
4532 'longitude up left, v point' , & ! Desc
4533 'degrees' , & ! Units
4534 'inc/wrf_restartout.inc ext_write_field LON_UL_V memorder 0' , & ! Debug message
4535 1 , 1 , 1 , 1 , 1 , 1 , &
4536 1 , 1 , 1 , 1 , 1 , 1 , &
4537 1 , 1 , 1 , 1 , 1 , 1 , &
4538 ierr )
4539 END IF
4540 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4541 CALL wrf_ext_write_field ( &
4542 fid , & ! DataHandle
4543 current_date(1:19) , & ! DateStr
4544 'LON_UR_V' , & ! Data Name
4545 grid%em_lon_ur_v , & ! Field
4546 WRF_FLOAT , & ! FieldType
4547 grid%communicator , & ! Comm
4548 grid%iocommunicator , & ! Comm
4549 grid%domdesc , & ! Comm
4550 grid%bdy_mask , & ! bdy_mask
4551 dryrun , & ! flag
4552 '0' , & ! MemoryOrder
4553 '' , & ! Stagger
4554 '' , & ! Dimname 1
4555 '' , & ! Dimname 2
4556 '' , & ! Dimname 3
4557 'longitude up right, v point' , & ! Desc
4558 'degrees' , & ! Units
4559 'inc/wrf_restartout.inc ext_write_field LON_UR_V memorder 0' , & ! Debug message
4560 1 , 1 , 1 , 1 , 1 , 1 , &
4561 1 , 1 , 1 , 1 , 1 , 1 , &
4562 1 , 1 , 1 , 1 , 1 , 1 , &
4563 ierr )
4564 END IF
4565 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4566 CALL wrf_ext_write_field ( &
4567 fid , & ! DataHandle
4568 current_date(1:19) , & ! DateStr
4569 'LON_LR_V' , & ! Data Name
4570 grid%em_lon_lr_v , & ! Field
4571 WRF_FLOAT , & ! FieldType
4572 grid%communicator , & ! Comm
4573 grid%iocommunicator , & ! Comm
4574 grid%domdesc , & ! Comm
4575 grid%bdy_mask , & ! bdy_mask
4576 dryrun , & ! flag
4577 '0' , & ! MemoryOrder
4578 '' , & ! Stagger
4579 '' , & ! Dimname 1
4580 '' , & ! Dimname 2
4581 '' , & ! Dimname 3
4582 'longitude lower right, v point' , & ! Desc
4583 'degrees' , & ! Units
4584 'inc/wrf_restartout.inc ext_write_field LON_LR_V memorder 0' , & ! Debug message
4585 1 , 1 , 1 , 1 , 1 , 1 , &
4586 1 , 1 , 1 , 1 , 1 , 1 , &
4587 1 , 1 , 1 , 1 , 1 , 1 , &
4588 ierr )
4589 END IF
4590 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4591 CALL wrf_ext_write_field ( &
4592 fid , & ! DataHandle
4593 current_date(1:19) , & ! DateStr
4594 'LON_LL_D' , & ! Data Name
4595 grid%em_lon_ll_d , & ! Field
4596 WRF_FLOAT , & ! FieldType
4597 grid%communicator , & ! Comm
4598 grid%iocommunicator , & ! Comm
4599 grid%domdesc , & ! Comm
4600 grid%bdy_mask , & ! bdy_mask
4601 dryrun , & ! flag
4602 '0' , & ! MemoryOrder
4603 '' , & ! Stagger
4604 '' , & ! Dimname 1
4605 '' , & ! Dimname 2
4606 '' , & ! Dimname 3
4607 'longitude lower left, massless point' , & ! Desc
4608 'degrees' , & ! Units
4609 'inc/wrf_restartout.inc ext_write_field LON_LL_D memorder 0' , & ! Debug message
4610 1 , 1 , 1 , 1 , 1 , 1 , &
4611 1 , 1 , 1 , 1 , 1 , 1 , &
4612 1 , 1 , 1 , 1 , 1 , 1 , &
4613 ierr )
4614 END IF
4615 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4616 CALL wrf_ext_write_field ( &
4617 fid , & ! DataHandle
4618 current_date(1:19) , & ! DateStr
4619 'LON_UL_D' , & ! Data Name
4620 grid%em_lon_ul_d , & ! Field
4621 WRF_FLOAT , & ! FieldType
4622 grid%communicator , & ! Comm
4623 grid%iocommunicator , & ! Comm
4624 grid%domdesc , & ! Comm
4625 grid%bdy_mask , & ! bdy_mask
4626 dryrun , & ! flag
4627 '0' , & ! MemoryOrder
4628 '' , & ! Stagger
4629 '' , & ! Dimname 1
4630 '' , & ! Dimname 2
4631 '' , & ! Dimname 3
4632 'longitude up left, massless point' , & ! Desc
4633 'degrees' , & ! Units
4634 'inc/wrf_restartout.inc ext_write_field LON_UL_D memorder 0' , & ! Debug message
4635 1 , 1 , 1 , 1 , 1 , 1 , &
4636 1 , 1 , 1 , 1 , 1 , 1 , &
4637 1 , 1 , 1 , 1 , 1 , 1 , &
4638 ierr )
4639 END IF
4640 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4641 CALL wrf_ext_write_field ( &
4642 fid , & ! DataHandle
4643 current_date(1:19) , & ! DateStr
4644 'LON_UR_D' , & ! Data Name
4645 grid%em_lon_ur_d , & ! Field
4646 WRF_FLOAT , & ! FieldType
4647 grid%communicator , & ! Comm
4648 grid%iocommunicator , & ! Comm
4649 grid%domdesc , & ! Comm
4650 grid%bdy_mask , & ! bdy_mask
4651 dryrun , & ! flag
4652 '0' , & ! MemoryOrder
4653 '' , & ! Stagger
4654 '' , & ! Dimname 1
4655 '' , & ! Dimname 2
4656 '' , & ! Dimname 3
4657 'longitude up right, massless point' , & ! Desc
4658 'degrees' , & ! Units
4659 'inc/wrf_restartout.inc ext_write_field LON_UR_D memorder 0' , & ! Debug message
4660 1 , 1 , 1 , 1 , 1 , 1 , &
4661 1 , 1 , 1 , 1 , 1 , 1 , &
4662 1 , 1 , 1 , 1 , 1 , 1 , &
4663 ierr )
4664 END IF
4665 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4666 CALL wrf_ext_write_field ( &
4667 fid , & ! DataHandle
4668 current_date(1:19) , & ! DateStr
4669 'LON_LR_D' , & ! Data Name
4670 grid%em_lon_lr_d , & ! Field
4671 WRF_FLOAT , & ! FieldType
4672 grid%communicator , & ! Comm
4673 grid%iocommunicator , & ! Comm
4674 grid%domdesc , & ! Comm
4675 grid%bdy_mask , & ! bdy_mask
4676 dryrun , & ! flag
4677 '0' , & ! MemoryOrder
4678 '' , & ! Stagger
4679 '' , & ! Dimname 1
4680 '' , & ! Dimname 2
4681 '' , & ! Dimname 3
4682 'longitude lower right, massless point' , & ! Desc
4683 'degrees' , & ! Units
4684 'inc/wrf_restartout.inc ext_write_field LON_LR_D memorder 0' , & ! Debug message
4685 1 , 1 , 1 , 1 , 1 , 1 , &
4686 1 , 1 , 1 , 1 , 1 , 1 , &
4687 1 , 1 , 1 , 1 , 1 , 1 , &
4688 ierr )
4689 END IF
4690 CALL wrf_ext_write_field ( &
4691 fid , & ! DataHandle
4692 current_date(1:19) , & ! DateStr
4693 'RTHCUTEN' , & ! Data Name
4694 grid%rthcuten , & ! Field
4695 WRF_FLOAT , & ! FieldType
4696 grid%communicator , & ! Comm
4697 grid%iocommunicator , & ! Comm
4698 grid%domdesc , & ! Comm
4699 grid%bdy_mask , & ! bdy_mask
4700 dryrun , & ! flag
4701 'XYZ' , & ! MemoryOrder
4702 '' , & ! Stagger
4703 'west_east' , & ! Dimname 1
4704 'south_north' , & ! Dimname 2
4705 'bottom_top' , & ! Dimname 3
4706 'COUPLED THETA TENDENCY DUE TO CUMULUS SCHEME' , & ! Desc
4707 'Pa K s-1' , & ! Units
4708 'inc/wrf_restartout.inc ext_write_field RTHCUTEN memorder XYZ' , & ! Debug message
4709 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4710 ims , ime , jms , jme , kms , kme , &
4711 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4712 ierr )
4713 CALL wrf_ext_write_field ( &
4714 fid , & ! DataHandle
4715 current_date(1:19) , & ! DateStr
4716 'RQVCUTEN' , & ! Data Name
4717 grid%rqvcuten , & ! Field
4718 WRF_FLOAT , & ! FieldType
4719 grid%communicator , & ! Comm
4720 grid%iocommunicator , & ! Comm
4721 grid%domdesc , & ! Comm
4722 grid%bdy_mask , & ! bdy_mask
4723 dryrun , & ! flag
4724 'XYZ' , & ! MemoryOrder
4725 '' , & ! Stagger
4726 'west_east' , & ! Dimname 1
4727 'south_north' , & ! Dimname 2
4728 'bottom_top' , & ! Dimname 3
4729 'COUPLED Q_V TENDENCY DUE TO CUMULUS SCHEME' , & ! Desc
4730 'Pa kg kg-1 s-1' , & ! Units
4731 'inc/wrf_restartout.inc ext_write_field RQVCUTEN memorder XYZ' , & ! Debug message
4732 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4733 ims , ime , jms , jme , kms , kme , &
4734 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4735 ierr )
4736 CALL wrf_ext_write_field ( &
4737 fid , & ! DataHandle
4738 current_date(1:19) , & ! DateStr
4739 'RQRCUTEN' , & ! Data Name
4740 grid%rqrcuten , & ! Field
4741 WRF_FLOAT , & ! FieldType
4742 grid%communicator , & ! Comm
4743 grid%iocommunicator , & ! Comm
4744 grid%domdesc , & ! Comm
4745 grid%bdy_mask , & ! bdy_mask
4746 dryrun , & ! flag
4747 'XYZ' , & ! MemoryOrder
4748 '' , & ! Stagger
4749 'west_east' , & ! Dimname 1
4750 'south_north' , & ! Dimname 2
4751 'bottom_top' , & ! Dimname 3
4752 'COUPLED Q_R TENDENCY DUE TO CUMULUS SCHEME' , & ! Desc
4753 'Pa kg kg-1 s-1' , & ! Units
4754 'inc/wrf_restartout.inc ext_write_field RQRCUTEN memorder XYZ' , & ! Debug message
4755 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4756 ims , ime , jms , jme , kms , kme , &
4757 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4758 ierr )
4759 CALL wrf_ext_write_field ( &
4760 fid , & ! DataHandle
4761 current_date(1:19) , & ! DateStr
4762 'RQCCUTEN' , & ! Data Name
4763 grid%rqccuten , & ! Field
4764 WRF_FLOAT , & ! FieldType
4765 grid%communicator , & ! Comm
4766 grid%iocommunicator , & ! Comm
4767 grid%domdesc , & ! Comm
4768 grid%bdy_mask , & ! bdy_mask
4769 dryrun , & ! flag
4770 'XYZ' , & ! MemoryOrder
4771 '' , & ! Stagger
4772 'west_east' , & ! Dimname 1
4773 'south_north' , & ! Dimname 2
4774 'bottom_top' , & ! Dimname 3
4775 'COUPLED Q_C TENDENCY DUE TO CUMULUS SCHEME' , & ! Desc
4776 'Pa kg kg-1 s-1' , & ! Units
4777 'inc/wrf_restartout.inc ext_write_field RQCCUTEN memorder XYZ' , & ! Debug message
4778 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4779 ims , ime , jms , jme , kms , kme , &
4780 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4781 ierr )
4782 CALL wrf_ext_write_field ( &
4783 fid , & ! DataHandle
4784 current_date(1:19) , & ! DateStr
4785 'RQSCUTEN' , & ! Data Name
4786 grid%rqscuten , & ! Field
4787 WRF_FLOAT , & ! FieldType
4788 grid%communicator , & ! Comm
4789 grid%iocommunicator , & ! Comm
4790 grid%domdesc , & ! Comm
4791 grid%bdy_mask , & ! bdy_mask
4792 dryrun , & ! flag
4793 'XYZ' , & ! MemoryOrder
4794 '' , & ! Stagger
4795 'west_east' , & ! Dimname 1
4796 'south_north' , & ! Dimname 2
4797 'bottom_top' , & ! Dimname 3
4798 'COUPLED Q_S TENDENCY DUE TO CUMULUS SCHEME' , & ! Desc
4799 'Pa kg kg-1 s-1' , & ! Units
4800 'inc/wrf_restartout.inc ext_write_field RQSCUTEN memorder XYZ' , & ! Debug message
4801 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4802 ims , ime , jms , jme , kms , kme , &
4803 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4804 ierr )
4805 CALL wrf_ext_write_field ( &
4806 fid , & ! DataHandle
4807 current_date(1:19) , & ! DateStr
4808 'RQICUTEN' , & ! Data Name
4809 grid%rqicuten , & ! Field
4810 WRF_FLOAT , & ! FieldType
4811 grid%communicator , & ! Comm
4812 grid%iocommunicator , & ! Comm
4813 grid%domdesc , & ! Comm
4814 grid%bdy_mask , & ! bdy_mask
4815 dryrun , & ! flag
4816 'XYZ' , & ! MemoryOrder
4817 '' , & ! Stagger
4818 'west_east' , & ! Dimname 1
4819 'south_north' , & ! Dimname 2
4820 'bottom_top' , & ! Dimname 3
4821 'COUPLED Q_I TENDENCY DUE TO CUMULUS SCHEME' , & ! Desc
4822 'Pa kg kg-1 s-1' , & ! Units
4823 'inc/wrf_restartout.inc ext_write_field RQICUTEN memorder XYZ' , & ! Debug message
4824 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4825 ims , ime , jms , jme , kms , kme , &
4826 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4827 ierr )
4828 CALL wrf_ext_write_field ( &
4829 fid , & ! DataHandle
4830 current_date(1:19) , & ! DateStr
4831 'W0AVG' , & ! Data Name
4832 grid%w0avg , & ! Field
4833 WRF_FLOAT , & ! FieldType
4834 grid%communicator , & ! Comm
4835 grid%iocommunicator , & ! Comm
4836 grid%domdesc , & ! Comm
4837 grid%bdy_mask , & ! bdy_mask
4838 dryrun , & ! flag
4839 'XYZ' , & ! MemoryOrder
4840 '' , & ! Stagger
4841 'west_east' , & ! Dimname 1
4842 'south_north' , & ! Dimname 2
4843 'bottom_top' , & ! Dimname 3
4844 'AVERAGE VERTICAL VELOCITY FOR KF CUMULUS SCHEME' , & ! Desc
4845 'm s-1' , & ! Units
4846 'inc/wrf_restartout.inc ext_write_field W0AVG memorder XYZ' , & ! Debug message
4847 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4848 ims , ime , jms , jme , kms , kme , &
4849 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4850 ierr )
4851 CALL wrf_ext_write_field ( &
4852 fid , & ! DataHandle
4853 current_date(1:19) , & ! DateStr
4854 'RAINC' , & ! Data Name
4855 grid%rainc , & ! Field
4856 WRF_FLOAT , & ! FieldType
4857 grid%communicator , & ! Comm
4858 grid%iocommunicator , & ! Comm
4859 grid%domdesc , & ! Comm
4860 grid%bdy_mask , & ! bdy_mask
4861 dryrun , & ! flag
4862 'XY' , & ! MemoryOrder
4863 '' , & ! Stagger
4864 'west_east' , & ! Dimname 1
4865 'south_north' , & ! Dimname 2
4866 '' , & ! Dimname 3
4867 'ACCUMULATED TOTAL CUMULUS PRECIPITATION' , & ! Desc
4868 'mm' , & ! Units
4869 'inc/wrf_restartout.inc ext_write_field RAINC memorder XY' , & ! Debug message
4870 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4871 ims , ime , jms , jme , 1 , 1 , &
4872 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4873 ierr )
4874 CALL wrf_ext_write_field ( &
4875 fid , & ! DataHandle
4876 current_date(1:19) , & ! DateStr
4877 'RAINNC' , & ! Data Name
4878 grid%rainnc , & ! Field
4879 WRF_FLOAT , & ! FieldType
4880 grid%communicator , & ! Comm
4881 grid%iocommunicator , & ! Comm
4882 grid%domdesc , & ! Comm
4883 grid%bdy_mask , & ! bdy_mask
4884 dryrun , & ! flag
4885 'XY' , & ! MemoryOrder
4886 '' , & ! Stagger
4887 'west_east' , & ! Dimname 1
4888 'south_north' , & ! Dimname 2
4889 '' , & ! Dimname 3
4890 'ACCUMULATED TOTAL GRID SCALE PRECIPITATION' , & ! Desc
4891 'mm' , & ! Units
4892 'inc/wrf_restartout.inc ext_write_field RAINNC memorder XY' , & ! Debug message
4893 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4894 ims , ime , jms , jme , 1 , 1 , &
4895 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4896 ierr )
4897 CALL wrf_ext_write_field ( &
4898 fid , & ! DataHandle
4899 current_date(1:19) , & ! DateStr
4900 'RAINCV' , & ! Data Name
4901 grid%raincv , & ! Field
4902 WRF_FLOAT , & ! FieldType
4903 grid%communicator , & ! Comm
4904 grid%iocommunicator , & ! Comm
4905 grid%domdesc , & ! Comm
4906 grid%bdy_mask , & ! bdy_mask
4907 dryrun , & ! flag
4908 'XY' , & ! MemoryOrder
4909 '' , & ! Stagger
4910 'west_east' , & ! Dimname 1
4911 'south_north' , & ! Dimname 2
4912 '' , & ! Dimname 3
4913 'TIME-STEP CUMULUS PRECIPITATION' , & ! Desc
4914 'mm' , & ! Units
4915 'inc/wrf_restartout.inc ext_write_field RAINCV memorder XY' , & ! Debug message
4916 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4917 ims , ime , jms , jme , 1 , 1 , &
4918 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4919 ierr )
4920 CALL wrf_ext_write_field ( &
4921 fid , & ! DataHandle
4922 current_date(1:19) , & ! DateStr
4923 'RAINNCV' , & ! Data Name
4924 grid%rainncv , & ! Field
4925 WRF_FLOAT , & ! FieldType
4926 grid%communicator , & ! Comm
4927 grid%iocommunicator , & ! Comm
4928 grid%domdesc , & ! Comm
4929 grid%bdy_mask , & ! bdy_mask
4930 dryrun , & ! flag
4931 'XY' , & ! MemoryOrder
4932 '' , & ! Stagger
4933 'west_east' , & ! Dimname 1
4934 'south_north' , & ! Dimname 2
4935 '' , & ! Dimname 3
4936 'TIME-STEP NONCONVECTIVE PRECIPITATION' , & ! Desc
4937 'mm' , & ! Units
4938 'inc/wrf_restartout.inc ext_write_field RAINNCV memorder XY' , & ! Debug message
4939 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4940 ims , ime , jms , jme , 1 , 1 , &
4941 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4942 ierr )
4943 CALL wrf_ext_write_field ( &
4944 fid , & ! DataHandle
4945 current_date(1:19) , & ! DateStr
4946 'RAINBL' , & ! Data Name
4947 grid%rainbl , & ! Field
4948 WRF_FLOAT , & ! FieldType
4949 grid%communicator , & ! Comm
4950 grid%iocommunicator , & ! Comm
4951 grid%domdesc , & ! Comm
4952 grid%bdy_mask , & ! bdy_mask
4953 dryrun , & ! flag
4954 'XY' , & ! MemoryOrder
4955 '' , & ! Stagger
4956 'west_east' , & ! Dimname 1
4957 'south_north' , & ! Dimname 2
4958 '' , & ! Dimname 3
4959 'PBL TIME-STEP TOTAL PRECIPITATION' , & ! Desc
4960 'mm' , & ! Units
4961 'inc/wrf_restartout.inc ext_write_field RAINBL memorder XY' , & ! Debug message
4962 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4963 ims , ime , jms , jme , 1 , 1 , &
4964 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4965 ierr )
4966 CALL wrf_ext_write_field ( &
4967 fid , & ! DataHandle
4968 current_date(1:19) , & ! DateStr
4969 'SNOWNC' , & ! Data Name
4970 grid%snownc , & ! Field
4971 WRF_FLOAT , & ! FieldType
4972 grid%communicator , & ! Comm
4973 grid%iocommunicator , & ! Comm
4974 grid%domdesc , & ! Comm
4975 grid%bdy_mask , & ! bdy_mask
4976 dryrun , & ! flag
4977 'XY' , & ! MemoryOrder
4978 '' , & ! Stagger
4979 'west_east' , & ! Dimname 1
4980 'south_north' , & ! Dimname 2
4981 '' , & ! Dimname 3
4982 'ACCUMULATED TOTAL GRID SCALE SNOW AND ICE' , & ! Desc
4983 'mm' , & ! Units
4984 'inc/wrf_restartout.inc ext_write_field SNOWNC memorder XY' , & ! Debug message
4985 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4986 ims , ime , jms , jme , 1 , 1 , &
4987 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4988 ierr )
4989 CALL wrf_ext_write_field ( &
4990 fid , & ! DataHandle
4991 current_date(1:19) , & ! DateStr
4992 'GRAUPELNC' , & ! Data Name
4993 grid%graupelnc , & ! Field
4994 WRF_FLOAT , & ! FieldType
4995 grid%communicator , & ! Comm
4996 grid%iocommunicator , & ! Comm
4997 grid%domdesc , & ! Comm
4998 grid%bdy_mask , & ! bdy_mask
4999 dryrun , & ! flag
5000 'XY' , & ! MemoryOrder
5001 '' , & ! Stagger
5002 'west_east' , & ! Dimname 1
5003 'south_north' , & ! Dimname 2
5004 '' , & ! Dimname 3
5005 'ACCUMULATED TOTAL GRID SCALE GRAUPEL' , & ! Desc
5006 'mm' , & ! Units
5007 'inc/wrf_restartout.inc ext_write_field GRAUPELNC memorder XY' , & ! Debug message
5008 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5009 ims , ime , jms , jme , 1 , 1 , &
5010 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5011 ierr )
5012 CALL wrf_ext_write_field ( &
5013 fid , & ! DataHandle
5014 current_date(1:19) , & ! DateStr
5015 'SNOWNCV' , & ! Data Name
5016 grid%snowncv , & ! Field
5017 WRF_FLOAT , & ! FieldType
5018 grid%communicator , & ! Comm
5019 grid%iocommunicator , & ! Comm
5020 grid%domdesc , & ! Comm
5021 grid%bdy_mask , & ! bdy_mask
5022 dryrun , & ! flag
5023 'XY' , & ! MemoryOrder
5024 '' , & ! Stagger
5025 'west_east' , & ! Dimname 1
5026 'south_north' , & ! Dimname 2
5027 '' , & ! Dimname 3
5028 'TIME-STEP NONCONVECTIVE SNOW AND ICE' , & ! Desc
5029 'mm' , & ! Units
5030 'inc/wrf_restartout.inc ext_write_field SNOWNCV memorder XY' , & ! Debug message
5031 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5032 ims , ime , jms , jme , 1 , 1 , &
5033 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5034 ierr )
5035 CALL wrf_ext_write_field ( &
5036 fid , & ! DataHandle
5037 current_date(1:19) , & ! DateStr
5038 'GRAUPELNCV' , & ! Data Name
5039 grid%graupelncv , & ! Field
5040 WRF_FLOAT , & ! FieldType
5041 grid%communicator , & ! Comm
5042 grid%iocommunicator , & ! Comm
5043 grid%domdesc , & ! Comm
5044 grid%bdy_mask , & ! bdy_mask
5045 dryrun , & ! flag
5046 'XY' , & ! MemoryOrder
5047 '' , & ! Stagger
5048 'west_east' , & ! Dimname 1
5049 'south_north' , & ! Dimname 2
5050 '' , & ! Dimname 3
5051 'TIME-STEP NONCONVECTIVE GRAUPEL' , & ! Desc
5052 'mm' , & ! Units
5053 'inc/wrf_restartout.inc ext_write_field GRAUPELNCV memorder XY' , & ! Debug message
5054 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5055 ims , ime , jms , jme , 1 , 1 , &
5056 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5057 ierr )
5058 CALL wrf_ext_write_field ( &
5059 fid , & ! DataHandle
5060 current_date(1:19) , & ! DateStr
5061 'NCA' , & ! Data Name
5062 grid%nca , & ! Field
5063 WRF_FLOAT , & ! FieldType
5064 grid%communicator , & ! Comm
5065 grid%iocommunicator , & ! Comm
5066 grid%domdesc , & ! Comm
5067 grid%bdy_mask , & ! bdy_mask
5068 dryrun , & ! flag
5069 'XY' , & ! MemoryOrder
5070 '' , & ! Stagger
5071 'west_east' , & ! Dimname 1
5072 'south_north' , & ! Dimname 2
5073 '' , & ! Dimname 3
5074 'COUNTER OF THE CLOUD RELAXATION TIME IN KF CUMULUS SCHEME' , & ! Desc
5075 '' , & ! Units
5076 'inc/wrf_restartout.inc ext_write_field NCA memorder XY' , & ! Debug message
5077 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5078 ims , ime , jms , jme , 1 , 1 , &
5079 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5080 ierr )
5081 CALL wrf_ext_write_field ( &
5082 fid , & ! DataHandle
5083 current_date(1:19) , & ! DateStr
5084 'MASS_FLUX' , & ! Data Name
5085 grid%mass_flux , & ! Field
5086 WRF_FLOAT , & ! FieldType
5087 grid%communicator , & ! Comm
5088 grid%iocommunicator , & ! Comm
5089 grid%domdesc , & ! Comm
5090 grid%bdy_mask , & ! bdy_mask
5091 dryrun , & ! flag
5092 'XY' , & ! MemoryOrder
5093 '' , & ! Stagger
5094 'west_east' , & ! Dimname 1
5095 'south_north' , & ! Dimname 2
5096 '' , & ! Dimname 3
5097 'DOWNDRAFT MASS FLUX FOR IN GRELL CUMULUS SCHEME' , & ! Desc
5098 'mb hour-1' , & ! Units
5099 'inc/wrf_restartout.inc ext_write_field MASS_FLUX memorder XY' , & ! Debug message
5100 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5101 ims , ime , jms , jme , 1 , 1 , &
5102 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5103 ierr )
5104 CALL wrf_ext_write_field ( &
5105 fid , & ! DataHandle
5106 current_date(1:19) , & ! DateStr
5107 'APR_GR' , & ! Data Name
5108 grid%apr_gr , & ! Field
5109 WRF_FLOAT , & ! FieldType
5110 grid%communicator , & ! Comm
5111 grid%iocommunicator , & ! Comm
5112 grid%domdesc , & ! Comm
5113 grid%bdy_mask , & ! bdy_mask
5114 dryrun , & ! flag
5115 'XY' , & ! MemoryOrder
5116 '' , & ! Stagger
5117 'west_east' , & ! Dimname 1
5118 'south_north' , & ! Dimname 2
5119 '' , & ! Dimname 3
5120 'PRECIP FROM CLOSURE OLD_GRELL' , & ! Desc
5121 'mm hour-1' , & ! Units
5122 'inc/wrf_restartout.inc ext_write_field APR_GR memorder XY' , & ! Debug message
5123 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5124 ims , ime , jms , jme , 1 , 1 , &
5125 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5126 ierr )
5127 CALL wrf_ext_write_field ( &
5128 fid , & ! DataHandle
5129 current_date(1:19) , & ! DateStr
5130 'APR_W' , & ! Data Name
5131 grid%apr_w , & ! Field
5132 WRF_FLOAT , & ! FieldType
5133 grid%communicator , & ! Comm
5134 grid%iocommunicator , & ! Comm
5135 grid%domdesc , & ! Comm
5136 grid%bdy_mask , & ! bdy_mask
5137 dryrun , & ! flag
5138 'XY' , & ! MemoryOrder
5139 '' , & ! Stagger
5140 'west_east' , & ! Dimname 1
5141 'south_north' , & ! Dimname 2
5142 '' , & ! Dimname 3
5143 'PRECIP FROM CLOSURE W' , & ! Desc
5144 'mm hour-1' , & ! Units
5145 'inc/wrf_restartout.inc ext_write_field APR_W memorder XY' , & ! Debug message
5146 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5147 ims , ime , jms , jme , 1 , 1 , &
5148 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5149 ierr )
5150 CALL wrf_ext_write_field ( &
5151 fid , & ! DataHandle
5152 current_date(1:19) , & ! DateStr
5153 'APR_MC' , & ! Data Name
5154 grid%apr_mc , & ! Field
5155 WRF_FLOAT , & ! FieldType
5156 grid%communicator , & ! Comm
5157 grid%iocommunicator , & ! Comm
5158 grid%domdesc , & ! Comm
5159 grid%bdy_mask , & ! bdy_mask
5160 dryrun , & ! flag
5161 'XY' , & ! MemoryOrder
5162 '' , & ! Stagger
5163 'west_east' , & ! Dimname 1
5164 'south_north' , & ! Dimname 2
5165 '' , & ! Dimname 3
5166 'PRECIP FROM CLOSURE KRISH MV' , & ! Desc
5167 'mm hour-1' , & ! Units
5168 'inc/wrf_restartout.inc ext_write_field APR_MC memorder XY' , & ! Debug message
5169 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5170 ims , ime , jms , jme , 1 , 1 , &
5171 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5172 ierr )
5173 CALL wrf_ext_write_field ( &
5174 fid , & ! DataHandle
5175 current_date(1:19) , & ! DateStr
5176 'APR_ST' , & ! Data Name
5177 grid%apr_st , & ! Field
5178 WRF_FLOAT , & ! FieldType
5179 grid%communicator , & ! Comm
5180 grid%iocommunicator , & ! Comm
5181 grid%domdesc , & ! Comm
5182 grid%bdy_mask , & ! bdy_mask
5183 dryrun , & ! flag
5184 'XY' , & ! MemoryOrder
5185 '' , & ! Stagger
5186 'west_east' , & ! Dimname 1
5187 'south_north' , & ! Dimname 2
5188 '' , & ! Dimname 3
5189 'PRECIP FROM CLOSURE STABILITY' , & ! Desc
5190 'mm hour-1' , & ! Units
5191 'inc/wrf_restartout.inc ext_write_field APR_ST memorder XY' , & ! Debug message
5192 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5193 ims , ime , jms , jme , 1 , 1 , &
5194 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5195 ierr )
5196 CALL wrf_ext_write_field ( &
5197 fid , & ! DataHandle
5198 current_date(1:19) , & ! DateStr
5199 'APR_AS' , & ! Data Name
5200 grid%apr_as , & ! Field
5201 WRF_FLOAT , & ! FieldType
5202 grid%communicator , & ! Comm
5203 grid%iocommunicator , & ! Comm
5204 grid%domdesc , & ! Comm
5205 grid%bdy_mask , & ! bdy_mask
5206 dryrun , & ! flag
5207 'XY' , & ! MemoryOrder
5208 '' , & ! Stagger
5209 'west_east' , & ! Dimname 1
5210 'south_north' , & ! Dimname 2
5211 '' , & ! Dimname 3
5212 'PRECIP FROM CLOSURE AS-TYPE' , & ! Desc
5213 'mm hour-1' , & ! Units
5214 'inc/wrf_restartout.inc ext_write_field APR_AS memorder XY' , & ! Debug message
5215 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5216 ims , ime , jms , jme , 1 , 1 , &
5217 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5218 ierr )
5219 CALL wrf_ext_write_field ( &
5220 fid , & ! DataHandle
5221 current_date(1:19) , & ! DateStr
5222 'APR_CAPMA' , & ! Data Name
5223 grid%apr_capma , & ! Field
5224 WRF_FLOAT , & ! FieldType
5225 grid%communicator , & ! Comm
5226 grid%iocommunicator , & ! Comm
5227 grid%domdesc , & ! Comm
5228 grid%bdy_mask , & ! bdy_mask
5229 dryrun , & ! flag
5230 'XY' , & ! MemoryOrder
5231 '' , & ! Stagger
5232 'west_east' , & ! Dimname 1
5233 'south_north' , & ! Dimname 2
5234 '' , & ! Dimname 3
5235 'PRECIP FROM MAX CAP' , & ! Desc
5236 'mm hour-1' , & ! Units
5237 'inc/wrf_restartout.inc ext_write_field APR_CAPMA memorder XY' , & ! Debug message
5238 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5239 ims , ime , jms , jme , 1 , 1 , &
5240 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5241 ierr )
5242 CALL wrf_ext_write_field ( &
5243 fid , & ! DataHandle
5244 current_date(1:19) , & ! DateStr
5245 'APR_CAPME' , & ! Data Name
5246 grid%apr_capme , & ! Field
5247 WRF_FLOAT , & ! FieldType
5248 grid%communicator , & ! Comm
5249 grid%iocommunicator , & ! Comm
5250 grid%domdesc , & ! Comm
5251 grid%bdy_mask , & ! bdy_mask
5252 dryrun , & ! flag
5253 'XY' , & ! MemoryOrder
5254 '' , & ! Stagger
5255 'west_east' , & ! Dimname 1
5256 'south_north' , & ! Dimname 2
5257 '' , & ! Dimname 3
5258 'PRECIP FROM MEAN CAP' , & ! Desc
5259 'mm hour-1' , & ! Units
5260 'inc/wrf_restartout.inc ext_write_field APR_CAPME memorder XY' , & ! Debug message
5261 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5262 ims , ime , jms , jme , 1 , 1 , &
5263 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5264 ierr )
5265 CALL wrf_ext_write_field ( &
5266 fid , & ! DataHandle
5267 current_date(1:19) , & ! DateStr
5268 'APR_CAPMI' , & ! Data Name
5269 grid%apr_capmi , & ! Field
5270 WRF_FLOAT , & ! FieldType
5271 grid%communicator , & ! Comm
5272 grid%iocommunicator , & ! Comm
5273 grid%domdesc , & ! Comm
5274 grid%bdy_mask , & ! bdy_mask
5275 dryrun , & ! flag
5276 'XY' , & ! MemoryOrder
5277 '' , & ! Stagger
5278 'west_east' , & ! Dimname 1
5279 'south_north' , & ! Dimname 2
5280 '' , & ! Dimname 3
5281 'PRECIP FROM MIN CAP' , & ! Desc
5282 'mm hour-1' , & ! Units
5283 'inc/wrf_restartout.inc ext_write_field APR_CAPMI memorder XY' , & ! Debug message
5284 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5285 ims , ime , jms , jme , 1 , 1 , &
5286 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5287 ierr )
5288 CALL wrf_ext_write_field ( &
5289 fid , & ! DataHandle
5290 current_date(1:19) , & ! DateStr
5291 'XF_ENS' , & ! Data Name
5292 grid%xf_ens , & ! Field
5293 WRF_FLOAT , & ! FieldType
5294 grid%communicator , & ! Comm
5295 grid%iocommunicator , & ! Comm
5296 grid%domdesc , & ! Comm
5297 grid%bdy_mask , & ! bdy_mask
5298 dryrun , & ! flag
5299 'XYZ' , & ! MemoryOrder
5300 'Z' , & ! Stagger
5301 'west_east' , & ! Dimname 1
5302 'south_north' , & ! Dimname 2
5303 'ensemble_stag' , & ! Dimname 3
5304 'MASS FLUX PDF IN GRELL CUMULUS SCHEME' , & ! Desc
5305 'mb hour-1' , & ! Units
5306 'inc/wrf_restartout.inc ext_write_field XF_ENS memorder XYZ' , & ! Debug message
5307 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%ensdim , &
5308 ims , ime , jms , jme , 1 , config_flags%ensdim , &
5309 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%ensdim , &
5310 ierr )
5311 CALL wrf_ext_write_field ( &
5312 fid , & ! DataHandle
5313 current_date(1:19) , & ! DateStr
5314 'PR_ENS' , & ! Data Name
5315 grid%pr_ens , & ! Field
5316 WRF_FLOAT , & ! FieldType
5317 grid%communicator , & ! Comm
5318 grid%iocommunicator , & ! Comm
5319 grid%domdesc , & ! Comm
5320 grid%bdy_mask , & ! bdy_mask
5321 dryrun , & ! flag
5322 'XYZ' , & ! MemoryOrder
5323 'Z' , & ! Stagger
5324 'west_east' , & ! Dimname 1
5325 'south_north' , & ! Dimname 2
5326 'ensemble_stag' , & ! Dimname 3
5327 'PRECIP RATE PDF IN GRELL CUMULUS SCHEME' , & ! Desc
5328 'mb hour-1' , & ! Units
5329 'inc/wrf_restartout.inc ext_write_field PR_ENS memorder XYZ' , & ! Debug message
5330 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%ensdim , &
5331 ims , ime , jms , jme , 1 , config_flags%ensdim , &
5332 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%ensdim , &
5333 ierr )
5334 CALL wrf_ext_write_field ( &
5335 fid , & ! DataHandle
5336 current_date(1:19) , & ! DateStr
5337 'RTHFTEN' , & ! Data Name
5338 grid%rthften , & ! Field
5339 WRF_FLOAT , & ! FieldType
5340 grid%communicator , & ! Comm
5341 grid%iocommunicator , & ! Comm
5342 grid%domdesc , & ! Comm
5343 grid%bdy_mask , & ! bdy_mask
5344 dryrun , & ! flag
5345 'XYZ' , & ! MemoryOrder
5346 '' , & ! Stagger
5347 'west_east' , & ! Dimname 1
5348 'south_north' , & ! Dimname 2
5349 'bottom_top' , & ! Dimname 3
5350 'TEMPERATURE TENDENCY USED IN GRELL CUMULUS SCHEME' , & ! Desc
5351 'K s-1' , & ! Units
5352 'inc/wrf_restartout.inc ext_write_field RTHFTEN memorder XYZ' , & ! Debug message
5353 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
5354 ims , ime , jms , jme , kms , kme , &
5355 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
5356 ierr )
5357 CALL wrf_ext_write_field ( &
5358 fid , & ! DataHandle
5359 current_date(1:19) , & ! DateStr
5360 'RQVFTEN' , & ! Data Name
5361 grid%rqvften , & ! Field
5362 WRF_FLOAT , & ! FieldType
5363 grid%communicator , & ! Comm
5364 grid%iocommunicator , & ! Comm
5365 grid%domdesc , & ! Comm
5366 grid%bdy_mask , & ! bdy_mask
5367 dryrun , & ! flag
5368 'XYZ' , & ! MemoryOrder
5369 '' , & ! Stagger
5370 'west_east' , & ! Dimname 1
5371 'south_north' , & ! Dimname 2
5372 'bottom_top' , & ! Dimname 3
5373 'MOISTURE TENDENCY USED IN GRELL CUMULUS SCHEME' , & ! Desc
5374 'kg s-1' , & ! Units
5375 'inc/wrf_restartout.inc ext_write_field RQVFTEN memorder XYZ' , & ! Debug message
5376 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
5377 ims , ime , jms , jme , kms , kme , &
5378 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
5379 ierr )
5380 CALL wrf_ext_write_field ( &
5381 fid , & ! DataHandle
5382 current_date(1:19) , & ! DateStr
5383 'STEPCU' , & ! Data Name
5384 grid%stepcu , & ! Field
5385 WRF_integer , & ! FieldType
5386 grid%communicator , & ! Comm
5387 grid%iocommunicator , & ! Comm
5388 grid%domdesc , & ! Comm
5389 grid%bdy_mask , & ! bdy_mask
5390 dryrun , & ! flag
5391 '0' , & ! MemoryOrder
5392 '' , & ! Stagger
5393 '' , & ! Dimname 1
5394 '' , & ! Dimname 2
5395 '' , & ! Dimname 3
5396 'NUMBER OF FUNDAMENTAL TIMESTEPS BETWEEN CONVECTION CALLS' , & ! Desc
5397 '' , & ! Units
5398 'inc/wrf_restartout.inc ext_write_field STEPCU memorder 0' , & ! Debug message
5399 1 , 1 , 1 , 1 , 1 , 1 , &
5400 1 , 1 , 1 , 1 , 1 , 1 , &
5401 1 , 1 , 1 , 1 , 1 , 1 , &
5402 ierr )
5403 CALL wrf_ext_write_field ( &
5404 fid , & ! DataHandle
5405 current_date(1:19) , & ! DateStr
5406 'RTHRATEN' , & ! Data Name
5407 grid%rthraten , & ! Field
5408 WRF_FLOAT , & ! FieldType
5409 grid%communicator , & ! Comm
5410 grid%iocommunicator , & ! Comm
5411 grid%domdesc , & ! Comm
5412 grid%bdy_mask , & ! bdy_mask
5413 dryrun , & ! flag
5414 'XYZ' , & ! MemoryOrder
5415 '' , & ! Stagger
5416 'west_east' , & ! Dimname 1
5417 'south_north' , & ! Dimname 2
5418 'bottom_top' , & ! Dimname 3
5419 'COUPLED THETA TENDENCY DUE TO RADIATION' , & ! Desc
5420 'Pa K s-1' , & ! Units
5421 'inc/wrf_restartout.inc ext_write_field RTHRATEN memorder XYZ' , & ! Debug message
5422 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
5423 ims , ime , jms , jme , kms , kme , &
5424 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
5425 ierr )
5426 CALL wrf_ext_write_field ( &
5427 fid , & ! DataHandle
5428 current_date(1:19) , & ! DateStr
5429 'RTHRATLW' , & ! Data Name
5430 grid%rthratenlw , & ! Field
5431 WRF_FLOAT , & ! FieldType
5432 grid%communicator , & ! Comm
5433 grid%iocommunicator , & ! Comm
5434 grid%domdesc , & ! Comm
5435 grid%bdy_mask , & ! bdy_mask
5436 dryrun , & ! flag
5437 'XYZ' , & ! MemoryOrder
5438 '' , & ! Stagger
5439 'west_east' , & ! Dimname 1
5440 'south_north' , & ! Dimname 2
5441 'bottom_top' , & ! Dimname 3
5442 'COUPLED THETA TENDENCY DUE TO LONG WAVE RADIATION' , & ! Desc
5443 'Pa K s-1' , & ! Units
5444 'inc/wrf_restartout.inc ext_write_field RTHRATLW memorder XYZ' , & ! Debug message
5445 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
5446 ims , ime , jms , jme , kms , kme , &
5447 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
5448 ierr )
5449 CALL wrf_ext_write_field ( &
5450 fid , & ! DataHandle
5451 current_date(1:19) , & ! DateStr
5452 'RTHRATSW' , & ! Data Name
5453 grid%rthratensw , & ! Field
5454 WRF_FLOAT , & ! FieldType
5455 grid%communicator , & ! Comm
5456 grid%iocommunicator , & ! Comm
5457 grid%domdesc , & ! Comm
5458 grid%bdy_mask , & ! bdy_mask
5459 dryrun , & ! flag
5460 'XYZ' , & ! MemoryOrder
5461 '' , & ! Stagger
5462 'west_east' , & ! Dimname 1
5463 'south_north' , & ! Dimname 2
5464 'bottom_top' , & ! Dimname 3
5465 'COUPLED THETA TENDENCY DUE TO SHORT WAVE RADIATION' , & ! Desc
5466 'Pa K s-1' , & ! Units
5467 'inc/wrf_restartout.inc ext_write_field RTHRATSW memorder XYZ' , & ! Debug message
5468 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
5469 ims , ime , jms , jme , kms , kme , &
5470 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
5471 ierr )
5472 CALL wrf_ext_write_field ( &
5473 fid , & ! DataHandle
5474 current_date(1:19) , & ! DateStr
5475 'CLDFRA' , & ! Data Name
5476 grid%cldfra , & ! Field
5477 WRF_FLOAT , & ! FieldType
5478 grid%communicator , & ! Comm
5479 grid%iocommunicator , & ! Comm
5480 grid%domdesc , & ! Comm
5481 grid%bdy_mask , & ! bdy_mask
5482 dryrun , & ! flag
5483 'XYZ' , & ! MemoryOrder
5484 '' , & ! Stagger
5485 'west_east' , & ! Dimname 1
5486 'south_north' , & ! Dimname 2
5487 'bottom_top' , & ! Dimname 3
5488 'CLOUD FRACTION' , & ! Desc
5489 '' , & ! Units
5490 'inc/wrf_restartout.inc ext_write_field CLDFRA memorder XYZ' , & ! Debug message
5491 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
5492 ims , ime , jms , jme , kms , kme , &
5493 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
5494 ierr )
5495 CALL wrf_ext_write_field ( &
5496 fid , & ! DataHandle
5497 current_date(1:19) , & ! DateStr
5498 'SWDOWN' , & ! Data Name
5499 grid%swdown , & ! Field
5500 WRF_FLOAT , & ! FieldType
5501 grid%communicator , & ! Comm
5502 grid%iocommunicator , & ! Comm
5503 grid%domdesc , & ! Comm
5504 grid%bdy_mask , & ! bdy_mask
5505 dryrun , & ! flag
5506 'XY' , & ! MemoryOrder
5507 '' , & ! Stagger
5508 'west_east' , & ! Dimname 1
5509 'south_north' , & ! Dimname 2
5510 '' , & ! Dimname 3
5511 'DOWNWARD SHORT WAVE FLUX AT GROUND SURFACE' , & ! Desc
5512 'W m-2' , & ! Units
5513 'inc/wrf_restartout.inc ext_write_field SWDOWN memorder XY' , & ! Debug message
5514 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5515 ims , ime , jms , jme , 1 , 1 , &
5516 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5517 ierr )
5518 CALL wrf_ext_write_field ( &
5519 fid , & ! DataHandle
5520 current_date(1:19) , & ! DateStr
5521 'GSW' , & ! Data Name
5522 grid%gsw , & ! Field
5523 WRF_FLOAT , & ! FieldType
5524 grid%communicator , & ! Comm
5525 grid%iocommunicator , & ! Comm
5526 grid%domdesc , & ! Comm
5527 grid%bdy_mask , & ! bdy_mask
5528 dryrun , & ! flag
5529 'XY' , & ! MemoryOrder
5530 '' , & ! Stagger
5531 'west_east' , & ! Dimname 1
5532 'south_north' , & ! Dimname 2
5533 '' , & ! Dimname 3
5534 'NET SHORT WAVE FLUX AT GROUND SURFACE' , & ! Desc
5535 'W m-2' , & ! Units
5536 'inc/wrf_restartout.inc ext_write_field GSW memorder XY' , & ! Debug message
5537 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5538 ims , ime , jms , jme , 1 , 1 , &
5539 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5540 ierr )
5541 CALL wrf_ext_write_field ( &
5542 fid , & ! DataHandle
5543 current_date(1:19) , & ! DateStr
5544 'GLW' , & ! Data Name
5545 grid%glw , & ! Field
5546 WRF_FLOAT , & ! FieldType
5547 grid%communicator , & ! Comm
5548 grid%iocommunicator , & ! Comm
5549 grid%domdesc , & ! Comm
5550 grid%bdy_mask , & ! bdy_mask
5551 dryrun , & ! flag
5552 'XY' , & ! MemoryOrder
5553 '' , & ! Stagger
5554 'west_east' , & ! Dimname 1
5555 'south_north' , & ! Dimname 2
5556 '' , & ! Dimname 3
5557 'DOWNWARD LONG WAVE FLUX AT GROUND SURFACE' , & ! Desc
5558 'W m-2' , & ! Units
5559 'inc/wrf_restartout.inc ext_write_field GLW memorder XY' , & ! Debug message
5560 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5561 ims , ime , jms , jme , 1 , 1 , &
5562 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5563 ierr )
5564 CALL wrf_ext_write_field ( &
5565 fid , & ! DataHandle
5566 current_date(1:19) , & ! DateStr
5567 'SWCF' , & ! Data Name
5568 grid%swcf , & ! Field
5569 WRF_FLOAT , & ! FieldType
5570 grid%communicator , & ! Comm
5571 grid%iocommunicator , & ! Comm
5572 grid%domdesc , & ! Comm
5573 grid%bdy_mask , & ! bdy_mask
5574 dryrun , & ! flag
5575 'XY' , & ! MemoryOrder
5576 '' , & ! Stagger
5577 'west_east' , & ! Dimname 1
5578 'south_north' , & ! Dimname 2
5579 '' , & ! Dimname 3
5580 'SHORT WAVE CLOUD FORCING AT TOA' , & ! Desc
5581 'W m-2' , & ! Units
5582 'inc/wrf_restartout.inc ext_write_field SWCF memorder XY' , & ! Debug message
5583 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5584 ims , ime , jms , jme , 1 , 1 , &
5585 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5586 ierr )
5587 CALL wrf_ext_write_field ( &
5588 fid , & ! DataHandle
5589 current_date(1:19) , & ! DateStr
5590 'LWCF' , & ! Data Name
5591 grid%lwcf , & ! Field
5592 WRF_FLOAT , & ! FieldType
5593 grid%communicator , & ! Comm
5594 grid%iocommunicator , & ! Comm
5595 grid%domdesc , & ! Comm
5596 grid%bdy_mask , & ! bdy_mask
5597 dryrun , & ! flag
5598 'XY' , & ! MemoryOrder
5599 '' , & ! Stagger
5600 'west_east' , & ! Dimname 1
5601 'south_north' , & ! Dimname 2
5602 '' , & ! Dimname 3
5603 'LONG WAVE CLOUD FORCING AT TOA' , & ! Desc
5604 'W m-2' , & ! Units
5605 'inc/wrf_restartout.inc ext_write_field LWCF memorder XY' , & ! Debug message
5606 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5607 ims , ime , jms , jme , 1 , 1 , &
5608 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5609 ierr )
5610 CALL wrf_ext_write_field ( &
5611 fid , & ! DataHandle
5612 current_date(1:19) , & ! DateStr
5613 'OLR' , & ! Data Name
5614 grid%olr , & ! Field
5615 WRF_FLOAT , & ! FieldType
5616 grid%communicator , & ! Comm
5617 grid%iocommunicator , & ! Comm
5618 grid%domdesc , & ! Comm
5619 grid%bdy_mask , & ! bdy_mask
5620 dryrun , & ! flag
5621 'XY' , & ! MemoryOrder
5622 '' , & ! Stagger
5623 'west_east' , & ! Dimname 1
5624 'south_north' , & ! Dimname 2
5625 '' , & ! Dimname 3
5626 'TOA OUTGOING LONG WAVE' , & ! Desc
5627 'W m-2' , & ! Units
5628 'inc/wrf_restartout.inc ext_write_field OLR memorder XY' , & ! Debug message
5629 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5630 ims , ime , jms , jme , 1 , 1 , &
5631 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5632 ierr )
5633 CALL wrf_ext_write_field ( &
5634 fid , & ! DataHandle
5635 current_date(1:19) , & ! DateStr
5636 'XLAT' , & ! Data Name
5637 grid%xlat , & ! Field
5638 WRF_FLOAT , & ! FieldType
5639 grid%communicator , & ! Comm
5640 grid%iocommunicator , & ! Comm
5641 grid%domdesc , & ! Comm
5642 grid%bdy_mask , & ! bdy_mask
5643 dryrun , & ! flag
5644 'XY' , & ! MemoryOrder
5645 '' , & ! Stagger
5646 'west_east' , & ! Dimname 1
5647 'south_north' , & ! Dimname 2
5648 '' , & ! Dimname 3
5649 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
5650 'degree_north' , & ! Units
5651 'inc/wrf_restartout.inc ext_write_field XLAT memorder XY' , & ! Debug message
5652 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5653 ims , ime , jms , jme , 1 , 1 , &
5654 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5655 ierr )
5656 CALL wrf_ext_write_field ( &
5657 fid , & ! DataHandle
5658 current_date(1:19) , & ! DateStr
5659 'XLONG' , & ! Data Name
5660 grid%xlong , & ! Field
5661 WRF_FLOAT , & ! FieldType
5662 grid%communicator , & ! Comm
5663 grid%iocommunicator , & ! Comm
5664 grid%domdesc , & ! Comm
5665 grid%bdy_mask , & ! bdy_mask
5666 dryrun , & ! flag
5667 'XY' , & ! MemoryOrder
5668 '' , & ! Stagger
5669 'west_east' , & ! Dimname 1
5670 'south_north' , & ! Dimname 2
5671 '' , & ! Dimname 3
5672 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
5673 'degree_east' , & ! Units
5674 'inc/wrf_restartout.inc ext_write_field XLONG memorder XY' , & ! Debug message
5675 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5676 ims , ime , jms , jme , 1 , 1 , &
5677 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5678 ierr )
5679 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
5680 CALL wrf_ext_write_field ( &
5681 fid , & ! DataHandle
5682 current_date(1:19) , & ! DateStr
5683 'XLAT_U' , & ! Data Name
5684 grid%em_xlat_u , & ! Field
5685 WRF_FLOAT , & ! FieldType
5686 grid%communicator , & ! Comm
5687 grid%iocommunicator , & ! Comm
5688 grid%domdesc , & ! Comm
5689 grid%bdy_mask , & ! bdy_mask
5690 dryrun , & ! flag
5691 'XY' , & ! MemoryOrder
5692 'X' , & ! Stagger
5693 'west_east_stag' , & ! Dimname 1
5694 'south_north' , & ! Dimname 2
5695 '' , & ! Dimname 3
5696 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
5697 'degree_north' , & ! Units
5698 'inc/wrf_restartout.inc ext_write_field XLAT_U memorder XY' , & ! Debug message
5699 ids , ide , jds , (jde-1) , 1 , 1 , &
5700 ims , ime , jms , jme , 1 , 1 , &
5701 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5702 ierr )
5703 END IF
5704 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
5705 CALL wrf_ext_write_field ( &
5706 fid , & ! DataHandle
5707 current_date(1:19) , & ! DateStr
5708 'XLONG_U' , & ! Data Name
5709 grid%em_xlong_u , & ! Field
5710 WRF_FLOAT , & ! FieldType
5711 grid%communicator , & ! Comm
5712 grid%iocommunicator , & ! Comm
5713 grid%domdesc , & ! Comm
5714 grid%bdy_mask , & ! bdy_mask
5715 dryrun , & ! flag
5716 'XY' , & ! MemoryOrder
5717 'X' , & ! Stagger
5718 'west_east_stag' , & ! Dimname 1
5719 'south_north' , & ! Dimname 2
5720 '' , & ! Dimname 3
5721 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
5722 'degree_east' , & ! Units
5723 'inc/wrf_restartout.inc ext_write_field XLONG_U memorder XY' , & ! Debug message
5724 ids , ide , jds , (jde-1) , 1 , 1 , &
5725 ims , ime , jms , jme , 1 , 1 , &
5726 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5727 ierr )
5728 END IF
5729 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
5730 CALL wrf_ext_write_field ( &
5731 fid , & ! DataHandle
5732 current_date(1:19) , & ! DateStr
5733 'XLAT_V' , & ! Data Name
5734 grid%em_xlat_v , & ! Field
5735 WRF_FLOAT , & ! FieldType
5736 grid%communicator , & ! Comm
5737 grid%iocommunicator , & ! Comm
5738 grid%domdesc , & ! Comm
5739 grid%bdy_mask , & ! bdy_mask
5740 dryrun , & ! flag
5741 'XY' , & ! MemoryOrder
5742 'Y' , & ! Stagger
5743 'west_east' , & ! Dimname 1
5744 'south_north_stag' , & ! Dimname 2
5745 '' , & ! Dimname 3
5746 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
5747 'degree_north' , & ! Units
5748 'inc/wrf_restartout.inc ext_write_field XLAT_V memorder XY' , & ! Debug message
5749 ids , (ide-1) , jds , jde , 1 , 1 , &
5750 ims , ime , jms , jme , 1 , 1 , &
5751 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
5752 ierr )
5753 END IF
5754 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
5755 CALL wrf_ext_write_field ( &
5756 fid , & ! DataHandle
5757 current_date(1:19) , & ! DateStr
5758 'XLONG_V' , & ! Data Name
5759 grid%em_xlong_v , & ! Field
5760 WRF_FLOAT , & ! FieldType
5761 grid%communicator , & ! Comm
5762 grid%iocommunicator , & ! Comm
5763 grid%domdesc , & ! Comm
5764 grid%bdy_mask , & ! bdy_mask
5765 dryrun , & ! flag
5766 'XY' , & ! MemoryOrder
5767 'Y' , & ! Stagger
5768 'west_east' , & ! Dimname 1
5769 'south_north_stag' , & ! Dimname 2
5770 '' , & ! Dimname 3
5771 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
5772 'degree_east' , & ! Units
5773 'inc/wrf_restartout.inc ext_write_field XLONG_V memorder XY' , & ! Debug message
5774 ids , (ide-1) , jds , jde , 1 , 1 , &
5775 ims , ime , jms , jme , 1 , 1 , &
5776 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
5777 ierr )
5778 END IF
5779 CALL wrf_ext_write_field ( &
5780 fid , & ! DataHandle
5781 current_date(1:19) , & ! DateStr
5782 'ALBEDO' , & ! Data Name
5783 grid%albedo , & ! Field
5784 WRF_FLOAT , & ! FieldType
5785 grid%communicator , & ! Comm
5786 grid%iocommunicator , & ! Comm
5787 grid%domdesc , & ! Comm
5788 grid%bdy_mask , & ! bdy_mask
5789 dryrun , & ! flag
5790 'XY' , & ! MemoryOrder
5791 '' , & ! Stagger
5792 'west_east' , & ! Dimname 1
5793 'south_north' , & ! Dimname 2
5794 '' , & ! Dimname 3
5795 'ALBEDO' , & ! Desc
5796 '-' , & ! Units
5797 'inc/wrf_restartout.inc ext_write_field ALBEDO memorder XY' , & ! Debug message
5798 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5799 ims , ime , jms , jme , 1 , 1 , &
5800 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5801 ierr )
5802 CALL wrf_ext_write_field ( &
5803 fid , & ! DataHandle
5804 current_date(1:19) , & ! DateStr
5805 'ALBBCK' , & ! Data Name
5806 grid%albbck , & ! Field
5807 WRF_FLOAT , & ! FieldType
5808 grid%communicator , & ! Comm
5809 grid%iocommunicator , & ! Comm
5810 grid%domdesc , & ! Comm
5811 grid%bdy_mask , & ! bdy_mask
5812 dryrun , & ! flag
5813 'XY' , & ! MemoryOrder
5814 '' , & ! Stagger
5815 'west_east' , & ! Dimname 1
5816 'south_north' , & ! Dimname 2
5817 '' , & ! Dimname 3
5818 'BACKGROUND ALBEDO' , & ! Desc
5819 '' , & ! Units
5820 'inc/wrf_restartout.inc ext_write_field ALBBCK memorder XY' , & ! Debug message
5821 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5822 ims , ime , jms , jme , 1 , 1 , &
5823 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5824 ierr )
5825 CALL wrf_ext_write_field ( &
5826 fid , & ! DataHandle
5827 current_date(1:19) , & ! DateStr
5828 'EMISS' , & ! Data Name
5829 grid%emiss , & ! Field
5830 WRF_FLOAT , & ! FieldType
5831 grid%communicator , & ! Comm
5832 grid%iocommunicator , & ! Comm
5833 grid%domdesc , & ! Comm
5834 grid%bdy_mask , & ! bdy_mask
5835 dryrun , & ! flag
5836 'XY' , & ! MemoryOrder
5837 '' , & ! Stagger
5838 'west_east' , & ! Dimname 1
5839 'south_north' , & ! Dimname 2
5840 '' , & ! Dimname 3
5841 'SURFACE EMISSIVITY' , & ! Desc
5842 '' , & ! Units
5843 'inc/wrf_restartout.inc ext_write_field EMISS memorder XY' , & ! Debug message
5844 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5845 ims , ime , jms , jme , 1 , 1 , &
5846 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5847 ierr )
5848 CALL wrf_ext_write_field ( &
5849 fid , & ! DataHandle
5850 current_date(1:19) , & ! DateStr
5851 'CLDEFI' , & ! Data Name
5852 grid%cldefi , & ! Field
5853 WRF_FLOAT , & ! FieldType
5854 grid%communicator , & ! Comm
5855 grid%iocommunicator , & ! Comm
5856 grid%domdesc , & ! Comm
5857 grid%bdy_mask , & ! bdy_mask
5858 dryrun , & ! flag
5859 'XY' , & ! MemoryOrder
5860 '' , & ! Stagger
5861 'west_east' , & ! Dimname 1
5862 'south_north' , & ! Dimname 2
5863 '' , & ! Dimname 3
5864 'precipitation efficiency in BMJ SCHEME' , & ! Desc
5865 '' , & ! Units
5866 'inc/wrf_restartout.inc ext_write_field CLDEFI memorder XY' , & ! Debug message
5867 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5868 ims , ime , jms , jme , 1 , 1 , &
5869 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5870 ierr )
5871 CALL wrf_ext_write_field ( &
5872 fid , & ! DataHandle
5873 current_date(1:19) , & ! DateStr
5874 'STEPRA' , & ! Data Name
5875 grid%stepra , & ! Field
5876 WRF_integer , & ! FieldType
5877 grid%communicator , & ! Comm
5878 grid%iocommunicator , & ! Comm
5879 grid%domdesc , & ! Comm
5880 grid%bdy_mask , & ! bdy_mask
5881 dryrun , & ! flag
5882 '0' , & ! MemoryOrder
5883 '' , & ! Stagger
5884 '' , & ! Dimname 1
5885 '' , & ! Dimname 2
5886 '' , & ! Dimname 3
5887 'NUMBER OF FUNDAMENTAL TIMESTEPS BETWEEN RADIATION CALLS' , & ! Desc
5888 '' , & ! Units
5889 'inc/wrf_restartout.inc ext_write_field STEPRA memorder 0' , & ! Debug message
5890 1 , 1 , 1 , 1 , 1 , 1 , &
5891 1 , 1 , 1 , 1 , 1 , 1 , &
5892 1 , 1 , 1 , 1 , 1 , 1 , &
5893 ierr )
5894 CALL wrf_ext_write_field ( &
5895 fid , & ! DataHandle
5896 current_date(1:19) , & ! DateStr
5897 'RUBLTEN' , & ! Data Name
5898 grid%rublten , & ! Field
5899 WRF_FLOAT , & ! FieldType
5900 grid%communicator , & ! Comm
5901 grid%iocommunicator , & ! Comm
5902 grid%domdesc , & ! Comm
5903 grid%bdy_mask , & ! bdy_mask
5904 dryrun , & ! flag
5905 'XYZ' , & ! MemoryOrder
5906 '' , & ! Stagger
5907 'west_east' , & ! Dimname 1
5908 'south_north' , & ! Dimname 2
5909 'bottom_top' , & ! Dimname 3
5910 'COUPLED X WIND TENDENCY DUE TO PBL PARAMETERIZATION' , & ! Desc
5911 'Pa m s-2' , & ! Units
5912 'inc/wrf_restartout.inc ext_write_field RUBLTEN memorder XYZ' , & ! Debug message
5913 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
5914 ims , ime , jms , jme , kms , kme , &
5915 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
5916 ierr )
5917 CALL wrf_ext_write_field ( &
5918 fid , & ! DataHandle
5919 current_date(1:19) , & ! DateStr
5920 'RVBLTEN' , & ! Data Name
5921 grid%rvblten , & ! Field
5922 WRF_FLOAT , & ! FieldType
5923 grid%communicator , & ! Comm
5924 grid%iocommunicator , & ! Comm
5925 grid%domdesc , & ! Comm
5926 grid%bdy_mask , & ! bdy_mask
5927 dryrun , & ! flag
5928 'XYZ' , & ! MemoryOrder
5929 '' , & ! Stagger
5930 'west_east' , & ! Dimname 1
5931 'south_north' , & ! Dimname 2
5932 'bottom_top' , & ! Dimname 3
5933 'COUPLED Y WIND TENDENCY DUE TO PBL PARAMETERIZATION' , & ! Desc
5934 'Pa m s-2' , & ! Units
5935 'inc/wrf_restartout.inc ext_write_field RVBLTEN memorder XYZ' , & ! Debug message
5936 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
5937 ims , ime , jms , jme , kms , kme , &
5938 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
5939 ierr )
5940 CALL wrf_ext_write_field ( &
5941 fid , & ! DataHandle
5942 current_date(1:19) , & ! DateStr
5943 'RTHBLTEN' , & ! Data Name
5944 grid%rthblten , & ! Field
5945 WRF_FLOAT , & ! FieldType
5946 grid%communicator , & ! Comm
5947 grid%iocommunicator , & ! Comm
5948 grid%domdesc , & ! Comm
5949 grid%bdy_mask , & ! bdy_mask
5950 dryrun , & ! flag
5951 'XYZ' , & ! MemoryOrder
5952 '' , & ! Stagger
5953 'west_east' , & ! Dimname 1
5954 'south_north' , & ! Dimname 2
5955 'bottom_top' , & ! Dimname 3
5956 'COUPLED THETA TENDENCY DUE TO PBL PARAMETERIZATION' , & ! Desc
5957 'Pa K s-1' , & ! Units
5958 'inc/wrf_restartout.inc ext_write_field RTHBLTEN memorder XYZ' , & ! Debug message
5959 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
5960 ims , ime , jms , jme , kms , kme , &
5961 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
5962 ierr )
5963 CALL wrf_ext_write_field ( &
5964 fid , & ! DataHandle
5965 current_date(1:19) , & ! DateStr
5966 'RQVBLTEN' , & ! Data Name
5967 grid%rqvblten , & ! Field
5968 WRF_FLOAT , & ! FieldType
5969 grid%communicator , & ! Comm
5970 grid%iocommunicator , & ! Comm
5971 grid%domdesc , & ! Comm
5972 grid%bdy_mask , & ! bdy_mask
5973 dryrun , & ! flag
5974 'XYZ' , & ! MemoryOrder
5975 '' , & ! Stagger
5976 'west_east' , & ! Dimname 1
5977 'south_north' , & ! Dimname 2
5978 'bottom_top' , & ! Dimname 3
5979 'COUPLED Q_V TENDENCY DUE TO PBL PARAMETERIZATION' , & ! Desc
5980 'Pa kg kg-1 s-1' , & ! Units
5981 'inc/wrf_restartout.inc ext_write_field RQVBLTEN memorder XYZ' , & ! Debug message
5982 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
5983 ims , ime , jms , jme , kms , kme , &
5984 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
5985 ierr )
5986 CALL wrf_ext_write_field ( &
5987 fid , & ! DataHandle
5988 current_date(1:19) , & ! DateStr
5989 'RQCBLTEN' , & ! Data Name
5990 grid%rqcblten , & ! Field
5991 WRF_FLOAT , & ! FieldType
5992 grid%communicator , & ! Comm
5993 grid%iocommunicator , & ! Comm
5994 grid%domdesc , & ! Comm
5995 grid%bdy_mask , & ! bdy_mask
5996 dryrun , & ! flag
5997 'XYZ' , & ! MemoryOrder
5998 '' , & ! Stagger
5999 'west_east' , & ! Dimname 1
6000 'south_north' , & ! Dimname 2
6001 'bottom_top' , & ! Dimname 3
6002 'COUPLED Q_C TENDENCY DUE TO PBL PARAMETERIZATION' , & ! Desc
6003 'Pa kg kg-1 s-1' , & ! Units
6004 'inc/wrf_restartout.inc ext_write_field RQCBLTEN memorder XYZ' , & ! Debug message
6005 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
6006 ims , ime , jms , jme , kms , kme , &
6007 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
6008 ierr )
6009 CALL wrf_ext_write_field ( &
6010 fid , & ! DataHandle
6011 current_date(1:19) , & ! DateStr
6012 'RQIBLTEN' , & ! Data Name
6013 grid%rqiblten , & ! Field
6014 WRF_FLOAT , & ! FieldType
6015 grid%communicator , & ! Comm
6016 grid%iocommunicator , & ! Comm
6017 grid%domdesc , & ! Comm
6018 grid%bdy_mask , & ! bdy_mask
6019 dryrun , & ! flag
6020 'XYZ' , & ! MemoryOrder
6021 '' , & ! Stagger
6022 'west_east' , & ! Dimname 1
6023 'south_north' , & ! Dimname 2
6024 'bottom_top' , & ! Dimname 3
6025 'COUPLED Q_I TENDENCY DUE TO PBL PARAMETERIZATION' , & ! Desc
6026 'Pa kg kg-1 s-1' , & ! Units
6027 'inc/wrf_restartout.inc ext_write_field RQIBLTEN memorder XYZ' , & ! Debug message
6028 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
6029 ims , ime , jms , jme , kms , kme , &
6030 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
6031 ierr )
6032 CALL wrf_ext_write_field ( &
6033 fid , & ! DataHandle
6034 current_date(1:19) , & ! DateStr
6035 'MP_RESTART_STATE' , & ! Data Name
6036 grid%mp_restart_state , & ! Field
6037 WRF_FLOAT , & ! FieldType
6038 grid%communicator , & ! Comm
6039 grid%iocommunicator , & ! Comm
6040 grid%domdesc , & ! Comm
6041 grid%bdy_mask , & ! bdy_mask
6042 dryrun , & ! flag
6043 'C' , & ! MemoryOrder
6044 '' , & ! Stagger
6045 '' , & ! Dimname 1
6046 '' , & ! Dimname 2
6047 '' , & ! Dimname 3
6048 'STATE VECTOR FOR MICROPHYSICS RESTARTS' , & ! Desc
6049 '-' , & ! Units
6050 'inc/wrf_restartout.inc ext_write_field MP_RESTART_STATE memorder C' , & ! Debug message
6051 1 , 7501 , 1 , 1 , 1 , 1 , &
6052 1 , 7501 , 1 , 1 , 1 , 1 , &
6053 1 , 7501 , 1 , 1 , 1 , 1 , &
6054 ierr )
6055 CALL wrf_ext_write_field ( &
6056 fid , & ! DataHandle
6057 current_date(1:19) , & ! DateStr
6058 'TBPVS_STATE' , & ! Data Name
6059 grid%tbpvs_state , & ! Field
6060 WRF_FLOAT , & ! FieldType
6061 grid%communicator , & ! Comm
6062 grid%iocommunicator , & ! Comm
6063 grid%domdesc , & ! Comm
6064 grid%bdy_mask , & ! bdy_mask
6065 dryrun , & ! flag
6066 'C' , & ! MemoryOrder
6067 '' , & ! Stagger
6068 '' , & ! Dimname 1
6069 '' , & ! Dimname 2
6070 '' , & ! Dimname 3
6071 'STATE FOR ETAMPNEW MICROPHYSICS' , & ! Desc
6072 '-' , & ! Units
6073 'inc/wrf_restartout.inc ext_write_field TBPVS_STATE memorder C' , & ! Debug message
6074 1 , 7501 , 1 , 1 , 1 , 1 , &
6075 1 , 7501 , 1 , 1 , 1 , 1 , &
6076 1 , 7501 , 1 , 1 , 1 , 1 , &
6077 ierr )
6078 CALL wrf_ext_write_field ( &
6079 fid , & ! DataHandle
6080 current_date(1:19) , & ! DateStr
6081 'TBPVS0_STATE' , & ! Data Name
6082 grid%tbpvs0_state , & ! Field
6083 WRF_FLOAT , & ! FieldType
6084 grid%communicator , & ! Comm
6085 grid%iocommunicator , & ! Comm
6086 grid%domdesc , & ! Comm
6087 grid%bdy_mask , & ! bdy_mask
6088 dryrun , & ! flag
6089 'C' , & ! MemoryOrder
6090 '' , & ! Stagger
6091 '' , & ! Dimname 1
6092 '' , & ! Dimname 2
6093 '' , & ! Dimname 3
6094 'STATE FOR ETAMPNEW MICROPHYSICS' , & ! Desc
6095 '-' , & ! Units
6096 'inc/wrf_restartout.inc ext_write_field TBPVS0_STATE memorder C' , & ! Debug message
6097 1 , 7501 , 1 , 1 , 1 , 1 , &
6098 1 , 7501 , 1 , 1 , 1 , 1 , &
6099 1 , 7501 , 1 , 1 , 1 , 1 , &
6100 ierr )
6101 CALL wrf_ext_write_field ( &
6102 fid , & ! DataHandle
6103 current_date(1:19) , & ! DateStr
6104 'LANDUSE_ISICE' , & ! Data Name
6105 grid%landuse_isice , & ! Field
6106 WRF_integer , & ! FieldType
6107 grid%communicator , & ! Comm
6108 grid%iocommunicator , & ! Comm
6109 grid%domdesc , & ! Comm
6110 grid%bdy_mask , & ! bdy_mask
6111 dryrun , & ! flag
6112 '0' , & ! MemoryOrder
6113 '' , & ! Stagger
6114 '' , & ! Dimname 1
6115 '' , & ! Dimname 2
6116 '' , & ! Dimname 3
6117 '-' , & ! Desc
6118 '-' , & ! Units
6119 'inc/wrf_restartout.inc ext_write_field LANDUSE_ISICE memorder 0' , & ! Debug message
6120 1 , 1 , 1 , 1 , 1 , 1 , &
6121 1 , 1 , 1 , 1 , 1 , 1 , &
6122 1 , 1 , 1 , 1 , 1 , 1 , &
6123 ierr )
6124 CALL wrf_ext_write_field ( &
6125 fid , & ! DataHandle
6126 current_date(1:19) , & ! DateStr
6127 'LANDUSE_LUCATS' , & ! Data Name
6128 grid%landuse_lucats , & ! Field
6129 WRF_integer , & ! FieldType
6130 grid%communicator , & ! Comm
6131 grid%iocommunicator , & ! Comm
6132 grid%domdesc , & ! Comm
6133 grid%bdy_mask , & ! bdy_mask
6134 dryrun , & ! flag
6135 '0' , & ! MemoryOrder
6136 '' , & ! Stagger
6137 '' , & ! Dimname 1
6138 '' , & ! Dimname 2
6139 '' , & ! Dimname 3
6140 '-' , & ! Desc
6141 '-' , & ! Units
6142 'inc/wrf_restartout.inc ext_write_field LANDUSE_LUCATS memorder 0' , & ! Debug message
6143 1 , 1 , 1 , 1 , 1 , 1 , &
6144 1 , 1 , 1 , 1 , 1 , 1 , &
6145 1 , 1 , 1 , 1 , 1 , 1 , &
6146 ierr )
6147 CALL wrf_ext_write_field ( &
6148 fid , & ! DataHandle
6149 current_date(1:19) , & ! DateStr
6150 'LANDUSE_LUSEAS' , & ! Data Name
6151 grid%landuse_luseas , & ! Field
6152 WRF_integer , & ! FieldType
6153 grid%communicator , & ! Comm
6154 grid%iocommunicator , & ! Comm
6155 grid%domdesc , & ! Comm
6156 grid%bdy_mask , & ! bdy_mask
6157 dryrun , & ! flag
6158 '0' , & ! MemoryOrder
6159 '' , & ! Stagger
6160 '' , & ! Dimname 1
6161 '' , & ! Dimname 2
6162 '' , & ! Dimname 3
6163 '-' , & ! Desc
6164 '-' , & ! Units
6165 'inc/wrf_restartout.inc ext_write_field LANDUSE_LUSEAS memorder 0' , & ! Debug message
6166 1 , 1 , 1 , 1 , 1 , 1 , &
6167 1 , 1 , 1 , 1 , 1 , 1 , &
6168 1 , 1 , 1 , 1 , 1 , 1 , &
6169 ierr )
6170 CALL wrf_ext_write_field ( &
6171 fid , & ! DataHandle
6172 current_date(1:19) , & ! DateStr
6173 'LANDUSE_ISN' , & ! Data Name
6174 grid%landuse_isn , & ! Field
6175 WRF_integer , & ! FieldType
6176 grid%communicator , & ! Comm
6177 grid%iocommunicator , & ! Comm
6178 grid%domdesc , & ! Comm
6179 grid%bdy_mask , & ! bdy_mask
6180 dryrun , & ! flag
6181 '0' , & ! MemoryOrder
6182 '' , & ! Stagger
6183 '' , & ! Dimname 1
6184 '' , & ! Dimname 2
6185 '' , & ! Dimname 3
6186 '-' , & ! Desc
6187 '-' , & ! Units
6188 'inc/wrf_restartout.inc ext_write_field LANDUSE_ISN memorder 0' , & ! Debug message
6189 1 , 1 , 1 , 1 , 1 , 1 , &
6190 1 , 1 , 1 , 1 , 1 , 1 , &
6191 1 , 1 , 1 , 1 , 1 , 1 , &
6192 ierr )
6193 CALL wrf_ext_write_field ( &
6194 fid , & ! DataHandle
6195 current_date(1:19) , & ! DateStr
6196 'LU_STATE' , & ! Data Name
6197 grid%lu_state , & ! Field
6198 WRF_FLOAT , & ! FieldType
6199 grid%communicator , & ! Comm
6200 grid%iocommunicator , & ! Comm
6201 grid%domdesc , & ! Comm
6202 grid%bdy_mask , & ! bdy_mask
6203 dryrun , & ! flag
6204 'C' , & ! MemoryOrder
6205 '' , & ! Stagger
6206 '' , & ! Dimname 1
6207 '' , & ! Dimname 2
6208 '' , & ! Dimname 3
6209 '-' , & ! Desc
6210 '-' , & ! Units
6211 'inc/wrf_restartout.inc ext_write_field LU_STATE memorder C' , & ! Debug message
6212 1 , 7501 , 1 , 1 , 1 , 1 , &
6213 1 , 7501 , 1 , 1 , 1 , 1 , &
6214 1 , 7501 , 1 , 1 , 1 , 1 , &
6215 ierr )
6216 CALL wrf_ext_write_field ( &
6217 fid , & ! DataHandle
6218 current_date(1:19) , & ! DateStr
6219 'TMN' , & ! Data Name
6220 grid%tmn , & ! Field
6221 WRF_FLOAT , & ! FieldType
6222 grid%communicator , & ! Comm
6223 grid%iocommunicator , & ! Comm
6224 grid%domdesc , & ! Comm
6225 grid%bdy_mask , & ! bdy_mask
6226 dryrun , & ! flag
6227 'XY' , & ! MemoryOrder
6228 '' , & ! Stagger
6229 'west_east' , & ! Dimname 1
6230 'south_north' , & ! Dimname 2
6231 '' , & ! Dimname 3
6232 'SOIL TEMPERATURE AT LOWER BOUNDARY' , & ! Desc
6233 'K' , & ! Units
6234 'inc/wrf_restartout.inc ext_write_field TMN memorder XY' , & ! Debug message
6235 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6236 ims , ime , jms , jme , 1 , 1 , &
6237 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6238 ierr )
6239 CALL wrf_ext_write_field ( &
6240 fid , & ! DataHandle
6241 current_date(1:19) , & ! DateStr
6242 'XLAND' , & ! Data Name
6243 grid%xland , & ! Field
6244 WRF_FLOAT , & ! FieldType
6245 grid%communicator , & ! Comm
6246 grid%iocommunicator , & ! Comm
6247 grid%domdesc , & ! Comm
6248 grid%bdy_mask , & ! bdy_mask
6249 dryrun , & ! flag
6250 'XY' , & ! MemoryOrder
6251 '' , & ! Stagger
6252 'west_east' , & ! Dimname 1
6253 'south_north' , & ! Dimname 2
6254 '' , & ! Dimname 3
6255 'LAND MASK (1 FOR LAND, 2 FOR WATER)' , & ! Desc
6256 '' , & ! Units
6257 'inc/wrf_restartout.inc ext_write_field XLAND memorder XY' , & ! Debug message
6258 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6259 ims , ime , jms , jme , 1 , 1 , &
6260 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6261 ierr )
6262 CALL wrf_ext_write_field ( &
6263 fid , & ! DataHandle
6264 current_date(1:19) , & ! DateStr
6265 'ZNT' , & ! Data Name
6266 grid%znt , & ! Field
6267 WRF_FLOAT , & ! FieldType
6268 grid%communicator , & ! Comm
6269 grid%iocommunicator , & ! Comm
6270 grid%domdesc , & ! Comm
6271 grid%bdy_mask , & ! bdy_mask
6272 dryrun , & ! flag
6273 'XY' , & ! MemoryOrder
6274 '' , & ! Stagger
6275 'west_east' , & ! Dimname 1
6276 'south_north' , & ! Dimname 2
6277 '' , & ! Dimname 3
6278 'TIME-VARYING ROUGHNESS LENGTH' , & ! Desc
6279 'm' , & ! Units
6280 'inc/wrf_restartout.inc ext_write_field ZNT memorder XY' , & ! Debug message
6281 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6282 ims , ime , jms , jme , 1 , 1 , &
6283 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6284 ierr )
6285 CALL wrf_ext_write_field ( &
6286 fid , & ! DataHandle
6287 current_date(1:19) , & ! DateStr
6288 'UST' , & ! Data Name
6289 grid%ust , & ! Field
6290 WRF_FLOAT , & ! FieldType
6291 grid%communicator , & ! Comm
6292 grid%iocommunicator , & ! Comm
6293 grid%domdesc , & ! Comm
6294 grid%bdy_mask , & ! bdy_mask
6295 dryrun , & ! flag
6296 'XY' , & ! MemoryOrder
6297 '' , & ! Stagger
6298 'west_east' , & ! Dimname 1
6299 'south_north' , & ! Dimname 2
6300 '' , & ! Dimname 3
6301 'U* IN SIMILARITY THEORY' , & ! Desc
6302 'm s-1' , & ! Units
6303 'inc/wrf_restartout.inc ext_write_field UST memorder XY' , & ! Debug message
6304 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6305 ims , ime , jms , jme , 1 , 1 , &
6306 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6307 ierr )
6308 CALL wrf_ext_write_field ( &
6309 fid , & ! DataHandle
6310 current_date(1:19) , & ! DateStr
6311 'RMOL' , & ! Data Name
6312 grid%rmol , & ! Field
6313 WRF_FLOAT , & ! FieldType
6314 grid%communicator , & ! Comm
6315 grid%iocommunicator , & ! Comm
6316 grid%domdesc , & ! Comm
6317 grid%bdy_mask , & ! bdy_mask
6318 dryrun , & ! flag
6319 'XY' , & ! MemoryOrder
6320 '' , & ! Stagger
6321 'west_east' , & ! Dimname 1
6322 'south_north' , & ! Dimname 2
6323 '' , & ! Dimname 3
6324 '1./Monin Ob. Length' , & ! Desc
6325 '' , & ! Units
6326 'inc/wrf_restartout.inc ext_write_field RMOL memorder XY' , & ! Debug message
6327 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6328 ims , ime , jms , jme , 1 , 1 , &
6329 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6330 ierr )
6331 CALL wrf_ext_write_field ( &
6332 fid , & ! DataHandle
6333 current_date(1:19) , & ! DateStr
6334 'MOL' , & ! Data Name
6335 grid%mol , & ! Field
6336 WRF_FLOAT , & ! FieldType
6337 grid%communicator , & ! Comm
6338 grid%iocommunicator , & ! Comm
6339 grid%domdesc , & ! Comm
6340 grid%bdy_mask , & ! bdy_mask
6341 dryrun , & ! flag
6342 'XY' , & ! MemoryOrder
6343 '' , & ! Stagger
6344 'west_east' , & ! Dimname 1
6345 'south_north' , & ! Dimname 2
6346 '' , & ! Dimname 3
6347 'T* IN SIMILARITY THEORY' , & ! Desc
6348 'K' , & ! Units
6349 'inc/wrf_restartout.inc ext_write_field MOL memorder XY' , & ! Debug message
6350 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6351 ims , ime , jms , jme , 1 , 1 , &
6352 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6353 ierr )
6354 CALL wrf_ext_write_field ( &
6355 fid , & ! DataHandle
6356 current_date(1:19) , & ! DateStr
6357 'PBLH' , & ! Data Name
6358 grid%pblh , & ! Field
6359 WRF_FLOAT , & ! FieldType
6360 grid%communicator , & ! Comm
6361 grid%iocommunicator , & ! Comm
6362 grid%domdesc , & ! Comm
6363 grid%bdy_mask , & ! bdy_mask
6364 dryrun , & ! flag
6365 'XY' , & ! MemoryOrder
6366 '' , & ! Stagger
6367 'west_east' , & ! Dimname 1
6368 'south_north' , & ! Dimname 2
6369 '' , & ! Dimname 3
6370 'PBL HEIGHT' , & ! Desc
6371 'm' , & ! Units
6372 'inc/wrf_restartout.inc ext_write_field PBLH memorder XY' , & ! Debug message
6373 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6374 ims , ime , jms , jme , 1 , 1 , &
6375 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6376 ierr )
6377 CALL wrf_ext_write_field ( &
6378 fid , & ! DataHandle
6379 current_date(1:19) , & ! DateStr
6380 'CAPG' , & ! Data Name
6381 grid%capg , & ! Field
6382 WRF_FLOAT , & ! FieldType
6383 grid%communicator , & ! Comm
6384 grid%iocommunicator , & ! Comm
6385 grid%domdesc , & ! Comm
6386 grid%bdy_mask , & ! bdy_mask
6387 dryrun , & ! flag
6388 'XY' , & ! MemoryOrder
6389 '' , & ! Stagger
6390 'west_east' , & ! Dimname 1
6391 'south_north' , & ! Dimname 2
6392 '' , & ! Dimname 3
6393 'HEAT CAPACITY FOR SOIL' , & ! Desc
6394 'J K-1 m-3' , & ! Units
6395 'inc/wrf_restartout.inc ext_write_field CAPG memorder XY' , & ! Debug message
6396 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6397 ims , ime , jms , jme , 1 , 1 , &
6398 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6399 ierr )
6400 CALL wrf_ext_write_field ( &
6401 fid , & ! DataHandle
6402 current_date(1:19) , & ! DateStr
6403 'THC' , & ! Data Name
6404 grid%thc , & ! Field
6405 WRF_FLOAT , & ! FieldType
6406 grid%communicator , & ! Comm
6407 grid%iocommunicator , & ! Comm
6408 grid%domdesc , & ! Comm
6409 grid%bdy_mask , & ! bdy_mask
6410 dryrun , & ! flag
6411 'XY' , & ! MemoryOrder
6412 '' , & ! Stagger
6413 'west_east' , & ! Dimname 1
6414 'south_north' , & ! Dimname 2
6415 '' , & ! Dimname 3
6416 'THERMAL INERTIA' , & ! Desc
6417 'Cal cm-1 K-1 s-0.5' , & ! Units
6418 'inc/wrf_restartout.inc ext_write_field THC memorder XY' , & ! Debug message
6419 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6420 ims , ime , jms , jme , 1 , 1 , &
6421 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6422 ierr )
6423 CALL wrf_ext_write_field ( &
6424 fid , & ! DataHandle
6425 current_date(1:19) , & ! DateStr
6426 'HFX' , & ! Data Name
6427 grid%hfx , & ! Field
6428 WRF_FLOAT , & ! FieldType
6429 grid%communicator , & ! Comm
6430 grid%iocommunicator , & ! Comm
6431 grid%domdesc , & ! Comm
6432 grid%bdy_mask , & ! bdy_mask
6433 dryrun , & ! flag
6434 'XY' , & ! MemoryOrder
6435 '' , & ! Stagger
6436 'west_east' , & ! Dimname 1
6437 'south_north' , & ! Dimname 2
6438 '' , & ! Dimname 3
6439 'UPWARD HEAT FLUX AT THE SURFACE' , & ! Desc
6440 'W m-2' , & ! Units
6441 'inc/wrf_restartout.inc ext_write_field HFX memorder XY' , & ! Debug message
6442 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6443 ims , ime , jms , jme , 1 , 1 , &
6444 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6445 ierr )
6446 CALL wrf_ext_write_field ( &
6447 fid , & ! DataHandle
6448 current_date(1:19) , & ! DateStr
6449 'QFX' , & ! Data Name
6450 grid%qfx , & ! Field
6451 WRF_FLOAT , & ! FieldType
6452 grid%communicator , & ! Comm
6453 grid%iocommunicator , & ! Comm
6454 grid%domdesc , & ! Comm
6455 grid%bdy_mask , & ! bdy_mask
6456 dryrun , & ! flag
6457 'XY' , & ! MemoryOrder
6458 '' , & ! Stagger
6459 'west_east' , & ! Dimname 1
6460 'south_north' , & ! Dimname 2
6461 '' , & ! Dimname 3
6462 'UPWARD MOISTURE FLUX AT THE SURFACE' , & ! Desc
6463 'kg m-2 s-1' , & ! Units
6464 'inc/wrf_restartout.inc ext_write_field QFX memorder XY' , & ! Debug message
6465 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6466 ims , ime , jms , jme , 1 , 1 , &
6467 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6468 ierr )
6469 CALL wrf_ext_write_field ( &
6470 fid , & ! DataHandle
6471 current_date(1:19) , & ! DateStr
6472 'LH' , & ! Data Name
6473 grid%lh , & ! Field
6474 WRF_FLOAT , & ! FieldType
6475 grid%communicator , & ! Comm
6476 grid%iocommunicator , & ! Comm
6477 grid%domdesc , & ! Comm
6478 grid%bdy_mask , & ! bdy_mask
6479 dryrun , & ! flag
6480 'XY' , & ! MemoryOrder
6481 '' , & ! Stagger
6482 'west_east' , & ! Dimname 1
6483 'south_north' , & ! Dimname 2
6484 '' , & ! Dimname 3
6485 'LATENT HEAT FLUX AT THE SURFACE' , & ! Desc
6486 'W m-2' , & ! Units
6487 'inc/wrf_restartout.inc ext_write_field LH memorder XY' , & ! Debug message
6488 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6489 ims , ime , jms , jme , 1 , 1 , &
6490 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6491 ierr )
6492 CALL wrf_ext_write_field ( &
6493 fid , & ! DataHandle
6494 current_date(1:19) , & ! DateStr
6495 'FLHC' , & ! Data Name
6496 grid%flhc , & ! Field
6497 WRF_FLOAT , & ! FieldType
6498 grid%communicator , & ! Comm
6499 grid%iocommunicator , & ! Comm
6500 grid%domdesc , & ! Comm
6501 grid%bdy_mask , & ! bdy_mask
6502 dryrun , & ! flag
6503 'XY' , & ! MemoryOrder
6504 '' , & ! Stagger
6505 'west_east' , & ! Dimname 1
6506 'south_north' , & ! Dimname 2
6507 '' , & ! Dimname 3
6508 'SURFACE EXCHANGE COEFFICIENT FOR HEAT' , & ! Desc
6509 '' , & ! Units
6510 'inc/wrf_restartout.inc ext_write_field FLHC memorder XY' , & ! Debug message
6511 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6512 ims , ime , jms , jme , 1 , 1 , &
6513 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6514 ierr )
6515 CALL wrf_ext_write_field ( &
6516 fid , & ! DataHandle
6517 current_date(1:19) , & ! DateStr
6518 'FLQC' , & ! Data Name
6519 grid%flqc , & ! Field
6520 WRF_FLOAT , & ! FieldType
6521 grid%communicator , & ! Comm
6522 grid%iocommunicator , & ! Comm
6523 grid%domdesc , & ! Comm
6524 grid%bdy_mask , & ! bdy_mask
6525 dryrun , & ! flag
6526 'XY' , & ! MemoryOrder
6527 '' , & ! Stagger
6528 'west_east' , & ! Dimname 1
6529 'south_north' , & ! Dimname 2
6530 '' , & ! Dimname 3
6531 'SURFACE EXCHANGE COEFFICIENT FOR MOISTURE' , & ! Desc
6532 '' , & ! Units
6533 'inc/wrf_restartout.inc ext_write_field FLQC memorder XY' , & ! Debug message
6534 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6535 ims , ime , jms , jme , 1 , 1 , &
6536 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6537 ierr )
6538 CALL wrf_ext_write_field ( &
6539 fid , & ! DataHandle
6540 current_date(1:19) , & ! DateStr
6541 'QSG' , & ! Data Name
6542 grid%qsg , & ! Field
6543 WRF_FLOAT , & ! FieldType
6544 grid%communicator , & ! Comm
6545 grid%iocommunicator , & ! Comm
6546 grid%domdesc , & ! Comm
6547 grid%bdy_mask , & ! bdy_mask
6548 dryrun , & ! flag
6549 'XY' , & ! MemoryOrder
6550 '' , & ! Stagger
6551 'west_east' , & ! Dimname 1
6552 'south_north' , & ! Dimname 2
6553 '' , & ! Dimname 3
6554 'SURFACE SATURATION WATER VAPOR MIXING RATIO' , & ! Desc
6555 'kg kg-1' , & ! Units
6556 'inc/wrf_restartout.inc ext_write_field QSG memorder XY' , & ! Debug message
6557 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6558 ims , ime , jms , jme , 1 , 1 , &
6559 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6560 ierr )
6561 CALL wrf_ext_write_field ( &
6562 fid , & ! DataHandle
6563 current_date(1:19) , & ! DateStr
6564 'QVG' , & ! Data Name
6565 grid%qvg , & ! Field
6566 WRF_FLOAT , & ! FieldType
6567 grid%communicator , & ! Comm
6568 grid%iocommunicator , & ! Comm
6569 grid%domdesc , & ! Comm
6570 grid%bdy_mask , & ! bdy_mask
6571 dryrun , & ! flag
6572 'XY' , & ! MemoryOrder
6573 '' , & ! Stagger
6574 'west_east' , & ! Dimname 1
6575 'south_north' , & ! Dimname 2
6576 '' , & ! Dimname 3
6577 'WATER VAPOR MIXING RATIO AT THE SURFACE' , & ! Desc
6578 'kg kg-1' , & ! Units
6579 'inc/wrf_restartout.inc ext_write_field QVG memorder XY' , & ! Debug message
6580 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6581 ims , ime , jms , jme , 1 , 1 , &
6582 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6583 ierr )
6584 CALL wrf_ext_write_field ( &
6585 fid , & ! DataHandle
6586 current_date(1:19) , & ! DateStr
6587 'QCG' , & ! Data Name
6588 grid%qcg , & ! Field
6589 WRF_FLOAT , & ! FieldType
6590 grid%communicator , & ! Comm
6591 grid%iocommunicator , & ! Comm
6592 grid%domdesc , & ! Comm
6593 grid%bdy_mask , & ! bdy_mask
6594 dryrun , & ! flag
6595 'XY' , & ! MemoryOrder
6596 '' , & ! Stagger
6597 'west_east' , & ! Dimname 1
6598 'south_north' , & ! Dimname 2
6599 '' , & ! Dimname 3
6600 'CLOUD WATER MIXING RATIO AT THE SURFACE' , & ! Desc
6601 'kg kg-1' , & ! Units
6602 'inc/wrf_restartout.inc ext_write_field QCG memorder XY' , & ! Debug message
6603 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6604 ims , ime , jms , jme , 1 , 1 , &
6605 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6606 ierr )
6607 CALL wrf_ext_write_field ( &
6608 fid , & ! DataHandle
6609 current_date(1:19) , & ! DateStr
6610 'SOILT1' , & ! Data Name
6611 grid%soilt1 , & ! Field
6612 WRF_FLOAT , & ! FieldType
6613 grid%communicator , & ! Comm
6614 grid%iocommunicator , & ! Comm
6615 grid%domdesc , & ! Comm
6616 grid%bdy_mask , & ! bdy_mask
6617 dryrun , & ! flag
6618 'XY' , & ! MemoryOrder
6619 '' , & ! Stagger
6620 'west_east' , & ! Dimname 1
6621 'south_north' , & ! Dimname 2
6622 '' , & ! Dimname 3
6623 'TEMPERATURE INSIDE SNOW ' , & ! Desc
6624 'K' , & ! Units
6625 'inc/wrf_restartout.inc ext_write_field SOILT1 memorder XY' , & ! Debug message
6626 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6627 ims , ime , jms , jme , 1 , 1 , &
6628 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6629 ierr )
6630 CALL wrf_ext_write_field ( &
6631 fid , & ! DataHandle
6632 current_date(1:19) , & ! DateStr
6633 'TSNAV' , & ! Data Name
6634 grid%tsnav , & ! Field
6635 WRF_FLOAT , & ! FieldType
6636 grid%communicator , & ! Comm
6637 grid%iocommunicator , & ! Comm
6638 grid%domdesc , & ! Comm
6639 grid%bdy_mask , & ! bdy_mask
6640 dryrun , & ! flag
6641 'XY' , & ! MemoryOrder
6642 '' , & ! Stagger
6643 'west_east' , & ! Dimname 1
6644 'south_north' , & ! Dimname 2
6645 '' , & ! Dimname 3
6646 'AVERAGE SNOW TEMPERATURE ' , & ! Desc
6647 'C' , & ! Units
6648 'inc/wrf_restartout.inc ext_write_field TSNAV memorder XY' , & ! Debug message
6649 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6650 ims , ime , jms , jme , 1 , 1 , &
6651 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6652 ierr )
6653 CALL wrf_ext_write_field ( &
6654 fid , & ! DataHandle
6655 current_date(1:19) , & ! DateStr
6656 'SNOWC' , & ! Data Name
6657 grid%snowc , & ! Field
6658 WRF_FLOAT , & ! FieldType
6659 grid%communicator , & ! Comm
6660 grid%iocommunicator , & ! Comm
6661 grid%domdesc , & ! Comm
6662 grid%bdy_mask , & ! bdy_mask
6663 dryrun , & ! flag
6664 'XY' , & ! MemoryOrder
6665 '' , & ! Stagger
6666 'west_east' , & ! Dimname 1
6667 'south_north' , & ! Dimname 2
6668 '' , & ! Dimname 3
6669 'FLAG INDICATING SNOW COVERAGE (1 FOR SNOW COVER)' , & ! Desc
6670 '' , & ! Units
6671 'inc/wrf_restartout.inc ext_write_field SNOWC memorder XY' , & ! Debug message
6672 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6673 ims , ime , jms , jme , 1 , 1 , &
6674 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6675 ierr )
6676 CALL wrf_ext_write_field ( &
6677 fid , & ! DataHandle
6678 current_date(1:19) , & ! DateStr
6679 'MAVAIL' , & ! Data Name
6680 grid%mavail , & ! Field
6681 WRF_FLOAT , & ! FieldType
6682 grid%communicator , & ! Comm
6683 grid%iocommunicator , & ! Comm
6684 grid%domdesc , & ! Comm
6685 grid%bdy_mask , & ! bdy_mask
6686 dryrun , & ! flag
6687 'XY' , & ! MemoryOrder
6688 '' , & ! Stagger
6689 'west_east' , & ! Dimname 1
6690 'south_north' , & ! Dimname 2
6691 '' , & ! Dimname 3
6692 'SURFACE MOISTURE AVAILABILITY' , & ! Desc
6693 '' , & ! Units
6694 'inc/wrf_restartout.inc ext_write_field MAVAIL memorder XY' , & ! Debug message
6695 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
6696 ims , ime , jms , jme , 1 , 1 , &
6697 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
6698 ierr )
6699 CALL wrf_ext_write_field ( &
6700 fid , & ! DataHandle
6701 current_date(1:19) , & ! DateStr
6702 'STEPBL' , & ! Data Name
6703 grid%stepbl , & ! Field
6704 WRF_integer , & ! FieldType
6705 grid%communicator , & ! Comm
6706 grid%iocommunicator , & ! Comm
6707 grid%domdesc , & ! Comm
6708 grid%bdy_mask , & ! bdy_mask
6709 dryrun , & ! flag
6710 '0' , & ! MemoryOrder
6711 '' , & ! Stagger
6712 '' , & ! Dimname 1
6713 '' , & ! Dimname 2
6714 '' , & ! Dimname 3
6715 'NUMBER OF FUNDAMENTAL TIMESTEPS BETWEEN PBL CALLS' , & ! Desc
6716 '' , & ! Units
6717 'inc/wrf_restartout.inc ext_write_field STEPBL memorder 0' , & ! Debug message
6718 1 , 1 , 1 , 1 , 1 , 1 , &
6719 1 , 1 , 1 , 1 , 1 , 1 , &
6720 1 , 1 , 1 , 1 , 1 , 1 , &
6721 ierr )
6722 !ENDOFREGISTRYGENERATEDINCLUDE