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 ( grid%dyn_opt == DYN_EM_AD ) THEN
81 CALL wrf_ext_write_field ( &
82 fid , & ! DataHandle
83 current_date(1:19) , & ! DateStr
84 'A_U_1' , & ! Data Name
85 grid%a_u_1 , & ! Field
86 WRF_FLOAT , & ! FieldType
87 grid%communicator , & ! Comm
88 grid%iocommunicator , & ! Comm
89 grid%domdesc , & ! Comm
90 grid%bdy_mask , & ! bdy_mask
91 dryrun , & ! flag
92 'XYZ' , & ! MemoryOrder
93 'X' , & ! Stagger
94 'west_east_stag' , & ! Dimname 1
95 'south_north' , & ! Dimname 2
96 'bottom_top' , & ! Dimname 3
97 'x-wind component' , & ! Desc
98 'm s-1' , & ! Units
99 'inc/wrf_restartout.inc ext_write_field A_U_1 memorder XYZ' , & ! Debug message
100 ids , ide , jds , (jde-1) , kds , (kde-1) , &
101 ims , ime , jms , jme , kms , kme , &
102 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
103 ierr )
104 END IF
105 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
106 CALL wrf_ext_write_field ( &
107 fid , & ! DataHandle
108 current_date(1:19) , & ! DateStr
109 'A_U_2' , & ! Data Name
110 grid%a_u_2 , & ! Field
111 WRF_FLOAT , & ! FieldType
112 grid%communicator , & ! Comm
113 grid%iocommunicator , & ! Comm
114 grid%domdesc , & ! Comm
115 grid%bdy_mask , & ! bdy_mask
116 dryrun , & ! flag
117 'XYZ' , & ! MemoryOrder
118 'X' , & ! Stagger
119 'west_east_stag' , & ! Dimname 1
120 'south_north' , & ! Dimname 2
121 'bottom_top' , & ! Dimname 3
122 'x-wind component' , & ! Desc
123 'm s-1' , & ! Units
124 'inc/wrf_restartout.inc ext_write_field A_U_2 memorder XYZ' , & ! Debug message
125 ids , ide , jds , (jde-1) , kds , (kde-1) , &
126 ims , ime , jms , jme , kms , kme , &
127 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
128 ierr )
129 END IF
130 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
131 CALL wrf_ext_write_field ( &
132 fid , & ! DataHandle
133 current_date(1:19) , & ! DateStr
134 'G_U_1' , & ! Data Name
135 grid%g_u_1 , & ! Field
136 WRF_FLOAT , & ! FieldType
137 grid%communicator , & ! Comm
138 grid%iocommunicator , & ! Comm
139 grid%domdesc , & ! Comm
140 grid%bdy_mask , & ! bdy_mask
141 dryrun , & ! flag
142 'XYZ' , & ! MemoryOrder
143 'X' , & ! Stagger
144 'west_east_stag' , & ! Dimname 1
145 'south_north' , & ! Dimname 2
146 'bottom_top' , & ! Dimname 3
147 'x-wind component' , & ! Desc
148 'm s-1' , & ! Units
149 'inc/wrf_restartout.inc ext_write_field G_U_1 memorder XYZ' , & ! Debug message
150 ids , ide , jds , (jde-1) , kds , (kde-1) , &
151 ims , ime , jms , jme , kms , kme , &
152 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
153 ierr )
154 END IF
155 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
156 CALL wrf_ext_write_field ( &
157 fid , & ! DataHandle
158 current_date(1:19) , & ! DateStr
159 'G_U_2' , & ! Data Name
160 grid%g_u_2 , & ! Field
161 WRF_FLOAT , & ! FieldType
162 grid%communicator , & ! Comm
163 grid%iocommunicator , & ! Comm
164 grid%domdesc , & ! Comm
165 grid%bdy_mask , & ! bdy_mask
166 dryrun , & ! flag
167 'XYZ' , & ! MemoryOrder
168 'X' , & ! Stagger
169 'west_east_stag' , & ! Dimname 1
170 'south_north' , & ! Dimname 2
171 'bottom_top' , & ! Dimname 3
172 'x-wind component' , & ! Desc
173 'm s-1' , & ! Units
174 'inc/wrf_restartout.inc ext_write_field G_U_2 memorder XYZ' , & ! Debug message
175 ids , ide , jds , (jde-1) , kds , (kde-1) , &
176 ims , ime , jms , jme , kms , kme , &
177 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
178 ierr )
179 END IF
180 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
181 CALL wrf_ext_write_field ( &
182 fid , & ! DataHandle
183 current_date(1:19) , & ! DateStr
184 'V_1' , & ! Data Name
185 grid%em_v_1 , & ! Field
186 WRF_FLOAT , & ! FieldType
187 grid%communicator , & ! Comm
188 grid%iocommunicator , & ! Comm
189 grid%domdesc , & ! Comm
190 grid%bdy_mask , & ! bdy_mask
191 dryrun , & ! flag
192 'XYZ' , & ! MemoryOrder
193 'Y' , & ! Stagger
194 'west_east' , & ! Dimname 1
195 'south_north_stag' , & ! Dimname 2
196 'bottom_top' , & ! Dimname 3
197 'y-wind component' , & ! Desc
198 'm s-1' , & ! Units
199 'inc/wrf_restartout.inc ext_write_field V_1 memorder XYZ' , & ! Debug message
200 ids , (ide-1) , jds , jde , kds , (kde-1) , &
201 ims , ime , jms , jme , kms , kme , &
202 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
203 ierr )
204 END IF
205 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
206 CALL wrf_ext_write_field ( &
207 fid , & ! DataHandle
208 current_date(1:19) , & ! DateStr
209 'V_2' , & ! Data Name
210 grid%em_v_2 , & ! Field
211 WRF_FLOAT , & ! FieldType
212 grid%communicator , & ! Comm
213 grid%iocommunicator , & ! Comm
214 grid%domdesc , & ! Comm
215 grid%bdy_mask , & ! bdy_mask
216 dryrun , & ! flag
217 'XYZ' , & ! MemoryOrder
218 'Y' , & ! Stagger
219 'west_east' , & ! Dimname 1
220 'south_north_stag' , & ! Dimname 2
221 'bottom_top' , & ! Dimname 3
222 'y-wind component' , & ! Desc
223 'm s-1' , & ! Units
224 'inc/wrf_restartout.inc ext_write_field V_2 memorder XYZ' , & ! Debug message
225 ids , (ide-1) , jds , jde , kds , (kde-1) , &
226 ims , ime , jms , jme , kms , kme , &
227 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
228 ierr )
229 END IF
230 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
231 CALL wrf_ext_write_field ( &
232 fid , & ! DataHandle
233 current_date(1:19) , & ! DateStr
234 'A_V_1' , & ! Data Name
235 grid%a_v_1 , & ! Field
236 WRF_FLOAT , & ! FieldType
237 grid%communicator , & ! Comm
238 grid%iocommunicator , & ! Comm
239 grid%domdesc , & ! Comm
240 grid%bdy_mask , & ! bdy_mask
241 dryrun , & ! flag
242 'XYZ' , & ! MemoryOrder
243 'Y' , & ! Stagger
244 'west_east' , & ! Dimname 1
245 'south_north_stag' , & ! Dimname 2
246 'bottom_top' , & ! Dimname 3
247 'y-wind component' , & ! Desc
248 'm s-1' , & ! Units
249 'inc/wrf_restartout.inc ext_write_field A_V_1 memorder XYZ' , & ! Debug message
250 ids , (ide-1) , jds , jde , kds , (kde-1) , &
251 ims , ime , jms , jme , kms , kme , &
252 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
253 ierr )
254 END IF
255 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
256 CALL wrf_ext_write_field ( &
257 fid , & ! DataHandle
258 current_date(1:19) , & ! DateStr
259 'A_V_2' , & ! Data Name
260 grid%a_v_2 , & ! Field
261 WRF_FLOAT , & ! FieldType
262 grid%communicator , & ! Comm
263 grid%iocommunicator , & ! Comm
264 grid%domdesc , & ! Comm
265 grid%bdy_mask , & ! bdy_mask
266 dryrun , & ! flag
267 'XYZ' , & ! MemoryOrder
268 'Y' , & ! Stagger
269 'west_east' , & ! Dimname 1
270 'south_north_stag' , & ! Dimname 2
271 'bottom_top' , & ! Dimname 3
272 'y-wind component' , & ! Desc
273 'm s-1' , & ! Units
274 'inc/wrf_restartout.inc ext_write_field A_V_2 memorder XYZ' , & ! Debug message
275 ids , (ide-1) , jds , jde , kds , (kde-1) , &
276 ims , ime , jms , jme , kms , kme , &
277 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
278 ierr )
279 END IF
280 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
281 CALL wrf_ext_write_field ( &
282 fid , & ! DataHandle
283 current_date(1:19) , & ! DateStr
284 'G_V_1' , & ! Data Name
285 grid%g_v_1 , & ! Field
286 WRF_FLOAT , & ! FieldType
287 grid%communicator , & ! Comm
288 grid%iocommunicator , & ! Comm
289 grid%domdesc , & ! Comm
290 grid%bdy_mask , & ! bdy_mask
291 dryrun , & ! flag
292 'XYZ' , & ! MemoryOrder
293 'Y' , & ! Stagger
294 'west_east' , & ! Dimname 1
295 'south_north_stag' , & ! Dimname 2
296 'bottom_top' , & ! Dimname 3
297 'y-wind component' , & ! Desc
298 'm s-1' , & ! Units
299 'inc/wrf_restartout.inc ext_write_field G_V_1 memorder XYZ' , & ! Debug message
300 ids , (ide-1) , jds , jde , kds , (kde-1) , &
301 ims , ime , jms , jme , kms , kme , &
302 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
303 ierr )
304 END IF
305 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
306 CALL wrf_ext_write_field ( &
307 fid , & ! DataHandle
308 current_date(1:19) , & ! DateStr
309 'G_V_2' , & ! Data Name
310 grid%g_v_2 , & ! Field
311 WRF_FLOAT , & ! FieldType
312 grid%communicator , & ! Comm
313 grid%iocommunicator , & ! Comm
314 grid%domdesc , & ! Comm
315 grid%bdy_mask , & ! bdy_mask
316 dryrun , & ! flag
317 'XYZ' , & ! MemoryOrder
318 'Y' , & ! Stagger
319 'west_east' , & ! Dimname 1
320 'south_north_stag' , & ! Dimname 2
321 'bottom_top' , & ! Dimname 3
322 'y-wind component' , & ! Desc
323 'm s-1' , & ! Units
324 'inc/wrf_restartout.inc ext_write_field G_V_2 memorder XYZ' , & ! Debug message
325 ids , (ide-1) , jds , jde , kds , (kde-1) , &
326 ims , ime , jms , jme , kms , kme , &
327 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
328 ierr )
329 END IF
330 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
331 CALL wrf_ext_write_field ( &
332 fid , & ! DataHandle
333 current_date(1:19) , & ! DateStr
334 'W_1' , & ! Data Name
335 grid%em_w_1 , & ! Field
336 WRF_FLOAT , & ! FieldType
337 grid%communicator , & ! Comm
338 grid%iocommunicator , & ! Comm
339 grid%domdesc , & ! Comm
340 grid%bdy_mask , & ! bdy_mask
341 dryrun , & ! flag
342 'XYZ' , & ! MemoryOrder
343 'Z' , & ! Stagger
344 'west_east' , & ! Dimname 1
345 'south_north' , & ! Dimname 2
346 'bottom_top_stag' , & ! Dimname 3
347 'z-wind component' , & ! Desc
348 'm s-1' , & ! Units
349 'inc/wrf_restartout.inc ext_write_field W_1 memorder XYZ' , & ! Debug message
350 ids , (ide-1) , jds , (jde-1) , kds , kde , &
351 ims , ime , jms , jme , kms , kme , &
352 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
353 ierr )
354 END IF
355 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
356 CALL wrf_ext_write_field ( &
357 fid , & ! DataHandle
358 current_date(1:19) , & ! DateStr
359 'W_2' , & ! Data Name
360 grid%em_w_2 , & ! Field
361 WRF_FLOAT , & ! FieldType
362 grid%communicator , & ! Comm
363 grid%iocommunicator , & ! Comm
364 grid%domdesc , & ! Comm
365 grid%bdy_mask , & ! bdy_mask
366 dryrun , & ! flag
367 'XYZ' , & ! MemoryOrder
368 'Z' , & ! Stagger
369 'west_east' , & ! Dimname 1
370 'south_north' , & ! Dimname 2
371 'bottom_top_stag' , & ! Dimname 3
372 'z-wind component' , & ! Desc
373 'm s-1' , & ! Units
374 'inc/wrf_restartout.inc ext_write_field W_2 memorder XYZ' , & ! Debug message
375 ids , (ide-1) , jds , (jde-1) , kds , kde , &
376 ims , ime , jms , jme , kms , kme , &
377 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
378 ierr )
379 END IF
380 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
381 CALL wrf_ext_write_field ( &
382 fid , & ! DataHandle
383 current_date(1:19) , & ! DateStr
384 'A_W_1' , & ! Data Name
385 grid%a_w_1 , & ! Field
386 WRF_FLOAT , & ! FieldType
387 grid%communicator , & ! Comm
388 grid%iocommunicator , & ! Comm
389 grid%domdesc , & ! Comm
390 grid%bdy_mask , & ! bdy_mask
391 dryrun , & ! flag
392 'XYZ' , & ! MemoryOrder
393 'Z' , & ! Stagger
394 'west_east' , & ! Dimname 1
395 'south_north' , & ! Dimname 2
396 'bottom_top_stag' , & ! Dimname 3
397 'z-wind component' , & ! Desc
398 'm s-1' , & ! Units
399 'inc/wrf_restartout.inc ext_write_field A_W_1 memorder XYZ' , & ! Debug message
400 ids , (ide-1) , jds , (jde-1) , kds , kde , &
401 ims , ime , jms , jme , kms , kme , &
402 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
403 ierr )
404 END IF
405 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
406 CALL wrf_ext_write_field ( &
407 fid , & ! DataHandle
408 current_date(1:19) , & ! DateStr
409 'A_W_2' , & ! Data Name
410 grid%a_w_2 , & ! Field
411 WRF_FLOAT , & ! FieldType
412 grid%communicator , & ! Comm
413 grid%iocommunicator , & ! Comm
414 grid%domdesc , & ! Comm
415 grid%bdy_mask , & ! bdy_mask
416 dryrun , & ! flag
417 'XYZ' , & ! MemoryOrder
418 'Z' , & ! Stagger
419 'west_east' , & ! Dimname 1
420 'south_north' , & ! Dimname 2
421 'bottom_top_stag' , & ! Dimname 3
422 'z-wind component' , & ! Desc
423 'm s-1' , & ! Units
424 'inc/wrf_restartout.inc ext_write_field A_W_2 memorder XYZ' , & ! Debug message
425 ids , (ide-1) , jds , (jde-1) , kds , kde , &
426 ims , ime , jms , jme , kms , kme , &
427 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
428 ierr )
429 END IF
430 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
431 CALL wrf_ext_write_field ( &
432 fid , & ! DataHandle
433 current_date(1:19) , & ! DateStr
434 'G_W_1' , & ! Data Name
435 grid%g_w_1 , & ! Field
436 WRF_FLOAT , & ! FieldType
437 grid%communicator , & ! Comm
438 grid%iocommunicator , & ! Comm
439 grid%domdesc , & ! Comm
440 grid%bdy_mask , & ! bdy_mask
441 dryrun , & ! flag
442 'XYZ' , & ! MemoryOrder
443 'Z' , & ! Stagger
444 'west_east' , & ! Dimname 1
445 'south_north' , & ! Dimname 2
446 'bottom_top_stag' , & ! Dimname 3
447 'z-wind component' , & ! Desc
448 'm s-1' , & ! Units
449 'inc/wrf_restartout.inc ext_write_field G_W_1 memorder XYZ' , & ! Debug message
450 ids , (ide-1) , jds , (jde-1) , kds , kde , &
451 ims , ime , jms , jme , kms , kme , &
452 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
453 ierr )
454 END IF
455 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
456 CALL wrf_ext_write_field ( &
457 fid , & ! DataHandle
458 current_date(1:19) , & ! DateStr
459 'G_W_2' , & ! Data Name
460 grid%g_w_2 , & ! Field
461 WRF_FLOAT , & ! FieldType
462 grid%communicator , & ! Comm
463 grid%iocommunicator , & ! Comm
464 grid%domdesc , & ! Comm
465 grid%bdy_mask , & ! bdy_mask
466 dryrun , & ! flag
467 'XYZ' , & ! MemoryOrder
468 'Z' , & ! Stagger
469 'west_east' , & ! Dimname 1
470 'south_north' , & ! Dimname 2
471 'bottom_top_stag' , & ! Dimname 3
472 'z-wind component' , & ! Desc
473 'm s-1' , & ! Units
474 'inc/wrf_restartout.inc ext_write_field G_W_2 memorder XYZ' , & ! Debug message
475 ids , (ide-1) , jds , (jde-1) , kds , kde , &
476 ims , ime , jms , jme , kms , kme , &
477 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
478 ierr )
479 END IF
480 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
481 CALL wrf_ext_write_field ( &
482 fid , & ! DataHandle
483 current_date(1:19) , & ! DateStr
484 'PH_1' , & ! Data Name
485 grid%em_ph_1 , & ! Field
486 WRF_FLOAT , & ! FieldType
487 grid%communicator , & ! Comm
488 grid%iocommunicator , & ! Comm
489 grid%domdesc , & ! Comm
490 grid%bdy_mask , & ! bdy_mask
491 dryrun , & ! flag
492 'XYZ' , & ! MemoryOrder
493 'Z' , & ! Stagger
494 'west_east' , & ! Dimname 1
495 'south_north' , & ! Dimname 2
496 'bottom_top_stag' , & ! Dimname 3
497 'perturbation geopotential' , & ! Desc
498 'm2 s-2' , & ! Units
499 'inc/wrf_restartout.inc ext_write_field PH_1 memorder XYZ' , & ! Debug message
500 ids , (ide-1) , jds , (jde-1) , kds , kde , &
501 ims , ime , jms , jme , kms , kme , &
502 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
503 ierr )
504 END IF
505 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
506 CALL wrf_ext_write_field ( &
507 fid , & ! DataHandle
508 current_date(1:19) , & ! DateStr
509 'PH_2' , & ! Data Name
510 grid%em_ph_2 , & ! Field
511 WRF_FLOAT , & ! FieldType
512 grid%communicator , & ! Comm
513 grid%iocommunicator , & ! Comm
514 grid%domdesc , & ! Comm
515 grid%bdy_mask , & ! bdy_mask
516 dryrun , & ! flag
517 'XYZ' , & ! MemoryOrder
518 'Z' , & ! Stagger
519 'west_east' , & ! Dimname 1
520 'south_north' , & ! Dimname 2
521 'bottom_top_stag' , & ! Dimname 3
522 'perturbation geopotential' , & ! Desc
523 'm2 s-2' , & ! Units
524 'inc/wrf_restartout.inc ext_write_field PH_2 memorder XYZ' , & ! Debug message
525 ids , (ide-1) , jds , (jde-1) , kds , kde , &
526 ims , ime , jms , jme , kms , kme , &
527 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
528 ierr )
529 END IF
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_PH_1' , & ! Data Name
535 grid%a_ph_1 , & ! 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 'perturbation geopotential' , & ! Desc
548 'm2 s-2' , & ! Units
549 'inc/wrf_restartout.inc ext_write_field A_PH_1 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 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
556 CALL wrf_ext_write_field ( &
557 fid , & ! DataHandle
558 current_date(1:19) , & ! DateStr
559 'A_PH_2' , & ! Data Name
560 grid%a_ph_2 , & ! Field
561 WRF_FLOAT , & ! FieldType
562 grid%communicator , & ! Comm
563 grid%iocommunicator , & ! Comm
564 grid%domdesc , & ! Comm
565 grid%bdy_mask , & ! bdy_mask
566 dryrun , & ! flag
567 'XYZ' , & ! MemoryOrder
568 'Z' , & ! Stagger
569 'west_east' , & ! Dimname 1
570 'south_north' , & ! Dimname 2
571 'bottom_top_stag' , & ! Dimname 3
572 'perturbation geopotential' , & ! Desc
573 'm2 s-2' , & ! Units
574 'inc/wrf_restartout.inc ext_write_field A_PH_2 memorder XYZ' , & ! Debug message
575 ids , (ide-1) , jds , (jde-1) , kds , kde , &
576 ims , ime , jms , jme , kms , kme , &
577 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
578 ierr )
579 END IF
580 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
581 CALL wrf_ext_write_field ( &
582 fid , & ! DataHandle
583 current_date(1:19) , & ! DateStr
584 'G_PH_1' , & ! Data Name
585 grid%g_ph_1 , & ! Field
586 WRF_FLOAT , & ! FieldType
587 grid%communicator , & ! Comm
588 grid%iocommunicator , & ! Comm
589 grid%domdesc , & ! Comm
590 grid%bdy_mask , & ! bdy_mask
591 dryrun , & ! flag
592 'XYZ' , & ! MemoryOrder
593 'Z' , & ! Stagger
594 'west_east' , & ! Dimname 1
595 'south_north' , & ! Dimname 2
596 'bottom_top_stag' , & ! Dimname 3
597 'perturbation geopotential' , & ! Desc
598 'm2 s-2' , & ! Units
599 'inc/wrf_restartout.inc ext_write_field G_PH_1 memorder XYZ' , & ! Debug message
600 ids , (ide-1) , jds , (jde-1) , kds , kde , &
601 ims , ime , jms , jme , kms , kme , &
602 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
603 ierr )
604 END IF
605 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
606 CALL wrf_ext_write_field ( &
607 fid , & ! DataHandle
608 current_date(1:19) , & ! DateStr
609 'G_PH_2' , & ! Data Name
610 grid%g_ph_2 , & ! Field
611 WRF_FLOAT , & ! FieldType
612 grid%communicator , & ! Comm
613 grid%iocommunicator , & ! Comm
614 grid%domdesc , & ! Comm
615 grid%bdy_mask , & ! bdy_mask
616 dryrun , & ! flag
617 'XYZ' , & ! MemoryOrder
618 'Z' , & ! Stagger
619 'west_east' , & ! Dimname 1
620 'south_north' , & ! Dimname 2
621 'bottom_top_stag' , & ! Dimname 3
622 'perturbation geopotential' , & ! Desc
623 'm2 s-2' , & ! Units
624 'inc/wrf_restartout.inc ext_write_field G_PH_2 memorder XYZ' , & ! Debug message
625 ids , (ide-1) , jds , (jde-1) , kds , kde , &
626 ims , ime , jms , jme , kms , kme , &
627 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
628 ierr )
629 END IF
630 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
631 CALL wrf_ext_write_field ( &
632 fid , & ! DataHandle
633 current_date(1:19) , & ! DateStr
634 'PHB' , & ! Data Name
635 grid%em_phb , & ! Field
636 WRF_FLOAT , & ! FieldType
637 grid%communicator , & ! Comm
638 grid%iocommunicator , & ! Comm
639 grid%domdesc , & ! Comm
640 grid%bdy_mask , & ! bdy_mask
641 dryrun , & ! flag
642 'XYZ' , & ! MemoryOrder
643 'Z' , & ! Stagger
644 'west_east' , & ! Dimname 1
645 'south_north' , & ! Dimname 2
646 'bottom_top_stag' , & ! Dimname 3
647 'base-state geopotential' , & ! Desc
648 'm2 s-2' , & ! Units
649 'inc/wrf_restartout.inc ext_write_field PHB memorder XYZ' , & ! Debug message
650 ids , (ide-1) , jds , (jde-1) , kds , kde , &
651 ims , ime , jms , jme , kms , kme , &
652 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
653 ierr )
654 END IF
655 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
656 CALL wrf_ext_write_field ( &
657 fid , & ! DataHandle
658 current_date(1:19) , & ! DateStr
659 'T_1' , & ! Data Name
660 grid%em_t_1 , & ! Field
661 WRF_FLOAT , & ! FieldType
662 grid%communicator , & ! Comm
663 grid%iocommunicator , & ! Comm
664 grid%domdesc , & ! Comm
665 grid%bdy_mask , & ! bdy_mask
666 dryrun , & ! flag
667 'XYZ' , & ! MemoryOrder
668 '' , & ! Stagger
669 'west_east' , & ! Dimname 1
670 'south_north' , & ! Dimname 2
671 'bottom_top' , & ! Dimname 3
672 'perturbation potential temperature (theta-t0)' , & ! Desc
673 'K' , & ! Units
674 'inc/wrf_restartout.inc ext_write_field T_1 memorder XYZ' , & ! Debug message
675 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
676 ims , ime , jms , jme , kms , kme , &
677 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
678 ierr )
679 END IF
680 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
681 CALL wrf_ext_write_field ( &
682 fid , & ! DataHandle
683 current_date(1:19) , & ! DateStr
684 'T_2' , & ! Data Name
685 grid%em_t_2 , & ! Field
686 WRF_FLOAT , & ! FieldType
687 grid%communicator , & ! Comm
688 grid%iocommunicator , & ! Comm
689 grid%domdesc , & ! Comm
690 grid%bdy_mask , & ! bdy_mask
691 dryrun , & ! flag
692 'XYZ' , & ! MemoryOrder
693 '' , & ! Stagger
694 'west_east' , & ! Dimname 1
695 'south_north' , & ! Dimname 2
696 'bottom_top' , & ! Dimname 3
697 'perturbation potential temperature (theta-t0)' , & ! Desc
698 'K' , & ! Units
699 'inc/wrf_restartout.inc ext_write_field T_2 memorder XYZ' , & ! Debug message
700 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
701 ims , ime , jms , jme , kms , kme , &
702 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
703 ierr )
704 END IF
705 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
706 CALL wrf_ext_write_field ( &
707 fid , & ! DataHandle
708 current_date(1:19) , & ! DateStr
709 'A_T_1' , & ! Data Name
710 grid%a_t_1 , & ! Field
711 WRF_FLOAT , & ! FieldType
712 grid%communicator , & ! Comm
713 grid%iocommunicator , & ! Comm
714 grid%domdesc , & ! Comm
715 grid%bdy_mask , & ! bdy_mask
716 dryrun , & ! flag
717 'XYZ' , & ! MemoryOrder
718 '' , & ! Stagger
719 'west_east' , & ! Dimname 1
720 'south_north' , & ! Dimname 2
721 'bottom_top' , & ! Dimname 3
722 'perturbation potential temperature (theta-t0)' , & ! Desc
723 'K' , & ! Units
724 'inc/wrf_restartout.inc ext_write_field A_T_1 memorder XYZ' , & ! Debug message
725 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
726 ims , ime , jms , jme , kms , kme , &
727 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
728 ierr )
729 END IF
730 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
731 CALL wrf_ext_write_field ( &
732 fid , & ! DataHandle
733 current_date(1:19) , & ! DateStr
734 'A_T_2' , & ! Data Name
735 grid%a_t_2 , & ! Field
736 WRF_FLOAT , & ! FieldType
737 grid%communicator , & ! Comm
738 grid%iocommunicator , & ! Comm
739 grid%domdesc , & ! Comm
740 grid%bdy_mask , & ! bdy_mask
741 dryrun , & ! flag
742 'XYZ' , & ! MemoryOrder
743 '' , & ! Stagger
744 'west_east' , & ! Dimname 1
745 'south_north' , & ! Dimname 2
746 'bottom_top' , & ! Dimname 3
747 'perturbation potential temperature (theta-t0)' , & ! Desc
748 'K' , & ! Units
749 'inc/wrf_restartout.inc ext_write_field A_T_2 memorder XYZ' , & ! Debug message
750 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
751 ims , ime , jms , jme , kms , kme , &
752 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
753 ierr )
754 END IF
755 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
756 CALL wrf_ext_write_field ( &
757 fid , & ! DataHandle
758 current_date(1:19) , & ! DateStr
759 'G_T_1' , & ! Data Name
760 grid%g_t_1 , & ! Field
761 WRF_FLOAT , & ! FieldType
762 grid%communicator , & ! Comm
763 grid%iocommunicator , & ! Comm
764 grid%domdesc , & ! Comm
765 grid%bdy_mask , & ! bdy_mask
766 dryrun , & ! flag
767 'XYZ' , & ! MemoryOrder
768 '' , & ! Stagger
769 'west_east' , & ! Dimname 1
770 'south_north' , & ! Dimname 2
771 'bottom_top' , & ! Dimname 3
772 'perturbation potential temperature (theta-t0)' , & ! Desc
773 'K' , & ! Units
774 'inc/wrf_restartout.inc ext_write_field G_T_1 memorder XYZ' , & ! Debug message
775 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
776 ims , ime , jms , jme , kms , kme , &
777 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
778 ierr )
779 END IF
780 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
781 CALL wrf_ext_write_field ( &
782 fid , & ! DataHandle
783 current_date(1:19) , & ! DateStr
784 'G_T_2' , & ! Data Name
785 grid%g_t_2 , & ! Field
786 WRF_FLOAT , & ! FieldType
787 grid%communicator , & ! Comm
788 grid%iocommunicator , & ! Comm
789 grid%domdesc , & ! Comm
790 grid%bdy_mask , & ! bdy_mask
791 dryrun , & ! flag
792 'XYZ' , & ! MemoryOrder
793 '' , & ! Stagger
794 'west_east' , & ! Dimname 1
795 'south_north' , & ! Dimname 2
796 'bottom_top' , & ! Dimname 3
797 'perturbation potential temperature (theta-t0)' , & ! Desc
798 'K' , & ! Units
799 'inc/wrf_restartout.inc ext_write_field G_T_2 memorder XYZ' , & ! Debug message
800 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
801 ims , ime , jms , jme , kms , kme , &
802 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
803 ierr )
804 END IF
805 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
806 CALL wrf_ext_write_field ( &
807 fid , & ! DataHandle
808 current_date(1:19) , & ! DateStr
809 'MU_1' , & ! Data Name
810 grid%em_mu_1 , & ! Field
811 WRF_FLOAT , & ! FieldType
812 grid%communicator , & ! Comm
813 grid%iocommunicator , & ! Comm
814 grid%domdesc , & ! Comm
815 grid%bdy_mask , & ! bdy_mask
816 dryrun , & ! flag
817 'XY' , & ! MemoryOrder
818 '' , & ! Stagger
819 'west_east' , & ! Dimname 1
820 'south_north' , & ! Dimname 2
821 '' , & ! Dimname 3
822 'perturbation dry air mass in column' , & ! Desc
823 'Pa' , & ! Units
824 'inc/wrf_restartout.inc ext_write_field MU_1 memorder XY' , & ! Debug message
825 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
826 ims , ime , jms , jme , 1 , 1 , &
827 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
828 ierr )
829 END IF
830 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
831 CALL wrf_ext_write_field ( &
832 fid , & ! DataHandle
833 current_date(1:19) , & ! DateStr
834 'MU_2' , & ! Data Name
835 grid%em_mu_2 , & ! Field
836 WRF_FLOAT , & ! FieldType
837 grid%communicator , & ! Comm
838 grid%iocommunicator , & ! Comm
839 grid%domdesc , & ! Comm
840 grid%bdy_mask , & ! bdy_mask
841 dryrun , & ! flag
842 'XY' , & ! MemoryOrder
843 '' , & ! Stagger
844 'west_east' , & ! Dimname 1
845 'south_north' , & ! Dimname 2
846 '' , & ! Dimname 3
847 'perturbation dry air mass in column' , & ! Desc
848 'Pa' , & ! Units
849 'inc/wrf_restartout.inc ext_write_field MU_2 memorder XY' , & ! Debug message
850 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
851 ims , ime , jms , jme , 1 , 1 , &
852 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
853 ierr )
854 END IF
855 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
856 CALL wrf_ext_write_field ( &
857 fid , & ! DataHandle
858 current_date(1:19) , & ! DateStr
859 'A_MU_1' , & ! Data Name
860 grid%a_mu_1 , & ! Field
861 WRF_FLOAT , & ! FieldType
862 grid%communicator , & ! Comm
863 grid%iocommunicator , & ! Comm
864 grid%domdesc , & ! Comm
865 grid%bdy_mask , & ! bdy_mask
866 dryrun , & ! flag
867 'XY' , & ! MemoryOrder
868 '' , & ! Stagger
869 'west_east' , & ! Dimname 1
870 'south_north' , & ! Dimname 2
871 '' , & ! Dimname 3
872 'perturbation dry air mass in column' , & ! Desc
873 'Pa' , & ! Units
874 'inc/wrf_restartout.inc ext_write_field A_MU_1 memorder XY' , & ! Debug message
875 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
876 ims , ime , jms , jme , 1 , 1 , &
877 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
878 ierr )
879 END IF
880 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
881 CALL wrf_ext_write_field ( &
882 fid , & ! DataHandle
883 current_date(1:19) , & ! DateStr
884 'A_MU_2' , & ! Data Name
885 grid%a_mu_2 , & ! Field
886 WRF_FLOAT , & ! FieldType
887 grid%communicator , & ! Comm
888 grid%iocommunicator , & ! Comm
889 grid%domdesc , & ! Comm
890 grid%bdy_mask , & ! bdy_mask
891 dryrun , & ! flag
892 'XY' , & ! MemoryOrder
893 '' , & ! Stagger
894 'west_east' , & ! Dimname 1
895 'south_north' , & ! Dimname 2
896 '' , & ! Dimname 3
897 'perturbation dry air mass in column' , & ! Desc
898 'Pa' , & ! Units
899 'inc/wrf_restartout.inc ext_write_field A_MU_2 memorder XY' , & ! Debug message
900 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
901 ims , ime , jms , jme , 1 , 1 , &
902 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
903 ierr )
904 END IF
905 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
906 CALL wrf_ext_write_field ( &
907 fid , & ! DataHandle
908 current_date(1:19) , & ! DateStr
909 'G_MU_1' , & ! Data Name
910 grid%g_mu_1 , & ! Field
911 WRF_FLOAT , & ! FieldType
912 grid%communicator , & ! Comm
913 grid%iocommunicator , & ! Comm
914 grid%domdesc , & ! Comm
915 grid%bdy_mask , & ! bdy_mask
916 dryrun , & ! flag
917 'XY' , & ! MemoryOrder
918 '' , & ! Stagger
919 'west_east' , & ! Dimname 1
920 'south_north' , & ! Dimname 2
921 '' , & ! Dimname 3
922 'perturbation dry air mass in column' , & ! Desc
923 'Pa' , & ! Units
924 'inc/wrf_restartout.inc ext_write_field G_MU_1 memorder XY' , & ! Debug message
925 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
926 ims , ime , jms , jme , 1 , 1 , &
927 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
928 ierr )
929 END IF
930 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
931 CALL wrf_ext_write_field ( &
932 fid , & ! DataHandle
933 current_date(1:19) , & ! DateStr
934 'G_MU_2' , & ! Data Name
935 grid%g_mu_2 , & ! Field
936 WRF_FLOAT , & ! FieldType
937 grid%communicator , & ! Comm
938 grid%iocommunicator , & ! Comm
939 grid%domdesc , & ! Comm
940 grid%bdy_mask , & ! bdy_mask
941 dryrun , & ! flag
942 'XY' , & ! MemoryOrder
943 '' , & ! Stagger
944 'west_east' , & ! Dimname 1
945 'south_north' , & ! Dimname 2
946 '' , & ! Dimname 3
947 'perturbation dry air mass in column' , & ! Desc
948 'Pa' , & ! Units
949 'inc/wrf_restartout.inc ext_write_field G_MU_2 memorder XY' , & ! Debug message
950 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
951 ims , ime , jms , jme , 1 , 1 , &
952 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
953 ierr )
954 END IF
955 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
956 CALL wrf_ext_write_field ( &
957 fid , & ! DataHandle
958 current_date(1:19) , & ! DateStr
959 'MUB' , & ! Data Name
960 grid%em_mub , & ! Field
961 WRF_FLOAT , & ! FieldType
962 grid%communicator , & ! Comm
963 grid%iocommunicator , & ! Comm
964 grid%domdesc , & ! Comm
965 grid%bdy_mask , & ! bdy_mask
966 dryrun , & ! flag
967 'XY' , & ! MemoryOrder
968 '' , & ! Stagger
969 'west_east' , & ! Dimname 1
970 'south_north' , & ! Dimname 2
971 '' , & ! Dimname 3
972 'base state dry air mass in column' , & ! Desc
973 'Pa' , & ! Units
974 'inc/wrf_restartout.inc ext_write_field MUB memorder XY' , & ! Debug message
975 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
976 ims , ime , jms , jme , 1 , 1 , &
977 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
978 ierr )
979 END IF
980 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
981 CALL wrf_ext_write_field ( &
982 fid , & ! DataHandle
983 current_date(1:19) , & ! DateStr
984 'MU0' , & ! Data Name
985 grid%em_mu0 , & ! Field
986 WRF_FLOAT , & ! FieldType
987 grid%communicator , & ! Comm
988 grid%iocommunicator , & ! Comm
989 grid%domdesc , & ! Comm
990 grid%bdy_mask , & ! bdy_mask
991 dryrun , & ! flag
992 'XY' , & ! MemoryOrder
993 '' , & ! Stagger
994 'west_east' , & ! Dimname 1
995 'south_north' , & ! Dimname 2
996 '' , & ! Dimname 3
997 'initial dry mass in column' , & ! Desc
998 'Pa' , & ! Units
999 'inc/wrf_restartout.inc ext_write_field MU0 memorder XY' , & ! Debug message
1000 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1001 ims , ime , jms , jme , 1 , 1 , &
1002 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1003 ierr )
1004 END IF
1005 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1006 CALL wrf_ext_write_field ( &
1007 fid , & ! DataHandle
1008 current_date(1:19) , & ! DateStr
1009 'P' , & ! Data Name
1010 grid%em_p , & ! Field
1011 WRF_FLOAT , & ! FieldType
1012 grid%communicator , & ! Comm
1013 grid%iocommunicator , & ! Comm
1014 grid%domdesc , & ! Comm
1015 grid%bdy_mask , & ! bdy_mask
1016 dryrun , & ! flag
1017 'XYZ' , & ! MemoryOrder
1018 '' , & ! Stagger
1019 'west_east' , & ! Dimname 1
1020 'south_north' , & ! Dimname 2
1021 'bottom_top' , & ! Dimname 3
1022 'perturbation pressure' , & ! Desc
1023 'Pa' , & ! Units
1024 'inc/wrf_restartout.inc ext_write_field P memorder XYZ' , & ! Debug message
1025 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1026 ims , ime , jms , jme , kms , kme , &
1027 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1028 ierr )
1029 END IF
1030 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1031 CALL wrf_ext_write_field ( &
1032 fid , & ! DataHandle
1033 current_date(1:19) , & ! DateStr
1034 'SR' , & ! Data Name
1035 grid%em_sr , & ! Field
1036 WRF_FLOAT , & ! FieldType
1037 grid%communicator , & ! Comm
1038 grid%iocommunicator , & ! Comm
1039 grid%domdesc , & ! Comm
1040 grid%bdy_mask , & ! bdy_mask
1041 dryrun , & ! flag
1042 'XY' , & ! MemoryOrder
1043 '' , & ! Stagger
1044 'west_east' , & ! Dimname 1
1045 'south_north' , & ! Dimname 2
1046 '' , & ! Dimname 3
1047 'fraction of frozen precipitation' , & ! Desc
1048 '-' , & ! Units
1049 'inc/wrf_restartout.inc ext_write_field SR memorder XY' , & ! Debug message
1050 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1051 ims , ime , jms , jme , 1 , 1 , &
1052 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1053 ierr )
1054 END IF
1055 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1056 CALL wrf_ext_write_field ( &
1057 fid , & ! DataHandle
1058 current_date(1:19) , & ! DateStr
1059 'FNM' , & ! Data Name
1060 grid%em_fnm , & ! Field
1061 WRF_FLOAT , & ! FieldType
1062 grid%communicator , & ! Comm
1063 grid%iocommunicator , & ! Comm
1064 grid%domdesc , & ! Comm
1065 grid%bdy_mask , & ! bdy_mask
1066 dryrun , & ! flag
1067 'Z' , & ! MemoryOrder
1068 '' , & ! Stagger
1069 'bottom_top' , & ! Dimname 1
1070 '' , & ! Dimname 2
1071 '' , & ! Dimname 3
1072 'upper weight for vertical stretching' , & ! Desc
1073 '' , & ! Units
1074 'inc/wrf_restartout.inc ext_write_field FNM memorder Z' , & ! Debug message
1075 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1076 kms , kme , 1 , 1 , 1 , 1 , &
1077 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1078 ierr )
1079 END IF
1080 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1081 CALL wrf_ext_write_field ( &
1082 fid , & ! DataHandle
1083 current_date(1:19) , & ! DateStr
1084 'FNP' , & ! Data Name
1085 grid%em_fnp , & ! Field
1086 WRF_FLOAT , & ! FieldType
1087 grid%communicator , & ! Comm
1088 grid%iocommunicator , & ! Comm
1089 grid%domdesc , & ! Comm
1090 grid%bdy_mask , & ! bdy_mask
1091 dryrun , & ! flag
1092 'Z' , & ! MemoryOrder
1093 '' , & ! Stagger
1094 'bottom_top' , & ! Dimname 1
1095 '' , & ! Dimname 2
1096 '' , & ! Dimname 3
1097 'lower weight for vertical stretching' , & ! Desc
1098 '' , & ! Units
1099 'inc/wrf_restartout.inc ext_write_field FNP memorder Z' , & ! Debug message
1100 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1101 kms , kme , 1 , 1 , 1 , 1 , &
1102 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1103 ierr )
1104 END IF
1105 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1106 CALL wrf_ext_write_field ( &
1107 fid , & ! DataHandle
1108 current_date(1:19) , & ! DateStr
1109 'RDNW' , & ! Data Name
1110 grid%em_rdnw , & ! Field
1111 WRF_FLOAT , & ! FieldType
1112 grid%communicator , & ! Comm
1113 grid%iocommunicator , & ! Comm
1114 grid%domdesc , & ! Comm
1115 grid%bdy_mask , & ! bdy_mask
1116 dryrun , & ! flag
1117 'Z' , & ! MemoryOrder
1118 '' , & ! Stagger
1119 'bottom_top' , & ! Dimname 1
1120 '' , & ! Dimname 2
1121 '' , & ! Dimname 3
1122 'inverse d(eta) values between full (w) levels' , & ! Desc
1123 '' , & ! Units
1124 'inc/wrf_restartout.inc ext_write_field RDNW memorder Z' , & ! Debug message
1125 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1126 kms , kme , 1 , 1 , 1 , 1 , &
1127 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1128 ierr )
1129 END IF
1130 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1131 CALL wrf_ext_write_field ( &
1132 fid , & ! DataHandle
1133 current_date(1:19) , & ! DateStr
1134 'RDN' , & ! Data Name
1135 grid%em_rdn , & ! Field
1136 WRF_FLOAT , & ! FieldType
1137 grid%communicator , & ! Comm
1138 grid%iocommunicator , & ! Comm
1139 grid%domdesc , & ! Comm
1140 grid%bdy_mask , & ! bdy_mask
1141 dryrun , & ! flag
1142 'Z' , & ! MemoryOrder
1143 '' , & ! Stagger
1144 'bottom_top' , & ! Dimname 1
1145 '' , & ! Dimname 2
1146 '' , & ! Dimname 3
1147 'inverse d(eta) values between half (mass) levels' , & ! Desc
1148 '' , & ! Units
1149 'inc/wrf_restartout.inc ext_write_field RDN memorder Z' , & ! Debug message
1150 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1151 kms , kme , 1 , 1 , 1 , 1 , &
1152 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1153 ierr )
1154 END IF
1155 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1156 CALL wrf_ext_write_field ( &
1157 fid , & ! DataHandle
1158 current_date(1:19) , & ! DateStr
1159 'DNW' , & ! Data Name
1160 grid%em_dnw , & ! Field
1161 WRF_FLOAT , & ! FieldType
1162 grid%communicator , & ! Comm
1163 grid%iocommunicator , & ! Comm
1164 grid%domdesc , & ! Comm
1165 grid%bdy_mask , & ! bdy_mask
1166 dryrun , & ! flag
1167 'Z' , & ! MemoryOrder
1168 '' , & ! Stagger
1169 'bottom_top' , & ! Dimname 1
1170 '' , & ! Dimname 2
1171 '' , & ! Dimname 3
1172 'd(eta) values between full (w) levels' , & ! Desc
1173 '' , & ! Units
1174 'inc/wrf_restartout.inc ext_write_field DNW memorder Z' , & ! Debug message
1175 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1176 kms , kme , 1 , 1 , 1 , 1 , &
1177 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1178 ierr )
1179 END IF
1180 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1181 CALL wrf_ext_write_field ( &
1182 fid , & ! DataHandle
1183 current_date(1:19) , & ! DateStr
1184 'DN ' , & ! Data Name
1185 grid%em_dn , & ! Field
1186 WRF_FLOAT , & ! FieldType
1187 grid%communicator , & ! Comm
1188 grid%iocommunicator , & ! Comm
1189 grid%domdesc , & ! Comm
1190 grid%bdy_mask , & ! bdy_mask
1191 dryrun , & ! flag
1192 'Z' , & ! MemoryOrder
1193 '' , & ! Stagger
1194 'bottom_top' , & ! Dimname 1
1195 '' , & ! Dimname 2
1196 '' , & ! Dimname 3
1197 'd(eta) values between half (mass) levels' , & ! Desc
1198 '' , & ! Units
1199 'inc/wrf_restartout.inc ext_write_field DN memorder Z' , & ! Debug message
1200 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1201 kms , kme , 1 , 1 , 1 , 1 , &
1202 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1203 ierr )
1204 END IF
1205 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1206 CALL wrf_ext_write_field ( &
1207 fid , & ! DataHandle
1208 current_date(1:19) , & ! DateStr
1209 'ZNU' , & ! Data Name
1210 grid%em_znu , & ! Field
1211 WRF_FLOAT , & ! FieldType
1212 grid%communicator , & ! Comm
1213 grid%iocommunicator , & ! Comm
1214 grid%domdesc , & ! Comm
1215 grid%bdy_mask , & ! bdy_mask
1216 dryrun , & ! flag
1217 'Z' , & ! MemoryOrder
1218 '' , & ! Stagger
1219 'bottom_top' , & ! Dimname 1
1220 '' , & ! Dimname 2
1221 '' , & ! Dimname 3
1222 'eta values on half (mass) levels' , & ! Desc
1223 '' , & ! Units
1224 'inc/wrf_restartout.inc ext_write_field ZNU memorder Z' , & ! Debug message
1225 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1226 kms , kme , 1 , 1 , 1 , 1 , &
1227 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1228 ierr )
1229 END IF
1230 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1231 CALL wrf_ext_write_field ( &
1232 fid , & ! DataHandle
1233 current_date(1:19) , & ! DateStr
1234 'ZNW' , & ! Data Name
1235 grid%em_znw , & ! Field
1236 WRF_FLOAT , & ! FieldType
1237 grid%communicator , & ! Comm
1238 grid%iocommunicator , & ! Comm
1239 grid%domdesc , & ! Comm
1240 grid%bdy_mask , & ! bdy_mask
1241 dryrun , & ! flag
1242 'Z' , & ! MemoryOrder
1243 'Z' , & ! Stagger
1244 'bottom_top_stag' , & ! Dimname 1
1245 '' , & ! Dimname 2
1246 '' , & ! Dimname 3
1247 'eta values on full (w) levels' , & ! Desc
1248 '' , & ! Units
1249 'inc/wrf_restartout.inc ext_write_field ZNW memorder Z' , & ! Debug message
1250 kds , kde , 1 , 1 , 1 , 1 , &
1251 kms , kme , 1 , 1 , 1 , 1 , &
1252 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
1253 ierr )
1254 END IF
1255 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1256 CALL wrf_ext_write_field ( &
1257 fid , & ! DataHandle
1258 current_date(1:19) , & ! DateStr
1259 'T_BASE' , & ! Data Name
1260 grid%em_t_base , & ! Field
1261 WRF_FLOAT , & ! FieldType
1262 grid%communicator , & ! Comm
1263 grid%iocommunicator , & ! Comm
1264 grid%domdesc , & ! Comm
1265 grid%bdy_mask , & ! bdy_mask
1266 dryrun , & ! flag
1267 'Z' , & ! MemoryOrder
1268 '' , & ! Stagger
1269 'bottom_top' , & ! Dimname 1
1270 '' , & ! Dimname 2
1271 '' , & ! Dimname 3
1272 'BASE STATET T IN IDEALIZED CASES' , & ! Desc
1273 'K' , & ! Units
1274 'inc/wrf_restartout.inc ext_write_field T_BASE memorder Z' , & ! Debug message
1275 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1276 kms , kme , 1 , 1 , 1 , 1 , &
1277 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1278 ierr )
1279 END IF
1280 CALL wrf_ext_write_field ( &
1281 fid , & ! DataHandle
1282 current_date(1:19) , & ! DateStr
1283 'CFN' , & ! Data Name
1284 grid%cfn , & ! Field
1285 WRF_FLOAT , & ! FieldType
1286 grid%communicator , & ! Comm
1287 grid%iocommunicator , & ! Comm
1288 grid%domdesc , & ! Comm
1289 grid%bdy_mask , & ! bdy_mask
1290 dryrun , & ! flag
1291 '0' , & ! MemoryOrder
1292 '' , & ! Stagger
1293 '' , & ! Dimname 1
1294 '' , & ! Dimname 2
1295 '' , & ! Dimname 3
1296 'extrapolation constant' , & ! Desc
1297 '' , & ! Units
1298 'inc/wrf_restartout.inc ext_write_field CFN memorder 0' , & ! Debug message
1299 1 , 1 , 1 , 1 , 1 , 1 , &
1300 1 , 1 , 1 , 1 , 1 , 1 , &
1301 1 , 1 , 1 , 1 , 1 , 1 , &
1302 ierr )
1303 CALL wrf_ext_write_field ( &
1304 fid , & ! DataHandle
1305 current_date(1:19) , & ! DateStr
1306 'CFN1' , & ! Data Name
1307 grid%cfn1 , & ! Field
1308 WRF_FLOAT , & ! FieldType
1309 grid%communicator , & ! Comm
1310 grid%iocommunicator , & ! Comm
1311 grid%domdesc , & ! Comm
1312 grid%bdy_mask , & ! bdy_mask
1313 dryrun , & ! flag
1314 '0' , & ! MemoryOrder
1315 '' , & ! Stagger
1316 '' , & ! Dimname 1
1317 '' , & ! Dimname 2
1318 '' , & ! Dimname 3
1319 'extrapolation constant' , & ! Desc
1320 '' , & ! Units
1321 'inc/wrf_restartout.inc ext_write_field CFN1 memorder 0' , & ! Debug message
1322 1 , 1 , 1 , 1 , 1 , 1 , &
1323 1 , 1 , 1 , 1 , 1 , 1 , &
1324 1 , 1 , 1 , 1 , 1 , 1 , &
1325 ierr )
1326 CALL wrf_ext_write_field ( &
1327 fid , & ! DataHandle
1328 current_date(1:19) , & ! DateStr
1329 'STEP_NUMBER' , & ! Data Name
1330 grid%step_number , & ! Field
1331 WRF_integer , & ! FieldType
1332 grid%communicator , & ! Comm
1333 grid%iocommunicator , & ! Comm
1334 grid%domdesc , & ! Comm
1335 grid%bdy_mask , & ! bdy_mask
1336 dryrun , & ! flag
1337 '0' , & ! MemoryOrder
1338 '' , & ! Stagger
1339 '' , & ! Dimname 1
1340 '' , & ! Dimname 2
1341 '' , & ! Dimname 3
1342 '' , & ! Desc
1343 '-' , & ! Units
1344 'inc/wrf_restartout.inc ext_write_field STEP_NUMBER memorder 0' , & ! Debug message
1345 1 , 1 , 1 , 1 , 1 , 1 , &
1346 1 , 1 , 1 , 1 , 1 , 1 , &
1347 1 , 1 , 1 , 1 , 1 , 1 , &
1348 ierr )
1349 CALL wrf_ext_write_field ( &
1350 fid , & ! DataHandle
1351 current_date(1:19) , & ! DateStr
1352 'A' , & ! Data Name
1353 grid%kma_a , & ! Field
1354 WRF_FLOAT , & ! FieldType
1355 grid%communicator , & ! Comm
1356 grid%iocommunicator , & ! Comm
1357 grid%domdesc , & ! Comm
1358 grid%bdy_mask , & ! bdy_mask
1359 dryrun , & ! flag
1360 'Z' , & ! MemoryOrder
1361 'Z' , & ! Stagger
1362 'bottom_top_stag' , & ! Dimname 1
1363 '' , & ! Dimname 2
1364 '' , & ! Dimname 3
1365 'KMA Constants A to convert surface presure to full level pressure' , & ! Desc
1366 'dimensionless' , & ! Units
1367 'inc/wrf_restartout.inc ext_write_field A memorder Z' , & ! Debug message
1368 kds , kde , 1 , 1 , 1 , 1 , &
1369 kms , kme , 1 , 1 , 1 , 1 , &
1370 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
1371 ierr )
1372 CALL wrf_ext_write_field ( &
1373 fid , & ! DataHandle
1374 current_date(1:19) , & ! DateStr
1375 'B' , & ! Data Name
1376 grid%kma_b , & ! Field
1377 WRF_FLOAT , & ! FieldType
1378 grid%communicator , & ! Comm
1379 grid%iocommunicator , & ! Comm
1380 grid%domdesc , & ! Comm
1381 grid%bdy_mask , & ! bdy_mask
1382 dryrun , & ! flag
1383 'Z' , & ! MemoryOrder
1384 'Z' , & ! Stagger
1385 'bottom_top_stag' , & ! Dimname 1
1386 '' , & ! Dimname 2
1387 '' , & ! Dimname 3
1388 'KMA Constants B to convert surface presure to full level pressure' , & ! Desc
1389 'dimensionless' , & ! Units
1390 'inc/wrf_restartout.inc ext_write_field B memorder Z' , & ! Debug message
1391 kds , kde , 1 , 1 , 1 , 1 , &
1392 kms , kme , 1 , 1 , 1 , 1 , &
1393 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
1394 ierr )
1395 CALL wrf_ext_write_field ( &
1396 fid , & ! DataHandle
1397 current_date(1:19) , & ! DateStr
1398 'Q2' , & ! Data Name
1399 grid%q2 , & ! 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 'XY' , & ! MemoryOrder
1407 '' , & ! Stagger
1408 'west_east' , & ! Dimname 1
1409 'south_north' , & ! Dimname 2
1410 '' , & ! Dimname 3
1411 'QV at 2 M' , & ! Desc
1412 'kg kg-1' , & ! Units
1413 'inc/wrf_restartout.inc ext_write_field Q2 memorder XY' , & ! Debug message
1414 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1415 ims , ime , jms , jme , 1 , 1 , &
1416 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1417 ierr )
1418 CALL wrf_ext_write_field ( &
1419 fid , & ! DataHandle
1420 current_date(1:19) , & ! DateStr
1421 'T2' , & ! Data Name
1422 grid%t2 , & ! Field
1423 WRF_FLOAT , & ! FieldType
1424 grid%communicator , & ! Comm
1425 grid%iocommunicator , & ! Comm
1426 grid%domdesc , & ! Comm
1427 grid%bdy_mask , & ! bdy_mask
1428 dryrun , & ! flag
1429 'XY' , & ! MemoryOrder
1430 '' , & ! Stagger
1431 'west_east' , & ! Dimname 1
1432 'south_north' , & ! Dimname 2
1433 '' , & ! Dimname 3
1434 'TEMP at 2 M' , & ! Desc
1435 'K' , & ! Units
1436 'inc/wrf_restartout.inc ext_write_field T2 memorder XY' , & ! Debug message
1437 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1438 ims , ime , jms , jme , 1 , 1 , &
1439 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1440 ierr )
1441 CALL wrf_ext_write_field ( &
1442 fid , & ! DataHandle
1443 current_date(1:19) , & ! DateStr
1444 'TH2' , & ! Data Name
1445 grid%th2 , & ! Field
1446 WRF_FLOAT , & ! FieldType
1447 grid%communicator , & ! Comm
1448 grid%iocommunicator , & ! Comm
1449 grid%domdesc , & ! Comm
1450 grid%bdy_mask , & ! bdy_mask
1451 dryrun , & ! flag
1452 'XY' , & ! MemoryOrder
1453 '' , & ! Stagger
1454 'west_east' , & ! Dimname 1
1455 'south_north' , & ! Dimname 2
1456 '' , & ! Dimname 3
1457 'POT TEMP at 2 M' , & ! Desc
1458 'K' , & ! Units
1459 'inc/wrf_restartout.inc ext_write_field TH2 memorder XY' , & ! Debug message
1460 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1461 ims , ime , jms , jme , 1 , 1 , &
1462 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1463 ierr )
1464 CALL wrf_ext_write_field ( &
1465 fid , & ! DataHandle
1466 current_date(1:19) , & ! DateStr
1467 'PSFC' , & ! Data Name
1468 grid%psfc , & ! Field
1469 WRF_FLOAT , & ! FieldType
1470 grid%communicator , & ! Comm
1471 grid%iocommunicator , & ! Comm
1472 grid%domdesc , & ! Comm
1473 grid%bdy_mask , & ! bdy_mask
1474 dryrun , & ! flag
1475 'XY' , & ! MemoryOrder
1476 '' , & ! Stagger
1477 'west_east' , & ! Dimname 1
1478 'south_north' , & ! Dimname 2
1479 '' , & ! Dimname 3
1480 'SFC PRESSURE' , & ! Desc
1481 'Pa' , & ! Units
1482 'inc/wrf_restartout.inc ext_write_field PSFC memorder XY' , & ! Debug message
1483 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1484 ims , ime , jms , jme , 1 , 1 , &
1485 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1486 ierr )
1487 CALL wrf_ext_write_field ( &
1488 fid , & ! DataHandle
1489 current_date(1:19) , & ! DateStr
1490 'U10' , & ! Data Name
1491 grid%u10 , & ! Field
1492 WRF_FLOAT , & ! FieldType
1493 grid%communicator , & ! Comm
1494 grid%iocommunicator , & ! Comm
1495 grid%domdesc , & ! Comm
1496 grid%bdy_mask , & ! bdy_mask
1497 dryrun , & ! flag
1498 'XY' , & ! MemoryOrder
1499 '' , & ! Stagger
1500 'west_east' , & ! Dimname 1
1501 'south_north' , & ! Dimname 2
1502 '' , & ! Dimname 3
1503 'U at 10 M' , & ! Desc
1504 'm s-1' , & ! Units
1505 'inc/wrf_restartout.inc ext_write_field U10 memorder XY' , & ! Debug message
1506 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1507 ims , ime , jms , jme , 1 , 1 , &
1508 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1509 ierr )
1510 CALL wrf_ext_write_field ( &
1511 fid , & ! DataHandle
1512 current_date(1:19) , & ! DateStr
1513 'V10' , & ! Data Name
1514 grid%v10 , & ! Field
1515 WRF_FLOAT , & ! FieldType
1516 grid%communicator , & ! Comm
1517 grid%iocommunicator , & ! Comm
1518 grid%domdesc , & ! Comm
1519 grid%bdy_mask , & ! bdy_mask
1520 dryrun , & ! flag
1521 'XY' , & ! MemoryOrder
1522 '' , & ! Stagger
1523 'west_east' , & ! Dimname 1
1524 'south_north' , & ! Dimname 2
1525 '' , & ! Dimname 3
1526 'V at 10 M' , & ! Desc
1527 'm s-1' , & ! Units
1528 'inc/wrf_restartout.inc ext_write_field V10 memorder XY' , & ! Debug message
1529 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1530 ims , ime , jms , jme , 1 , 1 , &
1531 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1532 ierr )
1533 CALL wrf_ext_write_field ( &
1534 fid , & ! DataHandle
1535 current_date(1:19) , & ! DateStr
1536 'URATX' , & ! Data Name
1537 grid%uratx , & ! Field
1538 WRF_FLOAT , & ! FieldType
1539 grid%communicator , & ! Comm
1540 grid%iocommunicator , & ! Comm
1541 grid%domdesc , & ! Comm
1542 grid%bdy_mask , & ! bdy_mask
1543 dryrun , & ! flag
1544 'XY' , & ! MemoryOrder
1545 '' , & ! Stagger
1546 'west_east' , & ! Dimname 1
1547 'south_north' , & ! Dimname 2
1548 '' , & ! Dimname 3
1549 'Ratio of U over U10 on mass points ' , & ! Desc
1550 'dimensionless' , & ! Units
1551 'inc/wrf_restartout.inc ext_write_field URATX memorder XY' , & ! Debug message
1552 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1553 ims , ime , jms , jme , 1 , 1 , &
1554 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1555 ierr )
1556 CALL wrf_ext_write_field ( &
1557 fid , & ! DataHandle
1558 current_date(1:19) , & ! DateStr
1559 'VRATX' , & ! Data Name
1560 grid%vratx , & ! Field
1561 WRF_FLOAT , & ! FieldType
1562 grid%communicator , & ! Comm
1563 grid%iocommunicator , & ! Comm
1564 grid%domdesc , & ! Comm
1565 grid%bdy_mask , & ! bdy_mask
1566 dryrun , & ! flag
1567 'XY' , & ! MemoryOrder
1568 '' , & ! Stagger
1569 'west_east' , & ! Dimname 1
1570 'south_north' , & ! Dimname 2
1571 '' , & ! Dimname 3
1572 'Ratio of V over V10 on mass points ' , & ! Desc
1573 'dimensionless' , & ! Units
1574 'inc/wrf_restartout.inc ext_write_field VRATX memorder XY' , & ! Debug message
1575 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1576 ims , ime , jms , jme , 1 , 1 , &
1577 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1578 ierr )
1579 CALL wrf_ext_write_field ( &
1580 fid , & ! DataHandle
1581 current_date(1:19) , & ! DateStr
1582 'TRATX' , & ! Data Name
1583 grid%tratx , & ! Field
1584 WRF_FLOAT , & ! FieldType
1585 grid%communicator , & ! Comm
1586 grid%iocommunicator , & ! Comm
1587 grid%domdesc , & ! Comm
1588 grid%bdy_mask , & ! bdy_mask
1589 dryrun , & ! flag
1590 'XY' , & ! MemoryOrder
1591 '' , & ! Stagger
1592 'west_east' , & ! Dimname 1
1593 'south_north' , & ! Dimname 2
1594 '' , & ! Dimname 3
1595 'Ratio of T over TH2 on mass points ' , & ! Desc
1596 'dimensionless' , & ! Units
1597 'inc/wrf_restartout.inc ext_write_field TRATX memorder XY' , & ! Debug message
1598 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1599 ims , ime , jms , jme , 1 , 1 , &
1600 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1601 ierr )
1602 CALL wrf_ext_write_field ( &
1603 fid , & ! DataHandle
1604 current_date(1:19) , & ! DateStr
1605 'RDX' , & ! Data Name
1606 grid%rdx , & ! Field
1607 WRF_FLOAT , & ! FieldType
1608 grid%communicator , & ! Comm
1609 grid%iocommunicator , & ! Comm
1610 grid%domdesc , & ! Comm
1611 grid%bdy_mask , & ! bdy_mask
1612 dryrun , & ! flag
1613 '0' , & ! MemoryOrder
1614 '' , & ! Stagger
1615 '' , & ! Dimname 1
1616 '' , & ! Dimname 2
1617 '' , & ! Dimname 3
1618 'INVERSE X GRID LENGTH' , & ! Desc
1619 '' , & ! Units
1620 'inc/wrf_restartout.inc ext_write_field RDX memorder 0' , & ! Debug message
1621 1 , 1 , 1 , 1 , 1 , 1 , &
1622 1 , 1 , 1 , 1 , 1 , 1 , &
1623 1 , 1 , 1 , 1 , 1 , 1 , &
1624 ierr )
1625 CALL wrf_ext_write_field ( &
1626 fid , & ! DataHandle
1627 current_date(1:19) , & ! DateStr
1628 'RDY' , & ! Data Name
1629 grid%rdy , & ! Field
1630 WRF_FLOAT , & ! FieldType
1631 grid%communicator , & ! Comm
1632 grid%iocommunicator , & ! Comm
1633 grid%domdesc , & ! Comm
1634 grid%bdy_mask , & ! bdy_mask
1635 dryrun , & ! flag
1636 '0' , & ! MemoryOrder
1637 '' , & ! Stagger
1638 '' , & ! Dimname 1
1639 '' , & ! Dimname 2
1640 '' , & ! Dimname 3
1641 'INVERSE Y GRID LENGTH' , & ! Desc
1642 '' , & ! Units
1643 'inc/wrf_restartout.inc ext_write_field RDY memorder 0' , & ! Debug message
1644 1 , 1 , 1 , 1 , 1 , 1 , &
1645 1 , 1 , 1 , 1 , 1 , 1 , &
1646 1 , 1 , 1 , 1 , 1 , 1 , &
1647 ierr )
1648 CALL wrf_ext_write_field ( &
1649 fid , & ! DataHandle
1650 current_date(1:19) , & ! DateStr
1651 'DTS' , & ! Data Name
1652 grid%dts , & ! Field
1653 WRF_FLOAT , & ! FieldType
1654 grid%communicator , & ! Comm
1655 grid%iocommunicator , & ! Comm
1656 grid%domdesc , & ! Comm
1657 grid%bdy_mask , & ! bdy_mask
1658 dryrun , & ! flag
1659 '0' , & ! MemoryOrder
1660 '' , & ! Stagger
1661 '' , & ! Dimname 1
1662 '' , & ! Dimname 2
1663 '' , & ! Dimname 3
1664 'SMALL TIMESTEP' , & ! Desc
1665 '' , & ! Units
1666 'inc/wrf_restartout.inc ext_write_field DTS memorder 0' , & ! Debug message
1667 1 , 1 , 1 , 1 , 1 , 1 , &
1668 1 , 1 , 1 , 1 , 1 , 1 , &
1669 1 , 1 , 1 , 1 , 1 , 1 , &
1670 ierr )
1671 CALL wrf_ext_write_field ( &
1672 fid , & ! DataHandle
1673 current_date(1:19) , & ! DateStr
1674 'DTSEPS' , & ! Data Name
1675 grid%dtseps , & ! Field
1676 WRF_FLOAT , & ! FieldType
1677 grid%communicator , & ! Comm
1678 grid%iocommunicator , & ! Comm
1679 grid%domdesc , & ! Comm
1680 grid%bdy_mask , & ! bdy_mask
1681 dryrun , & ! flag
1682 '0' , & ! MemoryOrder
1683 '' , & ! Stagger
1684 '' , & ! Dimname 1
1685 '' , & ! Dimname 2
1686 '' , & ! Dimname 3
1687 'TIME WEIGHT CONSTANT FOR SMALL STEPS' , & ! Desc
1688 '' , & ! Units
1689 'inc/wrf_restartout.inc ext_write_field DTSEPS memorder 0' , & ! Debug message
1690 1 , 1 , 1 , 1 , 1 , 1 , &
1691 1 , 1 , 1 , 1 , 1 , 1 , &
1692 1 , 1 , 1 , 1 , 1 , 1 , &
1693 ierr )
1694 CALL wrf_ext_write_field ( &
1695 fid , & ! DataHandle
1696 current_date(1:19) , & ! DateStr
1697 'RESM' , & ! Data Name
1698 grid%resm , & ! Field
1699 WRF_FLOAT , & ! FieldType
1700 grid%communicator , & ! Comm
1701 grid%iocommunicator , & ! Comm
1702 grid%domdesc , & ! Comm
1703 grid%bdy_mask , & ! bdy_mask
1704 dryrun , & ! flag
1705 '0' , & ! MemoryOrder
1706 '' , & ! Stagger
1707 '' , & ! Dimname 1
1708 '' , & ! Dimname 2
1709 '' , & ! Dimname 3
1710 'TIME WEIGHT CONSTANT FOR SMALL STEPS' , & ! Desc
1711 '' , & ! Units
1712 'inc/wrf_restartout.inc ext_write_field RESM memorder 0' , & ! Debug message
1713 1 , 1 , 1 , 1 , 1 , 1 , &
1714 1 , 1 , 1 , 1 , 1 , 1 , &
1715 1 , 1 , 1 , 1 , 1 , 1 , &
1716 ierr )
1717 CALL wrf_ext_write_field ( &
1718 fid , & ! DataHandle
1719 current_date(1:19) , & ! DateStr
1720 'ZETATOP' , & ! Data Name
1721 grid%zetatop , & ! Field
1722 WRF_FLOAT , & ! FieldType
1723 grid%communicator , & ! Comm
1724 grid%iocommunicator , & ! Comm
1725 grid%domdesc , & ! Comm
1726 grid%bdy_mask , & ! bdy_mask
1727 dryrun , & ! flag
1728 '0' , & ! MemoryOrder
1729 '' , & ! Stagger
1730 '' , & ! Dimname 1
1731 '' , & ! Dimname 2
1732 '' , & ! Dimname 3
1733 'ZETA AT MODEL TOP' , & ! Desc
1734 '' , & ! Units
1735 'inc/wrf_restartout.inc ext_write_field ZETATOP memorder 0' , & ! Debug message
1736 1 , 1 , 1 , 1 , 1 , 1 , &
1737 1 , 1 , 1 , 1 , 1 , 1 , &
1738 1 , 1 , 1 , 1 , 1 , 1 , &
1739 ierr )
1740 CALL wrf_ext_write_field ( &
1741 fid , & ! DataHandle
1742 current_date(1:19) , & ! DateStr
1743 'CF1' , & ! Data Name
1744 grid%cf1 , & ! Field
1745 WRF_FLOAT , & ! FieldType
1746 grid%communicator , & ! Comm
1747 grid%iocommunicator , & ! Comm
1748 grid%domdesc , & ! Comm
1749 grid%bdy_mask , & ! bdy_mask
1750 dryrun , & ! flag
1751 '0' , & ! MemoryOrder
1752 '' , & ! Stagger
1753 '' , & ! Dimname 1
1754 '' , & ! Dimname 2
1755 '' , & ! Dimname 3
1756 '2nd order extrapolation constant' , & ! Desc
1757 '' , & ! Units
1758 'inc/wrf_restartout.inc ext_write_field CF1 memorder 0' , & ! Debug message
1759 1 , 1 , 1 , 1 , 1 , 1 , &
1760 1 , 1 , 1 , 1 , 1 , 1 , &
1761 1 , 1 , 1 , 1 , 1 , 1 , &
1762 ierr )
1763 CALL wrf_ext_write_field ( &
1764 fid , & ! DataHandle
1765 current_date(1:19) , & ! DateStr
1766 'CF2' , & ! Data Name
1767 grid%cf2 , & ! Field
1768 WRF_FLOAT , & ! FieldType
1769 grid%communicator , & ! Comm
1770 grid%iocommunicator , & ! Comm
1771 grid%domdesc , & ! Comm
1772 grid%bdy_mask , & ! bdy_mask
1773 dryrun , & ! flag
1774 '0' , & ! MemoryOrder
1775 '' , & ! Stagger
1776 '' , & ! Dimname 1
1777 '' , & ! Dimname 2
1778 '' , & ! Dimname 3
1779 '2nd order extrapolation constant' , & ! Desc
1780 '' , & ! Units
1781 'inc/wrf_restartout.inc ext_write_field CF2 memorder 0' , & ! Debug message
1782 1 , 1 , 1 , 1 , 1 , 1 , &
1783 1 , 1 , 1 , 1 , 1 , 1 , &
1784 1 , 1 , 1 , 1 , 1 , 1 , &
1785 ierr )
1786 CALL wrf_ext_write_field ( &
1787 fid , & ! DataHandle
1788 current_date(1:19) , & ! DateStr
1789 'CF3' , & ! Data Name
1790 grid%cf3 , & ! Field
1791 WRF_FLOAT , & ! FieldType
1792 grid%communicator , & ! Comm
1793 grid%iocommunicator , & ! Comm
1794 grid%domdesc , & ! Comm
1795 grid%bdy_mask , & ! bdy_mask
1796 dryrun , & ! flag
1797 '0' , & ! MemoryOrder
1798 '' , & ! Stagger
1799 '' , & ! Dimname 1
1800 '' , & ! Dimname 2
1801 '' , & ! Dimname 3
1802 '2nd order extrapolation constant' , & ! Desc
1803 '' , & ! Units
1804 'inc/wrf_restartout.inc ext_write_field CF3 memorder 0' , & ! Debug message
1805 1 , 1 , 1 , 1 , 1 , 1 , &
1806 1 , 1 , 1 , 1 , 1 , 1 , &
1807 1 , 1 , 1 , 1 , 1 , 1 , &
1808 ierr )
1809 CALL wrf_ext_write_field ( &
1810 fid , & ! DataHandle
1811 current_date(1:19) , & ! DateStr
1812 'ITIMESTEP' , & ! Data Name
1813 grid%itimestep , & ! Field
1814 WRF_integer , & ! FieldType
1815 grid%communicator , & ! Comm
1816 grid%iocommunicator , & ! Comm
1817 grid%domdesc , & ! Comm
1818 grid%bdy_mask , & ! bdy_mask
1819 dryrun , & ! flag
1820 '0' , & ! MemoryOrder
1821 '' , & ! Stagger
1822 '' , & ! Dimname 1
1823 '' , & ! Dimname 2
1824 '' , & ! Dimname 3
1825 '' , & ! Desc
1826 '' , & ! Units
1827 'inc/wrf_restartout.inc ext_write_field ITIMESTEP memorder 0' , & ! Debug message
1828 1 , 1 , 1 , 1 , 1 , 1 , &
1829 1 , 1 , 1 , 1 , 1 , 1 , &
1830 1 , 1 , 1 , 1 , 1 , 1 , &
1831 ierr )
1832 CALL wrf_ext_write_field ( &
1833 fid , & ! DataHandle
1834 current_date(1:19) , & ! DateStr
1835 'XTIME' , & ! Data Name
1836 grid%xtime , & ! 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 '0' , & ! MemoryOrder
1844 '' , & ! Stagger
1845 '' , & ! Dimname 1
1846 '' , & ! Dimname 2
1847 '' , & ! Dimname 3
1848 'minutes since simulation start' , & ! Desc
1849 '' , & ! Units
1850 'inc/wrf_restartout.inc ext_write_field XTIME memorder 0' , & ! Debug message
1851 1 , 1 , 1 , 1 , 1 , 1 , &
1852 1 , 1 , 1 , 1 , 1 , 1 , &
1853 1 , 1 , 1 , 1 , 1 , 1 , &
1854 ierr )
1855 CALL wrf_ext_write_field ( &
1856 fid , & ! DataHandle
1857 current_date(1:19) , & ! DateStr
1858 'XI' , & ! Data Name
1859 grid%xi , & ! Field
1860 WRF_FLOAT , & ! FieldType
1861 grid%communicator , & ! Comm
1862 grid%iocommunicator , & ! Comm
1863 grid%domdesc , & ! Comm
1864 grid%bdy_mask , & ! bdy_mask
1865 dryrun , & ! flag
1866 '0' , & ! MemoryOrder
1867 '' , & ! Stagger
1868 '' , & ! Dimname 1
1869 '' , & ! Dimname 2
1870 '' , & ! Dimname 3
1871 '-' , & ! Desc
1872 '-' , & ! Units
1873 'inc/wrf_restartout.inc ext_write_field XI memorder 0' , & ! Debug message
1874 1 , 1 , 1 , 1 , 1 , 1 , &
1875 1 , 1 , 1 , 1 , 1 , 1 , &
1876 1 , 1 , 1 , 1 , 1 , 1 , &
1877 ierr )
1878 CALL wrf_ext_write_field ( &
1879 fid , & ! DataHandle
1880 current_date(1:19) , & ! DateStr
1881 'XJ' , & ! Data Name
1882 grid%xj , & ! Field
1883 WRF_FLOAT , & ! FieldType
1884 grid%communicator , & ! Comm
1885 grid%iocommunicator , & ! Comm
1886 grid%domdesc , & ! Comm
1887 grid%bdy_mask , & ! bdy_mask
1888 dryrun , & ! flag
1889 '0' , & ! MemoryOrder
1890 '' , & ! Stagger
1891 '' , & ! Dimname 1
1892 '' , & ! Dimname 2
1893 '' , & ! Dimname 3
1894 '-' , & ! Desc
1895 '-' , & ! Units
1896 'inc/wrf_restartout.inc ext_write_field XJ memorder 0' , & ! Debug message
1897 1 , 1 , 1 , 1 , 1 , 1 , &
1898 1 , 1 , 1 , 1 , 1 , 1 , &
1899 1 , 1 , 1 , 1 , 1 , 1 , &
1900 ierr )
1901 CALL wrf_ext_write_field ( &
1902 fid , & ! DataHandle
1903 current_date(1:19) , & ! DateStr
1904 'VC_I' , & ! Data Name
1905 grid%vc_i , & ! Field
1906 WRF_FLOAT , & ! FieldType
1907 grid%communicator , & ! Comm
1908 grid%iocommunicator , & ! Comm
1909 grid%domdesc , & ! Comm
1910 grid%bdy_mask , & ! bdy_mask
1911 dryrun , & ! flag
1912 '0' , & ! MemoryOrder
1913 '' , & ! Stagger
1914 '' , & ! Dimname 1
1915 '' , & ! Dimname 2
1916 '' , & ! Dimname 3
1917 '-' , & ! Desc
1918 '-' , & ! Units
1919 'inc/wrf_restartout.inc ext_write_field VC_I memorder 0' , & ! Debug message
1920 1 , 1 , 1 , 1 , 1 , 1 , &
1921 1 , 1 , 1 , 1 , 1 , 1 , &
1922 1 , 1 , 1 , 1 , 1 , 1 , &
1923 ierr )
1924 CALL wrf_ext_write_field ( &
1925 fid , & ! DataHandle
1926 current_date(1:19) , & ! DateStr
1927 'VC_J' , & ! Data Name
1928 grid%vc_j , & ! Field
1929 WRF_FLOAT , & ! FieldType
1930 grid%communicator , & ! Comm
1931 grid%iocommunicator , & ! Comm
1932 grid%domdesc , & ! Comm
1933 grid%bdy_mask , & ! bdy_mask
1934 dryrun , & ! flag
1935 '0' , & ! MemoryOrder
1936 '' , & ! Stagger
1937 '' , & ! Dimname 1
1938 '' , & ! Dimname 2
1939 '' , & ! Dimname 3
1940 '-' , & ! Desc
1941 '-' , & ! Units
1942 'inc/wrf_restartout.inc ext_write_field VC_J memorder 0' , & ! Debug message
1943 1 , 1 , 1 , 1 , 1 , 1 , &
1944 1 , 1 , 1 , 1 , 1 , 1 , &
1945 1 , 1 , 1 , 1 , 1 , 1 , &
1946 ierr )
1947 DO itrace = PARAM_FIRST_SCALAR , num_moist
1948 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
1949 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1950 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
1951 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1952 CALL wrf_ext_write_field ( &
1953 fid , & ! DataHandle
1954 current_date(1:19) , & ! DateStr
1955 TRIM(moist_dname_table( grid%id, itrace )), & !data name
1956 grid%moist(ims,jms,kms,itrace) , & ! Field
1957 WRF_FLOAT , & ! FieldType
1958 grid%communicator , & ! Comm
1959 grid%iocommunicator , & ! Comm
1960 grid%domdesc , & ! Comm
1961 grid%bdy_mask , & ! bdy_mask
1962 dryrun , & ! flag
1963 'XYZ' , & ! MemoryOrder
1964 '' , & ! Stagger
1965 'west_east' , & ! Dimname 1
1966 'south_north' , & ! Dimname 2
1967 'bottom_top' , & ! Dimname 3
1968 moist_desc_table( grid%id, itrace ), & ! Desc
1969 moist_units_table( grid%id, itrace ), & ! Units
1970 'inc/wrf_restartout.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
1971 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1972 ims , ime , jms , jme , kms , kme , &
1973 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1974 ierr )
1975 ENDIF
1976 ENDIF
1977 ENDDO
1978 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
1979 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
1980 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
1981 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
1982 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
1983 CALL wrf_ext_write_field ( &
1984 fid , & ! DataHandle
1985 current_date(1:19) , & ! DateStr
1986 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
1987 grid%a_moist(ims,jms,kms,itrace) , & ! Field
1988 WRF_FLOAT , & ! FieldType
1989 grid%communicator , & ! Comm
1990 grid%iocommunicator , & ! Comm
1991 grid%domdesc , & ! Comm
1992 grid%bdy_mask , & ! bdy_mask
1993 dryrun , & ! flag
1994 'XYZ' , & ! MemoryOrder
1995 '' , & ! Stagger
1996 'west_east' , & ! Dimname 1
1997 'south_north' , & ! Dimname 2
1998 'bottom_top' , & ! Dimname 3
1999 a_moist_desc_table( grid%id, itrace ), & ! Desc
2000 a_moist_units_table( grid%id, itrace ), & ! Units
2001 'inc/wrf_restartout.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2002 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2003 ims , ime , jms , jme , kms , kme , &
2004 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2005 ierr )
2006 ENDIF
2007 ENDIF
2008 ENDDO
2009 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
2010 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
2011 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2012 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2013 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2014 CALL wrf_ext_write_field ( &
2015 fid , & ! DataHandle
2016 current_date(1:19) , & ! DateStr
2017 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
2018 grid%g_moist(ims,jms,kms,itrace) , & ! Field
2019 WRF_FLOAT , & ! FieldType
2020 grid%communicator , & ! Comm
2021 grid%iocommunicator , & ! Comm
2022 grid%domdesc , & ! Comm
2023 grid%bdy_mask , & ! bdy_mask
2024 dryrun , & ! flag
2025 'XYZ' , & ! MemoryOrder
2026 '' , & ! Stagger
2027 'west_east' , & ! Dimname 1
2028 'south_north' , & ! Dimname 2
2029 'bottom_top' , & ! Dimname 3
2030 g_moist_desc_table( grid%id, itrace ), & ! Desc
2031 g_moist_units_table( grid%id, itrace ), & ! Units
2032 'inc/wrf_restartout.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2033 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2034 ims , ime , jms , jme , kms , kme , &
2035 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2036 ierr )
2037 ENDIF
2038 ENDIF
2039 ENDDO
2040 DO itrace = PARAM_FIRST_SCALAR , num_scalar
2041 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
2042 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2043 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2044 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2045 CALL wrf_ext_write_field ( &
2046 fid , & ! DataHandle
2047 current_date(1:19) , & ! DateStr
2048 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
2049 grid%scalar(ims,jms,kms,itrace) , & ! Field
2050 WRF_FLOAT , & ! FieldType
2051 grid%communicator , & ! Comm
2052 grid%iocommunicator , & ! Comm
2053 grid%domdesc , & ! Comm
2054 grid%bdy_mask , & ! bdy_mask
2055 dryrun , & ! flag
2056 'XYZ' , & ! MemoryOrder
2057 '' , & ! Stagger
2058 'west_east' , & ! Dimname 1
2059 'south_north' , & ! Dimname 2
2060 'bottom_top' , & ! Dimname 3
2061 scalar_desc_table( grid%id, itrace ), & ! Desc
2062 scalar_units_table( grid%id, itrace ), & ! Units
2063 'inc/wrf_restartout.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2064 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2065 ims , ime , jms , jme , kms , kme , &
2066 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2067 ierr )
2068 ENDIF
2069 ENDIF
2070 ENDDO
2071 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
2072 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
2073 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2074 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2075 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2076 CALL wrf_ext_write_field ( &
2077 fid , & ! DataHandle
2078 current_date(1:19) , & ! DateStr
2079 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
2080 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
2081 WRF_FLOAT , & ! FieldType
2082 grid%communicator , & ! Comm
2083 grid%iocommunicator , & ! Comm
2084 grid%domdesc , & ! Comm
2085 grid%bdy_mask , & ! bdy_mask
2086 dryrun , & ! flag
2087 'XYZ' , & ! MemoryOrder
2088 '' , & ! Stagger
2089 'west_east' , & ! Dimname 1
2090 'south_north' , & ! Dimname 2
2091 'bottom_top' , & ! Dimname 3
2092 a_scalar_desc_table( grid%id, itrace ), & ! Desc
2093 a_scalar_units_table( grid%id, itrace ), & ! Units
2094 'inc/wrf_restartout.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2095 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2096 ims , ime , jms , jme , kms , kme , &
2097 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2098 ierr )
2099 ENDIF
2100 ENDIF
2101 ENDDO
2102 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
2103 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
2104 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2105 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2106 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2107 CALL wrf_ext_write_field ( &
2108 fid , & ! DataHandle
2109 current_date(1:19) , & ! DateStr
2110 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
2111 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
2112 WRF_FLOAT , & ! FieldType
2113 grid%communicator , & ! Comm
2114 grid%iocommunicator , & ! Comm
2115 grid%domdesc , & ! Comm
2116 grid%bdy_mask , & ! bdy_mask
2117 dryrun , & ! flag
2118 'XYZ' , & ! MemoryOrder
2119 '' , & ! Stagger
2120 'west_east' , & ! Dimname 1
2121 'south_north' , & ! Dimname 2
2122 'bottom_top' , & ! Dimname 3
2123 g_scalar_desc_table( grid%id, itrace ), & ! Desc
2124 g_scalar_units_table( grid%id, itrace ), & ! Units
2125 'inc/wrf_restartout.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2126 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2127 ims , ime , jms , jme , kms , kme , &
2128 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2129 ierr )
2130 ENDIF
2131 ENDIF
2132 ENDDO
2133 CALL wrf_ext_write_field ( &
2134 fid , & ! DataHandle
2135 current_date(1:19) , & ! DateStr
2136 'FCX' , & ! Data Name
2137 grid%fcx , & ! Field
2138 WRF_FLOAT , & ! FieldType
2139 grid%communicator , & ! Comm
2140 grid%iocommunicator , & ! Comm
2141 grid%domdesc , & ! Comm
2142 grid%bdy_mask , & ! bdy_mask
2143 dryrun , & ! flag
2144 'C' , & ! MemoryOrder
2145 '' , & ! Stagger
2146 '' , & ! Dimname 1
2147 '' , & ! Dimname 2
2148 '' , & ! Dimname 3
2149 'RELAXATION TERM FOR BOUNDARY ZONE' , & ! Desc
2150 '' , & ! Units
2151 'inc/wrf_restartout.inc ext_write_field FCX memorder C' , & ! Debug message
2152 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2153 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2154 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2155 ierr )
2156 CALL wrf_ext_write_field ( &
2157 fid , & ! DataHandle
2158 current_date(1:19) , & ! DateStr
2159 'GCX' , & ! Data Name
2160 grid%gcx , & ! Field
2161 WRF_FLOAT , & ! FieldType
2162 grid%communicator , & ! Comm
2163 grid%iocommunicator , & ! Comm
2164 grid%domdesc , & ! Comm
2165 grid%bdy_mask , & ! bdy_mask
2166 dryrun , & ! flag
2167 'C' , & ! MemoryOrder
2168 '' , & ! Stagger
2169 '' , & ! Dimname 1
2170 '' , & ! Dimname 2
2171 '' , & ! Dimname 3
2172 '2ND RELAXATION TERM FOR BOUNDARY ZONE' , & ! Desc
2173 '' , & ! Units
2174 'inc/wrf_restartout.inc ext_write_field GCX memorder C' , & ! Debug message
2175 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2176 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2177 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2178 ierr )
2179 CALL wrf_ext_write_field ( &
2180 fid , & ! DataHandle
2181 current_date(1:19) , & ! DateStr
2182 'DTBC' , & ! Data Name
2183 grid%dtbc , & ! Field
2184 WRF_FLOAT , & ! FieldType
2185 grid%communicator , & ! Comm
2186 grid%iocommunicator , & ! Comm
2187 grid%domdesc , & ! Comm
2188 grid%bdy_mask , & ! bdy_mask
2189 dryrun , & ! flag
2190 '0' , & ! MemoryOrder
2191 '' , & ! Stagger
2192 '' , & ! Dimname 1
2193 '' , & ! Dimname 2
2194 '' , & ! Dimname 3
2195 'TIME SINCE BOUNDARY READ' , & ! Desc
2196 '' , & ! Units
2197 'inc/wrf_restartout.inc ext_write_field DTBC memorder 0' , & ! Debug message
2198 1 , 1 , 1 , 1 , 1 , 1 , &
2199 1 , 1 , 1 , 1 , 1 , 1 , &
2200 1 , 1 , 1 , 1 , 1 , 1 , &
2201 ierr )
2202 CALL wrf_ext_write_field ( &
2203 fid , & ! DataHandle
2204 current_date(1:19) , & ! DateStr
2205 'LANDMASK' , & ! Data Name
2206 grid%landmask , & ! Field
2207 WRF_FLOAT , & ! FieldType
2208 grid%communicator , & ! Comm
2209 grid%iocommunicator , & ! Comm
2210 grid%domdesc , & ! Comm
2211 grid%bdy_mask , & ! bdy_mask
2212 dryrun , & ! flag
2213 'XY' , & ! MemoryOrder
2214 '' , & ! Stagger
2215 'west_east' , & ! Dimname 1
2216 'south_north' , & ! Dimname 2
2217 '' , & ! Dimname 3
2218 'LAND MASK (1 FOR LAND, 0 FOR WATER)' , & ! Desc
2219 '' , & ! Units
2220 'inc/wrf_restartout.inc ext_write_field LANDMASK memorder XY' , & ! Debug message
2221 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2222 ims , ime , jms , jme , 1 , 1 , &
2223 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2224 ierr )
2225 CALL wrf_ext_write_field ( &
2226 fid , & ! DataHandle
2227 current_date(1:19) , & ! DateStr
2228 'SHDMAX' , & ! Data Name
2229 grid%shdmax , & ! Field
2230 WRF_FLOAT , & ! FieldType
2231 grid%communicator , & ! Comm
2232 grid%iocommunicator , & ! Comm
2233 grid%domdesc , & ! Comm
2234 grid%bdy_mask , & ! bdy_mask
2235 dryrun , & ! flag
2236 'XY' , & ! MemoryOrder
2237 '' , & ! Stagger
2238 'west_east' , & ! Dimname 1
2239 'south_north' , & ! Dimname 2
2240 '' , & ! Dimname 3
2241 'ANNUAL MAX VEG FRACTION' , & ! Desc
2242 '' , & ! Units
2243 'inc/wrf_restartout.inc ext_write_field SHDMAX memorder XY' , & ! Debug message
2244 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2245 ims , ime , jms , jme , 1 , 1 , &
2246 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2247 ierr )
2248 CALL wrf_ext_write_field ( &
2249 fid , & ! DataHandle
2250 current_date(1:19) , & ! DateStr
2251 'SHDMIN' , & ! Data Name
2252 grid%shdmin , & ! Field
2253 WRF_FLOAT , & ! FieldType
2254 grid%communicator , & ! Comm
2255 grid%iocommunicator , & ! Comm
2256 grid%domdesc , & ! Comm
2257 grid%bdy_mask , & ! bdy_mask
2258 dryrun , & ! flag
2259 'XY' , & ! MemoryOrder
2260 '' , & ! Stagger
2261 'west_east' , & ! Dimname 1
2262 'south_north' , & ! Dimname 2
2263 '' , & ! Dimname 3
2264 'ANNUAL MIN VEG FRACTION' , & ! Desc
2265 '' , & ! Units
2266 'inc/wrf_restartout.inc ext_write_field SHDMIN memorder XY' , & ! Debug message
2267 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2268 ims , ime , jms , jme , 1 , 1 , &
2269 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2270 ierr )
2271 CALL wrf_ext_write_field ( &
2272 fid , & ! DataHandle
2273 current_date(1:19) , & ! DateStr
2274 'SNOALB' , & ! Data Name
2275 grid%snoalb , & ! Field
2276 WRF_FLOAT , & ! FieldType
2277 grid%communicator , & ! Comm
2278 grid%iocommunicator , & ! Comm
2279 grid%domdesc , & ! Comm
2280 grid%bdy_mask , & ! bdy_mask
2281 dryrun , & ! flag
2282 'XY' , & ! MemoryOrder
2283 '' , & ! Stagger
2284 'west_east' , & ! Dimname 1
2285 'south_north' , & ! Dimname 2
2286 '' , & ! Dimname 3
2287 'ANNUAL MAX SNOW ALBEDO IN FRACTION' , & ! Desc
2288 '' , & ! Units
2289 'inc/wrf_restartout.inc ext_write_field SNOALB memorder XY' , & ! Debug message
2290 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2291 ims , ime , jms , jme , 1 , 1 , &
2292 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2293 ierr )
2294 CALL wrf_ext_write_field ( &
2295 fid , & ! DataHandle
2296 current_date(1:19) , & ! DateStr
2297 'TSLB' , & ! Data Name
2298 grid%tslb , & ! Field
2299 WRF_FLOAT , & ! FieldType
2300 grid%communicator , & ! Comm
2301 grid%iocommunicator , & ! Comm
2302 grid%domdesc , & ! Comm
2303 grid%bdy_mask , & ! bdy_mask
2304 dryrun , & ! flag
2305 'XYZ' , & ! MemoryOrder
2306 'Z' , & ! Stagger
2307 'west_east' , & ! Dimname 1
2308 'south_north' , & ! Dimname 2
2309 'soil_layers_stag' , & ! Dimname 3
2310 'SOIL TEMPERATURE' , & ! Desc
2311 'K' , & ! Units
2312 'inc/wrf_restartout.inc ext_write_field TSLB memorder XYZ' , & ! Debug message
2313 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
2314 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
2315 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
2316 ierr )
2317 CALL wrf_ext_write_field ( &
2318 fid , & ! DataHandle
2319 current_date(1:19) , & ! DateStr
2320 'ZS' , & ! Data Name
2321 grid%zs , & ! Field
2322 WRF_FLOAT , & ! FieldType
2323 grid%communicator , & ! Comm
2324 grid%iocommunicator , & ! Comm
2325 grid%domdesc , & ! Comm
2326 grid%bdy_mask , & ! bdy_mask
2327 dryrun , & ! flag
2328 'Z' , & ! MemoryOrder
2329 'Z' , & ! Stagger
2330 'soil_layers_stag' , & ! Dimname 1
2331 '' , & ! Dimname 2
2332 '' , & ! Dimname 3
2333 'DEPTHS OF CENTERS OF SOIL LAYERS' , & ! Desc
2334 'm' , & ! Units
2335 'inc/wrf_restartout.inc ext_write_field ZS memorder Z' , & ! Debug message
2336 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
2337 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
2338 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
2339 ierr )
2340 CALL wrf_ext_write_field ( &
2341 fid , & ! DataHandle
2342 current_date(1:19) , & ! DateStr
2343 'DZS' , & ! Data Name
2344 grid%dzs , & ! Field
2345 WRF_FLOAT , & ! FieldType
2346 grid%communicator , & ! Comm
2347 grid%iocommunicator , & ! Comm
2348 grid%domdesc , & ! Comm
2349 grid%bdy_mask , & ! bdy_mask
2350 dryrun , & ! flag
2351 'Z' , & ! MemoryOrder
2352 'Z' , & ! Stagger
2353 'soil_layers_stag' , & ! Dimname 1
2354 '' , & ! Dimname 2
2355 '' , & ! Dimname 3
2356 'THICKNESSES OF SOIL LAYERS' , & ! Desc
2357 'm' , & ! Units
2358 'inc/wrf_restartout.inc ext_write_field DZS memorder Z' , & ! Debug message
2359 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
2360 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
2361 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
2362 ierr )
2363 CALL wrf_ext_write_field ( &
2364 fid , & ! DataHandle
2365 current_date(1:19) , & ! DateStr
2366 'SMOIS' , & ! Data Name
2367 grid%smois , & ! Field
2368 WRF_FLOAT , & ! FieldType
2369 grid%communicator , & ! Comm
2370 grid%iocommunicator , & ! Comm
2371 grid%domdesc , & ! Comm
2372 grid%bdy_mask , & ! bdy_mask
2373 dryrun , & ! flag
2374 'XYZ' , & ! MemoryOrder
2375 'Z' , & ! Stagger
2376 'west_east' , & ! Dimname 1
2377 'south_north' , & ! Dimname 2
2378 'soil_layers_stag' , & ! Dimname 3
2379 'SOIL MOISTURE' , & ! Desc
2380 'm3 m-3' , & ! Units
2381 'inc/wrf_restartout.inc ext_write_field SMOIS memorder XYZ' , & ! Debug message
2382 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
2383 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
2384 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
2385 ierr )
2386 CALL wrf_ext_write_field ( &
2387 fid , & ! DataHandle
2388 current_date(1:19) , & ! DateStr
2389 'SH2O' , & ! Data Name
2390 grid%sh2o , & ! Field
2391 WRF_FLOAT , & ! FieldType
2392 grid%communicator , & ! Comm
2393 grid%iocommunicator , & ! Comm
2394 grid%domdesc , & ! Comm
2395 grid%bdy_mask , & ! bdy_mask
2396 dryrun , & ! flag
2397 'XYZ' , & ! MemoryOrder
2398 'Z' , & ! Stagger
2399 'west_east' , & ! Dimname 1
2400 'south_north' , & ! Dimname 2
2401 'soil_layers_stag' , & ! Dimname 3
2402 'SOIL LIQUID WATER' , & ! Desc
2403 'm3 m-3' , & ! Units
2404 'inc/wrf_restartout.inc ext_write_field SH2O memorder XYZ' , & ! Debug message
2405 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
2406 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
2407 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
2408 ierr )
2409 CALL wrf_ext_write_field ( &
2410 fid , & ! DataHandle
2411 current_date(1:19) , & ! DateStr
2412 'XICE' , & ! Data Name
2413 grid%xice , & ! Field
2414 WRF_FLOAT , & ! FieldType
2415 grid%communicator , & ! Comm
2416 grid%iocommunicator , & ! Comm
2417 grid%domdesc , & ! Comm
2418 grid%bdy_mask , & ! bdy_mask
2419 dryrun , & ! flag
2420 'XY' , & ! MemoryOrder
2421 '' , & ! Stagger
2422 'west_east' , & ! Dimname 1
2423 'south_north' , & ! Dimname 2
2424 '' , & ! Dimname 3
2425 'SEA ICE FLAG' , & ! Desc
2426 '' , & ! Units
2427 'inc/wrf_restartout.inc ext_write_field XICE memorder XY' , & ! Debug message
2428 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2429 ims , ime , jms , jme , 1 , 1 , &
2430 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2431 ierr )
2432 CALL wrf_ext_write_field ( &
2433 fid , & ! DataHandle
2434 current_date(1:19) , & ! DateStr
2435 'SFROFF' , & ! Data Name
2436 grid%sfcrunoff , & ! Field
2437 WRF_FLOAT , & ! FieldType
2438 grid%communicator , & ! Comm
2439 grid%iocommunicator , & ! Comm
2440 grid%domdesc , & ! Comm
2441 grid%bdy_mask , & ! bdy_mask
2442 dryrun , & ! flag
2443 'XY' , & ! MemoryOrder
2444 '' , & ! Stagger
2445 'west_east' , & ! Dimname 1
2446 'south_north' , & ! Dimname 2
2447 '' , & ! Dimname 3
2448 'SURFACE RUNOFF' , & ! Desc
2449 'mm' , & ! Units
2450 'inc/wrf_restartout.inc ext_write_field SFROFF memorder XY' , & ! Debug message
2451 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2452 ims , ime , jms , jme , 1 , 1 , &
2453 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2454 ierr )
2455 CALL wrf_ext_write_field ( &
2456 fid , & ! DataHandle
2457 current_date(1:19) , & ! DateStr
2458 'UDROFF' , & ! Data Name
2459 grid%udrunoff , & ! Field
2460 WRF_FLOAT , & ! FieldType
2461 grid%communicator , & ! Comm
2462 grid%iocommunicator , & ! Comm
2463 grid%domdesc , & ! Comm
2464 grid%bdy_mask , & ! bdy_mask
2465 dryrun , & ! flag
2466 'XY' , & ! MemoryOrder
2467 '' , & ! Stagger
2468 'west_east' , & ! Dimname 1
2469 'south_north' , & ! Dimname 2
2470 '' , & ! Dimname 3
2471 'UNDERGROUND RUNOFF' , & ! Desc
2472 'mm' , & ! Units
2473 'inc/wrf_restartout.inc ext_write_field UDROFF memorder XY' , & ! Debug message
2474 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2475 ims , ime , jms , jme , 1 , 1 , &
2476 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2477 ierr )
2478 CALL wrf_ext_write_field ( &
2479 fid , & ! DataHandle
2480 current_date(1:19) , & ! DateStr
2481 'IVGTYP' , & ! Data Name
2482 grid%ivgtyp , & ! Field
2483 WRF_integer , & ! FieldType
2484 grid%communicator , & ! Comm
2485 grid%iocommunicator , & ! Comm
2486 grid%domdesc , & ! Comm
2487 grid%bdy_mask , & ! bdy_mask
2488 dryrun , & ! flag
2489 'XY' , & ! MemoryOrder
2490 '' , & ! Stagger
2491 'west_east' , & ! Dimname 1
2492 'south_north' , & ! Dimname 2
2493 '' , & ! Dimname 3
2494 'DOMINANT VEGETATION CATEGORY' , & ! Desc
2495 '' , & ! Units
2496 'inc/wrf_restartout.inc ext_write_field IVGTYP memorder XY' , & ! Debug message
2497 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2498 ims , ime , jms , jme , 1 , 1 , &
2499 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2500 ierr )
2501 CALL wrf_ext_write_field ( &
2502 fid , & ! DataHandle
2503 current_date(1:19) , & ! DateStr
2504 'ISLTYP' , & ! Data Name
2505 grid%isltyp , & ! Field
2506 WRF_integer , & ! FieldType
2507 grid%communicator , & ! Comm
2508 grid%iocommunicator , & ! Comm
2509 grid%domdesc , & ! Comm
2510 grid%bdy_mask , & ! bdy_mask
2511 dryrun , & ! flag
2512 'XY' , & ! MemoryOrder
2513 '' , & ! Stagger
2514 'west_east' , & ! Dimname 1
2515 'south_north' , & ! Dimname 2
2516 '' , & ! Dimname 3
2517 'DOMINANT SOIL CATEGORY' , & ! Desc
2518 '' , & ! Units
2519 'inc/wrf_restartout.inc ext_write_field ISLTYP memorder XY' , & ! Debug message
2520 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2521 ims , ime , jms , jme , 1 , 1 , &
2522 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2523 ierr )
2524 CALL wrf_ext_write_field ( &
2525 fid , & ! DataHandle
2526 current_date(1:19) , & ! DateStr
2527 'VEGFRA' , & ! Data Name
2528 grid%vegfra , & ! Field
2529 WRF_FLOAT , & ! FieldType
2530 grid%communicator , & ! Comm
2531 grid%iocommunicator , & ! Comm
2532 grid%domdesc , & ! Comm
2533 grid%bdy_mask , & ! bdy_mask
2534 dryrun , & ! flag
2535 'XY' , & ! MemoryOrder
2536 '' , & ! Stagger
2537 'west_east' , & ! Dimname 1
2538 'south_north' , & ! Dimname 2
2539 '' , & ! Dimname 3
2540 'VEGETATION FRACTION' , & ! Desc
2541 '' , & ! Units
2542 'inc/wrf_restartout.inc ext_write_field VEGFRA memorder XY' , & ! Debug message
2543 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2544 ims , ime , jms , jme , 1 , 1 , &
2545 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2546 ierr )
2547 CALL wrf_ext_write_field ( &
2548 fid , & ! DataHandle
2549 current_date(1:19) , & ! DateStr
2550 'SFCEVP' , & ! Data Name
2551 grid%sfcevp , & ! Field
2552 WRF_FLOAT , & ! FieldType
2553 grid%communicator , & ! Comm
2554 grid%iocommunicator , & ! Comm
2555 grid%domdesc , & ! Comm
2556 grid%bdy_mask , & ! bdy_mask
2557 dryrun , & ! flag
2558 'XY' , & ! MemoryOrder
2559 '' , & ! Stagger
2560 'west_east' , & ! Dimname 1
2561 'south_north' , & ! Dimname 2
2562 '' , & ! Dimname 3
2563 'SURFACE EVAPORATION' , & ! Desc
2564 'kg m-2' , & ! Units
2565 'inc/wrf_restartout.inc ext_write_field SFCEVP memorder XY' , & ! Debug message
2566 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2567 ims , ime , jms , jme , 1 , 1 , &
2568 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2569 ierr )
2570 CALL wrf_ext_write_field ( &
2571 fid , & ! DataHandle
2572 current_date(1:19) , & ! DateStr
2573 'ACSNOW' , & ! Data Name
2574 grid%acsnow , & ! Field
2575 WRF_FLOAT , & ! FieldType
2576 grid%communicator , & ! Comm
2577 grid%iocommunicator , & ! Comm
2578 grid%domdesc , & ! Comm
2579 grid%bdy_mask , & ! bdy_mask
2580 dryrun , & ! flag
2581 'XY' , & ! MemoryOrder
2582 '' , & ! Stagger
2583 'west_east' , & ! Dimname 1
2584 'south_north' , & ! Dimname 2
2585 '' , & ! Dimname 3
2586 'ACCUMULATED SNOW' , & ! Desc
2587 'kg m-2' , & ! Units
2588 'inc/wrf_restartout.inc ext_write_field ACSNOW memorder XY' , & ! Debug message
2589 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2590 ims , ime , jms , jme , 1 , 1 , &
2591 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2592 ierr )
2593 CALL wrf_ext_write_field ( &
2594 fid , & ! DataHandle
2595 current_date(1:19) , & ! DateStr
2596 'ACSNOM' , & ! Data Name
2597 grid%acsnom , & ! Field
2598 WRF_FLOAT , & ! FieldType
2599 grid%communicator , & ! Comm
2600 grid%iocommunicator , & ! Comm
2601 grid%domdesc , & ! Comm
2602 grid%bdy_mask , & ! bdy_mask
2603 dryrun , & ! flag
2604 'XY' , & ! MemoryOrder
2605 '' , & ! Stagger
2606 'west_east' , & ! Dimname 1
2607 'south_north' , & ! Dimname 2
2608 '' , & ! Dimname 3
2609 'ACCUMULATED MELTED SNOW' , & ! Desc
2610 'kg m-2' , & ! Units
2611 'inc/wrf_restartout.inc ext_write_field ACSNOM memorder XY' , & ! Debug message
2612 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2613 ims , ime , jms , jme , 1 , 1 , &
2614 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2615 ierr )
2616 CALL wrf_ext_write_field ( &
2617 fid , & ! DataHandle
2618 current_date(1:19) , & ! DateStr
2619 'SNOW' , & ! Data Name
2620 grid%snow , & ! Field
2621 WRF_FLOAT , & ! FieldType
2622 grid%communicator , & ! Comm
2623 grid%iocommunicator , & ! Comm
2624 grid%domdesc , & ! Comm
2625 grid%bdy_mask , & ! bdy_mask
2626 dryrun , & ! flag
2627 'XY' , & ! MemoryOrder
2628 '' , & ! Stagger
2629 'west_east' , & ! Dimname 1
2630 'south_north' , & ! Dimname 2
2631 '' , & ! Dimname 3
2632 'SNOW WATER EQUIVALENT' , & ! Desc
2633 'kg m-2' , & ! Units
2634 'inc/wrf_restartout.inc ext_write_field SNOW memorder XY' , & ! Debug message
2635 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2636 ims , ime , jms , jme , 1 , 1 , &
2637 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2638 ierr )
2639 CALL wrf_ext_write_field ( &
2640 fid , & ! DataHandle
2641 current_date(1:19) , & ! DateStr
2642 'SNOWH' , & ! Data Name
2643 grid%snowh , & ! Field
2644 WRF_FLOAT , & ! FieldType
2645 grid%communicator , & ! Comm
2646 grid%iocommunicator , & ! Comm
2647 grid%domdesc , & ! Comm
2648 grid%bdy_mask , & ! bdy_mask
2649 dryrun , & ! flag
2650 'XY' , & ! MemoryOrder
2651 '' , & ! Stagger
2652 'west_east' , & ! Dimname 1
2653 'south_north' , & ! Dimname 2
2654 '' , & ! Dimname 3
2655 'PHYSICAL SNOW DEPTH' , & ! Desc
2656 'm' , & ! Units
2657 'inc/wrf_restartout.inc ext_write_field SNOWH memorder XY' , & ! Debug message
2658 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2659 ims , ime , jms , jme , 1 , 1 , &
2660 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2661 ierr )
2662 CALL wrf_ext_write_field ( &
2663 fid , & ! DataHandle
2664 current_date(1:19) , & ! DateStr
2665 'RHOSN' , & ! Data Name
2666 grid%rhosn , & ! Field
2667 WRF_FLOAT , & ! FieldType
2668 grid%communicator , & ! Comm
2669 grid%iocommunicator , & ! Comm
2670 grid%domdesc , & ! Comm
2671 grid%bdy_mask , & ! bdy_mask
2672 dryrun , & ! flag
2673 'XY' , & ! MemoryOrder
2674 '' , & ! Stagger
2675 'west_east' , & ! Dimname 1
2676 'south_north' , & ! Dimname 2
2677 '' , & ! Dimname 3
2678 ' SNOW DENSITY' , & ! Desc
2679 'kg m-3' , & ! Units
2680 'inc/wrf_restartout.inc ext_write_field RHOSN memorder XY' , & ! Debug message
2681 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2682 ims , ime , jms , jme , 1 , 1 , &
2683 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2684 ierr )
2685 CALL wrf_ext_write_field ( &
2686 fid , & ! DataHandle
2687 current_date(1:19) , & ! DateStr
2688 'CANWAT' , & ! Data Name
2689 grid%canwat , & ! Field
2690 WRF_FLOAT , & ! FieldType
2691 grid%communicator , & ! Comm
2692 grid%iocommunicator , & ! Comm
2693 grid%domdesc , & ! Comm
2694 grid%bdy_mask , & ! bdy_mask
2695 dryrun , & ! flag
2696 'XY' , & ! MemoryOrder
2697 '' , & ! Stagger
2698 'west_east' , & ! Dimname 1
2699 'south_north' , & ! Dimname 2
2700 '' , & ! Dimname 3
2701 'CANOPY WATER' , & ! Desc
2702 'kg m-2' , & ! Units
2703 'inc/wrf_restartout.inc ext_write_field CANWAT memorder XY' , & ! Debug message
2704 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2705 ims , ime , jms , jme , 1 , 1 , &
2706 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2707 ierr )
2708 CALL wrf_ext_write_field ( &
2709 fid , & ! DataHandle
2710 current_date(1:19) , & ! DateStr
2711 'SST' , & ! Data Name
2712 grid%sst , & ! Field
2713 WRF_FLOAT , & ! FieldType
2714 grid%communicator , & ! Comm
2715 grid%iocommunicator , & ! Comm
2716 grid%domdesc , & ! Comm
2717 grid%bdy_mask , & ! bdy_mask
2718 dryrun , & ! flag
2719 'XY' , & ! MemoryOrder
2720 '' , & ! Stagger
2721 'west_east' , & ! Dimname 1
2722 'south_north' , & ! Dimname 2
2723 '' , & ! Dimname 3
2724 'SEA SURFACE TEMPERATURE' , & ! Desc
2725 'K' , & ! Units
2726 'inc/wrf_restartout.inc ext_write_field SST memorder XY' , & ! Debug message
2727 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2728 ims , ime , jms , jme , 1 , 1 , &
2729 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2730 ierr )
2731 CALL wrf_ext_write_field ( &
2732 fid , & ! DataHandle
2733 current_date(1:19) , & ! DateStr
2734 'HTOP' , & ! Data Name
2735 grid%htop , & ! Field
2736 WRF_FLOAT , & ! FieldType
2737 grid%communicator , & ! Comm
2738 grid%iocommunicator , & ! Comm
2739 grid%domdesc , & ! Comm
2740 grid%bdy_mask , & ! bdy_mask
2741 dryrun , & ! flag
2742 'XY' , & ! MemoryOrder
2743 '' , & ! Stagger
2744 'west_east' , & ! Dimname 1
2745 'south_north' , & ! Dimname 2
2746 '' , & ! Dimname 3
2747 'TOP OF CONVECTION LELVEL' , & ! Desc
2748 '' , & ! Units
2749 'inc/wrf_restartout.inc ext_write_field HTOP memorder XY' , & ! Debug message
2750 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2751 ims , ime , jms , jme , 1 , 1 , &
2752 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2753 ierr )
2754 CALL wrf_ext_write_field ( &
2755 fid , & ! DataHandle
2756 current_date(1:19) , & ! DateStr
2757 'HBOT' , & ! Data Name
2758 grid%hbot , & ! Field
2759 WRF_FLOAT , & ! FieldType
2760 grid%communicator , & ! Comm
2761 grid%iocommunicator , & ! Comm
2762 grid%domdesc , & ! Comm
2763 grid%bdy_mask , & ! bdy_mask
2764 dryrun , & ! flag
2765 'XY' , & ! MemoryOrder
2766 '' , & ! Stagger
2767 'west_east' , & ! Dimname 1
2768 'south_north' , & ! Dimname 2
2769 '' , & ! Dimname 3
2770 'BOT OF CONVECTION LELVEL' , & ! Desc
2771 '' , & ! Units
2772 'inc/wrf_restartout.inc ext_write_field HBOT memorder XY' , & ! Debug message
2773 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2774 ims , ime , jms , jme , 1 , 1 , &
2775 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2776 ierr )
2777 CALL wrf_ext_write_field ( &
2778 fid , & ! DataHandle
2779 current_date(1:19) , & ! DateStr
2780 'CUPPT' , & ! Data Name
2781 grid%cuppt , & ! Field
2782 WRF_FLOAT , & ! FieldType
2783 grid%communicator , & ! Comm
2784 grid%iocommunicator , & ! Comm
2785 grid%domdesc , & ! Comm
2786 grid%bdy_mask , & ! bdy_mask
2787 dryrun , & ! flag
2788 'XY' , & ! MemoryOrder
2789 '' , & ! Stagger
2790 'west_east' , & ! Dimname 1
2791 'south_north' , & ! Dimname 2
2792 '' , & ! Dimname 3
2793 'ACCUMULATED CONVECTIVE RAIN SINC LAST CALL TO THE RADIATION' , & ! Desc
2794 '' , & ! Units
2795 'inc/wrf_restartout.inc ext_write_field CUPPT memorder XY' , & ! Debug message
2796 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2797 ims , ime , jms , jme , 1 , 1 , &
2798 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2799 ierr )
2800 CALL wrf_ext_write_field ( &
2801 fid , & ! DataHandle
2802 current_date(1:19) , & ! DateStr
2803 'H_DIABATIC' , & ! Data Name
2804 grid%h_diabatic , & ! Field
2805 WRF_FLOAT , & ! FieldType
2806 grid%communicator , & ! Comm
2807 grid%iocommunicator , & ! Comm
2808 grid%domdesc , & ! Comm
2809 grid%bdy_mask , & ! bdy_mask
2810 dryrun , & ! flag
2811 'XYZ' , & ! MemoryOrder
2812 '' , & ! Stagger
2813 'west_east' , & ! Dimname 1
2814 'south_north' , & ! Dimname 2
2815 'bottom_top' , & ! Dimname 3
2816 'PREVIOUS TIMESTEP CONDENSATIONAL HEATING' , & ! Desc
2817 '' , & ! Units
2818 'inc/wrf_restartout.inc ext_write_field H_DIABATIC memorder XYZ' , & ! Debug message
2819 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2820 ims , ime , jms , jme , kms , kme , &
2821 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2822 ierr )
2823 CALL wrf_ext_write_field ( &
2824 fid , & ! DataHandle
2825 current_date(1:19) , & ! DateStr
2826 'MAPFAC_M' , & ! Data Name
2827 grid%msft , & ! Field
2828 WRF_FLOAT , & ! FieldType
2829 grid%communicator , & ! Comm
2830 grid%iocommunicator , & ! Comm
2831 grid%domdesc , & ! Comm
2832 grid%bdy_mask , & ! bdy_mask
2833 dryrun , & ! flag
2834 'XY' , & ! MemoryOrder
2835 '' , & ! Stagger
2836 'west_east' , & ! Dimname 1
2837 'south_north' , & ! Dimname 2
2838 '' , & ! Dimname 3
2839 'Map scale factor on mass grid' , & ! Desc
2840 '' , & ! Units
2841 'inc/wrf_restartout.inc ext_write_field MAPFAC_M memorder XY' , & ! Debug message
2842 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2843 ims , ime , jms , jme , 1 , 1 , &
2844 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2845 ierr )
2846 CALL wrf_ext_write_field ( &
2847 fid , & ! DataHandle
2848 current_date(1:19) , & ! DateStr
2849 'MAPFAC_U' , & ! Data Name
2850 grid%msfu , & ! Field
2851 WRF_FLOAT , & ! FieldType
2852 grid%communicator , & ! Comm
2853 grid%iocommunicator , & ! Comm
2854 grid%domdesc , & ! Comm
2855 grid%bdy_mask , & ! bdy_mask
2856 dryrun , & ! flag
2857 'XY' , & ! MemoryOrder
2858 'X' , & ! Stagger
2859 'west_east_stag' , & ! Dimname 1
2860 'south_north' , & ! Dimname 2
2861 '' , & ! Dimname 3
2862 'Map scale factor on u-grid' , & ! Desc
2863 '' , & ! Units
2864 'inc/wrf_restartout.inc ext_write_field MAPFAC_U memorder XY' , & ! Debug message
2865 ids , ide , jds , (jde-1) , 1 , 1 , &
2866 ims , ime , jms , jme , 1 , 1 , &
2867 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2868 ierr )
2869 CALL wrf_ext_write_field ( &
2870 fid , & ! DataHandle
2871 current_date(1:19) , & ! DateStr
2872 'MAPFAC_V' , & ! Data Name
2873 grid%msfv , & ! Field
2874 WRF_FLOAT , & ! FieldType
2875 grid%communicator , & ! Comm
2876 grid%iocommunicator , & ! Comm
2877 grid%domdesc , & ! Comm
2878 grid%bdy_mask , & ! bdy_mask
2879 dryrun , & ! flag
2880 'XY' , & ! MemoryOrder
2881 'Y' , & ! Stagger
2882 'west_east' , & ! Dimname 1
2883 'south_north_stag' , & ! Dimname 2
2884 '' , & ! Dimname 3
2885 'Map scale factor on v-grid' , & ! Desc
2886 '' , & ! Units
2887 'inc/wrf_restartout.inc ext_write_field MAPFAC_V memorder XY' , & ! Debug message
2888 ids , (ide-1) , jds , jde , 1 , 1 , &
2889 ims , ime , jms , jme , 1 , 1 , &
2890 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
2891 ierr )
2892 CALL wrf_ext_write_field ( &
2893 fid , & ! DataHandle
2894 current_date(1:19) , & ! DateStr
2895 'F' , & ! Data Name
2896 grid%f , & ! Field
2897 WRF_FLOAT , & ! FieldType
2898 grid%communicator , & ! Comm
2899 grid%iocommunicator , & ! Comm
2900 grid%domdesc , & ! Comm
2901 grid%bdy_mask , & ! bdy_mask
2902 dryrun , & ! flag
2903 'XY' , & ! MemoryOrder
2904 '' , & ! Stagger
2905 'west_east' , & ! Dimname 1
2906 'south_north' , & ! Dimname 2
2907 '' , & ! Dimname 3
2908 'Coriolis sine latitude term' , & ! Desc
2909 's-1' , & ! Units
2910 'inc/wrf_restartout.inc ext_write_field F memorder XY' , & ! Debug message
2911 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2912 ims , ime , jms , jme , 1 , 1 , &
2913 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2914 ierr )
2915 CALL wrf_ext_write_field ( &
2916 fid , & ! DataHandle
2917 current_date(1:19) , & ! DateStr
2918 'E' , & ! Data Name
2919 grid%e , & ! Field
2920 WRF_FLOAT , & ! FieldType
2921 grid%communicator , & ! Comm
2922 grid%iocommunicator , & ! Comm
2923 grid%domdesc , & ! Comm
2924 grid%bdy_mask , & ! bdy_mask
2925 dryrun , & ! flag
2926 'XY' , & ! MemoryOrder
2927 '' , & ! Stagger
2928 'west_east' , & ! Dimname 1
2929 'south_north' , & ! Dimname 2
2930 '' , & ! Dimname 3
2931 'Coriolis cosine latitude term' , & ! Desc
2932 's-1' , & ! Units
2933 'inc/wrf_restartout.inc ext_write_field E memorder XY' , & ! Debug message
2934 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2935 ims , ime , jms , jme , 1 , 1 , &
2936 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2937 ierr )
2938 CALL wrf_ext_write_field ( &
2939 fid , & ! DataHandle
2940 current_date(1:19) , & ! DateStr
2941 'SINALPHA' , & ! Data Name
2942 grid%sina , & ! Field
2943 WRF_FLOAT , & ! FieldType
2944 grid%communicator , & ! Comm
2945 grid%iocommunicator , & ! Comm
2946 grid%domdesc , & ! Comm
2947 grid%bdy_mask , & ! bdy_mask
2948 dryrun , & ! flag
2949 'XY' , & ! MemoryOrder
2950 '' , & ! Stagger
2951 'west_east' , & ! Dimname 1
2952 'south_north' , & ! Dimname 2
2953 '' , & ! Dimname 3
2954 'Local sine of map rotation' , & ! Desc
2955 '' , & ! Units
2956 'inc/wrf_restartout.inc ext_write_field SINALPHA memorder XY' , & ! Debug message
2957 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2958 ims , ime , jms , jme , 1 , 1 , &
2959 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2960 ierr )
2961 CALL wrf_ext_write_field ( &
2962 fid , & ! DataHandle
2963 current_date(1:19) , & ! DateStr
2964 'COSALPHA' , & ! Data Name
2965 grid%cosa , & ! Field
2966 WRF_FLOAT , & ! FieldType
2967 grid%communicator , & ! Comm
2968 grid%iocommunicator , & ! Comm
2969 grid%domdesc , & ! Comm
2970 grid%bdy_mask , & ! bdy_mask
2971 dryrun , & ! flag
2972 'XY' , & ! MemoryOrder
2973 '' , & ! Stagger
2974 'west_east' , & ! Dimname 1
2975 'south_north' , & ! Dimname 2
2976 '' , & ! Dimname 3
2977 'Local cosine of map rotation' , & ! Desc
2978 '' , & ! Units
2979 'inc/wrf_restartout.inc ext_write_field COSALPHA memorder XY' , & ! Debug message
2980 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2981 ims , ime , jms , jme , 1 , 1 , &
2982 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2983 ierr )
2984 CALL wrf_ext_write_field ( &
2985 fid , & ! DataHandle
2986 current_date(1:19) , & ! DateStr
2987 'HGT' , & ! Data Name
2988 grid%ht , & ! Field
2989 WRF_FLOAT , & ! FieldType
2990 grid%communicator , & ! Comm
2991 grid%iocommunicator , & ! Comm
2992 grid%domdesc , & ! Comm
2993 grid%bdy_mask , & ! bdy_mask
2994 dryrun , & ! flag
2995 'XY' , & ! MemoryOrder
2996 '' , & ! Stagger
2997 'west_east' , & ! Dimname 1
2998 'south_north' , & ! Dimname 2
2999 '' , & ! Dimname 3
3000 'Terrain Height' , & ! Desc
3001 'm' , & ! Units
3002 'inc/wrf_restartout.inc ext_write_field HGT memorder XY' , & ! Debug message
3003 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3004 ims , ime , jms , jme , 1 , 1 , &
3005 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3006 ierr )
3007 CALL wrf_ext_write_field ( &
3008 fid , & ! DataHandle
3009 current_date(1:19) , & ! DateStr
3010 'TSK' , & ! Data Name
3011 grid%tsk , & ! Field
3012 WRF_FLOAT , & ! FieldType
3013 grid%communicator , & ! Comm
3014 grid%iocommunicator , & ! Comm
3015 grid%domdesc , & ! Comm
3016 grid%bdy_mask , & ! bdy_mask
3017 dryrun , & ! flag
3018 'XY' , & ! MemoryOrder
3019 '' , & ! Stagger
3020 'west_east' , & ! Dimname 1
3021 'south_north' , & ! Dimname 2
3022 '' , & ! Dimname 3
3023 'SURFACE SKIN TEMPERATURE' , & ! Desc
3024 'K' , & ! Units
3025 'inc/wrf_restartout.inc ext_write_field TSK memorder XY' , & ! Debug message
3026 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3027 ims , ime , jms , jme , 1 , 1 , &
3028 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3029 ierr )
3030 CALL wrf_ext_write_field ( &
3031 fid , & ! DataHandle
3032 current_date(1:19) , & ! DateStr
3033 'U_BASE' , & ! Data Name
3034 grid%u_base , & ! Field
3035 WRF_FLOAT , & ! FieldType
3036 grid%communicator , & ! Comm
3037 grid%iocommunicator , & ! Comm
3038 grid%domdesc , & ! Comm
3039 grid%bdy_mask , & ! bdy_mask
3040 dryrun , & ! flag
3041 'Z' , & ! MemoryOrder
3042 '' , & ! Stagger
3043 'bottom_top' , & ! Dimname 1
3044 '' , & ! Dimname 2
3045 '' , & ! Dimname 3
3046 'BASE STATE X WIND IN IDEALIZED CASES' , & ! Desc
3047 '' , & ! Units
3048 'inc/wrf_restartout.inc ext_write_field U_BASE memorder Z' , & ! Debug message
3049 kds , (kde-1) , 1 , 1 , 1 , 1 , &
3050 kms , kme , 1 , 1 , 1 , 1 , &
3051 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
3052 ierr )
3053 CALL wrf_ext_write_field ( &
3054 fid , & ! DataHandle
3055 current_date(1:19) , & ! DateStr
3056 'V_BASE' , & ! Data Name
3057 grid%v_base , & ! Field
3058 WRF_FLOAT , & ! FieldType
3059 grid%communicator , & ! Comm
3060 grid%iocommunicator , & ! Comm
3061 grid%domdesc , & ! Comm
3062 grid%bdy_mask , & ! bdy_mask
3063 dryrun , & ! flag
3064 'Z' , & ! MemoryOrder
3065 '' , & ! Stagger
3066 'bottom_top' , & ! Dimname 1
3067 '' , & ! Dimname 2
3068 '' , & ! Dimname 3
3069 'BASE STATE Y WIND IN IDEALIZED CASES' , & ! Desc
3070 '' , & ! Units
3071 'inc/wrf_restartout.inc ext_write_field V_BASE memorder Z' , & ! Debug message
3072 kds , (kde-1) , 1 , 1 , 1 , 1 , &
3073 kms , kme , 1 , 1 , 1 , 1 , &
3074 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
3075 ierr )
3076 CALL wrf_ext_write_field ( &
3077 fid , & ! DataHandle
3078 current_date(1:19) , & ! DateStr
3079 'QV_BASE' , & ! Data Name
3080 grid%qv_base , & ! Field
3081 WRF_FLOAT , & ! FieldType
3082 grid%communicator , & ! Comm
3083 grid%iocommunicator , & ! Comm
3084 grid%domdesc , & ! Comm
3085 grid%bdy_mask , & ! bdy_mask
3086 dryrun , & ! flag
3087 'Z' , & ! MemoryOrder
3088 '' , & ! Stagger
3089 'bottom_top' , & ! Dimname 1
3090 '' , & ! Dimname 2
3091 '' , & ! Dimname 3
3092 'BASE STATE QV IN IDEALIZED CASES' , & ! Desc
3093 '' , & ! Units
3094 'inc/wrf_restartout.inc ext_write_field QV_BASE memorder Z' , & ! Debug message
3095 kds , (kde-1) , 1 , 1 , 1 , 1 , &
3096 kms , kme , 1 , 1 , 1 , 1 , &
3097 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
3098 ierr )
3099 CALL wrf_ext_write_field ( &
3100 fid , & ! DataHandle
3101 current_date(1:19) , & ! DateStr
3102 'Z_BASE' , & ! Data Name
3103 grid%z_base , & ! Field
3104 WRF_FLOAT , & ! FieldType
3105 grid%communicator , & ! Comm
3106 grid%iocommunicator , & ! Comm
3107 grid%domdesc , & ! Comm
3108 grid%bdy_mask , & ! bdy_mask
3109 dryrun , & ! flag
3110 'Z' , & ! MemoryOrder
3111 '' , & ! Stagger
3112 'bottom_top' , & ! Dimname 1
3113 '' , & ! Dimname 2
3114 '' , & ! Dimname 3
3115 'BASE STATE HEIGHT IN IDEALIZED CASES' , & ! Desc
3116 '' , & ! Units
3117 'inc/wrf_restartout.inc ext_write_field Z_BASE memorder Z' , & ! Debug message
3118 kds , (kde-1) , 1 , 1 , 1 , 1 , &
3119 kms , kme , 1 , 1 , 1 , 1 , &
3120 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
3121 ierr )
3122 CALL wrf_ext_write_field ( &
3123 fid , & ! DataHandle
3124 current_date(1:19) , & ! DateStr
3125 'U_FRAME' , & ! Data Name
3126 grid%u_frame , & ! Field
3127 WRF_FLOAT , & ! FieldType
3128 grid%communicator , & ! Comm
3129 grid%iocommunicator , & ! Comm
3130 grid%domdesc , & ! Comm
3131 grid%bdy_mask , & ! bdy_mask
3132 dryrun , & ! flag
3133 '0' , & ! MemoryOrder
3134 '' , & ! Stagger
3135 '' , & ! Dimname 1
3136 '' , & ! Dimname 2
3137 '' , & ! Dimname 3
3138 'FRAME X WIND' , & ! Desc
3139 'm s-1' , & ! Units
3140 'inc/wrf_restartout.inc ext_write_field U_FRAME memorder 0' , & ! Debug message
3141 1 , 1 , 1 , 1 , 1 , 1 , &
3142 1 , 1 , 1 , 1 , 1 , 1 , &
3143 1 , 1 , 1 , 1 , 1 , 1 , &
3144 ierr )
3145 CALL wrf_ext_write_field ( &
3146 fid , & ! DataHandle
3147 current_date(1:19) , & ! DateStr
3148 'V_FRAME' , & ! Data Name
3149 grid%v_frame , & ! Field
3150 WRF_FLOAT , & ! FieldType
3151 grid%communicator , & ! Comm
3152 grid%iocommunicator , & ! Comm
3153 grid%domdesc , & ! Comm
3154 grid%bdy_mask , & ! bdy_mask
3155 dryrun , & ! flag
3156 '0' , & ! MemoryOrder
3157 '' , & ! Stagger
3158 '' , & ! Dimname 1
3159 '' , & ! Dimname 2
3160 '' , & ! Dimname 3
3161 'FRAME Y WIND' , & ! Desc
3162 'm s-1' , & ! Units
3163 'inc/wrf_restartout.inc ext_write_field V_FRAME memorder 0' , & ! Debug message
3164 1 , 1 , 1 , 1 , 1 , 1 , &
3165 1 , 1 , 1 , 1 , 1 , 1 , &
3166 1 , 1 , 1 , 1 , 1 , 1 , &
3167 ierr )
3168 CALL wrf_ext_write_field ( &
3169 fid , & ! DataHandle
3170 current_date(1:19) , & ! DateStr
3171 'P_TOP' , & ! Data Name
3172 grid%p_top , & ! Field
3173 WRF_FLOAT , & ! FieldType
3174 grid%communicator , & ! Comm
3175 grid%iocommunicator , & ! Comm
3176 grid%domdesc , & ! Comm
3177 grid%bdy_mask , & ! bdy_mask
3178 dryrun , & ! flag
3179 '0' , & ! MemoryOrder
3180 '' , & ! Stagger
3181 '' , & ! Dimname 1
3182 '' , & ! Dimname 2
3183 '' , & ! Dimname 3
3184 'PRESSURE TOP OF THE MODEL' , & ! Desc
3185 'Pa' , & ! Units
3186 'inc/wrf_restartout.inc ext_write_field P_TOP memorder 0' , & ! Debug message
3187 1 , 1 , 1 , 1 , 1 , 1 , &
3188 1 , 1 , 1 , 1 , 1 , 1 , &
3189 1 , 1 , 1 , 1 , 1 , 1 , &
3190 ierr )
3191 CALL wrf_ext_write_field ( &
3192 fid , & ! DataHandle
3193 current_date(1:19) , & ! DateStr
3194 'IMICROGRAM' , & ! Data Name
3195 grid%imicrogram , & ! Field
3196 WRF_integer , & ! FieldType
3197 grid%communicator , & ! Comm
3198 grid%iocommunicator , & ! Comm
3199 grid%domdesc , & ! Comm
3200 grid%bdy_mask , & ! bdy_mask
3201 dryrun , & ! flag
3202 '0' , & ! MemoryOrder
3203 '' , & ! Stagger
3204 '' , & ! Dimname 1
3205 '' , & ! Dimname 2
3206 '' , & ! Dimname 3
3207 'flag 0/1 0=mixratio, 1=mcrograms/m3' , & ! Desc
3208 '' , & ! Units
3209 'inc/wrf_restartout.inc ext_write_field IMICROGRAM memorder 0' , & ! Debug message
3210 1 , 1 , 1 , 1 , 1 , 1 , &
3211 1 , 1 , 1 , 1 , 1 , 1 , &
3212 1 , 1 , 1 , 1 , 1 , 1 , &
3213 ierr )
3214 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3215 CALL wrf_ext_write_field ( &
3216 fid , & ! DataHandle
3217 current_date(1:19) , & ! DateStr
3218 'LAT_LL_T' , & ! Data Name
3219 grid%em_lat_ll_t , & ! Field
3220 WRF_FLOAT , & ! FieldType
3221 grid%communicator , & ! Comm
3222 grid%iocommunicator , & ! Comm
3223 grid%domdesc , & ! Comm
3224 grid%bdy_mask , & ! bdy_mask
3225 dryrun , & ! flag
3226 '0' , & ! MemoryOrder
3227 '' , & ! Stagger
3228 '' , & ! Dimname 1
3229 '' , & ! Dimname 2
3230 '' , & ! Dimname 3
3231 'latitude lower left, temp point' , & ! Desc
3232 'degrees' , & ! Units
3233 'inc/wrf_restartout.inc ext_write_field LAT_LL_T memorder 0' , & ! Debug message
3234 1 , 1 , 1 , 1 , 1 , 1 , &
3235 1 , 1 , 1 , 1 , 1 , 1 , &
3236 1 , 1 , 1 , 1 , 1 , 1 , &
3237 ierr )
3238 END IF
3239 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3240 CALL wrf_ext_write_field ( &
3241 fid , & ! DataHandle
3242 current_date(1:19) , & ! DateStr
3243 'LAT_UL_T' , & ! Data Name
3244 grid%em_lat_ul_t , & ! Field
3245 WRF_FLOAT , & ! FieldType
3246 grid%communicator , & ! Comm
3247 grid%iocommunicator , & ! Comm
3248 grid%domdesc , & ! Comm
3249 grid%bdy_mask , & ! bdy_mask
3250 dryrun , & ! flag
3251 '0' , & ! MemoryOrder
3252 '' , & ! Stagger
3253 '' , & ! Dimname 1
3254 '' , & ! Dimname 2
3255 '' , & ! Dimname 3
3256 'latitude up left, temp point' , & ! Desc
3257 'degrees' , & ! Units
3258 'inc/wrf_restartout.inc ext_write_field LAT_UL_T memorder 0' , & ! Debug message
3259 1 , 1 , 1 , 1 , 1 , 1 , &
3260 1 , 1 , 1 , 1 , 1 , 1 , &
3261 1 , 1 , 1 , 1 , 1 , 1 , &
3262 ierr )
3263 END IF
3264 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3265 CALL wrf_ext_write_field ( &
3266 fid , & ! DataHandle
3267 current_date(1:19) , & ! DateStr
3268 'LAT_UR_T' , & ! Data Name
3269 grid%em_lat_ur_t , & ! Field
3270 WRF_FLOAT , & ! FieldType
3271 grid%communicator , & ! Comm
3272 grid%iocommunicator , & ! Comm
3273 grid%domdesc , & ! Comm
3274 grid%bdy_mask , & ! bdy_mask
3275 dryrun , & ! flag
3276 '0' , & ! MemoryOrder
3277 '' , & ! Stagger
3278 '' , & ! Dimname 1
3279 '' , & ! Dimname 2
3280 '' , & ! Dimname 3
3281 'latitude up right, temp point' , & ! Desc
3282 'degrees' , & ! Units
3283 'inc/wrf_restartout.inc ext_write_field LAT_UR_T memorder 0' , & ! Debug message
3284 1 , 1 , 1 , 1 , 1 , 1 , &
3285 1 , 1 , 1 , 1 , 1 , 1 , &
3286 1 , 1 , 1 , 1 , 1 , 1 , &
3287 ierr )
3288 END IF
3289 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3290 CALL wrf_ext_write_field ( &
3291 fid , & ! DataHandle
3292 current_date(1:19) , & ! DateStr
3293 'LAT_LR_T' , & ! Data Name
3294 grid%em_lat_lr_t , & ! Field
3295 WRF_FLOAT , & ! FieldType
3296 grid%communicator , & ! Comm
3297 grid%iocommunicator , & ! Comm
3298 grid%domdesc , & ! Comm
3299 grid%bdy_mask , & ! bdy_mask
3300 dryrun , & ! flag
3301 '0' , & ! MemoryOrder
3302 '' , & ! Stagger
3303 '' , & ! Dimname 1
3304 '' , & ! Dimname 2
3305 '' , & ! Dimname 3
3306 'latitude lower right, temp point' , & ! Desc
3307 'degrees' , & ! Units
3308 'inc/wrf_restartout.inc ext_write_field LAT_LR_T memorder 0' , & ! Debug message
3309 1 , 1 , 1 , 1 , 1 , 1 , &
3310 1 , 1 , 1 , 1 , 1 , 1 , &
3311 1 , 1 , 1 , 1 , 1 , 1 , &
3312 ierr )
3313 END IF
3314 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3315 CALL wrf_ext_write_field ( &
3316 fid , & ! DataHandle
3317 current_date(1:19) , & ! DateStr
3318 'LAT_LL_U' , & ! Data Name
3319 grid%em_lat_ll_u , & ! 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 '0' , & ! MemoryOrder
3327 '' , & ! Stagger
3328 '' , & ! Dimname 1
3329 '' , & ! Dimname 2
3330 '' , & ! Dimname 3
3331 'latitude lower left, u point' , & ! Desc
3332 'degrees' , & ! Units
3333 'inc/wrf_restartout.inc ext_write_field LAT_LL_U memorder 0' , & ! Debug message
3334 1 , 1 , 1 , 1 , 1 , 1 , &
3335 1 , 1 , 1 , 1 , 1 , 1 , &
3336 1 , 1 , 1 , 1 , 1 , 1 , &
3337 ierr )
3338 END IF
3339 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3340 CALL wrf_ext_write_field ( &
3341 fid , & ! DataHandle
3342 current_date(1:19) , & ! DateStr
3343 'LAT_UL_U' , & ! Data Name
3344 grid%em_lat_ul_u , & ! Field
3345 WRF_FLOAT , & ! FieldType
3346 grid%communicator , & ! Comm
3347 grid%iocommunicator , & ! Comm
3348 grid%domdesc , & ! Comm
3349 grid%bdy_mask , & ! bdy_mask
3350 dryrun , & ! flag
3351 '0' , & ! MemoryOrder
3352 '' , & ! Stagger
3353 '' , & ! Dimname 1
3354 '' , & ! Dimname 2
3355 '' , & ! Dimname 3
3356 'latitude up left, u point' , & ! Desc
3357 'degrees' , & ! Units
3358 'inc/wrf_restartout.inc ext_write_field LAT_UL_U memorder 0' , & ! Debug message
3359 1 , 1 , 1 , 1 , 1 , 1 , &
3360 1 , 1 , 1 , 1 , 1 , 1 , &
3361 1 , 1 , 1 , 1 , 1 , 1 , &
3362 ierr )
3363 END IF
3364 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3365 CALL wrf_ext_write_field ( &
3366 fid , & ! DataHandle
3367 current_date(1:19) , & ! DateStr
3368 'LAT_UR_U' , & ! Data Name
3369 grid%em_lat_ur_u , & ! Field
3370 WRF_FLOAT , & ! FieldType
3371 grid%communicator , & ! Comm
3372 grid%iocommunicator , & ! Comm
3373 grid%domdesc , & ! Comm
3374 grid%bdy_mask , & ! bdy_mask
3375 dryrun , & ! flag
3376 '0' , & ! MemoryOrder
3377 '' , & ! Stagger
3378 '' , & ! Dimname 1
3379 '' , & ! Dimname 2
3380 '' , & ! Dimname 3
3381 'latitude up right, u point' , & ! Desc
3382 'degrees' , & ! Units
3383 'inc/wrf_restartout.inc ext_write_field LAT_UR_U memorder 0' , & ! Debug message
3384 1 , 1 , 1 , 1 , 1 , 1 , &
3385 1 , 1 , 1 , 1 , 1 , 1 , &
3386 1 , 1 , 1 , 1 , 1 , 1 , &
3387 ierr )
3388 END IF
3389 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3390 CALL wrf_ext_write_field ( &
3391 fid , & ! DataHandle
3392 current_date(1:19) , & ! DateStr
3393 'LAT_LR_U' , & ! Data Name
3394 grid%em_lat_lr_u , & ! Field
3395 WRF_FLOAT , & ! FieldType
3396 grid%communicator , & ! Comm
3397 grid%iocommunicator , & ! Comm
3398 grid%domdesc , & ! Comm
3399 grid%bdy_mask , & ! bdy_mask
3400 dryrun , & ! flag
3401 '0' , & ! MemoryOrder
3402 '' , & ! Stagger
3403 '' , & ! Dimname 1
3404 '' , & ! Dimname 2
3405 '' , & ! Dimname 3
3406 'latitude lower right, u point' , & ! Desc
3407 'degrees' , & ! Units
3408 'inc/wrf_restartout.inc ext_write_field LAT_LR_U memorder 0' , & ! Debug message
3409 1 , 1 , 1 , 1 , 1 , 1 , &
3410 1 , 1 , 1 , 1 , 1 , 1 , &
3411 1 , 1 , 1 , 1 , 1 , 1 , &
3412 ierr )
3413 END IF
3414 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3415 CALL wrf_ext_write_field ( &
3416 fid , & ! DataHandle
3417 current_date(1:19) , & ! DateStr
3418 'LAT_LL_V' , & ! Data Name
3419 grid%em_lat_ll_v , & ! Field
3420 WRF_FLOAT , & ! FieldType
3421 grid%communicator , & ! Comm
3422 grid%iocommunicator , & ! Comm
3423 grid%domdesc , & ! Comm
3424 grid%bdy_mask , & ! bdy_mask
3425 dryrun , & ! flag
3426 '0' , & ! MemoryOrder
3427 '' , & ! Stagger
3428 '' , & ! Dimname 1
3429 '' , & ! Dimname 2
3430 '' , & ! Dimname 3
3431 'latitude lower left, v point' , & ! Desc
3432 'degrees' , & ! Units
3433 'inc/wrf_restartout.inc ext_write_field LAT_LL_V memorder 0' , & ! Debug message
3434 1 , 1 , 1 , 1 , 1 , 1 , &
3435 1 , 1 , 1 , 1 , 1 , 1 , &
3436 1 , 1 , 1 , 1 , 1 , 1 , &
3437 ierr )
3438 END IF
3439 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3440 CALL wrf_ext_write_field ( &
3441 fid , & ! DataHandle
3442 current_date(1:19) , & ! DateStr
3443 'LAT_UL_V' , & ! Data Name
3444 grid%em_lat_ul_v , & ! Field
3445 WRF_FLOAT , & ! FieldType
3446 grid%communicator , & ! Comm
3447 grid%iocommunicator , & ! Comm
3448 grid%domdesc , & ! Comm
3449 grid%bdy_mask , & ! bdy_mask
3450 dryrun , & ! flag
3451 '0' , & ! MemoryOrder
3452 '' , & ! Stagger
3453 '' , & ! Dimname 1
3454 '' , & ! Dimname 2
3455 '' , & ! Dimname 3
3456 'latitude up left, v point' , & ! Desc
3457 'degrees' , & ! Units
3458 'inc/wrf_restartout.inc ext_write_field LAT_UL_V memorder 0' , & ! Debug message
3459 1 , 1 , 1 , 1 , 1 , 1 , &
3460 1 , 1 , 1 , 1 , 1 , 1 , &
3461 1 , 1 , 1 , 1 , 1 , 1 , &
3462 ierr )
3463 END IF
3464 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3465 CALL wrf_ext_write_field ( &
3466 fid , & ! DataHandle
3467 current_date(1:19) , & ! DateStr
3468 'LAT_UR_V' , & ! Data Name
3469 grid%em_lat_ur_v , & ! Field
3470 WRF_FLOAT , & ! FieldType
3471 grid%communicator , & ! Comm
3472 grid%iocommunicator , & ! Comm
3473 grid%domdesc , & ! Comm
3474 grid%bdy_mask , & ! bdy_mask
3475 dryrun , & ! flag
3476 '0' , & ! MemoryOrder
3477 '' , & ! Stagger
3478 '' , & ! Dimname 1
3479 '' , & ! Dimname 2
3480 '' , & ! Dimname 3
3481 'latitude up right, v point' , & ! Desc
3482 'degrees' , & ! Units
3483 'inc/wrf_restartout.inc ext_write_field LAT_UR_V memorder 0' , & ! Debug message
3484 1 , 1 , 1 , 1 , 1 , 1 , &
3485 1 , 1 , 1 , 1 , 1 , 1 , &
3486 1 , 1 , 1 , 1 , 1 , 1 , &
3487 ierr )
3488 END IF
3489 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3490 CALL wrf_ext_write_field ( &
3491 fid , & ! DataHandle
3492 current_date(1:19) , & ! DateStr
3493 'LAT_LR_V' , & ! Data Name
3494 grid%em_lat_lr_v , & ! Field
3495 WRF_FLOAT , & ! FieldType
3496 grid%communicator , & ! Comm
3497 grid%iocommunicator , & ! Comm
3498 grid%domdesc , & ! Comm
3499 grid%bdy_mask , & ! bdy_mask
3500 dryrun , & ! flag
3501 '0' , & ! MemoryOrder
3502 '' , & ! Stagger
3503 '' , & ! Dimname 1
3504 '' , & ! Dimname 2
3505 '' , & ! Dimname 3
3506 'latitude lower right, v point' , & ! Desc
3507 'degrees' , & ! Units
3508 'inc/wrf_restartout.inc ext_write_field LAT_LR_V memorder 0' , & ! Debug message
3509 1 , 1 , 1 , 1 , 1 , 1 , &
3510 1 , 1 , 1 , 1 , 1 , 1 , &
3511 1 , 1 , 1 , 1 , 1 , 1 , &
3512 ierr )
3513 END IF
3514 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3515 CALL wrf_ext_write_field ( &
3516 fid , & ! DataHandle
3517 current_date(1:19) , & ! DateStr
3518 'LAT_LL_D' , & ! Data Name
3519 grid%em_lat_ll_d , & ! Field
3520 WRF_FLOAT , & ! FieldType
3521 grid%communicator , & ! Comm
3522 grid%iocommunicator , & ! Comm
3523 grid%domdesc , & ! Comm
3524 grid%bdy_mask , & ! bdy_mask
3525 dryrun , & ! flag
3526 '0' , & ! MemoryOrder
3527 '' , & ! Stagger
3528 '' , & ! Dimname 1
3529 '' , & ! Dimname 2
3530 '' , & ! Dimname 3
3531 'latitude lower left, massless point' , & ! Desc
3532 'degrees' , & ! Units
3533 'inc/wrf_restartout.inc ext_write_field LAT_LL_D memorder 0' , & ! Debug message
3534 1 , 1 , 1 , 1 , 1 , 1 , &
3535 1 , 1 , 1 , 1 , 1 , 1 , &
3536 1 , 1 , 1 , 1 , 1 , 1 , &
3537 ierr )
3538 END IF
3539 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3540 CALL wrf_ext_write_field ( &
3541 fid , & ! DataHandle
3542 current_date(1:19) , & ! DateStr
3543 'LAT_UL_D' , & ! Data Name
3544 grid%em_lat_ul_d , & ! Field
3545 WRF_FLOAT , & ! FieldType
3546 grid%communicator , & ! Comm
3547 grid%iocommunicator , & ! Comm
3548 grid%domdesc , & ! Comm
3549 grid%bdy_mask , & ! bdy_mask
3550 dryrun , & ! flag
3551 '0' , & ! MemoryOrder
3552 '' , & ! Stagger
3553 '' , & ! Dimname 1
3554 '' , & ! Dimname 2
3555 '' , & ! Dimname 3
3556 'latitude up left, massless point' , & ! Desc
3557 'degrees' , & ! Units
3558 'inc/wrf_restartout.inc ext_write_field LAT_UL_D memorder 0' , & ! Debug message
3559 1 , 1 , 1 , 1 , 1 , 1 , &
3560 1 , 1 , 1 , 1 , 1 , 1 , &
3561 1 , 1 , 1 , 1 , 1 , 1 , &
3562 ierr )
3563 END IF
3564 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3565 CALL wrf_ext_write_field ( &
3566 fid , & ! DataHandle
3567 current_date(1:19) , & ! DateStr
3568 'LAT_UR_D' , & ! Data Name
3569 grid%em_lat_ur_d , & ! Field
3570 WRF_FLOAT , & ! FieldType
3571 grid%communicator , & ! Comm
3572 grid%iocommunicator , & ! Comm
3573 grid%domdesc , & ! Comm
3574 grid%bdy_mask , & ! bdy_mask
3575 dryrun , & ! flag
3576 '0' , & ! MemoryOrder
3577 '' , & ! Stagger
3578 '' , & ! Dimname 1
3579 '' , & ! Dimname 2
3580 '' , & ! Dimname 3
3581 'latitude up right, massless point' , & ! Desc
3582 'degrees' , & ! Units
3583 'inc/wrf_restartout.inc ext_write_field LAT_UR_D memorder 0' , & ! Debug message
3584 1 , 1 , 1 , 1 , 1 , 1 , &
3585 1 , 1 , 1 , 1 , 1 , 1 , &
3586 1 , 1 , 1 , 1 , 1 , 1 , &
3587 ierr )
3588 END IF
3589 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3590 CALL wrf_ext_write_field ( &
3591 fid , & ! DataHandle
3592 current_date(1:19) , & ! DateStr
3593 'LAT_LR_D' , & ! Data Name
3594 grid%em_lat_lr_d , & ! Field
3595 WRF_FLOAT , & ! FieldType
3596 grid%communicator , & ! Comm
3597 grid%iocommunicator , & ! Comm
3598 grid%domdesc , & ! Comm
3599 grid%bdy_mask , & ! bdy_mask
3600 dryrun , & ! flag
3601 '0' , & ! MemoryOrder
3602 '' , & ! Stagger
3603 '' , & ! Dimname 1
3604 '' , & ! Dimname 2
3605 '' , & ! Dimname 3
3606 'latitude lower right, massless point' , & ! Desc
3607 'degrees' , & ! Units
3608 'inc/wrf_restartout.inc ext_write_field LAT_LR_D memorder 0' , & ! Debug message
3609 1 , 1 , 1 , 1 , 1 , 1 , &
3610 1 , 1 , 1 , 1 , 1 , 1 , &
3611 1 , 1 , 1 , 1 , 1 , 1 , &
3612 ierr )
3613 END IF
3614 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3615 CALL wrf_ext_write_field ( &
3616 fid , & ! DataHandle
3617 current_date(1:19) , & ! DateStr
3618 'LON_LL_T' , & ! Data Name
3619 grid%em_lon_ll_t , & ! Field
3620 WRF_FLOAT , & ! FieldType
3621 grid%communicator , & ! Comm
3622 grid%iocommunicator , & ! Comm
3623 grid%domdesc , & ! Comm
3624 grid%bdy_mask , & ! bdy_mask
3625 dryrun , & ! flag
3626 '0' , & ! MemoryOrder
3627 '' , & ! Stagger
3628 '' , & ! Dimname 1
3629 '' , & ! Dimname 2
3630 '' , & ! Dimname 3
3631 'longitude lower left, temp point' , & ! Desc
3632 'degrees' , & ! Units
3633 'inc/wrf_restartout.inc ext_write_field LON_LL_T memorder 0' , & ! Debug message
3634 1 , 1 , 1 , 1 , 1 , 1 , &
3635 1 , 1 , 1 , 1 , 1 , 1 , &
3636 1 , 1 , 1 , 1 , 1 , 1 , &
3637 ierr )
3638 END IF
3639 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3640 CALL wrf_ext_write_field ( &
3641 fid , & ! DataHandle
3642 current_date(1:19) , & ! DateStr
3643 'LON_UL_T' , & ! Data Name
3644 grid%em_lon_ul_t , & ! Field
3645 WRF_FLOAT , & ! FieldType
3646 grid%communicator , & ! Comm
3647 grid%iocommunicator , & ! Comm
3648 grid%domdesc , & ! Comm
3649 grid%bdy_mask , & ! bdy_mask
3650 dryrun , & ! flag
3651 '0' , & ! MemoryOrder
3652 '' , & ! Stagger
3653 '' , & ! Dimname 1
3654 '' , & ! Dimname 2
3655 '' , & ! Dimname 3
3656 'longitude up left, temp point' , & ! Desc
3657 'degrees' , & ! Units
3658 'inc/wrf_restartout.inc ext_write_field LON_UL_T memorder 0' , & ! Debug message
3659 1 , 1 , 1 , 1 , 1 , 1 , &
3660 1 , 1 , 1 , 1 , 1 , 1 , &
3661 1 , 1 , 1 , 1 , 1 , 1 , &
3662 ierr )
3663 END IF
3664 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3665 CALL wrf_ext_write_field ( &
3666 fid , & ! DataHandle
3667 current_date(1:19) , & ! DateStr
3668 'LON_UR_T' , & ! Data Name
3669 grid%em_lon_ur_t , & ! Field
3670 WRF_FLOAT , & ! FieldType
3671 grid%communicator , & ! Comm
3672 grid%iocommunicator , & ! Comm
3673 grid%domdesc , & ! Comm
3674 grid%bdy_mask , & ! bdy_mask
3675 dryrun , & ! flag
3676 '0' , & ! MemoryOrder
3677 '' , & ! Stagger
3678 '' , & ! Dimname 1
3679 '' , & ! Dimname 2
3680 '' , & ! Dimname 3
3681 'longitude up right, temp point' , & ! Desc
3682 'degrees' , & ! Units
3683 'inc/wrf_restartout.inc ext_write_field LON_UR_T memorder 0' , & ! Debug message
3684 1 , 1 , 1 , 1 , 1 , 1 , &
3685 1 , 1 , 1 , 1 , 1 , 1 , &
3686 1 , 1 , 1 , 1 , 1 , 1 , &
3687 ierr )
3688 END IF
3689 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3690 CALL wrf_ext_write_field ( &
3691 fid , & ! DataHandle
3692 current_date(1:19) , & ! DateStr
3693 'LON_LR_T' , & ! Data Name
3694 grid%em_lon_lr_t , & ! Field
3695 WRF_FLOAT , & ! FieldType
3696 grid%communicator , & ! Comm
3697 grid%iocommunicator , & ! Comm
3698 grid%domdesc , & ! Comm
3699 grid%bdy_mask , & ! bdy_mask
3700 dryrun , & ! flag
3701 '0' , & ! MemoryOrder
3702 '' , & ! Stagger
3703 '' , & ! Dimname 1
3704 '' , & ! Dimname 2
3705 '' , & ! Dimname 3
3706 'longitude lower right, temp point' , & ! Desc
3707 'degrees' , & ! Units
3708 'inc/wrf_restartout.inc ext_write_field LON_LR_T memorder 0' , & ! Debug message
3709 1 , 1 , 1 , 1 , 1 , 1 , &
3710 1 , 1 , 1 , 1 , 1 , 1 , &
3711 1 , 1 , 1 , 1 , 1 , 1 , &
3712 ierr )
3713 END IF
3714 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3715 CALL wrf_ext_write_field ( &
3716 fid , & ! DataHandle
3717 current_date(1:19) , & ! DateStr
3718 'LON_LL_U' , & ! Data Name
3719 grid%em_lon_ll_u , & ! Field
3720 WRF_FLOAT , & ! FieldType
3721 grid%communicator , & ! Comm
3722 grid%iocommunicator , & ! Comm
3723 grid%domdesc , & ! Comm
3724 grid%bdy_mask , & ! bdy_mask
3725 dryrun , & ! flag
3726 '0' , & ! MemoryOrder
3727 '' , & ! Stagger
3728 '' , & ! Dimname 1
3729 '' , & ! Dimname 2
3730 '' , & ! Dimname 3
3731 'longitude lower left, u point' , & ! Desc
3732 'degrees' , & ! Units
3733 'inc/wrf_restartout.inc ext_write_field LON_LL_U memorder 0' , & ! Debug message
3734 1 , 1 , 1 , 1 , 1 , 1 , &
3735 1 , 1 , 1 , 1 , 1 , 1 , &
3736 1 , 1 , 1 , 1 , 1 , 1 , &
3737 ierr )
3738 END IF
3739 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3740 CALL wrf_ext_write_field ( &
3741 fid , & ! DataHandle
3742 current_date(1:19) , & ! DateStr
3743 'LON_UL_U' , & ! Data Name
3744 grid%em_lon_ul_u , & ! Field
3745 WRF_FLOAT , & ! FieldType
3746 grid%communicator , & ! Comm
3747 grid%iocommunicator , & ! Comm
3748 grid%domdesc , & ! Comm
3749 grid%bdy_mask , & ! bdy_mask
3750 dryrun , & ! flag
3751 '0' , & ! MemoryOrder
3752 '' , & ! Stagger
3753 '' , & ! Dimname 1
3754 '' , & ! Dimname 2
3755 '' , & ! Dimname 3
3756 'longitude up left, u point' , & ! Desc
3757 'degrees' , & ! Units
3758 'inc/wrf_restartout.inc ext_write_field LON_UL_U memorder 0' , & ! Debug message
3759 1 , 1 , 1 , 1 , 1 , 1 , &
3760 1 , 1 , 1 , 1 , 1 , 1 , &
3761 1 , 1 , 1 , 1 , 1 , 1 , &
3762 ierr )
3763 END IF
3764 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3765 CALL wrf_ext_write_field ( &
3766 fid , & ! DataHandle
3767 current_date(1:19) , & ! DateStr
3768 'LON_UR_U' , & ! Data Name
3769 grid%em_lon_ur_u , & ! Field
3770 WRF_FLOAT , & ! FieldType
3771 grid%communicator , & ! Comm
3772 grid%iocommunicator , & ! Comm
3773 grid%domdesc , & ! Comm
3774 grid%bdy_mask , & ! bdy_mask
3775 dryrun , & ! flag
3776 '0' , & ! MemoryOrder
3777 '' , & ! Stagger
3778 '' , & ! Dimname 1
3779 '' , & ! Dimname 2
3780 '' , & ! Dimname 3
3781 'longitude up right, u point' , & ! Desc
3782 'degrees' , & ! Units
3783 'inc/wrf_restartout.inc ext_write_field LON_UR_U memorder 0' , & ! Debug message
3784 1 , 1 , 1 , 1 , 1 , 1 , &
3785 1 , 1 , 1 , 1 , 1 , 1 , &
3786 1 , 1 , 1 , 1 , 1 , 1 , &
3787 ierr )
3788 END IF
3789 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3790 CALL wrf_ext_write_field ( &
3791 fid , & ! DataHandle
3792 current_date(1:19) , & ! DateStr
3793 'LON_LR_U' , & ! Data Name
3794 grid%em_lon_lr_u , & ! Field
3795 WRF_FLOAT , & ! FieldType
3796 grid%communicator , & ! Comm
3797 grid%iocommunicator , & ! Comm
3798 grid%domdesc , & ! Comm
3799 grid%bdy_mask , & ! bdy_mask
3800 dryrun , & ! flag
3801 '0' , & ! MemoryOrder
3802 '' , & ! Stagger
3803 '' , & ! Dimname 1
3804 '' , & ! Dimname 2
3805 '' , & ! Dimname 3
3806 'longitude lower right, u point' , & ! Desc
3807 'degrees' , & ! Units
3808 'inc/wrf_restartout.inc ext_write_field LON_LR_U memorder 0' , & ! Debug message
3809 1 , 1 , 1 , 1 , 1 , 1 , &
3810 1 , 1 , 1 , 1 , 1 , 1 , &
3811 1 , 1 , 1 , 1 , 1 , 1 , &
3812 ierr )
3813 END IF
3814 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3815 CALL wrf_ext_write_field ( &
3816 fid , & ! DataHandle
3817 current_date(1:19) , & ! DateStr
3818 'LON_LL_V' , & ! Data Name
3819 grid%em_lon_ll_v , & ! Field
3820 WRF_FLOAT , & ! FieldType
3821 grid%communicator , & ! Comm
3822 grid%iocommunicator , & ! Comm
3823 grid%domdesc , & ! Comm
3824 grid%bdy_mask , & ! bdy_mask
3825 dryrun , & ! flag
3826 '0' , & ! MemoryOrder
3827 '' , & ! Stagger
3828 '' , & ! Dimname 1
3829 '' , & ! Dimname 2
3830 '' , & ! Dimname 3
3831 'longitude lower left, v point' , & ! Desc
3832 'degrees' , & ! Units
3833 'inc/wrf_restartout.inc ext_write_field LON_LL_V memorder 0' , & ! Debug message
3834 1 , 1 , 1 , 1 , 1 , 1 , &
3835 1 , 1 , 1 , 1 , 1 , 1 , &
3836 1 , 1 , 1 , 1 , 1 , 1 , &
3837 ierr )
3838 END IF
3839 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3840 CALL wrf_ext_write_field ( &
3841 fid , & ! DataHandle
3842 current_date(1:19) , & ! DateStr
3843 'LON_UL_V' , & ! Data Name
3844 grid%em_lon_ul_v , & ! Field
3845 WRF_FLOAT , & ! FieldType
3846 grid%communicator , & ! Comm
3847 grid%iocommunicator , & ! Comm
3848 grid%domdesc , & ! Comm
3849 grid%bdy_mask , & ! bdy_mask
3850 dryrun , & ! flag
3851 '0' , & ! MemoryOrder
3852 '' , & ! Stagger
3853 '' , & ! Dimname 1
3854 '' , & ! Dimname 2
3855 '' , & ! Dimname 3
3856 'longitude up left, v point' , & ! Desc
3857 'degrees' , & ! Units
3858 'inc/wrf_restartout.inc ext_write_field LON_UL_V memorder 0' , & ! Debug message
3859 1 , 1 , 1 , 1 , 1 , 1 , &
3860 1 , 1 , 1 , 1 , 1 , 1 , &
3861 1 , 1 , 1 , 1 , 1 , 1 , &
3862 ierr )
3863 END IF
3864 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3865 CALL wrf_ext_write_field ( &
3866 fid , & ! DataHandle
3867 current_date(1:19) , & ! DateStr
3868 'LON_UR_V' , & ! Data Name
3869 grid%em_lon_ur_v , & ! Field
3870 WRF_FLOAT , & ! FieldType
3871 grid%communicator , & ! Comm
3872 grid%iocommunicator , & ! Comm
3873 grid%domdesc , & ! Comm
3874 grid%bdy_mask , & ! bdy_mask
3875 dryrun , & ! flag
3876 '0' , & ! MemoryOrder
3877 '' , & ! Stagger
3878 '' , & ! Dimname 1
3879 '' , & ! Dimname 2
3880 '' , & ! Dimname 3
3881 'longitude up right, v point' , & ! Desc
3882 'degrees' , & ! Units
3883 'inc/wrf_restartout.inc ext_write_field LON_UR_V memorder 0' , & ! Debug message
3884 1 , 1 , 1 , 1 , 1 , 1 , &
3885 1 , 1 , 1 , 1 , 1 , 1 , &
3886 1 , 1 , 1 , 1 , 1 , 1 , &
3887 ierr )
3888 END IF
3889 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3890 CALL wrf_ext_write_field ( &
3891 fid , & ! DataHandle
3892 current_date(1:19) , & ! DateStr
3893 'LON_LR_V' , & ! Data Name
3894 grid%em_lon_lr_v , & ! Field
3895 WRF_FLOAT , & ! FieldType
3896 grid%communicator , & ! Comm
3897 grid%iocommunicator , & ! Comm
3898 grid%domdesc , & ! Comm
3899 grid%bdy_mask , & ! bdy_mask
3900 dryrun , & ! flag
3901 '0' , & ! MemoryOrder
3902 '' , & ! Stagger
3903 '' , & ! Dimname 1
3904 '' , & ! Dimname 2
3905 '' , & ! Dimname 3
3906 'longitude lower right, v point' , & ! Desc
3907 'degrees' , & ! Units
3908 'inc/wrf_restartout.inc ext_write_field LON_LR_V memorder 0' , & ! Debug message
3909 1 , 1 , 1 , 1 , 1 , 1 , &
3910 1 , 1 , 1 , 1 , 1 , 1 , &
3911 1 , 1 , 1 , 1 , 1 , 1 , &
3912 ierr )
3913 END IF
3914 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3915 CALL wrf_ext_write_field ( &
3916 fid , & ! DataHandle
3917 current_date(1:19) , & ! DateStr
3918 'LON_LL_D' , & ! Data Name
3919 grid%em_lon_ll_d , & ! Field
3920 WRF_FLOAT , & ! FieldType
3921 grid%communicator , & ! Comm
3922 grid%iocommunicator , & ! Comm
3923 grid%domdesc , & ! Comm
3924 grid%bdy_mask , & ! bdy_mask
3925 dryrun , & ! flag
3926 '0' , & ! MemoryOrder
3927 '' , & ! Stagger
3928 '' , & ! Dimname 1
3929 '' , & ! Dimname 2
3930 '' , & ! Dimname 3
3931 'longitude lower left, massless point' , & ! Desc
3932 'degrees' , & ! Units
3933 'inc/wrf_restartout.inc ext_write_field LON_LL_D memorder 0' , & ! Debug message
3934 1 , 1 , 1 , 1 , 1 , 1 , &
3935 1 , 1 , 1 , 1 , 1 , 1 , &
3936 1 , 1 , 1 , 1 , 1 , 1 , &
3937 ierr )
3938 END IF
3939 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3940 CALL wrf_ext_write_field ( &
3941 fid , & ! DataHandle
3942 current_date(1:19) , & ! DateStr
3943 'LON_UL_D' , & ! Data Name
3944 grid%em_lon_ul_d , & ! Field
3945 WRF_FLOAT , & ! FieldType
3946 grid%communicator , & ! Comm
3947 grid%iocommunicator , & ! Comm
3948 grid%domdesc , & ! Comm
3949 grid%bdy_mask , & ! bdy_mask
3950 dryrun , & ! flag
3951 '0' , & ! MemoryOrder
3952 '' , & ! Stagger
3953 '' , & ! Dimname 1
3954 '' , & ! Dimname 2
3955 '' , & ! Dimname 3
3956 'longitude up left, massless point' , & ! Desc
3957 'degrees' , & ! Units
3958 'inc/wrf_restartout.inc ext_write_field LON_UL_D memorder 0' , & ! Debug message
3959 1 , 1 , 1 , 1 , 1 , 1 , &
3960 1 , 1 , 1 , 1 , 1 , 1 , &
3961 1 , 1 , 1 , 1 , 1 , 1 , &
3962 ierr )
3963 END IF
3964 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3965 CALL wrf_ext_write_field ( &
3966 fid , & ! DataHandle
3967 current_date(1:19) , & ! DateStr
3968 'LON_UR_D' , & ! Data Name
3969 grid%em_lon_ur_d , & ! Field
3970 WRF_FLOAT , & ! FieldType
3971 grid%communicator , & ! Comm
3972 grid%iocommunicator , & ! Comm
3973 grid%domdesc , & ! Comm
3974 grid%bdy_mask , & ! bdy_mask
3975 dryrun , & ! flag
3976 '0' , & ! MemoryOrder
3977 '' , & ! Stagger
3978 '' , & ! Dimname 1
3979 '' , & ! Dimname 2
3980 '' , & ! Dimname 3
3981 'longitude up right, massless point' , & ! Desc
3982 'degrees' , & ! Units
3983 'inc/wrf_restartout.inc ext_write_field LON_UR_D memorder 0' , & ! Debug message
3984 1 , 1 , 1 , 1 , 1 , 1 , &
3985 1 , 1 , 1 , 1 , 1 , 1 , &
3986 1 , 1 , 1 , 1 , 1 , 1 , &
3987 ierr )
3988 END IF
3989 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3990 CALL wrf_ext_write_field ( &
3991 fid , & ! DataHandle
3992 current_date(1:19) , & ! DateStr
3993 'LON_LR_D' , & ! Data Name
3994 grid%em_lon_lr_d , & ! Field
3995 WRF_FLOAT , & ! FieldType
3996 grid%communicator , & ! Comm
3997 grid%iocommunicator , & ! Comm
3998 grid%domdesc , & ! Comm
3999 grid%bdy_mask , & ! bdy_mask
4000 dryrun , & ! flag
4001 '0' , & ! MemoryOrder
4002 '' , & ! Stagger
4003 '' , & ! Dimname 1
4004 '' , & ! Dimname 2
4005 '' , & ! Dimname 3
4006 'longitude lower right, massless point' , & ! Desc
4007 'degrees' , & ! Units
4008 'inc/wrf_restartout.inc ext_write_field LON_LR_D memorder 0' , & ! Debug message
4009 1 , 1 , 1 , 1 , 1 , 1 , &
4010 1 , 1 , 1 , 1 , 1 , 1 , &
4011 1 , 1 , 1 , 1 , 1 , 1 , &
4012 ierr )
4013 END IF
4014 CALL wrf_ext_write_field ( &
4015 fid , & ! DataHandle
4016 current_date(1:19) , & ! DateStr
4017 'RAINC' , & ! Data Name
4018 grid%rainc , & ! Field
4019 WRF_FLOAT , & ! FieldType
4020 grid%communicator , & ! Comm
4021 grid%iocommunicator , & ! Comm
4022 grid%domdesc , & ! Comm
4023 grid%bdy_mask , & ! bdy_mask
4024 dryrun , & ! flag
4025 'XY' , & ! MemoryOrder
4026 '' , & ! Stagger
4027 'west_east' , & ! Dimname 1
4028 'south_north' , & ! Dimname 2
4029 '' , & ! Dimname 3
4030 'ACCUMULATED TOTAL CUMULUS PRECIPITATION' , & ! Desc
4031 'mm' , & ! Units
4032 'inc/wrf_restartout.inc ext_write_field RAINC memorder XY' , & ! Debug message
4033 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4034 ims , ime , jms , jme , 1 , 1 , &
4035 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4036 ierr )
4037 CALL wrf_ext_write_field ( &
4038 fid , & ! DataHandle
4039 current_date(1:19) , & ! DateStr
4040 'RAINNC' , & ! Data Name
4041 grid%rainnc , & ! Field
4042 WRF_FLOAT , & ! FieldType
4043 grid%communicator , & ! Comm
4044 grid%iocommunicator , & ! Comm
4045 grid%domdesc , & ! Comm
4046 grid%bdy_mask , & ! bdy_mask
4047 dryrun , & ! flag
4048 'XY' , & ! MemoryOrder
4049 '' , & ! Stagger
4050 'west_east' , & ! Dimname 1
4051 'south_north' , & ! Dimname 2
4052 '' , & ! Dimname 3
4053 'ACCUMULATED TOTAL GRID SCALE PRECIPITATION' , & ! Desc
4054 'mm' , & ! Units
4055 'inc/wrf_restartout.inc ext_write_field RAINNC memorder XY' , & ! Debug message
4056 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4057 ims , ime , jms , jme , 1 , 1 , &
4058 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4059 ierr )
4060 CALL wrf_ext_write_field ( &
4061 fid , & ! DataHandle
4062 current_date(1:19) , & ! DateStr
4063 'XLAT' , & ! Data Name
4064 grid%xlat , & ! Field
4065 WRF_FLOAT , & ! FieldType
4066 grid%communicator , & ! Comm
4067 grid%iocommunicator , & ! Comm
4068 grid%domdesc , & ! Comm
4069 grid%bdy_mask , & ! bdy_mask
4070 dryrun , & ! flag
4071 'XY' , & ! MemoryOrder
4072 '' , & ! Stagger
4073 'west_east' , & ! Dimname 1
4074 'south_north' , & ! Dimname 2
4075 '' , & ! Dimname 3
4076 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
4077 'degree_north' , & ! Units
4078 'inc/wrf_restartout.inc ext_write_field XLAT memorder XY' , & ! Debug message
4079 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4080 ims , ime , jms , jme , 1 , 1 , &
4081 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4082 ierr )
4083 CALL wrf_ext_write_field ( &
4084 fid , & ! DataHandle
4085 current_date(1:19) , & ! DateStr
4086 'XLONG' , & ! Data Name
4087 grid%xlong , & ! Field
4088 WRF_FLOAT , & ! FieldType
4089 grid%communicator , & ! Comm
4090 grid%iocommunicator , & ! Comm
4091 grid%domdesc , & ! Comm
4092 grid%bdy_mask , & ! bdy_mask
4093 dryrun , & ! flag
4094 'XY' , & ! MemoryOrder
4095 '' , & ! Stagger
4096 'west_east' , & ! Dimname 1
4097 'south_north' , & ! Dimname 2
4098 '' , & ! Dimname 3
4099 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
4100 'degree_east' , & ! Units
4101 'inc/wrf_restartout.inc ext_write_field XLONG memorder XY' , & ! Debug message
4102 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4103 ims , ime , jms , jme , 1 , 1 , &
4104 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4105 ierr )
4106 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4107 CALL wrf_ext_write_field ( &
4108 fid , & ! DataHandle
4109 current_date(1:19) , & ! DateStr
4110 'XLAT_U' , & ! Data Name
4111 grid%em_xlat_u , & ! Field
4112 WRF_FLOAT , & ! FieldType
4113 grid%communicator , & ! Comm
4114 grid%iocommunicator , & ! Comm
4115 grid%domdesc , & ! Comm
4116 grid%bdy_mask , & ! bdy_mask
4117 dryrun , & ! flag
4118 'XY' , & ! MemoryOrder
4119 'X' , & ! Stagger
4120 'west_east_stag' , & ! Dimname 1
4121 'south_north' , & ! Dimname 2
4122 '' , & ! Dimname 3
4123 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
4124 'degree_north' , & ! Units
4125 'inc/wrf_restartout.inc ext_write_field XLAT_U memorder XY' , & ! Debug message
4126 ids , ide , jds , (jde-1) , 1 , 1 , &
4127 ims , ime , jms , jme , 1 , 1 , &
4128 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4129 ierr )
4130 END IF
4131 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4132 CALL wrf_ext_write_field ( &
4133 fid , & ! DataHandle
4134 current_date(1:19) , & ! DateStr
4135 'XLONG_U' , & ! Data Name
4136 grid%em_xlong_u , & ! Field
4137 WRF_FLOAT , & ! FieldType
4138 grid%communicator , & ! Comm
4139 grid%iocommunicator , & ! Comm
4140 grid%domdesc , & ! Comm
4141 grid%bdy_mask , & ! bdy_mask
4142 dryrun , & ! flag
4143 'XY' , & ! MemoryOrder
4144 'X' , & ! Stagger
4145 'west_east_stag' , & ! Dimname 1
4146 'south_north' , & ! Dimname 2
4147 '' , & ! Dimname 3
4148 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
4149 'degree_east' , & ! Units
4150 'inc/wrf_restartout.inc ext_write_field XLONG_U memorder XY' , & ! Debug message
4151 ids , ide , jds , (jde-1) , 1 , 1 , &
4152 ims , ime , jms , jme , 1 , 1 , &
4153 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4154 ierr )
4155 END IF
4156 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4157 CALL wrf_ext_write_field ( &
4158 fid , & ! DataHandle
4159 current_date(1:19) , & ! DateStr
4160 'XLAT_V' , & ! Data Name
4161 grid%em_xlat_v , & ! Field
4162 WRF_FLOAT , & ! FieldType
4163 grid%communicator , & ! Comm
4164 grid%iocommunicator , & ! Comm
4165 grid%domdesc , & ! Comm
4166 grid%bdy_mask , & ! bdy_mask
4167 dryrun , & ! flag
4168 'XY' , & ! MemoryOrder
4169 'Y' , & ! Stagger
4170 'west_east' , & ! Dimname 1
4171 'south_north_stag' , & ! Dimname 2
4172 '' , & ! Dimname 3
4173 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
4174 'degree_north' , & ! Units
4175 'inc/wrf_restartout.inc ext_write_field XLAT_V memorder XY' , & ! Debug message
4176 ids , (ide-1) , jds , jde , 1 , 1 , &
4177 ims , ime , jms , jme , 1 , 1 , &
4178 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
4179 ierr )
4180 END IF
4181 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4182 CALL wrf_ext_write_field ( &
4183 fid , & ! DataHandle
4184 current_date(1:19) , & ! DateStr
4185 'XLONG_V' , & ! Data Name
4186 grid%em_xlong_v , & ! Field
4187 WRF_FLOAT , & ! FieldType
4188 grid%communicator , & ! Comm
4189 grid%iocommunicator , & ! Comm
4190 grid%domdesc , & ! Comm
4191 grid%bdy_mask , & ! bdy_mask
4192 dryrun , & ! flag
4193 'XY' , & ! MemoryOrder
4194 'Y' , & ! Stagger
4195 'west_east' , & ! Dimname 1
4196 'south_north_stag' , & ! Dimname 2
4197 '' , & ! Dimname 3
4198 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
4199 'degree_east' , & ! Units
4200 'inc/wrf_restartout.inc ext_write_field XLONG_V memorder XY' , & ! Debug message
4201 ids , (ide-1) , jds , jde , 1 , 1 , &
4202 ims , ime , jms , jme , 1 , 1 , &
4203 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
4204 ierr )
4205 END IF
4206 CALL wrf_ext_write_field ( &
4207 fid , & ! DataHandle
4208 current_date(1:19) , & ! DateStr
4209 'ALBBCK' , & ! Data Name
4210 grid%albbck , & ! Field
4211 WRF_FLOAT , & ! FieldType
4212 grid%communicator , & ! Comm
4213 grid%iocommunicator , & ! Comm
4214 grid%domdesc , & ! Comm
4215 grid%bdy_mask , & ! bdy_mask
4216 dryrun , & ! flag
4217 'XY' , & ! MemoryOrder
4218 '' , & ! Stagger
4219 'west_east' , & ! Dimname 1
4220 'south_north' , & ! Dimname 2
4221 '' , & ! Dimname 3
4222 'BACKGROUND ALBEDO' , & ! Desc
4223 '' , & ! Units
4224 'inc/wrf_restartout.inc ext_write_field ALBBCK memorder XY' , & ! Debug message
4225 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4226 ims , ime , jms , jme , 1 , 1 , &
4227 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4228 ierr )
4229 CALL wrf_ext_write_field ( &
4230 fid , & ! DataHandle
4231 current_date(1:19) , & ! DateStr
4232 'MP_RESTART_STATE' , & ! Data Name
4233 grid%mp_restart_state , & ! Field
4234 WRF_FLOAT , & ! FieldType
4235 grid%communicator , & ! Comm
4236 grid%iocommunicator , & ! Comm
4237 grid%domdesc , & ! Comm
4238 grid%bdy_mask , & ! bdy_mask
4239 dryrun , & ! flag
4240 'C' , & ! MemoryOrder
4241 '' , & ! Stagger
4242 '' , & ! Dimname 1
4243 '' , & ! Dimname 2
4244 '' , & ! Dimname 3
4245 'STATE VECTOR FOR MICROPHYSICS RESTARTS' , & ! Desc
4246 '-' , & ! Units
4247 'inc/wrf_restartout.inc ext_write_field MP_RESTART_STATE memorder C' , & ! Debug message
4248 1 , 7501 , 1 , 1 , 1 , 1 , &
4249 1 , 7501 , 1 , 1 , 1 , 1 , &
4250 1 , 7501 , 1 , 1 , 1 , 1 , &
4251 ierr )
4252 CALL wrf_ext_write_field ( &
4253 fid , & ! DataHandle
4254 current_date(1:19) , & ! DateStr
4255 'TBPVS_STATE' , & ! Data Name
4256 grid%tbpvs_state , & ! Field
4257 WRF_FLOAT , & ! FieldType
4258 grid%communicator , & ! Comm
4259 grid%iocommunicator , & ! Comm
4260 grid%domdesc , & ! Comm
4261 grid%bdy_mask , & ! bdy_mask
4262 dryrun , & ! flag
4263 'C' , & ! MemoryOrder
4264 '' , & ! Stagger
4265 '' , & ! Dimname 1
4266 '' , & ! Dimname 2
4267 '' , & ! Dimname 3
4268 'STATE FOR ETAMPNEW MICROPHYSICS' , & ! Desc
4269 '-' , & ! Units
4270 'inc/wrf_restartout.inc ext_write_field TBPVS_STATE memorder C' , & ! Debug message
4271 1 , 7501 , 1 , 1 , 1 , 1 , &
4272 1 , 7501 , 1 , 1 , 1 , 1 , &
4273 1 , 7501 , 1 , 1 , 1 , 1 , &
4274 ierr )
4275 CALL wrf_ext_write_field ( &
4276 fid , & ! DataHandle
4277 current_date(1:19) , & ! DateStr
4278 'TBPVS0_STATE' , & ! Data Name
4279 grid%tbpvs0_state , & ! Field
4280 WRF_FLOAT , & ! FieldType
4281 grid%communicator , & ! Comm
4282 grid%iocommunicator , & ! Comm
4283 grid%domdesc , & ! Comm
4284 grid%bdy_mask , & ! bdy_mask
4285 dryrun , & ! flag
4286 'C' , & ! MemoryOrder
4287 '' , & ! Stagger
4288 '' , & ! Dimname 1
4289 '' , & ! Dimname 2
4290 '' , & ! Dimname 3
4291 'STATE FOR ETAMPNEW MICROPHYSICS' , & ! Desc
4292 '-' , & ! Units
4293 'inc/wrf_restartout.inc ext_write_field TBPVS0_STATE memorder C' , & ! Debug message
4294 1 , 7501 , 1 , 1 , 1 , 1 , &
4295 1 , 7501 , 1 , 1 , 1 , 1 , &
4296 1 , 7501 , 1 , 1 , 1 , 1 , &
4297 ierr )
4298 CALL wrf_ext_write_field ( &
4299 fid , & ! DataHandle
4300 current_date(1:19) , & ! DateStr
4301 'TMN' , & ! Data Name
4302 grid%tmn , & ! Field
4303 WRF_FLOAT , & ! FieldType
4304 grid%communicator , & ! Comm
4305 grid%iocommunicator , & ! Comm
4306 grid%domdesc , & ! Comm
4307 grid%bdy_mask , & ! bdy_mask
4308 dryrun , & ! flag
4309 'XY' , & ! MemoryOrder
4310 '' , & ! Stagger
4311 'west_east' , & ! Dimname 1
4312 'south_north' , & ! Dimname 2
4313 '' , & ! Dimname 3
4314 'SOIL TEMPERATURE AT LOWER BOUNDARY' , & ! Desc
4315 'K' , & ! Units
4316 'inc/wrf_restartout.inc ext_write_field TMN memorder XY' , & ! Debug message
4317 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4318 ims , ime , jms , jme , 1 , 1 , &
4319 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4320 ierr )
4321 CALL wrf_ext_write_field ( &
4322 fid , & ! DataHandle
4323 current_date(1:19) , & ! DateStr
4324 'XLAND' , & ! Data Name
4325 grid%xland , & ! Field
4326 WRF_FLOAT , & ! FieldType
4327 grid%communicator , & ! Comm
4328 grid%iocommunicator , & ! Comm
4329 grid%domdesc , & ! Comm
4330 grid%bdy_mask , & ! bdy_mask
4331 dryrun , & ! flag
4332 'XY' , & ! MemoryOrder
4333 '' , & ! Stagger
4334 'west_east' , & ! Dimname 1
4335 'south_north' , & ! Dimname 2
4336 '' , & ! Dimname 3
4337 'LAND MASK (1 FOR LAND, 2 FOR WATER)' , & ! Desc
4338 '' , & ! Units
4339 'inc/wrf_restartout.inc ext_write_field XLAND memorder XY' , & ! Debug message
4340 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4341 ims , ime , jms , jme , 1 , 1 , &
4342 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4343 ierr )
4344 CALL wrf_ext_write_field ( &
4345 fid , & ! DataHandle
4346 current_date(1:19) , & ! DateStr
4347 'ZNT' , & ! Data Name
4348 grid%znt , & ! Field
4349 WRF_FLOAT , & ! FieldType
4350 grid%communicator , & ! Comm
4351 grid%iocommunicator , & ! Comm
4352 grid%domdesc , & ! Comm
4353 grid%bdy_mask , & ! bdy_mask
4354 dryrun , & ! flag
4355 'XY' , & ! MemoryOrder
4356 '' , & ! Stagger
4357 'west_east' , & ! Dimname 1
4358 'south_north' , & ! Dimname 2
4359 '' , & ! Dimname 3
4360 'TIME-VARYING ROUGHNESS LENGTH' , & ! Desc
4361 'm' , & ! Units
4362 'inc/wrf_restartout.inc ext_write_field ZNT memorder XY' , & ! Debug message
4363 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4364 ims , ime , jms , jme , 1 , 1 , &
4365 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4366 ierr )
4367 CALL wrf_ext_write_field ( &
4368 fid , & ! DataHandle
4369 current_date(1:19) , & ! DateStr
4370 'SNOWC' , & ! Data Name
4371 grid%snowc , & ! Field
4372 WRF_FLOAT , & ! FieldType
4373 grid%communicator , & ! Comm
4374 grid%iocommunicator , & ! Comm
4375 grid%domdesc , & ! Comm
4376 grid%bdy_mask , & ! bdy_mask
4377 dryrun , & ! flag
4378 'XY' , & ! MemoryOrder
4379 '' , & ! Stagger
4380 'west_east' , & ! Dimname 1
4381 'south_north' , & ! Dimname 2
4382 '' , & ! Dimname 3
4383 'FLAG INDICATING SNOW COVERAGE (1 FOR SNOW COVER)' , & ! Desc
4384 '' , & ! Units
4385 'inc/wrf_restartout.inc ext_write_field SNOWC memorder XY' , & ! Debug message
4386 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4387 ims , ime , jms , jme , 1 , 1 , &
4388 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4389 ierr )
4390 CALL wrf_ext_write_field ( &
4391 fid , & ! DataHandle
4392 current_date(1:19) , & ! DateStr
4393 'STEPBL' , & ! Data Name
4394 grid%stepbl , & ! Field
4395 WRF_integer , & ! FieldType
4396 grid%communicator , & ! Comm
4397 grid%iocommunicator , & ! Comm
4398 grid%domdesc , & ! Comm
4399 grid%bdy_mask , & ! bdy_mask
4400 dryrun , & ! flag
4401 '0' , & ! MemoryOrder
4402 '' , & ! Stagger
4403 '' , & ! Dimname 1
4404 '' , & ! Dimname 2
4405 '' , & ! Dimname 3
4406 'NUMBER OF FUNDAMENTAL TIMESTEPS BETWEEN PBL CALLS' , & ! Desc
4407 '' , & ! Units
4408 'inc/wrf_restartout.inc ext_write_field STEPBL memorder 0' , & ! Debug message
4409 1 , 1 , 1 , 1 , 1 , 1 , &
4410 1 , 1 , 1 , 1 , 1 , 1 , &
4411 1 , 1 , 1 , 1 , 1 , 1 , &
4412 ierr )
4413 !ENDOFREGISTRYGENERATEDINCLUDE