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