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