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