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 'WW' , & ! Data Name
395 grid%em_ww , & ! 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 WW 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 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
411 CALL wrf_ext_read_field ( &
412 fid , & ! DataHandle
413 current_date(1:19) , & ! DateStr
414 'A_WW' , & ! Data Name
415 grid%em_a_ww , & ! Field
416 WRF_FLOAT , & ! FieldType
417 grid%communicator , & ! Comm
418 grid%iocommunicator , & ! Comm
419 grid%domdesc , & ! Comm
420 grid%bdy_mask , & ! bdy_mask
421 'XYZ' , & ! MemoryOrder
422 'Z' , & ! Stagger
423 'inc/wrf_restartin.inc ext_read_field A_WW memorder XYZ' , & ! Debug message
424 ids , (ide-1) , jds , (jde-1) , kds , kde , &
425 ims , ime , jms , jme , kms , kme , &
426 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
427 ierr )
428 END IF
429 END IF
430 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
431 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
432 CALL wrf_ext_read_field ( &
433 fid , & ! DataHandle
434 current_date(1:19) , & ! DateStr
435 'G_WW' , & ! Data Name
436 grid%em_g_ww , & ! Field
437 WRF_FLOAT , & ! FieldType
438 grid%communicator , & ! Comm
439 grid%iocommunicator , & ! Comm
440 grid%domdesc , & ! Comm
441 grid%bdy_mask , & ! bdy_mask
442 'XYZ' , & ! MemoryOrder
443 'Z' , & ! Stagger
444 'inc/wrf_restartin.inc ext_read_field G_WW memorder XYZ' , & ! Debug message
445 ids , (ide-1) , jds , (jde-1) , kds , kde , &
446 ims , ime , jms , jme , kms , kme , &
447 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
448 ierr )
449 END IF
450 END IF
451 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
452 CALL wrf_ext_read_field ( &
453 fid , & ! DataHandle
454 current_date(1:19) , & ! DateStr
455 'PH_1' , & ! Data Name
456 grid%em_ph_1 , & ! Field
457 WRF_FLOAT , & ! FieldType
458 grid%communicator , & ! Comm
459 grid%iocommunicator , & ! Comm
460 grid%domdesc , & ! Comm
461 grid%bdy_mask , & ! bdy_mask
462 'XYZ' , & ! MemoryOrder
463 'Z' , & ! Stagger
464 'inc/wrf_restartin.inc ext_read_field PH_1 memorder XYZ' , & ! Debug message
465 ids , (ide-1) , jds , (jde-1) , kds , kde , &
466 ims , ime , jms , jme , kms , kme , &
467 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
468 ierr )
469 END IF
470 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
471 CALL wrf_ext_read_field ( &
472 fid , & ! DataHandle
473 current_date(1:19) , & ! DateStr
474 'PH_2' , & ! Data Name
475 grid%em_ph_2 , & ! Field
476 WRF_FLOAT , & ! FieldType
477 grid%communicator , & ! Comm
478 grid%iocommunicator , & ! Comm
479 grid%domdesc , & ! Comm
480 grid%bdy_mask , & ! bdy_mask
481 'XYZ' , & ! MemoryOrder
482 'Z' , & ! Stagger
483 'inc/wrf_restartin.inc ext_read_field PH_2 memorder XYZ' , & ! Debug message
484 ids , (ide-1) , jds , (jde-1) , kds , kde , &
485 ims , ime , jms , jme , kms , kme , &
486 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
487 ierr )
488 END IF
489 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
490 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
491 CALL wrf_ext_read_field ( &
492 fid , & ! DataHandle
493 current_date(1:19) , & ! DateStr
494 'A_PH_1' , & ! Data Name
495 grid%em_a_ph_1 , & ! Field
496 WRF_FLOAT , & ! FieldType
497 grid%communicator , & ! Comm
498 grid%iocommunicator , & ! Comm
499 grid%domdesc , & ! Comm
500 grid%bdy_mask , & ! bdy_mask
501 'XYZ' , & ! MemoryOrder
502 'Z' , & ! Stagger
503 'inc/wrf_restartin.inc ext_read_field A_PH_1 memorder XYZ' , & ! Debug message
504 ids , (ide-1) , jds , (jde-1) , kds , kde , &
505 ims , ime , jms , jme , kms , kme , &
506 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
507 ierr )
508 END IF
509 END IF
510 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
511 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
512 CALL wrf_ext_read_field ( &
513 fid , & ! DataHandle
514 current_date(1:19) , & ! DateStr
515 'A_PH_2' , & ! Data Name
516 grid%em_a_ph_2 , & ! Field
517 WRF_FLOAT , & ! FieldType
518 grid%communicator , & ! Comm
519 grid%iocommunicator , & ! Comm
520 grid%domdesc , & ! Comm
521 grid%bdy_mask , & ! bdy_mask
522 'XYZ' , & ! MemoryOrder
523 'Z' , & ! Stagger
524 'inc/wrf_restartin.inc ext_read_field A_PH_2 memorder XYZ' , & ! Debug message
525 ids , (ide-1) , jds , (jde-1) , kds , kde , &
526 ims , ime , jms , jme , kms , kme , &
527 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
528 ierr )
529 END IF
530 END IF
531 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
532 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
533 CALL wrf_ext_read_field ( &
534 fid , & ! DataHandle
535 current_date(1:19) , & ! DateStr
536 'G_PH_1' , & ! Data Name
537 grid%em_g_ph_1 , & ! Field
538 WRF_FLOAT , & ! FieldType
539 grid%communicator , & ! Comm
540 grid%iocommunicator , & ! Comm
541 grid%domdesc , & ! Comm
542 grid%bdy_mask , & ! bdy_mask
543 'XYZ' , & ! MemoryOrder
544 'Z' , & ! Stagger
545 'inc/wrf_restartin.inc ext_read_field G_PH_1 memorder XYZ' , & ! Debug message
546 ids , (ide-1) , jds , (jde-1) , kds , kde , &
547 ims , ime , jms , jme , kms , kme , &
548 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
549 ierr )
550 END IF
551 END IF
552 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
553 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
554 CALL wrf_ext_read_field ( &
555 fid , & ! DataHandle
556 current_date(1:19) , & ! DateStr
557 'G_PH_2' , & ! Data Name
558 grid%em_g_ph_2 , & ! Field
559 WRF_FLOAT , & ! FieldType
560 grid%communicator , & ! Comm
561 grid%iocommunicator , & ! Comm
562 grid%domdesc , & ! Comm
563 grid%bdy_mask , & ! bdy_mask
564 'XYZ' , & ! MemoryOrder
565 'Z' , & ! Stagger
566 'inc/wrf_restartin.inc ext_read_field G_PH_2 memorder XYZ' , & ! Debug message
567 ids , (ide-1) , jds , (jde-1) , kds , kde , &
568 ims , ime , jms , jme , kms , kme , &
569 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
570 ierr )
571 END IF
572 END IF
573 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
574 CALL wrf_ext_read_field ( &
575 fid , & ! DataHandle
576 current_date(1:19) , & ! DateStr
577 'PHB' , & ! Data Name
578 grid%em_phb , & ! Field
579 WRF_FLOAT , & ! FieldType
580 grid%communicator , & ! Comm
581 grid%iocommunicator , & ! Comm
582 grid%domdesc , & ! Comm
583 grid%bdy_mask , & ! bdy_mask
584 'XYZ' , & ! MemoryOrder
585 'Z' , & ! Stagger
586 'inc/wrf_restartin.inc ext_read_field PHB memorder XYZ' , & ! Debug message
587 ids , (ide-1) , jds , (jde-1) , kds , kde , &
588 ims , ime , jms , jme , kms , kme , &
589 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
590 ierr )
591 END IF
592 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
593 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
594 CALL wrf_ext_read_field ( &
595 fid , & ! DataHandle
596 current_date(1:19) , & ! DateStr
597 'A_PHB' , & ! Data Name
598 grid%em_a_phb , & ! Field
599 WRF_FLOAT , & ! FieldType
600 grid%communicator , & ! Comm
601 grid%iocommunicator , & ! Comm
602 grid%domdesc , & ! Comm
603 grid%bdy_mask , & ! bdy_mask
604 'XYZ' , & ! MemoryOrder
605 'Z' , & ! Stagger
606 'inc/wrf_restartin.inc ext_read_field A_PHB memorder XYZ' , & ! Debug message
607 ids , (ide-1) , jds , (jde-1) , kds , kde , &
608 ims , ime , jms , jme , kms , kme , &
609 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
610 ierr )
611 END IF
612 END IF
613 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
614 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
615 CALL wrf_ext_read_field ( &
616 fid , & ! DataHandle
617 current_date(1:19) , & ! DateStr
618 'G_PHB' , & ! Data Name
619 grid%em_g_phb , & ! Field
620 WRF_FLOAT , & ! FieldType
621 grid%communicator , & ! Comm
622 grid%iocommunicator , & ! Comm
623 grid%domdesc , & ! Comm
624 grid%bdy_mask , & ! bdy_mask
625 'XYZ' , & ! MemoryOrder
626 'Z' , & ! Stagger
627 'inc/wrf_restartin.inc ext_read_field G_PHB memorder XYZ' , & ! Debug message
628 ids , (ide-1) , jds , (jde-1) , kds , kde , &
629 ims , ime , jms , jme , kms , kme , &
630 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
631 ierr )
632 END IF
633 END IF
634 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
635 CALL wrf_ext_read_field ( &
636 fid , & ! DataHandle
637 current_date(1:19) , & ! DateStr
638 'PH0' , & ! Data Name
639 grid%em_ph0 , & ! Field
640 WRF_FLOAT , & ! FieldType
641 grid%communicator , & ! Comm
642 grid%iocommunicator , & ! Comm
643 grid%domdesc , & ! Comm
644 grid%bdy_mask , & ! bdy_mask
645 'XYZ' , & ! MemoryOrder
646 'Z' , & ! Stagger
647 'inc/wrf_restartin.inc ext_read_field PH0 memorder XYZ' , & ! Debug message
648 ids , (ide-1) , jds , (jde-1) , kds , kde , &
649 ims , ime , jms , jme , kms , kme , &
650 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
651 ierr )
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 'PHP' , & ! Data Name
658 grid%em_php , & ! Field
659 WRF_FLOAT , & ! FieldType
660 grid%communicator , & ! Comm
661 grid%iocommunicator , & ! Comm
662 grid%domdesc , & ! Comm
663 grid%bdy_mask , & ! bdy_mask
664 'XYZ' , & ! MemoryOrder
665 'Z' , & ! Stagger
666 'inc/wrf_restartin.inc ext_read_field PHP memorder XYZ' , & ! Debug message
667 ids , (ide-1) , jds , (jde-1) , kds , kde , &
668 ims , ime , jms , jme , kms , kme , &
669 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
670 ierr )
671 END IF
672 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
673 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
674 CALL wrf_ext_read_field ( &
675 fid , & ! DataHandle
676 current_date(1:19) , & ! DateStr
677 'A_PHP' , & ! Data Name
678 grid%em_a_php , & ! Field
679 WRF_FLOAT , & ! FieldType
680 grid%communicator , & ! Comm
681 grid%iocommunicator , & ! Comm
682 grid%domdesc , & ! Comm
683 grid%bdy_mask , & ! bdy_mask
684 'XYZ' , & ! MemoryOrder
685 'Z' , & ! Stagger
686 'inc/wrf_restartin.inc ext_read_field A_PHP memorder XYZ' , & ! Debug message
687 ids , (ide-1) , jds , (jde-1) , kds , kde , &
688 ims , ime , jms , jme , kms , kme , &
689 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
690 ierr )
691 END IF
692 END IF
693 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
694 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
695 CALL wrf_ext_read_field ( &
696 fid , & ! DataHandle
697 current_date(1:19) , & ! DateStr
698 'G_PHP' , & ! Data Name
699 grid%em_g_php , & ! Field
700 WRF_FLOAT , & ! FieldType
701 grid%communicator , & ! Comm
702 grid%iocommunicator , & ! Comm
703 grid%domdesc , & ! Comm
704 grid%bdy_mask , & ! bdy_mask
705 'XYZ' , & ! MemoryOrder
706 'Z' , & ! Stagger
707 'inc/wrf_restartin.inc ext_read_field G_PHP memorder XYZ' , & ! Debug message
708 ids , (ide-1) , jds , (jde-1) , kds , kde , &
709 ims , ime , jms , jme , kms , kme , &
710 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
711 ierr )
712 END IF
713 END IF
714 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
715 CALL wrf_ext_read_field ( &
716 fid , & ! DataHandle
717 current_date(1:19) , & ! DateStr
718 'T_1' , & ! Data Name
719 grid%em_t_1 , & ! Field
720 WRF_FLOAT , & ! FieldType
721 grid%communicator , & ! Comm
722 grid%iocommunicator , & ! Comm
723 grid%domdesc , & ! Comm
724 grid%bdy_mask , & ! bdy_mask
725 'XYZ' , & ! MemoryOrder
726 '' , & ! Stagger
727 'inc/wrf_restartin.inc ext_read_field T_1 memorder XYZ' , & ! Debug message
728 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
729 ims , ime , jms , jme , kms , kme , &
730 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
731 ierr )
732 END IF
733 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
734 CALL wrf_ext_read_field ( &
735 fid , & ! DataHandle
736 current_date(1:19) , & ! DateStr
737 'T_2' , & ! Data Name
738 grid%em_t_2 , & ! Field
739 WRF_FLOAT , & ! FieldType
740 grid%communicator , & ! Comm
741 grid%iocommunicator , & ! Comm
742 grid%domdesc , & ! Comm
743 grid%bdy_mask , & ! bdy_mask
744 'XYZ' , & ! MemoryOrder
745 '' , & ! Stagger
746 'inc/wrf_restartin.inc ext_read_field T_2 memorder XYZ' , & ! Debug message
747 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
748 ims , ime , jms , jme , kms , kme , &
749 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
750 ierr )
751 END IF
752 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
753 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
754 CALL wrf_ext_read_field ( &
755 fid , & ! DataHandle
756 current_date(1:19) , & ! DateStr
757 'A_T_1' , & ! Data Name
758 grid%em_a_t_1 , & ! Field
759 WRF_FLOAT , & ! FieldType
760 grid%communicator , & ! Comm
761 grid%iocommunicator , & ! Comm
762 grid%domdesc , & ! Comm
763 grid%bdy_mask , & ! bdy_mask
764 'XYZ' , & ! MemoryOrder
765 '' , & ! Stagger
766 'inc/wrf_restartin.inc ext_read_field A_T_1 memorder XYZ' , & ! Debug message
767 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
768 ims , ime , jms , jme , kms , kme , &
769 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
770 ierr )
771 END IF
772 END IF
773 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
774 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
775 CALL wrf_ext_read_field ( &
776 fid , & ! DataHandle
777 current_date(1:19) , & ! DateStr
778 'A_T_2' , & ! Data Name
779 grid%em_a_t_2 , & ! Field
780 WRF_FLOAT , & ! FieldType
781 grid%communicator , & ! Comm
782 grid%iocommunicator , & ! Comm
783 grid%domdesc , & ! Comm
784 grid%bdy_mask , & ! bdy_mask
785 'XYZ' , & ! MemoryOrder
786 '' , & ! Stagger
787 'inc/wrf_restartin.inc ext_read_field A_T_2 memorder XYZ' , & ! Debug message
788 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
789 ims , ime , jms , jme , kms , kme , &
790 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
791 ierr )
792 END IF
793 END IF
794 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
795 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
796 CALL wrf_ext_read_field ( &
797 fid , & ! DataHandle
798 current_date(1:19) , & ! DateStr
799 'G_T_1' , & ! Data Name
800 grid%em_g_t_1 , & ! Field
801 WRF_FLOAT , & ! FieldType
802 grid%communicator , & ! Comm
803 grid%iocommunicator , & ! Comm
804 grid%domdesc , & ! Comm
805 grid%bdy_mask , & ! bdy_mask
806 'XYZ' , & ! MemoryOrder
807 '' , & ! Stagger
808 'inc/wrf_restartin.inc ext_read_field G_T_1 memorder XYZ' , & ! Debug message
809 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
810 ims , ime , jms , jme , kms , kme , &
811 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
812 ierr )
813 END IF
814 END IF
815 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
816 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
817 CALL wrf_ext_read_field ( &
818 fid , & ! DataHandle
819 current_date(1:19) , & ! DateStr
820 'G_T_2' , & ! Data Name
821 grid%em_g_t_2 , & ! Field
822 WRF_FLOAT , & ! FieldType
823 grid%communicator , & ! Comm
824 grid%iocommunicator , & ! Comm
825 grid%domdesc , & ! Comm
826 grid%bdy_mask , & ! bdy_mask
827 'XYZ' , & ! MemoryOrder
828 '' , & ! Stagger
829 'inc/wrf_restartin.inc ext_read_field G_T_2 memorder XYZ' , & ! Debug message
830 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
831 ims , ime , jms , jme , kms , kme , &
832 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
833 ierr )
834 END IF
835 END IF
836 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
837 CALL wrf_ext_read_field ( &
838 fid , & ! DataHandle
839 current_date(1:19) , & ! DateStr
840 'T_INIT' , & ! Data Name
841 grid%em_t_init , & ! Field
842 WRF_FLOAT , & ! FieldType
843 grid%communicator , & ! Comm
844 grid%iocommunicator , & ! Comm
845 grid%domdesc , & ! Comm
846 grid%bdy_mask , & ! bdy_mask
847 'XYZ' , & ! MemoryOrder
848 '' , & ! Stagger
849 'inc/wrf_restartin.inc ext_read_field T_INIT memorder XYZ' , & ! Debug message
850 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
851 ims , ime , jms , jme , kms , kme , &
852 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
853 ierr )
854 END IF
855 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
856 CALL wrf_ext_read_field ( &
857 fid , & ! DataHandle
858 current_date(1:19) , & ! DateStr
859 'MU_1' , & ! Data Name
860 grid%em_mu_1 , & ! Field
861 WRF_FLOAT , & ! FieldType
862 grid%communicator , & ! Comm
863 grid%iocommunicator , & ! Comm
864 grid%domdesc , & ! Comm
865 grid%bdy_mask , & ! bdy_mask
866 'XY' , & ! MemoryOrder
867 '' , & ! Stagger
868 'inc/wrf_restartin.inc ext_read_field MU_1 memorder XY' , & ! Debug message
869 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
870 ims , ime , jms , jme , 1 , 1 , &
871 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
872 ierr )
873 END IF
874 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
875 CALL wrf_ext_read_field ( &
876 fid , & ! DataHandle
877 current_date(1:19) , & ! DateStr
878 'MU_2' , & ! Data Name
879 grid%em_mu_2 , & ! Field
880 WRF_FLOAT , & ! FieldType
881 grid%communicator , & ! Comm
882 grid%iocommunicator , & ! Comm
883 grid%domdesc , & ! Comm
884 grid%bdy_mask , & ! bdy_mask
885 'XY' , & ! MemoryOrder
886 '' , & ! Stagger
887 'inc/wrf_restartin.inc ext_read_field MU_2 memorder XY' , & ! Debug message
888 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
889 ims , ime , jms , jme , 1 , 1 , &
890 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
891 ierr )
892 END IF
893 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
894 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
895 CALL wrf_ext_read_field ( &
896 fid , & ! DataHandle
897 current_date(1:19) , & ! DateStr
898 'A_MU_1' , & ! Data Name
899 grid%em_a_mu_1 , & ! Field
900 WRF_FLOAT , & ! FieldType
901 grid%communicator , & ! Comm
902 grid%iocommunicator , & ! Comm
903 grid%domdesc , & ! Comm
904 grid%bdy_mask , & ! bdy_mask
905 'XY' , & ! MemoryOrder
906 '' , & ! Stagger
907 'inc/wrf_restartin.inc ext_read_field A_MU_1 memorder XY' , & ! Debug message
908 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
909 ims , ime , jms , jme , 1 , 1 , &
910 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
911 ierr )
912 END IF
913 END IF
914 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
915 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
916 CALL wrf_ext_read_field ( &
917 fid , & ! DataHandle
918 current_date(1:19) , & ! DateStr
919 'A_MU_2' , & ! Data Name
920 grid%em_a_mu_2 , & ! Field
921 WRF_FLOAT , & ! FieldType
922 grid%communicator , & ! Comm
923 grid%iocommunicator , & ! Comm
924 grid%domdesc , & ! Comm
925 grid%bdy_mask , & ! bdy_mask
926 'XY' , & ! MemoryOrder
927 '' , & ! Stagger
928 'inc/wrf_restartin.inc ext_read_field A_MU_2 memorder XY' , & ! Debug message
929 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
930 ims , ime , jms , jme , 1 , 1 , &
931 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
932 ierr )
933 END IF
934 END IF
935 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
936 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
937 CALL wrf_ext_read_field ( &
938 fid , & ! DataHandle
939 current_date(1:19) , & ! DateStr
940 'G_MU_1' , & ! Data Name
941 grid%em_g_mu_1 , & ! Field
942 WRF_FLOAT , & ! FieldType
943 grid%communicator , & ! Comm
944 grid%iocommunicator , & ! Comm
945 grid%domdesc , & ! Comm
946 grid%bdy_mask , & ! bdy_mask
947 'XY' , & ! MemoryOrder
948 '' , & ! Stagger
949 'inc/wrf_restartin.inc ext_read_field G_MU_1 memorder XY' , & ! Debug message
950 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
951 ims , ime , jms , jme , 1 , 1 , &
952 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
953 ierr )
954 END IF
955 END IF
956 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
957 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
958 CALL wrf_ext_read_field ( &
959 fid , & ! DataHandle
960 current_date(1:19) , & ! DateStr
961 'G_MU_2' , & ! Data Name
962 grid%em_g_mu_2 , & ! Field
963 WRF_FLOAT , & ! FieldType
964 grid%communicator , & ! Comm
965 grid%iocommunicator , & ! Comm
966 grid%domdesc , & ! Comm
967 grid%bdy_mask , & ! bdy_mask
968 'XY' , & ! MemoryOrder
969 '' , & ! Stagger
970 'inc/wrf_restartin.inc ext_read_field G_MU_2 memorder XY' , & ! Debug message
971 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
972 ims , ime , jms , jme , 1 , 1 , &
973 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
974 ierr )
975 END IF
976 END IF
977 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
978 CALL wrf_ext_read_field ( &
979 fid , & ! DataHandle
980 current_date(1:19) , & ! DateStr
981 'MUB' , & ! Data Name
982 grid%em_mub , & ! Field
983 WRF_FLOAT , & ! FieldType
984 grid%communicator , & ! Comm
985 grid%iocommunicator , & ! Comm
986 grid%domdesc , & ! Comm
987 grid%bdy_mask , & ! bdy_mask
988 'XY' , & ! MemoryOrder
989 '' , & ! Stagger
990 'inc/wrf_restartin.inc ext_read_field MUB memorder XY' , & ! Debug message
991 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
992 ims , ime , jms , jme , 1 , 1 , &
993 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
994 ierr )
995 END IF
996 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
997 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
998 CALL wrf_ext_read_field ( &
999 fid , & ! DataHandle
1000 current_date(1:19) , & ! DateStr
1001 'A_MUB' , & ! Data Name
1002 grid%em_a_mub , & ! Field
1003 WRF_FLOAT , & ! FieldType
1004 grid%communicator , & ! Comm
1005 grid%iocommunicator , & ! Comm
1006 grid%domdesc , & ! Comm
1007 grid%bdy_mask , & ! bdy_mask
1008 'XY' , & ! MemoryOrder
1009 '' , & ! Stagger
1010 'inc/wrf_restartin.inc ext_read_field A_MUB memorder XY' , & ! Debug message
1011 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1012 ims , ime , jms , jme , 1 , 1 , &
1013 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1014 ierr )
1015 END IF
1016 END IF
1017 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1018 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1019 CALL wrf_ext_read_field ( &
1020 fid , & ! DataHandle
1021 current_date(1:19) , & ! DateStr
1022 'G_MUB' , & ! Data Name
1023 grid%em_g_mub , & ! Field
1024 WRF_FLOAT , & ! FieldType
1025 grid%communicator , & ! Comm
1026 grid%iocommunicator , & ! Comm
1027 grid%domdesc , & ! Comm
1028 grid%bdy_mask , & ! bdy_mask
1029 'XY' , & ! MemoryOrder
1030 '' , & ! Stagger
1031 'inc/wrf_restartin.inc ext_read_field G_MUB memorder XY' , & ! Debug message
1032 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1033 ims , ime , jms , jme , 1 , 1 , &
1034 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1035 ierr )
1036 END IF
1037 END IF
1038 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1039 CALL wrf_ext_read_field ( &
1040 fid , & ! DataHandle
1041 current_date(1:19) , & ! DateStr
1042 'MU0' , & ! Data Name
1043 grid%em_mu0 , & ! Field
1044 WRF_FLOAT , & ! FieldType
1045 grid%communicator , & ! Comm
1046 grid%iocommunicator , & ! Comm
1047 grid%domdesc , & ! Comm
1048 grid%bdy_mask , & ! bdy_mask
1049 'XY' , & ! MemoryOrder
1050 '' , & ! Stagger
1051 'inc/wrf_restartin.inc ext_read_field MU0 memorder XY' , & ! Debug message
1052 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1053 ims , ime , jms , jme , 1 , 1 , &
1054 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1055 ierr )
1056 END IF
1057 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1058 CALL wrf_ext_read_field ( &
1059 fid , & ! DataHandle
1060 current_date(1:19) , & ! DateStr
1061 'TKE_1' , & ! Data Name
1062 grid%em_tke_1 , & ! Field
1063 WRF_FLOAT , & ! FieldType
1064 grid%communicator , & ! Comm
1065 grid%iocommunicator , & ! Comm
1066 grid%domdesc , & ! Comm
1067 grid%bdy_mask , & ! bdy_mask
1068 'XYZ' , & ! MemoryOrder
1069 '' , & ! Stagger
1070 'inc/wrf_restartin.inc ext_read_field TKE_1 memorder XYZ' , & ! Debug message
1071 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1072 ims , ime , jms , jme , kms , kme , &
1073 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1074 ierr )
1075 END IF
1076 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1077 CALL wrf_ext_read_field ( &
1078 fid , & ! DataHandle
1079 current_date(1:19) , & ! DateStr
1080 'TKE_2' , & ! Data Name
1081 grid%em_tke_2 , & ! Field
1082 WRF_FLOAT , & ! FieldType
1083 grid%communicator , & ! Comm
1084 grid%iocommunicator , & ! Comm
1085 grid%domdesc , & ! Comm
1086 grid%bdy_mask , & ! bdy_mask
1087 'XYZ' , & ! MemoryOrder
1088 '' , & ! Stagger
1089 'inc/wrf_restartin.inc ext_read_field TKE_2 memorder XYZ' , & ! Debug message
1090 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1091 ims , ime , jms , jme , kms , kme , &
1092 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1093 ierr )
1094 END IF
1095 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1096 CALL wrf_ext_read_field ( &
1097 fid , & ! DataHandle
1098 current_date(1:19) , & ! DateStr
1099 'P' , & ! Data Name
1100 grid%em_p , & ! Field
1101 WRF_FLOAT , & ! FieldType
1102 grid%communicator , & ! Comm
1103 grid%iocommunicator , & ! Comm
1104 grid%domdesc , & ! Comm
1105 grid%bdy_mask , & ! bdy_mask
1106 'XYZ' , & ! MemoryOrder
1107 '' , & ! Stagger
1108 'inc/wrf_restartin.inc ext_read_field P memorder XYZ' , & ! Debug message
1109 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1110 ims , ime , jms , jme , kms , kme , &
1111 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1112 ierr )
1113 END IF
1114 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1115 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1116 CALL wrf_ext_read_field ( &
1117 fid , & ! DataHandle
1118 current_date(1:19) , & ! DateStr
1119 'A_P' , & ! Data Name
1120 grid%em_a_p , & ! Field
1121 WRF_FLOAT , & ! FieldType
1122 grid%communicator , & ! Comm
1123 grid%iocommunicator , & ! Comm
1124 grid%domdesc , & ! Comm
1125 grid%bdy_mask , & ! bdy_mask
1126 'XYZ' , & ! MemoryOrder
1127 '' , & ! Stagger
1128 'inc/wrf_restartin.inc ext_read_field A_P memorder XYZ' , & ! Debug message
1129 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1130 ims , ime , jms , jme , kms , kme , &
1131 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1132 ierr )
1133 END IF
1134 END IF
1135 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1136 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1137 CALL wrf_ext_read_field ( &
1138 fid , & ! DataHandle
1139 current_date(1:19) , & ! DateStr
1140 'G_P' , & ! Data Name
1141 grid%em_g_p , & ! Field
1142 WRF_FLOAT , & ! FieldType
1143 grid%communicator , & ! Comm
1144 grid%iocommunicator , & ! Comm
1145 grid%domdesc , & ! Comm
1146 grid%bdy_mask , & ! bdy_mask
1147 'XYZ' , & ! MemoryOrder
1148 '' , & ! Stagger
1149 'inc/wrf_restartin.inc ext_read_field G_P memorder XYZ' , & ! Debug message
1150 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1151 ims , ime , jms , jme , kms , kme , &
1152 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1153 ierr )
1154 END IF
1155 END IF
1156 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1157 CALL wrf_ext_read_field ( &
1158 fid , & ! DataHandle
1159 current_date(1:19) , & ! DateStr
1160 'AL' , & ! Data Name
1161 grid%em_al , & ! Field
1162 WRF_FLOAT , & ! FieldType
1163 grid%communicator , & ! Comm
1164 grid%iocommunicator , & ! Comm
1165 grid%domdesc , & ! Comm
1166 grid%bdy_mask , & ! bdy_mask
1167 'XYZ' , & ! MemoryOrder
1168 '' , & ! Stagger
1169 'inc/wrf_restartin.inc ext_read_field AL memorder XYZ' , & ! Debug message
1170 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1171 ims , ime , jms , jme , kms , kme , &
1172 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1173 ierr )
1174 END IF
1175 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1176 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1177 CALL wrf_ext_read_field ( &
1178 fid , & ! DataHandle
1179 current_date(1:19) , & ! DateStr
1180 'A_AL' , & ! Data Name
1181 grid%em_a_al , & ! Field
1182 WRF_FLOAT , & ! FieldType
1183 grid%communicator , & ! Comm
1184 grid%iocommunicator , & ! Comm
1185 grid%domdesc , & ! Comm
1186 grid%bdy_mask , & ! bdy_mask
1187 'XYZ' , & ! MemoryOrder
1188 '' , & ! Stagger
1189 'inc/wrf_restartin.inc ext_read_field A_AL memorder XYZ' , & ! Debug message
1190 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1191 ims , ime , jms , jme , kms , kme , &
1192 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1193 ierr )
1194 END IF
1195 END IF
1196 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1197 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1198 CALL wrf_ext_read_field ( &
1199 fid , & ! DataHandle
1200 current_date(1:19) , & ! DateStr
1201 'G_AL' , & ! Data Name
1202 grid%em_g_al , & ! Field
1203 WRF_FLOAT , & ! FieldType
1204 grid%communicator , & ! Comm
1205 grid%iocommunicator , & ! Comm
1206 grid%domdesc , & ! Comm
1207 grid%bdy_mask , & ! bdy_mask
1208 'XYZ' , & ! MemoryOrder
1209 '' , & ! Stagger
1210 'inc/wrf_restartin.inc ext_read_field G_AL memorder XYZ' , & ! Debug message
1211 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1212 ims , ime , jms , jme , kms , kme , &
1213 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1214 ierr )
1215 END IF
1216 END IF
1217 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1218 CALL wrf_ext_read_field ( &
1219 fid , & ! DataHandle
1220 current_date(1:19) , & ! DateStr
1221 'ALT' , & ! Data Name
1222 grid%em_alt , & ! Field
1223 WRF_FLOAT , & ! FieldType
1224 grid%communicator , & ! Comm
1225 grid%iocommunicator , & ! Comm
1226 grid%domdesc , & ! Comm
1227 grid%bdy_mask , & ! bdy_mask
1228 'XYZ' , & ! MemoryOrder
1229 '' , & ! Stagger
1230 'inc/wrf_restartin.inc ext_read_field ALT memorder XYZ' , & ! Debug message
1231 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1232 ims , ime , jms , jme , kms , kme , &
1233 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1234 ierr )
1235 END IF
1236 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1237 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
1238 CALL wrf_ext_read_field ( &
1239 fid , & ! DataHandle
1240 current_date(1:19) , & ! DateStr
1241 'A_ALT' , & ! Data Name
1242 grid%em_a_alt , & ! Field
1243 WRF_FLOAT , & ! FieldType
1244 grid%communicator , & ! Comm
1245 grid%iocommunicator , & ! Comm
1246 grid%domdesc , & ! Comm
1247 grid%bdy_mask , & ! bdy_mask
1248 'XYZ' , & ! MemoryOrder
1249 '' , & ! Stagger
1250 'inc/wrf_restartin.inc ext_read_field A_ALT memorder XYZ' , & ! Debug message
1251 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1252 ims , ime , jms , jme , kms , kme , &
1253 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1254 ierr )
1255 END IF
1256 END IF
1257 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1258 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
1259 CALL wrf_ext_read_field ( &
1260 fid , & ! DataHandle
1261 current_date(1:19) , & ! DateStr
1262 'G_ALT' , & ! Data Name
1263 grid%em_g_alt , & ! Field
1264 WRF_FLOAT , & ! FieldType
1265 grid%communicator , & ! Comm
1266 grid%iocommunicator , & ! Comm
1267 grid%domdesc , & ! Comm
1268 grid%bdy_mask , & ! bdy_mask
1269 'XYZ' , & ! MemoryOrder
1270 '' , & ! Stagger
1271 'inc/wrf_restartin.inc ext_read_field G_ALT memorder XYZ' , & ! Debug message
1272 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1273 ims , ime , jms , jme , kms , kme , &
1274 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1275 ierr )
1276 END IF
1277 END IF
1278 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1279 CALL wrf_ext_read_field ( &
1280 fid , & ! DataHandle
1281 current_date(1:19) , & ! DateStr
1282 'ALB' , & ! Data Name
1283 grid%em_alb , & ! Field
1284 WRF_FLOAT , & ! FieldType
1285 grid%communicator , & ! Comm
1286 grid%iocommunicator , & ! Comm
1287 grid%domdesc , & ! Comm
1288 grid%bdy_mask , & ! bdy_mask
1289 'XYZ' , & ! MemoryOrder
1290 '' , & ! Stagger
1291 'inc/wrf_restartin.inc ext_read_field ALB memorder XYZ' , & ! Debug message
1292 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1293 ims , ime , jms , jme , kms , kme , &
1294 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1295 ierr )
1296 END IF
1297 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1298 CALL wrf_ext_read_field ( &
1299 fid , & ! DataHandle
1300 current_date(1:19) , & ! DateStr
1301 'PB' , & ! Data Name
1302 grid%em_pb , & ! Field
1303 WRF_FLOAT , & ! FieldType
1304 grid%communicator , & ! Comm
1305 grid%iocommunicator , & ! Comm
1306 grid%domdesc , & ! Comm
1307 grid%bdy_mask , & ! bdy_mask
1308 'XYZ' , & ! MemoryOrder
1309 '' , & ! Stagger
1310 'inc/wrf_restartin.inc ext_read_field PB memorder XYZ' , & ! Debug message
1311 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
1312 ims , ime , jms , jme , kms , kme , &
1313 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
1314 ierr )
1315 END IF
1316 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1317 CALL wrf_ext_read_field ( &
1318 fid , & ! DataHandle
1319 current_date(1:19) , & ! DateStr
1320 'SR' , & ! Data Name
1321 grid%em_sr , & ! Field
1322 WRF_FLOAT , & ! FieldType
1323 grid%communicator , & ! Comm
1324 grid%iocommunicator , & ! Comm
1325 grid%domdesc , & ! Comm
1326 grid%bdy_mask , & ! bdy_mask
1327 'XY' , & ! MemoryOrder
1328 '' , & ! Stagger
1329 'inc/wrf_restartin.inc ext_read_field SR memorder XY' , & ! Debug message
1330 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1331 ims , ime , jms , jme , 1 , 1 , &
1332 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1333 ierr )
1334 END IF
1335 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1336 CALL wrf_ext_read_field ( &
1337 fid , & ! DataHandle
1338 current_date(1:19) , & ! DateStr
1339 'FNM' , & ! Data Name
1340 grid%em_fnm , & ! Field
1341 WRF_FLOAT , & ! FieldType
1342 grid%communicator , & ! Comm
1343 grid%iocommunicator , & ! Comm
1344 grid%domdesc , & ! Comm
1345 grid%bdy_mask , & ! bdy_mask
1346 'Z' , & ! MemoryOrder
1347 '' , & ! Stagger
1348 'inc/wrf_restartin.inc ext_read_field FNM memorder Z' , & ! Debug message
1349 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1350 kms , kme , 1 , 1 , 1 , 1 , &
1351 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1352 ierr )
1353 END IF
1354 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1355 CALL wrf_ext_read_field ( &
1356 fid , & ! DataHandle
1357 current_date(1:19) , & ! DateStr
1358 'FNP' , & ! Data Name
1359 grid%em_fnp , & ! Field
1360 WRF_FLOAT , & ! FieldType
1361 grid%communicator , & ! Comm
1362 grid%iocommunicator , & ! Comm
1363 grid%domdesc , & ! Comm
1364 grid%bdy_mask , & ! bdy_mask
1365 'Z' , & ! MemoryOrder
1366 '' , & ! Stagger
1367 'inc/wrf_restartin.inc ext_read_field FNP memorder Z' , & ! Debug message
1368 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1369 kms , kme , 1 , 1 , 1 , 1 , &
1370 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1371 ierr )
1372 END IF
1373 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1374 CALL wrf_ext_read_field ( &
1375 fid , & ! DataHandle
1376 current_date(1:19) , & ! DateStr
1377 'RDNW' , & ! Data Name
1378 grid%em_rdnw , & ! Field
1379 WRF_FLOAT , & ! FieldType
1380 grid%communicator , & ! Comm
1381 grid%iocommunicator , & ! Comm
1382 grid%domdesc , & ! Comm
1383 grid%bdy_mask , & ! bdy_mask
1384 'Z' , & ! MemoryOrder
1385 '' , & ! Stagger
1386 'inc/wrf_restartin.inc ext_read_field RDNW memorder Z' , & ! Debug message
1387 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1388 kms , kme , 1 , 1 , 1 , 1 , &
1389 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1390 ierr )
1391 END IF
1392 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1393 CALL wrf_ext_read_field ( &
1394 fid , & ! DataHandle
1395 current_date(1:19) , & ! DateStr
1396 'RDN' , & ! Data Name
1397 grid%em_rdn , & ! Field
1398 WRF_FLOAT , & ! FieldType
1399 grid%communicator , & ! Comm
1400 grid%iocommunicator , & ! Comm
1401 grid%domdesc , & ! Comm
1402 grid%bdy_mask , & ! bdy_mask
1403 'Z' , & ! MemoryOrder
1404 '' , & ! Stagger
1405 'inc/wrf_restartin.inc ext_read_field RDN memorder Z' , & ! Debug message
1406 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1407 kms , kme , 1 , 1 , 1 , 1 , &
1408 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1409 ierr )
1410 END IF
1411 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1412 CALL wrf_ext_read_field ( &
1413 fid , & ! DataHandle
1414 current_date(1:19) , & ! DateStr
1415 'DNW' , & ! Data Name
1416 grid%em_dnw , & ! Field
1417 WRF_FLOAT , & ! FieldType
1418 grid%communicator , & ! Comm
1419 grid%iocommunicator , & ! Comm
1420 grid%domdesc , & ! Comm
1421 grid%bdy_mask , & ! bdy_mask
1422 'Z' , & ! MemoryOrder
1423 '' , & ! Stagger
1424 'inc/wrf_restartin.inc ext_read_field DNW memorder Z' , & ! Debug message
1425 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1426 kms , kme , 1 , 1 , 1 , 1 , &
1427 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1428 ierr )
1429 END IF
1430 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1431 CALL wrf_ext_read_field ( &
1432 fid , & ! DataHandle
1433 current_date(1:19) , & ! DateStr
1434 'DN ' , & ! Data Name
1435 grid%em_dn , & ! Field
1436 WRF_FLOAT , & ! FieldType
1437 grid%communicator , & ! Comm
1438 grid%iocommunicator , & ! Comm
1439 grid%domdesc , & ! Comm
1440 grid%bdy_mask , & ! bdy_mask
1441 'Z' , & ! MemoryOrder
1442 '' , & ! Stagger
1443 'inc/wrf_restartin.inc ext_read_field DN memorder Z' , & ! Debug message
1444 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1445 kms , kme , 1 , 1 , 1 , 1 , &
1446 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1447 ierr )
1448 END IF
1449 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1450 CALL wrf_ext_read_field ( &
1451 fid , & ! DataHandle
1452 current_date(1:19) , & ! DateStr
1453 'ZNU' , & ! Data Name
1454 grid%em_znu , & ! Field
1455 WRF_FLOAT , & ! FieldType
1456 grid%communicator , & ! Comm
1457 grid%iocommunicator , & ! Comm
1458 grid%domdesc , & ! Comm
1459 grid%bdy_mask , & ! bdy_mask
1460 'Z' , & ! MemoryOrder
1461 '' , & ! Stagger
1462 'inc/wrf_restartin.inc ext_read_field ZNU memorder Z' , & ! Debug message
1463 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1464 kms , kme , 1 , 1 , 1 , 1 , &
1465 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1466 ierr )
1467 END IF
1468 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1469 CALL wrf_ext_read_field ( &
1470 fid , & ! DataHandle
1471 current_date(1:19) , & ! DateStr
1472 'ZNW' , & ! Data Name
1473 grid%em_znw , & ! Field
1474 WRF_FLOAT , & ! FieldType
1475 grid%communicator , & ! Comm
1476 grid%iocommunicator , & ! Comm
1477 grid%domdesc , & ! Comm
1478 grid%bdy_mask , & ! bdy_mask
1479 'Z' , & ! MemoryOrder
1480 'Z' , & ! Stagger
1481 'inc/wrf_restartin.inc ext_read_field ZNW memorder Z' , & ! Debug message
1482 kds , kde , 1 , 1 , 1 , 1 , &
1483 kms , kme , 1 , 1 , 1 , 1 , &
1484 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
1485 ierr )
1486 END IF
1487 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
1488 CALL wrf_ext_read_field ( &
1489 fid , & ! DataHandle
1490 current_date(1:19) , & ! DateStr
1491 'T_BASE' , & ! Data Name
1492 grid%em_t_base , & ! Field
1493 WRF_FLOAT , & ! FieldType
1494 grid%communicator , & ! Comm
1495 grid%iocommunicator , & ! Comm
1496 grid%domdesc , & ! Comm
1497 grid%bdy_mask , & ! bdy_mask
1498 'Z' , & ! MemoryOrder
1499 '' , & ! Stagger
1500 'inc/wrf_restartin.inc ext_read_field T_BASE memorder Z' , & ! Debug message
1501 kds , (kde-1) , 1 , 1 , 1 , 1 , &
1502 kms , kme , 1 , 1 , 1 , 1 , &
1503 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
1504 ierr )
1505 END IF
1506 CALL wrf_ext_read_field ( &
1507 fid , & ! DataHandle
1508 current_date(1:19) , & ! DateStr
1509 'CFN' , & ! Data Name
1510 grid%cfn , & ! Field
1511 WRF_FLOAT , & ! FieldType
1512 grid%communicator , & ! Comm
1513 grid%iocommunicator , & ! Comm
1514 grid%domdesc , & ! Comm
1515 grid%bdy_mask , & ! bdy_mask
1516 '0' , & ! MemoryOrder
1517 '' , & ! Stagger
1518 'inc/wrf_restartin.inc ext_read_field CFN memorder 0' , & ! Debug message
1519 1 , 1 , 1 , 1 , 1 , 1 , &
1520 1 , 1 , 1 , 1 , 1 , 1 , &
1521 1 , 1 , 1 , 1 , 1 , 1 , &
1522 ierr )
1523 CALL wrf_ext_read_field ( &
1524 fid , & ! DataHandle
1525 current_date(1:19) , & ! DateStr
1526 'CFN1' , & ! Data Name
1527 grid%cfn1 , & ! Field
1528 WRF_FLOAT , & ! FieldType
1529 grid%communicator , & ! Comm
1530 grid%iocommunicator , & ! Comm
1531 grid%domdesc , & ! Comm
1532 grid%bdy_mask , & ! bdy_mask
1533 '0' , & ! MemoryOrder
1534 '' , & ! Stagger
1535 'inc/wrf_restartin.inc ext_read_field CFN1 memorder 0' , & ! Debug message
1536 1 , 1 , 1 , 1 , 1 , 1 , &
1537 1 , 1 , 1 , 1 , 1 , 1 , &
1538 1 , 1 , 1 , 1 , 1 , 1 , &
1539 ierr )
1540 CALL wrf_ext_read_field ( &
1541 fid , & ! DataHandle
1542 current_date(1:19) , & ! DateStr
1543 'STEP_NUMBER' , & ! Data Name
1544 grid%step_number , & ! Field
1545 WRF_integer , & ! FieldType
1546 grid%communicator , & ! Comm
1547 grid%iocommunicator , & ! Comm
1548 grid%domdesc , & ! Comm
1549 grid%bdy_mask , & ! bdy_mask
1550 '0' , & ! MemoryOrder
1551 '' , & ! Stagger
1552 'inc/wrf_restartin.inc ext_read_field STEP_NUMBER memorder 0' , & ! Debug message
1553 1 , 1 , 1 , 1 , 1 , 1 , &
1554 1 , 1 , 1 , 1 , 1 , 1 , &
1555 1 , 1 , 1 , 1 , 1 , 1 , &
1556 ierr )
1557 CALL wrf_ext_read_field ( &
1558 fid , & ! DataHandle
1559 current_date(1:19) , & ! DateStr
1560 'A' , & ! Data Name
1561 grid%kma_a , & ! Field
1562 WRF_FLOAT , & ! FieldType
1563 grid%communicator , & ! Comm
1564 grid%iocommunicator , & ! Comm
1565 grid%domdesc , & ! Comm
1566 grid%bdy_mask , & ! bdy_mask
1567 'Z' , & ! MemoryOrder
1568 'Z' , & ! Stagger
1569 'inc/wrf_restartin.inc ext_read_field A memorder Z' , & ! Debug message
1570 kds , kde , 1 , 1 , 1 , 1 , &
1571 kms , kme , 1 , 1 , 1 , 1 , &
1572 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
1573 ierr )
1574 CALL wrf_ext_read_field ( &
1575 fid , & ! DataHandle
1576 current_date(1:19) , & ! DateStr
1577 'B' , & ! Data Name
1578 grid%kma_b , & ! Field
1579 WRF_FLOAT , & ! FieldType
1580 grid%communicator , & ! Comm
1581 grid%iocommunicator , & ! Comm
1582 grid%domdesc , & ! Comm
1583 grid%bdy_mask , & ! bdy_mask
1584 'Z' , & ! MemoryOrder
1585 'Z' , & ! Stagger
1586 'inc/wrf_restartin.inc ext_read_field B memorder Z' , & ! Debug message
1587 kds , kde , 1 , 1 , 1 , 1 , &
1588 kms , kme , 1 , 1 , 1 , 1 , &
1589 kps , MIN( kde, kpe ) , 1 , 1 , 1 , 1 , &
1590 ierr )
1591 CALL wrf_ext_read_field ( &
1592 fid , & ! DataHandle
1593 current_date(1:19) , & ! DateStr
1594 'Q2' , & ! Data Name
1595 grid%q2 , & ! Field
1596 WRF_FLOAT , & ! FieldType
1597 grid%communicator , & ! Comm
1598 grid%iocommunicator , & ! Comm
1599 grid%domdesc , & ! Comm
1600 grid%bdy_mask , & ! bdy_mask
1601 'XY' , & ! MemoryOrder
1602 '' , & ! Stagger
1603 'inc/wrf_restartin.inc ext_read_field Q2 memorder XY' , & ! Debug message
1604 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1605 ims , ime , jms , jme , 1 , 1 , &
1606 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1607 ierr )
1608 CALL wrf_ext_read_field ( &
1609 fid , & ! DataHandle
1610 current_date(1:19) , & ! DateStr
1611 'T2' , & ! Data Name
1612 grid%t2 , & ! Field
1613 WRF_FLOAT , & ! FieldType
1614 grid%communicator , & ! Comm
1615 grid%iocommunicator , & ! Comm
1616 grid%domdesc , & ! Comm
1617 grid%bdy_mask , & ! bdy_mask
1618 'XY' , & ! MemoryOrder
1619 '' , & ! Stagger
1620 'inc/wrf_restartin.inc ext_read_field T2 memorder XY' , & ! Debug message
1621 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1622 ims , ime , jms , jme , 1 , 1 , &
1623 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1624 ierr )
1625 CALL wrf_ext_read_field ( &
1626 fid , & ! DataHandle
1627 current_date(1:19) , & ! DateStr
1628 'TH2' , & ! Data Name
1629 grid%th2 , & ! Field
1630 WRF_FLOAT , & ! FieldType
1631 grid%communicator , & ! Comm
1632 grid%iocommunicator , & ! Comm
1633 grid%domdesc , & ! Comm
1634 grid%bdy_mask , & ! bdy_mask
1635 'XY' , & ! MemoryOrder
1636 '' , & ! Stagger
1637 'inc/wrf_restartin.inc ext_read_field TH2 memorder XY' , & ! Debug message
1638 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1639 ims , ime , jms , jme , 1 , 1 , &
1640 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1641 ierr )
1642 CALL wrf_ext_read_field ( &
1643 fid , & ! DataHandle
1644 current_date(1:19) , & ! DateStr
1645 'PSFC' , & ! Data Name
1646 grid%psfc , & ! Field
1647 WRF_FLOAT , & ! FieldType
1648 grid%communicator , & ! Comm
1649 grid%iocommunicator , & ! Comm
1650 grid%domdesc , & ! Comm
1651 grid%bdy_mask , & ! bdy_mask
1652 'XY' , & ! MemoryOrder
1653 '' , & ! Stagger
1654 'inc/wrf_restartin.inc ext_read_field PSFC memorder XY' , & ! Debug message
1655 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1656 ims , ime , jms , jme , 1 , 1 , &
1657 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1658 ierr )
1659 CALL wrf_ext_read_field ( &
1660 fid , & ! DataHandle
1661 current_date(1:19) , & ! DateStr
1662 'U10' , & ! Data Name
1663 grid%u10 , & ! Field
1664 WRF_FLOAT , & ! FieldType
1665 grid%communicator , & ! Comm
1666 grid%iocommunicator , & ! Comm
1667 grid%domdesc , & ! Comm
1668 grid%bdy_mask , & ! bdy_mask
1669 'XY' , & ! MemoryOrder
1670 '' , & ! Stagger
1671 'inc/wrf_restartin.inc ext_read_field U10 memorder XY' , & ! Debug message
1672 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1673 ims , ime , jms , jme , 1 , 1 , &
1674 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1675 ierr )
1676 CALL wrf_ext_read_field ( &
1677 fid , & ! DataHandle
1678 current_date(1:19) , & ! DateStr
1679 'V10' , & ! Data Name
1680 grid%v10 , & ! Field
1681 WRF_FLOAT , & ! FieldType
1682 grid%communicator , & ! Comm
1683 grid%iocommunicator , & ! Comm
1684 grid%domdesc , & ! Comm
1685 grid%bdy_mask , & ! bdy_mask
1686 'XY' , & ! MemoryOrder
1687 '' , & ! Stagger
1688 'inc/wrf_restartin.inc ext_read_field V10 memorder XY' , & ! Debug message
1689 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1690 ims , ime , jms , jme , 1 , 1 , &
1691 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1692 ierr )
1693 CALL wrf_ext_read_field ( &
1694 fid , & ! DataHandle
1695 current_date(1:19) , & ! DateStr
1696 'URATX' , & ! Data Name
1697 grid%uratx , & ! Field
1698 WRF_FLOAT , & ! FieldType
1699 grid%communicator , & ! Comm
1700 grid%iocommunicator , & ! Comm
1701 grid%domdesc , & ! Comm
1702 grid%bdy_mask , & ! bdy_mask
1703 'XY' , & ! MemoryOrder
1704 '' , & ! Stagger
1705 'inc/wrf_restartin.inc ext_read_field URATX memorder XY' , & ! Debug message
1706 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1707 ims , ime , jms , jme , 1 , 1 , &
1708 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1709 ierr )
1710 CALL wrf_ext_read_field ( &
1711 fid , & ! DataHandle
1712 current_date(1:19) , & ! DateStr
1713 'VRATX' , & ! Data Name
1714 grid%vratx , & ! Field
1715 WRF_FLOAT , & ! FieldType
1716 grid%communicator , & ! Comm
1717 grid%iocommunicator , & ! Comm
1718 grid%domdesc , & ! Comm
1719 grid%bdy_mask , & ! bdy_mask
1720 'XY' , & ! MemoryOrder
1721 '' , & ! Stagger
1722 'inc/wrf_restartin.inc ext_read_field VRATX memorder XY' , & ! Debug message
1723 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1724 ims , ime , jms , jme , 1 , 1 , &
1725 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1726 ierr )
1727 CALL wrf_ext_read_field ( &
1728 fid , & ! DataHandle
1729 current_date(1:19) , & ! DateStr
1730 'TRATX' , & ! Data Name
1731 grid%tratx , & ! Field
1732 WRF_FLOAT , & ! FieldType
1733 grid%communicator , & ! Comm
1734 grid%iocommunicator , & ! Comm
1735 grid%domdesc , & ! Comm
1736 grid%bdy_mask , & ! bdy_mask
1737 'XY' , & ! MemoryOrder
1738 '' , & ! Stagger
1739 'inc/wrf_restartin.inc ext_read_field TRATX memorder XY' , & ! Debug message
1740 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
1741 ims , ime , jms , jme , 1 , 1 , &
1742 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
1743 ierr )
1744 CALL wrf_ext_read_field ( &
1745 fid , & ! DataHandle
1746 current_date(1:19) , & ! DateStr
1747 'RDX' , & ! Data Name
1748 grid%rdx , & ! Field
1749 WRF_FLOAT , & ! FieldType
1750 grid%communicator , & ! Comm
1751 grid%iocommunicator , & ! Comm
1752 grid%domdesc , & ! Comm
1753 grid%bdy_mask , & ! bdy_mask
1754 '0' , & ! MemoryOrder
1755 '' , & ! Stagger
1756 'inc/wrf_restartin.inc ext_read_field RDX memorder 0' , & ! Debug message
1757 1 , 1 , 1 , 1 , 1 , 1 , &
1758 1 , 1 , 1 , 1 , 1 , 1 , &
1759 1 , 1 , 1 , 1 , 1 , 1 , &
1760 ierr )
1761 CALL wrf_ext_read_field ( &
1762 fid , & ! DataHandle
1763 current_date(1:19) , & ! DateStr
1764 'RDY' , & ! Data Name
1765 grid%rdy , & ! Field
1766 WRF_FLOAT , & ! FieldType
1767 grid%communicator , & ! Comm
1768 grid%iocommunicator , & ! Comm
1769 grid%domdesc , & ! Comm
1770 grid%bdy_mask , & ! bdy_mask
1771 '0' , & ! MemoryOrder
1772 '' , & ! Stagger
1773 'inc/wrf_restartin.inc ext_read_field RDY memorder 0' , & ! Debug message
1774 1 , 1 , 1 , 1 , 1 , 1 , &
1775 1 , 1 , 1 , 1 , 1 , 1 , &
1776 1 , 1 , 1 , 1 , 1 , 1 , &
1777 ierr )
1778 CALL wrf_ext_read_field ( &
1779 fid , & ! DataHandle
1780 current_date(1:19) , & ! DateStr
1781 'DTS' , & ! Data Name
1782 grid%dts , & ! Field
1783 WRF_FLOAT , & ! FieldType
1784 grid%communicator , & ! Comm
1785 grid%iocommunicator , & ! Comm
1786 grid%domdesc , & ! Comm
1787 grid%bdy_mask , & ! bdy_mask
1788 '0' , & ! MemoryOrder
1789 '' , & ! Stagger
1790 'inc/wrf_restartin.inc ext_read_field DTS memorder 0' , & ! Debug message
1791 1 , 1 , 1 , 1 , 1 , 1 , &
1792 1 , 1 , 1 , 1 , 1 , 1 , &
1793 1 , 1 , 1 , 1 , 1 , 1 , &
1794 ierr )
1795 CALL wrf_ext_read_field ( &
1796 fid , & ! DataHandle
1797 current_date(1:19) , & ! DateStr
1798 'DTSEPS' , & ! Data Name
1799 grid%dtseps , & ! Field
1800 WRF_FLOAT , & ! FieldType
1801 grid%communicator , & ! Comm
1802 grid%iocommunicator , & ! Comm
1803 grid%domdesc , & ! Comm
1804 grid%bdy_mask , & ! bdy_mask
1805 '0' , & ! MemoryOrder
1806 '' , & ! Stagger
1807 'inc/wrf_restartin.inc ext_read_field DTSEPS memorder 0' , & ! Debug message
1808 1 , 1 , 1 , 1 , 1 , 1 , &
1809 1 , 1 , 1 , 1 , 1 , 1 , &
1810 1 , 1 , 1 , 1 , 1 , 1 , &
1811 ierr )
1812 CALL wrf_ext_read_field ( &
1813 fid , & ! DataHandle
1814 current_date(1:19) , & ! DateStr
1815 'RESM' , & ! Data Name
1816 grid%resm , & ! Field
1817 WRF_FLOAT , & ! FieldType
1818 grid%communicator , & ! Comm
1819 grid%iocommunicator , & ! Comm
1820 grid%domdesc , & ! Comm
1821 grid%bdy_mask , & ! bdy_mask
1822 '0' , & ! MemoryOrder
1823 '' , & ! Stagger
1824 'inc/wrf_restartin.inc ext_read_field RESM memorder 0' , & ! Debug message
1825 1 , 1 , 1 , 1 , 1 , 1 , &
1826 1 , 1 , 1 , 1 , 1 , 1 , &
1827 1 , 1 , 1 , 1 , 1 , 1 , &
1828 ierr )
1829 CALL wrf_ext_read_field ( &
1830 fid , & ! DataHandle
1831 current_date(1:19) , & ! DateStr
1832 'ZETATOP' , & ! Data Name
1833 grid%zetatop , & ! Field
1834 WRF_FLOAT , & ! FieldType
1835 grid%communicator , & ! Comm
1836 grid%iocommunicator , & ! Comm
1837 grid%domdesc , & ! Comm
1838 grid%bdy_mask , & ! bdy_mask
1839 '0' , & ! MemoryOrder
1840 '' , & ! Stagger
1841 'inc/wrf_restartin.inc ext_read_field ZETATOP memorder 0' , & ! Debug message
1842 1 , 1 , 1 , 1 , 1 , 1 , &
1843 1 , 1 , 1 , 1 , 1 , 1 , &
1844 1 , 1 , 1 , 1 , 1 , 1 , &
1845 ierr )
1846 CALL wrf_ext_read_field ( &
1847 fid , & ! DataHandle
1848 current_date(1:19) , & ! DateStr
1849 'CF1' , & ! Data Name
1850 grid%cf1 , & ! Field
1851 WRF_FLOAT , & ! FieldType
1852 grid%communicator , & ! Comm
1853 grid%iocommunicator , & ! Comm
1854 grid%domdesc , & ! Comm
1855 grid%bdy_mask , & ! bdy_mask
1856 '0' , & ! MemoryOrder
1857 '' , & ! Stagger
1858 'inc/wrf_restartin.inc ext_read_field CF1 memorder 0' , & ! Debug message
1859 1 , 1 , 1 , 1 , 1 , 1 , &
1860 1 , 1 , 1 , 1 , 1 , 1 , &
1861 1 , 1 , 1 , 1 , 1 , 1 , &
1862 ierr )
1863 CALL wrf_ext_read_field ( &
1864 fid , & ! DataHandle
1865 current_date(1:19) , & ! DateStr
1866 'CF2' , & ! Data Name
1867 grid%cf2 , & ! Field
1868 WRF_FLOAT , & ! FieldType
1869 grid%communicator , & ! Comm
1870 grid%iocommunicator , & ! Comm
1871 grid%domdesc , & ! Comm
1872 grid%bdy_mask , & ! bdy_mask
1873 '0' , & ! MemoryOrder
1874 '' , & ! Stagger
1875 'inc/wrf_restartin.inc ext_read_field CF2 memorder 0' , & ! Debug message
1876 1 , 1 , 1 , 1 , 1 , 1 , &
1877 1 , 1 , 1 , 1 , 1 , 1 , &
1878 1 , 1 , 1 , 1 , 1 , 1 , &
1879 ierr )
1880 CALL wrf_ext_read_field ( &
1881 fid , & ! DataHandle
1882 current_date(1:19) , & ! DateStr
1883 'CF3' , & ! Data Name
1884 grid%cf3 , & ! Field
1885 WRF_FLOAT , & ! FieldType
1886 grid%communicator , & ! Comm
1887 grid%iocommunicator , & ! Comm
1888 grid%domdesc , & ! Comm
1889 grid%bdy_mask , & ! bdy_mask
1890 '0' , & ! MemoryOrder
1891 '' , & ! Stagger
1892 'inc/wrf_restartin.inc ext_read_field CF3 memorder 0' , & ! Debug message
1893 1 , 1 , 1 , 1 , 1 , 1 , &
1894 1 , 1 , 1 , 1 , 1 , 1 , &
1895 1 , 1 , 1 , 1 , 1 , 1 , &
1896 ierr )
1897 CALL wrf_ext_read_field ( &
1898 fid , & ! DataHandle
1899 current_date(1:19) , & ! DateStr
1900 'ITIMESTEP' , & ! Data Name
1901 grid%itimestep , & ! Field
1902 WRF_integer , & ! FieldType
1903 grid%communicator , & ! Comm
1904 grid%iocommunicator , & ! Comm
1905 grid%domdesc , & ! Comm
1906 grid%bdy_mask , & ! bdy_mask
1907 '0' , & ! MemoryOrder
1908 '' , & ! Stagger
1909 'inc/wrf_restartin.inc ext_read_field ITIMESTEP memorder 0' , & ! Debug message
1910 1 , 1 , 1 , 1 , 1 , 1 , &
1911 1 , 1 , 1 , 1 , 1 , 1 , &
1912 1 , 1 , 1 , 1 , 1 , 1 , &
1913 ierr )
1914 CALL wrf_ext_read_field ( &
1915 fid , & ! DataHandle
1916 current_date(1:19) , & ! DateStr
1917 'XTIME' , & ! Data Name
1918 grid%xtime , & ! Field
1919 WRF_FLOAT , & ! FieldType
1920 grid%communicator , & ! Comm
1921 grid%iocommunicator , & ! Comm
1922 grid%domdesc , & ! Comm
1923 grid%bdy_mask , & ! bdy_mask
1924 '0' , & ! MemoryOrder
1925 '' , & ! Stagger
1926 'inc/wrf_restartin.inc ext_read_field XTIME memorder 0' , & ! Debug message
1927 1 , 1 , 1 , 1 , 1 , 1 , &
1928 1 , 1 , 1 , 1 , 1 , 1 , &
1929 1 , 1 , 1 , 1 , 1 , 1 , &
1930 ierr )
1931 CALL wrf_ext_read_field ( &
1932 fid , & ! DataHandle
1933 current_date(1:19) , & ! DateStr
1934 'XI' , & ! Data Name
1935 grid%xi , & ! Field
1936 WRF_FLOAT , & ! FieldType
1937 grid%communicator , & ! Comm
1938 grid%iocommunicator , & ! Comm
1939 grid%domdesc , & ! Comm
1940 grid%bdy_mask , & ! bdy_mask
1941 '0' , & ! MemoryOrder
1942 '' , & ! Stagger
1943 'inc/wrf_restartin.inc ext_read_field XI memorder 0' , & ! Debug message
1944 1 , 1 , 1 , 1 , 1 , 1 , &
1945 1 , 1 , 1 , 1 , 1 , 1 , &
1946 1 , 1 , 1 , 1 , 1 , 1 , &
1947 ierr )
1948 CALL wrf_ext_read_field ( &
1949 fid , & ! DataHandle
1950 current_date(1:19) , & ! DateStr
1951 'XJ' , & ! Data Name
1952 grid%xj , & ! Field
1953 WRF_FLOAT , & ! FieldType
1954 grid%communicator , & ! Comm
1955 grid%iocommunicator , & ! Comm
1956 grid%domdesc , & ! Comm
1957 grid%bdy_mask , & ! bdy_mask
1958 '0' , & ! MemoryOrder
1959 '' , & ! Stagger
1960 'inc/wrf_restartin.inc ext_read_field XJ memorder 0' , & ! Debug message
1961 1 , 1 , 1 , 1 , 1 , 1 , &
1962 1 , 1 , 1 , 1 , 1 , 1 , &
1963 1 , 1 , 1 , 1 , 1 , 1 , &
1964 ierr )
1965 CALL wrf_ext_read_field ( &
1966 fid , & ! DataHandle
1967 current_date(1:19) , & ! DateStr
1968 'VC_I' , & ! Data Name
1969 grid%vc_i , & ! Field
1970 WRF_FLOAT , & ! FieldType
1971 grid%communicator , & ! Comm
1972 grid%iocommunicator , & ! Comm
1973 grid%domdesc , & ! Comm
1974 grid%bdy_mask , & ! bdy_mask
1975 '0' , & ! MemoryOrder
1976 '' , & ! Stagger
1977 'inc/wrf_restartin.inc ext_read_field VC_I memorder 0' , & ! Debug message
1978 1 , 1 , 1 , 1 , 1 , 1 , &
1979 1 , 1 , 1 , 1 , 1 , 1 , &
1980 1 , 1 , 1 , 1 , 1 , 1 , &
1981 ierr )
1982 CALL wrf_ext_read_field ( &
1983 fid , & ! DataHandle
1984 current_date(1:19) , & ! DateStr
1985 'VC_J' , & ! Data Name
1986 grid%vc_j , & ! Field
1987 WRF_FLOAT , & ! FieldType
1988 grid%communicator , & ! Comm
1989 grid%iocommunicator , & ! Comm
1990 grid%domdesc , & ! Comm
1991 grid%bdy_mask , & ! bdy_mask
1992 '0' , & ! MemoryOrder
1993 '' , & ! Stagger
1994 'inc/wrf_restartin.inc ext_read_field VC_J memorder 0' , & ! Debug message
1995 1 , 1 , 1 , 1 , 1 , 1 , &
1996 1 , 1 , 1 , 1 , 1 , 1 , &
1997 1 , 1 , 1 , 1 , 1 , 1 , &
1998 ierr )
1999 DO itrace = PARAM_FIRST_SCALAR , num_moist
2000 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
2001 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2002 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2003 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2004 CALL wrf_ext_read_field ( &
2005 fid , & ! DataHandle
2006 current_date(1:19) , & ! DateStr
2007 TRIM(moist_dname_table( grid%id, itrace )), & !data name
2008 grid%moist(ims,jms,kms,itrace) , & ! Field
2009 WRF_FLOAT , & ! FieldType
2010 grid%communicator , & ! Comm
2011 grid%iocommunicator , & ! Comm
2012 grid%domdesc , & ! Comm
2013 grid%bdy_mask , & ! bdy_mask
2014 'XYZ' , & ! MemoryOrder
2015 '' , & ! Stagger
2016 'inc/wrf_restartin.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2017 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2018 ims , ime , jms , jme , kms , kme , &
2019 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2020 ierr )
2021 ENDIF
2022 ENDIF
2023 ENDDO
2024 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
2025 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
2026 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2027 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2028 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2029 CALL wrf_ext_read_field ( &
2030 fid , & ! DataHandle
2031 current_date(1:19) , & ! DateStr
2032 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
2033 grid%a_moist(ims,jms,kms,itrace) , & ! Field
2034 WRF_FLOAT , & ! FieldType
2035 grid%communicator , & ! Comm
2036 grid%iocommunicator , & ! Comm
2037 grid%domdesc , & ! Comm
2038 grid%bdy_mask , & ! bdy_mask
2039 'XYZ' , & ! MemoryOrder
2040 '' , & ! Stagger
2041 'inc/wrf_restartin.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2042 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2043 ims , ime , jms , jme , kms , kme , &
2044 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2045 ierr )
2046 ENDIF
2047 ENDIF
2048 ENDDO
2049 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
2050 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
2051 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2052 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2053 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2054 CALL wrf_ext_read_field ( &
2055 fid , & ! DataHandle
2056 current_date(1:19) , & ! DateStr
2057 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
2058 grid%g_moist(ims,jms,kms,itrace) , & ! Field
2059 WRF_FLOAT , & ! FieldType
2060 grid%communicator , & ! Comm
2061 grid%iocommunicator , & ! Comm
2062 grid%domdesc , & ! Comm
2063 grid%bdy_mask , & ! bdy_mask
2064 'XYZ' , & ! MemoryOrder
2065 '' , & ! Stagger
2066 'inc/wrf_restartin.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2067 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2068 ims , ime , jms , jme , kms , kme , &
2069 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2070 ierr )
2071 ENDIF
2072 ENDIF
2073 ENDDO
2074 DO itrace = PARAM_FIRST_SCALAR , num_scalar
2075 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
2076 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2077 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2078 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2079 CALL wrf_ext_read_field ( &
2080 fid , & ! DataHandle
2081 current_date(1:19) , & ! DateStr
2082 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
2083 grid%scalar(ims,jms,kms,itrace) , & ! Field
2084 WRF_FLOAT , & ! FieldType
2085 grid%communicator , & ! Comm
2086 grid%iocommunicator , & ! Comm
2087 grid%domdesc , & ! Comm
2088 grid%bdy_mask , & ! bdy_mask
2089 'XYZ' , & ! MemoryOrder
2090 '' , & ! Stagger
2091 'inc/wrf_restartin.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2092 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2093 ims , ime , jms , jme , kms , kme , &
2094 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2095 ierr )
2096 ENDIF
2097 ENDIF
2098 ENDDO
2099 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
2100 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
2101 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2102 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2103 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2104 CALL wrf_ext_read_field ( &
2105 fid , & ! DataHandle
2106 current_date(1:19) , & ! DateStr
2107 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
2108 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
2109 WRF_FLOAT , & ! FieldType
2110 grid%communicator , & ! Comm
2111 grid%iocommunicator , & ! Comm
2112 grid%domdesc , & ! Comm
2113 grid%bdy_mask , & ! bdy_mask
2114 'XYZ' , & ! MemoryOrder
2115 '' , & ! Stagger
2116 'inc/wrf_restartin.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2117 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2118 ims , ime , jms , jme , kms , kme , &
2119 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2120 ierr )
2121 ENDIF
2122 ENDIF
2123 ENDDO
2124 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
2125 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
2126 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
2127 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
2128 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
2129 CALL wrf_ext_read_field ( &
2130 fid , & ! DataHandle
2131 current_date(1:19) , & ! DateStr
2132 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
2133 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
2134 WRF_FLOAT , & ! FieldType
2135 grid%communicator , & ! Comm
2136 grid%iocommunicator , & ! Comm
2137 grid%domdesc , & ! Comm
2138 grid%bdy_mask , & ! bdy_mask
2139 'XYZ' , & ! MemoryOrder
2140 '' , & ! Stagger
2141 'inc/wrf_restartin.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
2142 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2143 ims , ime , jms , jme , kms , kme , &
2144 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2145 ierr )
2146 ENDIF
2147 ENDIF
2148 ENDDO
2149 CALL wrf_ext_read_field ( &
2150 fid , & ! DataHandle
2151 current_date(1:19) , & ! DateStr
2152 'FCX' , & ! Data Name
2153 grid%fcx , & ! Field
2154 WRF_FLOAT , & ! FieldType
2155 grid%communicator , & ! Comm
2156 grid%iocommunicator , & ! Comm
2157 grid%domdesc , & ! Comm
2158 grid%bdy_mask , & ! bdy_mask
2159 'C' , & ! MemoryOrder
2160 '' , & ! Stagger
2161 'inc/wrf_restartin.inc ext_read_field FCX memorder C' , & ! Debug message
2162 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2163 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2164 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2165 ierr )
2166 CALL wrf_ext_read_field ( &
2167 fid , & ! DataHandle
2168 current_date(1:19) , & ! DateStr
2169 'GCX' , & ! Data Name
2170 grid%gcx , & ! Field
2171 WRF_FLOAT , & ! FieldType
2172 grid%communicator , & ! Comm
2173 grid%iocommunicator , & ! Comm
2174 grid%domdesc , & ! Comm
2175 grid%bdy_mask , & ! bdy_mask
2176 'C' , & ! MemoryOrder
2177 '' , & ! Stagger
2178 'inc/wrf_restartin.inc ext_read_field GCX memorder C' , & ! Debug message
2179 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2180 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2181 1 , config_flags%spec_bdy_width , 1 , 1 , 1 , 1 , &
2182 ierr )
2183 CALL wrf_ext_read_field ( &
2184 fid , & ! DataHandle
2185 current_date(1:19) , & ! DateStr
2186 'DTBC' , & ! Data Name
2187 grid%dtbc , & ! Field
2188 WRF_FLOAT , & ! FieldType
2189 grid%communicator , & ! Comm
2190 grid%iocommunicator , & ! Comm
2191 grid%domdesc , & ! Comm
2192 grid%bdy_mask , & ! bdy_mask
2193 '0' , & ! MemoryOrder
2194 '' , & ! Stagger
2195 'inc/wrf_restartin.inc ext_read_field DTBC memorder 0' , & ! Debug message
2196 1 , 1 , 1 , 1 , 1 , 1 , &
2197 1 , 1 , 1 , 1 , 1 , 1 , &
2198 1 , 1 , 1 , 1 , 1 , 1 , &
2199 ierr )
2200 CALL wrf_ext_read_field ( &
2201 fid , & ! DataHandle
2202 current_date(1:19) , & ! DateStr
2203 'LANDMASK' , & ! Data Name
2204 grid%landmask , & ! Field
2205 WRF_FLOAT , & ! FieldType
2206 grid%communicator , & ! Comm
2207 grid%iocommunicator , & ! Comm
2208 grid%domdesc , & ! Comm
2209 grid%bdy_mask , & ! bdy_mask
2210 'XY' , & ! MemoryOrder
2211 '' , & ! Stagger
2212 'inc/wrf_restartin.inc ext_read_field LANDMASK memorder XY' , & ! Debug message
2213 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2214 ims , ime , jms , jme , 1 , 1 , &
2215 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2216 ierr )
2217 CALL wrf_ext_read_field ( &
2218 fid , & ! DataHandle
2219 current_date(1:19) , & ! DateStr
2220 'SHDMAX' , & ! Data Name
2221 grid%shdmax , & ! Field
2222 WRF_FLOAT , & ! FieldType
2223 grid%communicator , & ! Comm
2224 grid%iocommunicator , & ! Comm
2225 grid%domdesc , & ! Comm
2226 grid%bdy_mask , & ! bdy_mask
2227 'XY' , & ! MemoryOrder
2228 '' , & ! Stagger
2229 'inc/wrf_restartin.inc ext_read_field SHDMAX memorder XY' , & ! Debug message
2230 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2231 ims , ime , jms , jme , 1 , 1 , &
2232 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2233 ierr )
2234 CALL wrf_ext_read_field ( &
2235 fid , & ! DataHandle
2236 current_date(1:19) , & ! DateStr
2237 'SHDMIN' , & ! Data Name
2238 grid%shdmin , & ! Field
2239 WRF_FLOAT , & ! FieldType
2240 grid%communicator , & ! Comm
2241 grid%iocommunicator , & ! Comm
2242 grid%domdesc , & ! Comm
2243 grid%bdy_mask , & ! bdy_mask
2244 'XY' , & ! MemoryOrder
2245 '' , & ! Stagger
2246 'inc/wrf_restartin.inc ext_read_field SHDMIN memorder XY' , & ! Debug message
2247 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2248 ims , ime , jms , jme , 1 , 1 , &
2249 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2250 ierr )
2251 CALL wrf_ext_read_field ( &
2252 fid , & ! DataHandle
2253 current_date(1:19) , & ! DateStr
2254 'SNOALB' , & ! Data Name
2255 grid%snoalb , & ! Field
2256 WRF_FLOAT , & ! FieldType
2257 grid%communicator , & ! Comm
2258 grid%iocommunicator , & ! Comm
2259 grid%domdesc , & ! Comm
2260 grid%bdy_mask , & ! bdy_mask
2261 'XY' , & ! MemoryOrder
2262 '' , & ! Stagger
2263 'inc/wrf_restartin.inc ext_read_field SNOALB memorder XY' , & ! Debug message
2264 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2265 ims , ime , jms , jme , 1 , 1 , &
2266 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2267 ierr )
2268 CALL wrf_ext_read_field ( &
2269 fid , & ! DataHandle
2270 current_date(1:19) , & ! DateStr
2271 'TSLB' , & ! Data Name
2272 grid%tslb , & ! Field
2273 WRF_FLOAT , & ! FieldType
2274 grid%communicator , & ! Comm
2275 grid%iocommunicator , & ! Comm
2276 grid%domdesc , & ! Comm
2277 grid%bdy_mask , & ! bdy_mask
2278 'XYZ' , & ! MemoryOrder
2279 'Z' , & ! Stagger
2280 'inc/wrf_restartin.inc ext_read_field TSLB memorder XYZ' , & ! Debug message
2281 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
2282 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
2283 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
2284 ierr )
2285 CALL wrf_ext_read_field ( &
2286 fid , & ! DataHandle
2287 current_date(1:19) , & ! DateStr
2288 'ZS' , & ! Data Name
2289 grid%zs , & ! Field
2290 WRF_FLOAT , & ! FieldType
2291 grid%communicator , & ! Comm
2292 grid%iocommunicator , & ! Comm
2293 grid%domdesc , & ! Comm
2294 grid%bdy_mask , & ! bdy_mask
2295 'Z' , & ! MemoryOrder
2296 'Z' , & ! Stagger
2297 'inc/wrf_restartin.inc ext_read_field ZS memorder Z' , & ! Debug message
2298 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
2299 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
2300 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
2301 ierr )
2302 CALL wrf_ext_read_field ( &
2303 fid , & ! DataHandle
2304 current_date(1:19) , & ! DateStr
2305 'DZS' , & ! Data Name
2306 grid%dzs , & ! Field
2307 WRF_FLOAT , & ! FieldType
2308 grid%communicator , & ! Comm
2309 grid%iocommunicator , & ! Comm
2310 grid%domdesc , & ! Comm
2311 grid%bdy_mask , & ! bdy_mask
2312 'Z' , & ! MemoryOrder
2313 'Z' , & ! Stagger
2314 'inc/wrf_restartin.inc ext_read_field DZS memorder Z' , & ! Debug message
2315 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
2316 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
2317 1 , config_flags%num_soil_layers , 1 , 1 , 1 , 1 , &
2318 ierr )
2319 CALL wrf_ext_read_field ( &
2320 fid , & ! DataHandle
2321 current_date(1:19) , & ! DateStr
2322 'SMOIS' , & ! Data Name
2323 grid%smois , & ! Field
2324 WRF_FLOAT , & ! FieldType
2325 grid%communicator , & ! Comm
2326 grid%iocommunicator , & ! Comm
2327 grid%domdesc , & ! Comm
2328 grid%bdy_mask , & ! bdy_mask
2329 'XYZ' , & ! MemoryOrder
2330 'Z' , & ! Stagger
2331 'inc/wrf_restartin.inc ext_read_field SMOIS memorder XYZ' , & ! Debug message
2332 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
2333 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
2334 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
2335 ierr )
2336 CALL wrf_ext_read_field ( &
2337 fid , & ! DataHandle
2338 current_date(1:19) , & ! DateStr
2339 'SH2O' , & ! Data Name
2340 grid%sh2o , & ! Field
2341 WRF_FLOAT , & ! FieldType
2342 grid%communicator , & ! Comm
2343 grid%iocommunicator , & ! Comm
2344 grid%domdesc , & ! Comm
2345 grid%bdy_mask , & ! bdy_mask
2346 'XYZ' , & ! MemoryOrder
2347 'Z' , & ! Stagger
2348 'inc/wrf_restartin.inc ext_read_field SH2O memorder XYZ' , & ! Debug message
2349 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%num_soil_layers , &
2350 ims , ime , jms , jme , 1 , config_flags%num_soil_layers , &
2351 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%num_soil_layers , &
2352 ierr )
2353 CALL wrf_ext_read_field ( &
2354 fid , & ! DataHandle
2355 current_date(1:19) , & ! DateStr
2356 'XICE' , & ! Data Name
2357 grid%xice , & ! Field
2358 WRF_FLOAT , & ! FieldType
2359 grid%communicator , & ! Comm
2360 grid%iocommunicator , & ! Comm
2361 grid%domdesc , & ! Comm
2362 grid%bdy_mask , & ! bdy_mask
2363 'XY' , & ! MemoryOrder
2364 '' , & ! Stagger
2365 'inc/wrf_restartin.inc ext_read_field XICE memorder XY' , & ! Debug message
2366 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2367 ims , ime , jms , jme , 1 , 1 , &
2368 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2369 ierr )
2370 CALL wrf_ext_read_field ( &
2371 fid , & ! DataHandle
2372 current_date(1:19) , & ! DateStr
2373 'SFROFF' , & ! Data Name
2374 grid%sfcrunoff , & ! Field
2375 WRF_FLOAT , & ! FieldType
2376 grid%communicator , & ! Comm
2377 grid%iocommunicator , & ! Comm
2378 grid%domdesc , & ! Comm
2379 grid%bdy_mask , & ! bdy_mask
2380 'XY' , & ! MemoryOrder
2381 '' , & ! Stagger
2382 'inc/wrf_restartin.inc ext_read_field SFROFF memorder XY' , & ! Debug message
2383 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2384 ims , ime , jms , jme , 1 , 1 , &
2385 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2386 ierr )
2387 CALL wrf_ext_read_field ( &
2388 fid , & ! DataHandle
2389 current_date(1:19) , & ! DateStr
2390 'UDROFF' , & ! Data Name
2391 grid%udrunoff , & ! Field
2392 WRF_FLOAT , & ! FieldType
2393 grid%communicator , & ! Comm
2394 grid%iocommunicator , & ! Comm
2395 grid%domdesc , & ! Comm
2396 grid%bdy_mask , & ! bdy_mask
2397 'XY' , & ! MemoryOrder
2398 '' , & ! Stagger
2399 'inc/wrf_restartin.inc ext_read_field UDROFF memorder XY' , & ! Debug message
2400 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2401 ims , ime , jms , jme , 1 , 1 , &
2402 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2403 ierr )
2404 CALL wrf_ext_read_field ( &
2405 fid , & ! DataHandle
2406 current_date(1:19) , & ! DateStr
2407 'IVGTYP' , & ! Data Name
2408 grid%ivgtyp , & ! Field
2409 WRF_integer , & ! FieldType
2410 grid%communicator , & ! Comm
2411 grid%iocommunicator , & ! Comm
2412 grid%domdesc , & ! Comm
2413 grid%bdy_mask , & ! bdy_mask
2414 'XY' , & ! MemoryOrder
2415 '' , & ! Stagger
2416 'inc/wrf_restartin.inc ext_read_field IVGTYP memorder XY' , & ! Debug message
2417 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2418 ims , ime , jms , jme , 1 , 1 , &
2419 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2420 ierr )
2421 CALL wrf_ext_read_field ( &
2422 fid , & ! DataHandle
2423 current_date(1:19) , & ! DateStr
2424 'ISLTYP' , & ! Data Name
2425 grid%isltyp , & ! Field
2426 WRF_integer , & ! FieldType
2427 grid%communicator , & ! Comm
2428 grid%iocommunicator , & ! Comm
2429 grid%domdesc , & ! Comm
2430 grid%bdy_mask , & ! bdy_mask
2431 'XY' , & ! MemoryOrder
2432 '' , & ! Stagger
2433 'inc/wrf_restartin.inc ext_read_field ISLTYP memorder XY' , & ! Debug message
2434 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2435 ims , ime , jms , jme , 1 , 1 , &
2436 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2437 ierr )
2438 CALL wrf_ext_read_field ( &
2439 fid , & ! DataHandle
2440 current_date(1:19) , & ! DateStr
2441 'VEGFRA' , & ! Data Name
2442 grid%vegfra , & ! Field
2443 WRF_FLOAT , & ! FieldType
2444 grid%communicator , & ! Comm
2445 grid%iocommunicator , & ! Comm
2446 grid%domdesc , & ! Comm
2447 grid%bdy_mask , & ! bdy_mask
2448 'XY' , & ! MemoryOrder
2449 '' , & ! Stagger
2450 'inc/wrf_restartin.inc ext_read_field VEGFRA memorder XY' , & ! Debug message
2451 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2452 ims , ime , jms , jme , 1 , 1 , &
2453 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2454 ierr )
2455 CALL wrf_ext_read_field ( &
2456 fid , & ! DataHandle
2457 current_date(1:19) , & ! DateStr
2458 'SFCEVP' , & ! Data Name
2459 grid%sfcevp , & ! Field
2460 WRF_FLOAT , & ! FieldType
2461 grid%communicator , & ! Comm
2462 grid%iocommunicator , & ! Comm
2463 grid%domdesc , & ! Comm
2464 grid%bdy_mask , & ! bdy_mask
2465 'XY' , & ! MemoryOrder
2466 '' , & ! Stagger
2467 'inc/wrf_restartin.inc ext_read_field SFCEVP memorder XY' , & ! Debug message
2468 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2469 ims , ime , jms , jme , 1 , 1 , &
2470 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2471 ierr )
2472 CALL wrf_ext_read_field ( &
2473 fid , & ! DataHandle
2474 current_date(1:19) , & ! DateStr
2475 'ACSNOW' , & ! Data Name
2476 grid%acsnow , & ! Field
2477 WRF_FLOAT , & ! FieldType
2478 grid%communicator , & ! Comm
2479 grid%iocommunicator , & ! Comm
2480 grid%domdesc , & ! Comm
2481 grid%bdy_mask , & ! bdy_mask
2482 'XY' , & ! MemoryOrder
2483 '' , & ! Stagger
2484 'inc/wrf_restartin.inc ext_read_field ACSNOW memorder XY' , & ! Debug message
2485 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2486 ims , ime , jms , jme , 1 , 1 , &
2487 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2488 ierr )
2489 CALL wrf_ext_read_field ( &
2490 fid , & ! DataHandle
2491 current_date(1:19) , & ! DateStr
2492 'ACSNOM' , & ! Data Name
2493 grid%acsnom , & ! Field
2494 WRF_FLOAT , & ! FieldType
2495 grid%communicator , & ! Comm
2496 grid%iocommunicator , & ! Comm
2497 grid%domdesc , & ! Comm
2498 grid%bdy_mask , & ! bdy_mask
2499 'XY' , & ! MemoryOrder
2500 '' , & ! Stagger
2501 'inc/wrf_restartin.inc ext_read_field ACSNOM memorder XY' , & ! Debug message
2502 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2503 ims , ime , jms , jme , 1 , 1 , &
2504 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2505 ierr )
2506 CALL wrf_ext_read_field ( &
2507 fid , & ! DataHandle
2508 current_date(1:19) , & ! DateStr
2509 'SNOW' , & ! Data Name
2510 grid%snow , & ! Field
2511 WRF_FLOAT , & ! FieldType
2512 grid%communicator , & ! Comm
2513 grid%iocommunicator , & ! Comm
2514 grid%domdesc , & ! Comm
2515 grid%bdy_mask , & ! bdy_mask
2516 'XY' , & ! MemoryOrder
2517 '' , & ! Stagger
2518 'inc/wrf_restartin.inc ext_read_field SNOW memorder XY' , & ! Debug message
2519 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2520 ims , ime , jms , jme , 1 , 1 , &
2521 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2522 ierr )
2523 CALL wrf_ext_read_field ( &
2524 fid , & ! DataHandle
2525 current_date(1:19) , & ! DateStr
2526 'SNOWH' , & ! Data Name
2527 grid%snowh , & ! Field
2528 WRF_FLOAT , & ! FieldType
2529 grid%communicator , & ! Comm
2530 grid%iocommunicator , & ! Comm
2531 grid%domdesc , & ! Comm
2532 grid%bdy_mask , & ! bdy_mask
2533 'XY' , & ! MemoryOrder
2534 '' , & ! Stagger
2535 'inc/wrf_restartin.inc ext_read_field SNOWH memorder XY' , & ! Debug message
2536 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2537 ims , ime , jms , jme , 1 , 1 , &
2538 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2539 ierr )
2540 CALL wrf_ext_read_field ( &
2541 fid , & ! DataHandle
2542 current_date(1:19) , & ! DateStr
2543 'RHOSN' , & ! Data Name
2544 grid%rhosn , & ! Field
2545 WRF_FLOAT , & ! FieldType
2546 grid%communicator , & ! Comm
2547 grid%iocommunicator , & ! Comm
2548 grid%domdesc , & ! Comm
2549 grid%bdy_mask , & ! bdy_mask
2550 'XY' , & ! MemoryOrder
2551 '' , & ! Stagger
2552 'inc/wrf_restartin.inc ext_read_field RHOSN memorder XY' , & ! Debug message
2553 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2554 ims , ime , jms , jme , 1 , 1 , &
2555 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2556 ierr )
2557 CALL wrf_ext_read_field ( &
2558 fid , & ! DataHandle
2559 current_date(1:19) , & ! DateStr
2560 'CANWAT' , & ! Data Name
2561 grid%canwat , & ! Field
2562 WRF_FLOAT , & ! FieldType
2563 grid%communicator , & ! Comm
2564 grid%iocommunicator , & ! Comm
2565 grid%domdesc , & ! Comm
2566 grid%bdy_mask , & ! bdy_mask
2567 'XY' , & ! MemoryOrder
2568 '' , & ! Stagger
2569 'inc/wrf_restartin.inc ext_read_field CANWAT memorder XY' , & ! Debug message
2570 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2571 ims , ime , jms , jme , 1 , 1 , &
2572 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2573 ierr )
2574 CALL wrf_ext_read_field ( &
2575 fid , & ! DataHandle
2576 current_date(1:19) , & ! DateStr
2577 'SST' , & ! Data Name
2578 grid%sst , & ! Field
2579 WRF_FLOAT , & ! FieldType
2580 grid%communicator , & ! Comm
2581 grid%iocommunicator , & ! Comm
2582 grid%domdesc , & ! Comm
2583 grid%bdy_mask , & ! bdy_mask
2584 'XY' , & ! MemoryOrder
2585 '' , & ! Stagger
2586 'inc/wrf_restartin.inc ext_read_field SST memorder XY' , & ! Debug message
2587 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2588 ims , ime , jms , jme , 1 , 1 , &
2589 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2590 ierr )
2591 CALL wrf_ext_read_field ( &
2592 fid , & ! DataHandle
2593 current_date(1:19) , & ! DateStr
2594 'HTOP' , & ! Data Name
2595 grid%htop , & ! Field
2596 WRF_FLOAT , & ! FieldType
2597 grid%communicator , & ! Comm
2598 grid%iocommunicator , & ! Comm
2599 grid%domdesc , & ! Comm
2600 grid%bdy_mask , & ! bdy_mask
2601 'XY' , & ! MemoryOrder
2602 '' , & ! Stagger
2603 'inc/wrf_restartin.inc ext_read_field HTOP memorder XY' , & ! Debug message
2604 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2605 ims , ime , jms , jme , 1 , 1 , &
2606 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2607 ierr )
2608 CALL wrf_ext_read_field ( &
2609 fid , & ! DataHandle
2610 current_date(1:19) , & ! DateStr
2611 'HBOT' , & ! Data Name
2612 grid%hbot , & ! Field
2613 WRF_FLOAT , & ! FieldType
2614 grid%communicator , & ! Comm
2615 grid%iocommunicator , & ! Comm
2616 grid%domdesc , & ! Comm
2617 grid%bdy_mask , & ! bdy_mask
2618 'XY' , & ! MemoryOrder
2619 '' , & ! Stagger
2620 'inc/wrf_restartin.inc ext_read_field HBOT memorder XY' , & ! Debug message
2621 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2622 ims , ime , jms , jme , 1 , 1 , &
2623 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2624 ierr )
2625 CALL wrf_ext_read_field ( &
2626 fid , & ! DataHandle
2627 current_date(1:19) , & ! DateStr
2628 'CUPPT' , & ! Data Name
2629 grid%cuppt , & ! Field
2630 WRF_FLOAT , & ! FieldType
2631 grid%communicator , & ! Comm
2632 grid%iocommunicator , & ! Comm
2633 grid%domdesc , & ! Comm
2634 grid%bdy_mask , & ! bdy_mask
2635 'XY' , & ! MemoryOrder
2636 '' , & ! Stagger
2637 'inc/wrf_restartin.inc ext_read_field CUPPT memorder XY' , & ! Debug message
2638 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2639 ims , ime , jms , jme , 1 , 1 , &
2640 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2641 ierr )
2642 CALL wrf_ext_read_field ( &
2643 fid , & ! DataHandle
2644 current_date(1:19) , & ! DateStr
2645 'H_DIABATIC' , & ! Data Name
2646 grid%h_diabatic , & ! Field
2647 WRF_FLOAT , & ! FieldType
2648 grid%communicator , & ! Comm
2649 grid%iocommunicator , & ! Comm
2650 grid%domdesc , & ! Comm
2651 grid%bdy_mask , & ! bdy_mask
2652 'XYZ' , & ! MemoryOrder
2653 '' , & ! Stagger
2654 'inc/wrf_restartin.inc ext_read_field H_DIABATIC memorder XYZ' , & ! Debug message
2655 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
2656 ims , ime , jms , jme , kms , kme , &
2657 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
2658 ierr )
2659 CALL wrf_ext_read_field ( &
2660 fid , & ! DataHandle
2661 current_date(1:19) , & ! DateStr
2662 'MAPFAC_M' , & ! Data Name
2663 grid%msft , & ! Field
2664 WRF_FLOAT , & ! FieldType
2665 grid%communicator , & ! Comm
2666 grid%iocommunicator , & ! Comm
2667 grid%domdesc , & ! Comm
2668 grid%bdy_mask , & ! bdy_mask
2669 'XY' , & ! MemoryOrder
2670 '' , & ! Stagger
2671 'inc/wrf_restartin.inc ext_read_field MAPFAC_M memorder XY' , & ! Debug message
2672 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2673 ims , ime , jms , jme , 1 , 1 , &
2674 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2675 ierr )
2676 CALL wrf_ext_read_field ( &
2677 fid , & ! DataHandle
2678 current_date(1:19) , & ! DateStr
2679 'MAPFAC_U' , & ! Data Name
2680 grid%msfu , & ! Field
2681 WRF_FLOAT , & ! FieldType
2682 grid%communicator , & ! Comm
2683 grid%iocommunicator , & ! Comm
2684 grid%domdesc , & ! Comm
2685 grid%bdy_mask , & ! bdy_mask
2686 'XY' , & ! MemoryOrder
2687 'X' , & ! Stagger
2688 'inc/wrf_restartin.inc ext_read_field MAPFAC_U memorder XY' , & ! Debug message
2689 ids , ide , jds , (jde-1) , 1 , 1 , &
2690 ims , ime , jms , jme , 1 , 1 , &
2691 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2692 ierr )
2693 CALL wrf_ext_read_field ( &
2694 fid , & ! DataHandle
2695 current_date(1:19) , & ! DateStr
2696 'MAPFAC_V' , & ! Data Name
2697 grid%msfv , & ! Field
2698 WRF_FLOAT , & ! FieldType
2699 grid%communicator , & ! Comm
2700 grid%iocommunicator , & ! Comm
2701 grid%domdesc , & ! Comm
2702 grid%bdy_mask , & ! bdy_mask
2703 'XY' , & ! MemoryOrder
2704 'Y' , & ! Stagger
2705 'inc/wrf_restartin.inc ext_read_field MAPFAC_V memorder XY' , & ! Debug message
2706 ids , (ide-1) , jds , jde , 1 , 1 , &
2707 ims , ime , jms , jme , 1 , 1 , &
2708 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
2709 ierr )
2710 CALL wrf_ext_read_field ( &
2711 fid , & ! DataHandle
2712 current_date(1:19) , & ! DateStr
2713 'F' , & ! Data Name
2714 grid%f , & ! Field
2715 WRF_FLOAT , & ! FieldType
2716 grid%communicator , & ! Comm
2717 grid%iocommunicator , & ! Comm
2718 grid%domdesc , & ! Comm
2719 grid%bdy_mask , & ! bdy_mask
2720 'XY' , & ! MemoryOrder
2721 '' , & ! Stagger
2722 'inc/wrf_restartin.inc ext_read_field F memorder XY' , & ! Debug message
2723 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2724 ims , ime , jms , jme , 1 , 1 , &
2725 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2726 ierr )
2727 CALL wrf_ext_read_field ( &
2728 fid , & ! DataHandle
2729 current_date(1:19) , & ! DateStr
2730 'E' , & ! Data Name
2731 grid%e , & ! Field
2732 WRF_FLOAT , & ! FieldType
2733 grid%communicator , & ! Comm
2734 grid%iocommunicator , & ! Comm
2735 grid%domdesc , & ! Comm
2736 grid%bdy_mask , & ! bdy_mask
2737 'XY' , & ! MemoryOrder
2738 '' , & ! Stagger
2739 'inc/wrf_restartin.inc ext_read_field E memorder XY' , & ! Debug message
2740 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2741 ims , ime , jms , jme , 1 , 1 , &
2742 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2743 ierr )
2744 CALL wrf_ext_read_field ( &
2745 fid , & ! DataHandle
2746 current_date(1:19) , & ! DateStr
2747 'SINALPHA' , & ! Data Name
2748 grid%sina , & ! Field
2749 WRF_FLOAT , & ! FieldType
2750 grid%communicator , & ! Comm
2751 grid%iocommunicator , & ! Comm
2752 grid%domdesc , & ! Comm
2753 grid%bdy_mask , & ! bdy_mask
2754 'XY' , & ! MemoryOrder
2755 '' , & ! Stagger
2756 'inc/wrf_restartin.inc ext_read_field SINALPHA memorder XY' , & ! Debug message
2757 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2758 ims , ime , jms , jme , 1 , 1 , &
2759 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2760 ierr )
2761 CALL wrf_ext_read_field ( &
2762 fid , & ! DataHandle
2763 current_date(1:19) , & ! DateStr
2764 'COSALPHA' , & ! Data Name
2765 grid%cosa , & ! Field
2766 WRF_FLOAT , & ! FieldType
2767 grid%communicator , & ! Comm
2768 grid%iocommunicator , & ! Comm
2769 grid%domdesc , & ! Comm
2770 grid%bdy_mask , & ! bdy_mask
2771 'XY' , & ! MemoryOrder
2772 '' , & ! Stagger
2773 'inc/wrf_restartin.inc ext_read_field COSALPHA memorder XY' , & ! Debug message
2774 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2775 ims , ime , jms , jme , 1 , 1 , &
2776 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2777 ierr )
2778 CALL wrf_ext_read_field ( &
2779 fid , & ! DataHandle
2780 current_date(1:19) , & ! DateStr
2781 'HGT' , & ! Data Name
2782 grid%ht , & ! Field
2783 WRF_FLOAT , & ! FieldType
2784 grid%communicator , & ! Comm
2785 grid%iocommunicator , & ! Comm
2786 grid%domdesc , & ! Comm
2787 grid%bdy_mask , & ! bdy_mask
2788 'XY' , & ! MemoryOrder
2789 '' , & ! Stagger
2790 'inc/wrf_restartin.inc ext_read_field HGT memorder XY' , & ! Debug message
2791 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2792 ims , ime , jms , jme , 1 , 1 , &
2793 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2794 ierr )
2795 CALL wrf_ext_read_field ( &
2796 fid , & ! DataHandle
2797 current_date(1:19) , & ! DateStr
2798 'TSK' , & ! Data Name
2799 grid%tsk , & ! Field
2800 WRF_FLOAT , & ! FieldType
2801 grid%communicator , & ! Comm
2802 grid%iocommunicator , & ! Comm
2803 grid%domdesc , & ! Comm
2804 grid%bdy_mask , & ! bdy_mask
2805 'XY' , & ! MemoryOrder
2806 '' , & ! Stagger
2807 'inc/wrf_restartin.inc ext_read_field TSK memorder XY' , & ! Debug message
2808 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
2809 ims , ime , jms , jme , 1 , 1 , &
2810 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
2811 ierr )
2812 CALL wrf_ext_read_field ( &
2813 fid , & ! DataHandle
2814 current_date(1:19) , & ! DateStr
2815 'U_BASE' , & ! Data Name
2816 grid%u_base , & ! Field
2817 WRF_FLOAT , & ! FieldType
2818 grid%communicator , & ! Comm
2819 grid%iocommunicator , & ! Comm
2820 grid%domdesc , & ! Comm
2821 grid%bdy_mask , & ! bdy_mask
2822 'Z' , & ! MemoryOrder
2823 '' , & ! Stagger
2824 'inc/wrf_restartin.inc ext_read_field U_BASE memorder Z' , & ! Debug message
2825 kds , (kde-1) , 1 , 1 , 1 , 1 , &
2826 kms , kme , 1 , 1 , 1 , 1 , &
2827 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
2828 ierr )
2829 CALL wrf_ext_read_field ( &
2830 fid , & ! DataHandle
2831 current_date(1:19) , & ! DateStr
2832 'V_BASE' , & ! Data Name
2833 grid%v_base , & ! Field
2834 WRF_FLOAT , & ! FieldType
2835 grid%communicator , & ! Comm
2836 grid%iocommunicator , & ! Comm
2837 grid%domdesc , & ! Comm
2838 grid%bdy_mask , & ! bdy_mask
2839 'Z' , & ! MemoryOrder
2840 '' , & ! Stagger
2841 'inc/wrf_restartin.inc ext_read_field V_BASE memorder Z' , & ! Debug message
2842 kds , (kde-1) , 1 , 1 , 1 , 1 , &
2843 kms , kme , 1 , 1 , 1 , 1 , &
2844 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
2845 ierr )
2846 CALL wrf_ext_read_field ( &
2847 fid , & ! DataHandle
2848 current_date(1:19) , & ! DateStr
2849 'QV_BASE' , & ! Data Name
2850 grid%qv_base , & ! Field
2851 WRF_FLOAT , & ! FieldType
2852 grid%communicator , & ! Comm
2853 grid%iocommunicator , & ! Comm
2854 grid%domdesc , & ! Comm
2855 grid%bdy_mask , & ! bdy_mask
2856 'Z' , & ! MemoryOrder
2857 '' , & ! Stagger
2858 'inc/wrf_restartin.inc ext_read_field QV_BASE memorder Z' , & ! Debug message
2859 kds , (kde-1) , 1 , 1 , 1 , 1 , &
2860 kms , kme , 1 , 1 , 1 , 1 , &
2861 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
2862 ierr )
2863 CALL wrf_ext_read_field ( &
2864 fid , & ! DataHandle
2865 current_date(1:19) , & ! DateStr
2866 'Z_BASE' , & ! Data Name
2867 grid%z_base , & ! Field
2868 WRF_FLOAT , & ! FieldType
2869 grid%communicator , & ! Comm
2870 grid%iocommunicator , & ! Comm
2871 grid%domdesc , & ! Comm
2872 grid%bdy_mask , & ! bdy_mask
2873 'Z' , & ! MemoryOrder
2874 '' , & ! Stagger
2875 'inc/wrf_restartin.inc ext_read_field Z_BASE memorder Z' , & ! Debug message
2876 kds , (kde-1) , 1 , 1 , 1 , 1 , &
2877 kms , kme , 1 , 1 , 1 , 1 , &
2878 kps , MIN( (kde-1), kpe ) , 1 , 1 , 1 , 1 , &
2879 ierr )
2880 CALL wrf_ext_read_field ( &
2881 fid , & ! DataHandle
2882 current_date(1:19) , & ! DateStr
2883 'U_FRAME' , & ! Data Name
2884 grid%u_frame , & ! Field
2885 WRF_FLOAT , & ! FieldType
2886 grid%communicator , & ! Comm
2887 grid%iocommunicator , & ! Comm
2888 grid%domdesc , & ! Comm
2889 grid%bdy_mask , & ! bdy_mask
2890 '0' , & ! MemoryOrder
2891 '' , & ! Stagger
2892 'inc/wrf_restartin.inc ext_read_field U_FRAME memorder 0' , & ! Debug message
2893 1 , 1 , 1 , 1 , 1 , 1 , &
2894 1 , 1 , 1 , 1 , 1 , 1 , &
2895 1 , 1 , 1 , 1 , 1 , 1 , &
2896 ierr )
2897 CALL wrf_ext_read_field ( &
2898 fid , & ! DataHandle
2899 current_date(1:19) , & ! DateStr
2900 'V_FRAME' , & ! Data Name
2901 grid%v_frame , & ! Field
2902 WRF_FLOAT , & ! FieldType
2903 grid%communicator , & ! Comm
2904 grid%iocommunicator , & ! Comm
2905 grid%domdesc , & ! Comm
2906 grid%bdy_mask , & ! bdy_mask
2907 '0' , & ! MemoryOrder
2908 '' , & ! Stagger
2909 'inc/wrf_restartin.inc ext_read_field V_FRAME memorder 0' , & ! Debug message
2910 1 , 1 , 1 , 1 , 1 , 1 , &
2911 1 , 1 , 1 , 1 , 1 , 1 , &
2912 1 , 1 , 1 , 1 , 1 , 1 , &
2913 ierr )
2914 CALL wrf_ext_read_field ( &
2915 fid , & ! DataHandle
2916 current_date(1:19) , & ! DateStr
2917 'P_TOP' , & ! Data Name
2918 grid%p_top , & ! Field
2919 WRF_FLOAT , & ! FieldType
2920 grid%communicator , & ! Comm
2921 grid%iocommunicator , & ! Comm
2922 grid%domdesc , & ! Comm
2923 grid%bdy_mask , & ! bdy_mask
2924 '0' , & ! MemoryOrder
2925 '' , & ! Stagger
2926 'inc/wrf_restartin.inc ext_read_field P_TOP memorder 0' , & ! Debug message
2927 1 , 1 , 1 , 1 , 1 , 1 , &
2928 1 , 1 , 1 , 1 , 1 , 1 , &
2929 1 , 1 , 1 , 1 , 1 , 1 , &
2930 ierr )
2931 CALL wrf_ext_read_field ( &
2932 fid , & ! DataHandle
2933 current_date(1:19) , & ! DateStr
2934 'IMICROGRAM' , & ! Data Name
2935 grid%imicrogram , & ! Field
2936 WRF_integer , & ! FieldType
2937 grid%communicator , & ! Comm
2938 grid%iocommunicator , & ! Comm
2939 grid%domdesc , & ! Comm
2940 grid%bdy_mask , & ! bdy_mask
2941 '0' , & ! MemoryOrder
2942 '' , & ! Stagger
2943 'inc/wrf_restartin.inc ext_read_field IMICROGRAM memorder 0' , & ! Debug message
2944 1 , 1 , 1 , 1 , 1 , 1 , &
2945 1 , 1 , 1 , 1 , 1 , 1 , &
2946 1 , 1 , 1 , 1 , 1 , 1 , &
2947 ierr )
2948 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2949 CALL wrf_ext_read_field ( &
2950 fid , & ! DataHandle
2951 current_date(1:19) , & ! DateStr
2952 'LAT_LL_T' , & ! Data Name
2953 grid%em_lat_ll_t , & ! Field
2954 WRF_FLOAT , & ! FieldType
2955 grid%communicator , & ! Comm
2956 grid%iocommunicator , & ! Comm
2957 grid%domdesc , & ! Comm
2958 grid%bdy_mask , & ! bdy_mask
2959 '0' , & ! MemoryOrder
2960 '' , & ! Stagger
2961 'inc/wrf_restartin.inc ext_read_field LAT_LL_T memorder 0' , & ! Debug message
2962 1 , 1 , 1 , 1 , 1 , 1 , &
2963 1 , 1 , 1 , 1 , 1 , 1 , &
2964 1 , 1 , 1 , 1 , 1 , 1 , &
2965 ierr )
2966 END IF
2967 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2968 CALL wrf_ext_read_field ( &
2969 fid , & ! DataHandle
2970 current_date(1:19) , & ! DateStr
2971 'LAT_UL_T' , & ! Data Name
2972 grid%em_lat_ul_t , & ! Field
2973 WRF_FLOAT , & ! FieldType
2974 grid%communicator , & ! Comm
2975 grid%iocommunicator , & ! Comm
2976 grid%domdesc , & ! Comm
2977 grid%bdy_mask , & ! bdy_mask
2978 '0' , & ! MemoryOrder
2979 '' , & ! Stagger
2980 'inc/wrf_restartin.inc ext_read_field LAT_UL_T memorder 0' , & ! Debug message
2981 1 , 1 , 1 , 1 , 1 , 1 , &
2982 1 , 1 , 1 , 1 , 1 , 1 , &
2983 1 , 1 , 1 , 1 , 1 , 1 , &
2984 ierr )
2985 END IF
2986 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
2987 CALL wrf_ext_read_field ( &
2988 fid , & ! DataHandle
2989 current_date(1:19) , & ! DateStr
2990 'LAT_UR_T' , & ! Data Name
2991 grid%em_lat_ur_t , & ! Field
2992 WRF_FLOAT , & ! FieldType
2993 grid%communicator , & ! Comm
2994 grid%iocommunicator , & ! Comm
2995 grid%domdesc , & ! Comm
2996 grid%bdy_mask , & ! bdy_mask
2997 '0' , & ! MemoryOrder
2998 '' , & ! Stagger
2999 'inc/wrf_restartin.inc ext_read_field LAT_UR_T memorder 0' , & ! Debug message
3000 1 , 1 , 1 , 1 , 1 , 1 , &
3001 1 , 1 , 1 , 1 , 1 , 1 , &
3002 1 , 1 , 1 , 1 , 1 , 1 , &
3003 ierr )
3004 END IF
3005 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3006 CALL wrf_ext_read_field ( &
3007 fid , & ! DataHandle
3008 current_date(1:19) , & ! DateStr
3009 'LAT_LR_T' , & ! Data Name
3010 grid%em_lat_lr_t , & ! Field
3011 WRF_FLOAT , & ! FieldType
3012 grid%communicator , & ! Comm
3013 grid%iocommunicator , & ! Comm
3014 grid%domdesc , & ! Comm
3015 grid%bdy_mask , & ! bdy_mask
3016 '0' , & ! MemoryOrder
3017 '' , & ! Stagger
3018 'inc/wrf_restartin.inc ext_read_field LAT_LR_T memorder 0' , & ! Debug message
3019 1 , 1 , 1 , 1 , 1 , 1 , &
3020 1 , 1 , 1 , 1 , 1 , 1 , &
3021 1 , 1 , 1 , 1 , 1 , 1 , &
3022 ierr )
3023 END IF
3024 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3025 CALL wrf_ext_read_field ( &
3026 fid , & ! DataHandle
3027 current_date(1:19) , & ! DateStr
3028 'LAT_LL_U' , & ! Data Name
3029 grid%em_lat_ll_u , & ! Field
3030 WRF_FLOAT , & ! FieldType
3031 grid%communicator , & ! Comm
3032 grid%iocommunicator , & ! Comm
3033 grid%domdesc , & ! Comm
3034 grid%bdy_mask , & ! bdy_mask
3035 '0' , & ! MemoryOrder
3036 '' , & ! Stagger
3037 'inc/wrf_restartin.inc ext_read_field LAT_LL_U memorder 0' , & ! Debug message
3038 1 , 1 , 1 , 1 , 1 , 1 , &
3039 1 , 1 , 1 , 1 , 1 , 1 , &
3040 1 , 1 , 1 , 1 , 1 , 1 , &
3041 ierr )
3042 END IF
3043 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3044 CALL wrf_ext_read_field ( &
3045 fid , & ! DataHandle
3046 current_date(1:19) , & ! DateStr
3047 'LAT_UL_U' , & ! Data Name
3048 grid%em_lat_ul_u , & ! Field
3049 WRF_FLOAT , & ! FieldType
3050 grid%communicator , & ! Comm
3051 grid%iocommunicator , & ! Comm
3052 grid%domdesc , & ! Comm
3053 grid%bdy_mask , & ! bdy_mask
3054 '0' , & ! MemoryOrder
3055 '' , & ! Stagger
3056 'inc/wrf_restartin.inc ext_read_field LAT_UL_U memorder 0' , & ! Debug message
3057 1 , 1 , 1 , 1 , 1 , 1 , &
3058 1 , 1 , 1 , 1 , 1 , 1 , &
3059 1 , 1 , 1 , 1 , 1 , 1 , &
3060 ierr )
3061 END IF
3062 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3063 CALL wrf_ext_read_field ( &
3064 fid , & ! DataHandle
3065 current_date(1:19) , & ! DateStr
3066 'LAT_UR_U' , & ! Data Name
3067 grid%em_lat_ur_u , & ! Field
3068 WRF_FLOAT , & ! FieldType
3069 grid%communicator , & ! Comm
3070 grid%iocommunicator , & ! Comm
3071 grid%domdesc , & ! Comm
3072 grid%bdy_mask , & ! bdy_mask
3073 '0' , & ! MemoryOrder
3074 '' , & ! Stagger
3075 'inc/wrf_restartin.inc ext_read_field LAT_UR_U memorder 0' , & ! Debug message
3076 1 , 1 , 1 , 1 , 1 , 1 , &
3077 1 , 1 , 1 , 1 , 1 , 1 , &
3078 1 , 1 , 1 , 1 , 1 , 1 , &
3079 ierr )
3080 END IF
3081 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3082 CALL wrf_ext_read_field ( &
3083 fid , & ! DataHandle
3084 current_date(1:19) , & ! DateStr
3085 'LAT_LR_U' , & ! Data Name
3086 grid%em_lat_lr_u , & ! Field
3087 WRF_FLOAT , & ! FieldType
3088 grid%communicator , & ! Comm
3089 grid%iocommunicator , & ! Comm
3090 grid%domdesc , & ! Comm
3091 grid%bdy_mask , & ! bdy_mask
3092 '0' , & ! MemoryOrder
3093 '' , & ! Stagger
3094 'inc/wrf_restartin.inc ext_read_field LAT_LR_U memorder 0' , & ! Debug message
3095 1 , 1 , 1 , 1 , 1 , 1 , &
3096 1 , 1 , 1 , 1 , 1 , 1 , &
3097 1 , 1 , 1 , 1 , 1 , 1 , &
3098 ierr )
3099 END IF
3100 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3101 CALL wrf_ext_read_field ( &
3102 fid , & ! DataHandle
3103 current_date(1:19) , & ! DateStr
3104 'LAT_LL_V' , & ! Data Name
3105 grid%em_lat_ll_v , & ! Field
3106 WRF_FLOAT , & ! FieldType
3107 grid%communicator , & ! Comm
3108 grid%iocommunicator , & ! Comm
3109 grid%domdesc , & ! Comm
3110 grid%bdy_mask , & ! bdy_mask
3111 '0' , & ! MemoryOrder
3112 '' , & ! Stagger
3113 'inc/wrf_restartin.inc ext_read_field LAT_LL_V memorder 0' , & ! Debug message
3114 1 , 1 , 1 , 1 , 1 , 1 , &
3115 1 , 1 , 1 , 1 , 1 , 1 , &
3116 1 , 1 , 1 , 1 , 1 , 1 , &
3117 ierr )
3118 END IF
3119 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3120 CALL wrf_ext_read_field ( &
3121 fid , & ! DataHandle
3122 current_date(1:19) , & ! DateStr
3123 'LAT_UL_V' , & ! Data Name
3124 grid%em_lat_ul_v , & ! Field
3125 WRF_FLOAT , & ! FieldType
3126 grid%communicator , & ! Comm
3127 grid%iocommunicator , & ! Comm
3128 grid%domdesc , & ! Comm
3129 grid%bdy_mask , & ! bdy_mask
3130 '0' , & ! MemoryOrder
3131 '' , & ! Stagger
3132 'inc/wrf_restartin.inc ext_read_field LAT_UL_V memorder 0' , & ! Debug message
3133 1 , 1 , 1 , 1 , 1 , 1 , &
3134 1 , 1 , 1 , 1 , 1 , 1 , &
3135 1 , 1 , 1 , 1 , 1 , 1 , &
3136 ierr )
3137 END IF
3138 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3139 CALL wrf_ext_read_field ( &
3140 fid , & ! DataHandle
3141 current_date(1:19) , & ! DateStr
3142 'LAT_UR_V' , & ! Data Name
3143 grid%em_lat_ur_v , & ! Field
3144 WRF_FLOAT , & ! FieldType
3145 grid%communicator , & ! Comm
3146 grid%iocommunicator , & ! Comm
3147 grid%domdesc , & ! Comm
3148 grid%bdy_mask , & ! bdy_mask
3149 '0' , & ! MemoryOrder
3150 '' , & ! Stagger
3151 'inc/wrf_restartin.inc ext_read_field LAT_UR_V memorder 0' , & ! Debug message
3152 1 , 1 , 1 , 1 , 1 , 1 , &
3153 1 , 1 , 1 , 1 , 1 , 1 , &
3154 1 , 1 , 1 , 1 , 1 , 1 , &
3155 ierr )
3156 END IF
3157 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3158 CALL wrf_ext_read_field ( &
3159 fid , & ! DataHandle
3160 current_date(1:19) , & ! DateStr
3161 'LAT_LR_V' , & ! Data Name
3162 grid%em_lat_lr_v , & ! Field
3163 WRF_FLOAT , & ! FieldType
3164 grid%communicator , & ! Comm
3165 grid%iocommunicator , & ! Comm
3166 grid%domdesc , & ! Comm
3167 grid%bdy_mask , & ! bdy_mask
3168 '0' , & ! MemoryOrder
3169 '' , & ! Stagger
3170 'inc/wrf_restartin.inc ext_read_field LAT_LR_V memorder 0' , & ! Debug message
3171 1 , 1 , 1 , 1 , 1 , 1 , &
3172 1 , 1 , 1 , 1 , 1 , 1 , &
3173 1 , 1 , 1 , 1 , 1 , 1 , &
3174 ierr )
3175 END IF
3176 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3177 CALL wrf_ext_read_field ( &
3178 fid , & ! DataHandle
3179 current_date(1:19) , & ! DateStr
3180 'LAT_LL_D' , & ! Data Name
3181 grid%em_lat_ll_d , & ! Field
3182 WRF_FLOAT , & ! FieldType
3183 grid%communicator , & ! Comm
3184 grid%iocommunicator , & ! Comm
3185 grid%domdesc , & ! Comm
3186 grid%bdy_mask , & ! bdy_mask
3187 '0' , & ! MemoryOrder
3188 '' , & ! Stagger
3189 'inc/wrf_restartin.inc ext_read_field LAT_LL_D memorder 0' , & ! Debug message
3190 1 , 1 , 1 , 1 , 1 , 1 , &
3191 1 , 1 , 1 , 1 , 1 , 1 , &
3192 1 , 1 , 1 , 1 , 1 , 1 , &
3193 ierr )
3194 END IF
3195 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3196 CALL wrf_ext_read_field ( &
3197 fid , & ! DataHandle
3198 current_date(1:19) , & ! DateStr
3199 'LAT_UL_D' , & ! Data Name
3200 grid%em_lat_ul_d , & ! Field
3201 WRF_FLOAT , & ! FieldType
3202 grid%communicator , & ! Comm
3203 grid%iocommunicator , & ! Comm
3204 grid%domdesc , & ! Comm
3205 grid%bdy_mask , & ! bdy_mask
3206 '0' , & ! MemoryOrder
3207 '' , & ! Stagger
3208 'inc/wrf_restartin.inc ext_read_field LAT_UL_D memorder 0' , & ! Debug message
3209 1 , 1 , 1 , 1 , 1 , 1 , &
3210 1 , 1 , 1 , 1 , 1 , 1 , &
3211 1 , 1 , 1 , 1 , 1 , 1 , &
3212 ierr )
3213 END IF
3214 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3215 CALL wrf_ext_read_field ( &
3216 fid , & ! DataHandle
3217 current_date(1:19) , & ! DateStr
3218 'LAT_UR_D' , & ! Data Name
3219 grid%em_lat_ur_d , & ! Field
3220 WRF_FLOAT , & ! FieldType
3221 grid%communicator , & ! Comm
3222 grid%iocommunicator , & ! Comm
3223 grid%domdesc , & ! Comm
3224 grid%bdy_mask , & ! bdy_mask
3225 '0' , & ! MemoryOrder
3226 '' , & ! Stagger
3227 'inc/wrf_restartin.inc ext_read_field LAT_UR_D memorder 0' , & ! Debug message
3228 1 , 1 , 1 , 1 , 1 , 1 , &
3229 1 , 1 , 1 , 1 , 1 , 1 , &
3230 1 , 1 , 1 , 1 , 1 , 1 , &
3231 ierr )
3232 END IF
3233 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3234 CALL wrf_ext_read_field ( &
3235 fid , & ! DataHandle
3236 current_date(1:19) , & ! DateStr
3237 'LAT_LR_D' , & ! Data Name
3238 grid%em_lat_lr_d , & ! Field
3239 WRF_FLOAT , & ! FieldType
3240 grid%communicator , & ! Comm
3241 grid%iocommunicator , & ! Comm
3242 grid%domdesc , & ! Comm
3243 grid%bdy_mask , & ! bdy_mask
3244 '0' , & ! MemoryOrder
3245 '' , & ! Stagger
3246 'inc/wrf_restartin.inc ext_read_field LAT_LR_D memorder 0' , & ! Debug message
3247 1 , 1 , 1 , 1 , 1 , 1 , &
3248 1 , 1 , 1 , 1 , 1 , 1 , &
3249 1 , 1 , 1 , 1 , 1 , 1 , &
3250 ierr )
3251 END IF
3252 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3253 CALL wrf_ext_read_field ( &
3254 fid , & ! DataHandle
3255 current_date(1:19) , & ! DateStr
3256 'LON_LL_T' , & ! Data Name
3257 grid%em_lon_ll_t , & ! Field
3258 WRF_FLOAT , & ! FieldType
3259 grid%communicator , & ! Comm
3260 grid%iocommunicator , & ! Comm
3261 grid%domdesc , & ! Comm
3262 grid%bdy_mask , & ! bdy_mask
3263 '0' , & ! MemoryOrder
3264 '' , & ! Stagger
3265 'inc/wrf_restartin.inc ext_read_field LON_LL_T memorder 0' , & ! Debug message
3266 1 , 1 , 1 , 1 , 1 , 1 , &
3267 1 , 1 , 1 , 1 , 1 , 1 , &
3268 1 , 1 , 1 , 1 , 1 , 1 , &
3269 ierr )
3270 END IF
3271 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3272 CALL wrf_ext_read_field ( &
3273 fid , & ! DataHandle
3274 current_date(1:19) , & ! DateStr
3275 'LON_UL_T' , & ! Data Name
3276 grid%em_lon_ul_t , & ! Field
3277 WRF_FLOAT , & ! FieldType
3278 grid%communicator , & ! Comm
3279 grid%iocommunicator , & ! Comm
3280 grid%domdesc , & ! Comm
3281 grid%bdy_mask , & ! bdy_mask
3282 '0' , & ! MemoryOrder
3283 '' , & ! Stagger
3284 'inc/wrf_restartin.inc ext_read_field LON_UL_T memorder 0' , & ! Debug message
3285 1 , 1 , 1 , 1 , 1 , 1 , &
3286 1 , 1 , 1 , 1 , 1 , 1 , &
3287 1 , 1 , 1 , 1 , 1 , 1 , &
3288 ierr )
3289 END IF
3290 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3291 CALL wrf_ext_read_field ( &
3292 fid , & ! DataHandle
3293 current_date(1:19) , & ! DateStr
3294 'LON_UR_T' , & ! Data Name
3295 grid%em_lon_ur_t , & ! Field
3296 WRF_FLOAT , & ! FieldType
3297 grid%communicator , & ! Comm
3298 grid%iocommunicator , & ! Comm
3299 grid%domdesc , & ! Comm
3300 grid%bdy_mask , & ! bdy_mask
3301 '0' , & ! MemoryOrder
3302 '' , & ! Stagger
3303 'inc/wrf_restartin.inc ext_read_field LON_UR_T memorder 0' , & ! Debug message
3304 1 , 1 , 1 , 1 , 1 , 1 , &
3305 1 , 1 , 1 , 1 , 1 , 1 , &
3306 1 , 1 , 1 , 1 , 1 , 1 , &
3307 ierr )
3308 END IF
3309 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3310 CALL wrf_ext_read_field ( &
3311 fid , & ! DataHandle
3312 current_date(1:19) , & ! DateStr
3313 'LON_LR_T' , & ! Data Name
3314 grid%em_lon_lr_t , & ! Field
3315 WRF_FLOAT , & ! FieldType
3316 grid%communicator , & ! Comm
3317 grid%iocommunicator , & ! Comm
3318 grid%domdesc , & ! Comm
3319 grid%bdy_mask , & ! bdy_mask
3320 '0' , & ! MemoryOrder
3321 '' , & ! Stagger
3322 'inc/wrf_restartin.inc ext_read_field LON_LR_T memorder 0' , & ! Debug message
3323 1 , 1 , 1 , 1 , 1 , 1 , &
3324 1 , 1 , 1 , 1 , 1 , 1 , &
3325 1 , 1 , 1 , 1 , 1 , 1 , &
3326 ierr )
3327 END IF
3328 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3329 CALL wrf_ext_read_field ( &
3330 fid , & ! DataHandle
3331 current_date(1:19) , & ! DateStr
3332 'LON_LL_U' , & ! Data Name
3333 grid%em_lon_ll_u , & ! Field
3334 WRF_FLOAT , & ! FieldType
3335 grid%communicator , & ! Comm
3336 grid%iocommunicator , & ! Comm
3337 grid%domdesc , & ! Comm
3338 grid%bdy_mask , & ! bdy_mask
3339 '0' , & ! MemoryOrder
3340 '' , & ! Stagger
3341 'inc/wrf_restartin.inc ext_read_field LON_LL_U memorder 0' , & ! Debug message
3342 1 , 1 , 1 , 1 , 1 , 1 , &
3343 1 , 1 , 1 , 1 , 1 , 1 , &
3344 1 , 1 , 1 , 1 , 1 , 1 , &
3345 ierr )
3346 END IF
3347 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3348 CALL wrf_ext_read_field ( &
3349 fid , & ! DataHandle
3350 current_date(1:19) , & ! DateStr
3351 'LON_UL_U' , & ! Data Name
3352 grid%em_lon_ul_u , & ! Field
3353 WRF_FLOAT , & ! FieldType
3354 grid%communicator , & ! Comm
3355 grid%iocommunicator , & ! Comm
3356 grid%domdesc , & ! Comm
3357 grid%bdy_mask , & ! bdy_mask
3358 '0' , & ! MemoryOrder
3359 '' , & ! Stagger
3360 'inc/wrf_restartin.inc ext_read_field LON_UL_U memorder 0' , & ! Debug message
3361 1 , 1 , 1 , 1 , 1 , 1 , &
3362 1 , 1 , 1 , 1 , 1 , 1 , &
3363 1 , 1 , 1 , 1 , 1 , 1 , &
3364 ierr )
3365 END IF
3366 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3367 CALL wrf_ext_read_field ( &
3368 fid , & ! DataHandle
3369 current_date(1:19) , & ! DateStr
3370 'LON_UR_U' , & ! Data Name
3371 grid%em_lon_ur_u , & ! Field
3372 WRF_FLOAT , & ! FieldType
3373 grid%communicator , & ! Comm
3374 grid%iocommunicator , & ! Comm
3375 grid%domdesc , & ! Comm
3376 grid%bdy_mask , & ! bdy_mask
3377 '0' , & ! MemoryOrder
3378 '' , & ! Stagger
3379 'inc/wrf_restartin.inc ext_read_field LON_UR_U memorder 0' , & ! Debug message
3380 1 , 1 , 1 , 1 , 1 , 1 , &
3381 1 , 1 , 1 , 1 , 1 , 1 , &
3382 1 , 1 , 1 , 1 , 1 , 1 , &
3383 ierr )
3384 END IF
3385 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3386 CALL wrf_ext_read_field ( &
3387 fid , & ! DataHandle
3388 current_date(1:19) , & ! DateStr
3389 'LON_LR_U' , & ! Data Name
3390 grid%em_lon_lr_u , & ! Field
3391 WRF_FLOAT , & ! FieldType
3392 grid%communicator , & ! Comm
3393 grid%iocommunicator , & ! Comm
3394 grid%domdesc , & ! Comm
3395 grid%bdy_mask , & ! bdy_mask
3396 '0' , & ! MemoryOrder
3397 '' , & ! Stagger
3398 'inc/wrf_restartin.inc ext_read_field LON_LR_U memorder 0' , & ! Debug message
3399 1 , 1 , 1 , 1 , 1 , 1 , &
3400 1 , 1 , 1 , 1 , 1 , 1 , &
3401 1 , 1 , 1 , 1 , 1 , 1 , &
3402 ierr )
3403 END IF
3404 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3405 CALL wrf_ext_read_field ( &
3406 fid , & ! DataHandle
3407 current_date(1:19) , & ! DateStr
3408 'LON_LL_V' , & ! Data Name
3409 grid%em_lon_ll_v , & ! Field
3410 WRF_FLOAT , & ! FieldType
3411 grid%communicator , & ! Comm
3412 grid%iocommunicator , & ! Comm
3413 grid%domdesc , & ! Comm
3414 grid%bdy_mask , & ! bdy_mask
3415 '0' , & ! MemoryOrder
3416 '' , & ! Stagger
3417 'inc/wrf_restartin.inc ext_read_field LON_LL_V memorder 0' , & ! Debug message
3418 1 , 1 , 1 , 1 , 1 , 1 , &
3419 1 , 1 , 1 , 1 , 1 , 1 , &
3420 1 , 1 , 1 , 1 , 1 , 1 , &
3421 ierr )
3422 END IF
3423 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3424 CALL wrf_ext_read_field ( &
3425 fid , & ! DataHandle
3426 current_date(1:19) , & ! DateStr
3427 'LON_UL_V' , & ! Data Name
3428 grid%em_lon_ul_v , & ! Field
3429 WRF_FLOAT , & ! FieldType
3430 grid%communicator , & ! Comm
3431 grid%iocommunicator , & ! Comm
3432 grid%domdesc , & ! Comm
3433 grid%bdy_mask , & ! bdy_mask
3434 '0' , & ! MemoryOrder
3435 '' , & ! Stagger
3436 'inc/wrf_restartin.inc ext_read_field LON_UL_V memorder 0' , & ! Debug message
3437 1 , 1 , 1 , 1 , 1 , 1 , &
3438 1 , 1 , 1 , 1 , 1 , 1 , &
3439 1 , 1 , 1 , 1 , 1 , 1 , &
3440 ierr )
3441 END IF
3442 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3443 CALL wrf_ext_read_field ( &
3444 fid , & ! DataHandle
3445 current_date(1:19) , & ! DateStr
3446 'LON_UR_V' , & ! Data Name
3447 grid%em_lon_ur_v , & ! Field
3448 WRF_FLOAT , & ! FieldType
3449 grid%communicator , & ! Comm
3450 grid%iocommunicator , & ! Comm
3451 grid%domdesc , & ! Comm
3452 grid%bdy_mask , & ! bdy_mask
3453 '0' , & ! MemoryOrder
3454 '' , & ! Stagger
3455 'inc/wrf_restartin.inc ext_read_field LON_UR_V memorder 0' , & ! Debug message
3456 1 , 1 , 1 , 1 , 1 , 1 , &
3457 1 , 1 , 1 , 1 , 1 , 1 , &
3458 1 , 1 , 1 , 1 , 1 , 1 , &
3459 ierr )
3460 END IF
3461 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3462 CALL wrf_ext_read_field ( &
3463 fid , & ! DataHandle
3464 current_date(1:19) , & ! DateStr
3465 'LON_LR_V' , & ! Data Name
3466 grid%em_lon_lr_v , & ! Field
3467 WRF_FLOAT , & ! FieldType
3468 grid%communicator , & ! Comm
3469 grid%iocommunicator , & ! Comm
3470 grid%domdesc , & ! Comm
3471 grid%bdy_mask , & ! bdy_mask
3472 '0' , & ! MemoryOrder
3473 '' , & ! Stagger
3474 'inc/wrf_restartin.inc ext_read_field LON_LR_V memorder 0' , & ! Debug message
3475 1 , 1 , 1 , 1 , 1 , 1 , &
3476 1 , 1 , 1 , 1 , 1 , 1 , &
3477 1 , 1 , 1 , 1 , 1 , 1 , &
3478 ierr )
3479 END IF
3480 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3481 CALL wrf_ext_read_field ( &
3482 fid , & ! DataHandle
3483 current_date(1:19) , & ! DateStr
3484 'LON_LL_D' , & ! Data Name
3485 grid%em_lon_ll_d , & ! Field
3486 WRF_FLOAT , & ! FieldType
3487 grid%communicator , & ! Comm
3488 grid%iocommunicator , & ! Comm
3489 grid%domdesc , & ! Comm
3490 grid%bdy_mask , & ! bdy_mask
3491 '0' , & ! MemoryOrder
3492 '' , & ! Stagger
3493 'inc/wrf_restartin.inc ext_read_field LON_LL_D memorder 0' , & ! Debug message
3494 1 , 1 , 1 , 1 , 1 , 1 , &
3495 1 , 1 , 1 , 1 , 1 , 1 , &
3496 1 , 1 , 1 , 1 , 1 , 1 , &
3497 ierr )
3498 END IF
3499 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3500 CALL wrf_ext_read_field ( &
3501 fid , & ! DataHandle
3502 current_date(1:19) , & ! DateStr
3503 'LON_UL_D' , & ! Data Name
3504 grid%em_lon_ul_d , & ! Field
3505 WRF_FLOAT , & ! FieldType
3506 grid%communicator , & ! Comm
3507 grid%iocommunicator , & ! Comm
3508 grid%domdesc , & ! Comm
3509 grid%bdy_mask , & ! bdy_mask
3510 '0' , & ! MemoryOrder
3511 '' , & ! Stagger
3512 'inc/wrf_restartin.inc ext_read_field LON_UL_D memorder 0' , & ! Debug message
3513 1 , 1 , 1 , 1 , 1 , 1 , &
3514 1 , 1 , 1 , 1 , 1 , 1 , &
3515 1 , 1 , 1 , 1 , 1 , 1 , &
3516 ierr )
3517 END IF
3518 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3519 CALL wrf_ext_read_field ( &
3520 fid , & ! DataHandle
3521 current_date(1:19) , & ! DateStr
3522 'LON_UR_D' , & ! Data Name
3523 grid%em_lon_ur_d , & ! Field
3524 WRF_FLOAT , & ! FieldType
3525 grid%communicator , & ! Comm
3526 grid%iocommunicator , & ! Comm
3527 grid%domdesc , & ! Comm
3528 grid%bdy_mask , & ! bdy_mask
3529 '0' , & ! MemoryOrder
3530 '' , & ! Stagger
3531 'inc/wrf_restartin.inc ext_read_field LON_UR_D memorder 0' , & ! Debug message
3532 1 , 1 , 1 , 1 , 1 , 1 , &
3533 1 , 1 , 1 , 1 , 1 , 1 , &
3534 1 , 1 , 1 , 1 , 1 , 1 , &
3535 ierr )
3536 END IF
3537 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
3538 CALL wrf_ext_read_field ( &
3539 fid , & ! DataHandle
3540 current_date(1:19) , & ! DateStr
3541 'LON_LR_D' , & ! Data Name
3542 grid%em_lon_lr_d , & ! Field
3543 WRF_FLOAT , & ! FieldType
3544 grid%communicator , & ! Comm
3545 grid%iocommunicator , & ! Comm
3546 grid%domdesc , & ! Comm
3547 grid%bdy_mask , & ! bdy_mask
3548 '0' , & ! MemoryOrder
3549 '' , & ! Stagger
3550 'inc/wrf_restartin.inc ext_read_field LON_LR_D memorder 0' , & ! Debug message
3551 1 , 1 , 1 , 1 , 1 , 1 , &
3552 1 , 1 , 1 , 1 , 1 , 1 , &
3553 1 , 1 , 1 , 1 , 1 , 1 , &
3554 ierr )
3555 END IF
3556 CALL wrf_ext_read_field ( &
3557 fid , & ! DataHandle
3558 current_date(1:19) , & ! DateStr
3559 'RTHCUTEN' , & ! Data Name
3560 grid%rthcuten , & ! Field
3561 WRF_FLOAT , & ! FieldType
3562 grid%communicator , & ! Comm
3563 grid%iocommunicator , & ! Comm
3564 grid%domdesc , & ! Comm
3565 grid%bdy_mask , & ! bdy_mask
3566 'XYZ' , & ! MemoryOrder
3567 '' , & ! Stagger
3568 'inc/wrf_restartin.inc ext_read_field RTHCUTEN memorder XYZ' , & ! Debug message
3569 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
3570 ims , ime , jms , jme , kms , kme , &
3571 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
3572 ierr )
3573 CALL wrf_ext_read_field ( &
3574 fid , & ! DataHandle
3575 current_date(1:19) , & ! DateStr
3576 'RQVCUTEN' , & ! Data Name
3577 grid%rqvcuten , & ! Field
3578 WRF_FLOAT , & ! FieldType
3579 grid%communicator , & ! Comm
3580 grid%iocommunicator , & ! Comm
3581 grid%domdesc , & ! Comm
3582 grid%bdy_mask , & ! bdy_mask
3583 'XYZ' , & ! MemoryOrder
3584 '' , & ! Stagger
3585 'inc/wrf_restartin.inc ext_read_field RQVCUTEN memorder XYZ' , & ! Debug message
3586 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
3587 ims , ime , jms , jme , kms , kme , &
3588 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
3589 ierr )
3590 CALL wrf_ext_read_field ( &
3591 fid , & ! DataHandle
3592 current_date(1:19) , & ! DateStr
3593 'RQRCUTEN' , & ! Data Name
3594 grid%rqrcuten , & ! Field
3595 WRF_FLOAT , & ! FieldType
3596 grid%communicator , & ! Comm
3597 grid%iocommunicator , & ! Comm
3598 grid%domdesc , & ! Comm
3599 grid%bdy_mask , & ! bdy_mask
3600 'XYZ' , & ! MemoryOrder
3601 '' , & ! Stagger
3602 'inc/wrf_restartin.inc ext_read_field RQRCUTEN memorder XYZ' , & ! Debug message
3603 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
3604 ims , ime , jms , jme , kms , kme , &
3605 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
3606 ierr )
3607 CALL wrf_ext_read_field ( &
3608 fid , & ! DataHandle
3609 current_date(1:19) , & ! DateStr
3610 'RQCCUTEN' , & ! Data Name
3611 grid%rqccuten , & ! Field
3612 WRF_FLOAT , & ! FieldType
3613 grid%communicator , & ! Comm
3614 grid%iocommunicator , & ! Comm
3615 grid%domdesc , & ! Comm
3616 grid%bdy_mask , & ! bdy_mask
3617 'XYZ' , & ! MemoryOrder
3618 '' , & ! Stagger
3619 'inc/wrf_restartin.inc ext_read_field RQCCUTEN memorder XYZ' , & ! Debug message
3620 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
3621 ims , ime , jms , jme , kms , kme , &
3622 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
3623 ierr )
3624 CALL wrf_ext_read_field ( &
3625 fid , & ! DataHandle
3626 current_date(1:19) , & ! DateStr
3627 'RQSCUTEN' , & ! Data Name
3628 grid%rqscuten , & ! Field
3629 WRF_FLOAT , & ! FieldType
3630 grid%communicator , & ! Comm
3631 grid%iocommunicator , & ! Comm
3632 grid%domdesc , & ! Comm
3633 grid%bdy_mask , & ! bdy_mask
3634 'XYZ' , & ! MemoryOrder
3635 '' , & ! Stagger
3636 'inc/wrf_restartin.inc ext_read_field RQSCUTEN memorder XYZ' , & ! Debug message
3637 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
3638 ims , ime , jms , jme , kms , kme , &
3639 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
3640 ierr )
3641 CALL wrf_ext_read_field ( &
3642 fid , & ! DataHandle
3643 current_date(1:19) , & ! DateStr
3644 'RQICUTEN' , & ! Data Name
3645 grid%rqicuten , & ! Field
3646 WRF_FLOAT , & ! FieldType
3647 grid%communicator , & ! Comm
3648 grid%iocommunicator , & ! Comm
3649 grid%domdesc , & ! Comm
3650 grid%bdy_mask , & ! bdy_mask
3651 'XYZ' , & ! MemoryOrder
3652 '' , & ! Stagger
3653 'inc/wrf_restartin.inc ext_read_field RQICUTEN memorder XYZ' , & ! Debug message
3654 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
3655 ims , ime , jms , jme , kms , kme , &
3656 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
3657 ierr )
3658 CALL wrf_ext_read_field ( &
3659 fid , & ! DataHandle
3660 current_date(1:19) , & ! DateStr
3661 'W0AVG' , & ! Data Name
3662 grid%w0avg , & ! Field
3663 WRF_FLOAT , & ! FieldType
3664 grid%communicator , & ! Comm
3665 grid%iocommunicator , & ! Comm
3666 grid%domdesc , & ! Comm
3667 grid%bdy_mask , & ! bdy_mask
3668 'XYZ' , & ! MemoryOrder
3669 '' , & ! Stagger
3670 'inc/wrf_restartin.inc ext_read_field W0AVG memorder XYZ' , & ! Debug message
3671 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
3672 ims , ime , jms , jme , kms , kme , &
3673 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
3674 ierr )
3675 CALL wrf_ext_read_field ( &
3676 fid , & ! DataHandle
3677 current_date(1:19) , & ! DateStr
3678 'RAINC' , & ! Data Name
3679 grid%rainc , & ! Field
3680 WRF_FLOAT , & ! FieldType
3681 grid%communicator , & ! Comm
3682 grid%iocommunicator , & ! Comm
3683 grid%domdesc , & ! Comm
3684 grid%bdy_mask , & ! bdy_mask
3685 'XY' , & ! MemoryOrder
3686 '' , & ! Stagger
3687 'inc/wrf_restartin.inc ext_read_field RAINC memorder XY' , & ! Debug message
3688 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3689 ims , ime , jms , jme , 1 , 1 , &
3690 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3691 ierr )
3692 CALL wrf_ext_read_field ( &
3693 fid , & ! DataHandle
3694 current_date(1:19) , & ! DateStr
3695 'RAINNC' , & ! Data Name
3696 grid%rainnc , & ! Field
3697 WRF_FLOAT , & ! FieldType
3698 grid%communicator , & ! Comm
3699 grid%iocommunicator , & ! Comm
3700 grid%domdesc , & ! Comm
3701 grid%bdy_mask , & ! bdy_mask
3702 'XY' , & ! MemoryOrder
3703 '' , & ! Stagger
3704 'inc/wrf_restartin.inc ext_read_field RAINNC memorder XY' , & ! Debug message
3705 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3706 ims , ime , jms , jme , 1 , 1 , &
3707 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3708 ierr )
3709 CALL wrf_ext_read_field ( &
3710 fid , & ! DataHandle
3711 current_date(1:19) , & ! DateStr
3712 'RAINCV' , & ! Data Name
3713 grid%raincv , & ! Field
3714 WRF_FLOAT , & ! FieldType
3715 grid%communicator , & ! Comm
3716 grid%iocommunicator , & ! Comm
3717 grid%domdesc , & ! Comm
3718 grid%bdy_mask , & ! bdy_mask
3719 'XY' , & ! MemoryOrder
3720 '' , & ! Stagger
3721 'inc/wrf_restartin.inc ext_read_field RAINCV memorder XY' , & ! Debug message
3722 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3723 ims , ime , jms , jme , 1 , 1 , &
3724 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3725 ierr )
3726 CALL wrf_ext_read_field ( &
3727 fid , & ! DataHandle
3728 current_date(1:19) , & ! DateStr
3729 'RAINNCV' , & ! Data Name
3730 grid%rainncv , & ! Field
3731 WRF_FLOAT , & ! FieldType
3732 grid%communicator , & ! Comm
3733 grid%iocommunicator , & ! Comm
3734 grid%domdesc , & ! Comm
3735 grid%bdy_mask , & ! bdy_mask
3736 'XY' , & ! MemoryOrder
3737 '' , & ! Stagger
3738 'inc/wrf_restartin.inc ext_read_field RAINNCV memorder XY' , & ! Debug message
3739 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3740 ims , ime , jms , jme , 1 , 1 , &
3741 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3742 ierr )
3743 CALL wrf_ext_read_field ( &
3744 fid , & ! DataHandle
3745 current_date(1:19) , & ! DateStr
3746 'RAINBL' , & ! Data Name
3747 grid%rainbl , & ! Field
3748 WRF_FLOAT , & ! FieldType
3749 grid%communicator , & ! Comm
3750 grid%iocommunicator , & ! Comm
3751 grid%domdesc , & ! Comm
3752 grid%bdy_mask , & ! bdy_mask
3753 'XY' , & ! MemoryOrder
3754 '' , & ! Stagger
3755 'inc/wrf_restartin.inc ext_read_field RAINBL memorder XY' , & ! Debug message
3756 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3757 ims , ime , jms , jme , 1 , 1 , &
3758 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3759 ierr )
3760 CALL wrf_ext_read_field ( &
3761 fid , & ! DataHandle
3762 current_date(1:19) , & ! DateStr
3763 'SNOWNC' , & ! Data Name
3764 grid%snownc , & ! Field
3765 WRF_FLOAT , & ! FieldType
3766 grid%communicator , & ! Comm
3767 grid%iocommunicator , & ! Comm
3768 grid%domdesc , & ! Comm
3769 grid%bdy_mask , & ! bdy_mask
3770 'XY' , & ! MemoryOrder
3771 '' , & ! Stagger
3772 'inc/wrf_restartin.inc ext_read_field SNOWNC memorder XY' , & ! Debug message
3773 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3774 ims , ime , jms , jme , 1 , 1 , &
3775 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3776 ierr )
3777 CALL wrf_ext_read_field ( &
3778 fid , & ! DataHandle
3779 current_date(1:19) , & ! DateStr
3780 'GRAUPELNC' , & ! Data Name
3781 grid%graupelnc , & ! Field
3782 WRF_FLOAT , & ! FieldType
3783 grid%communicator , & ! Comm
3784 grid%iocommunicator , & ! Comm
3785 grid%domdesc , & ! Comm
3786 grid%bdy_mask , & ! bdy_mask
3787 'XY' , & ! MemoryOrder
3788 '' , & ! Stagger
3789 'inc/wrf_restartin.inc ext_read_field GRAUPELNC memorder XY' , & ! Debug message
3790 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3791 ims , ime , jms , jme , 1 , 1 , &
3792 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3793 ierr )
3794 CALL wrf_ext_read_field ( &
3795 fid , & ! DataHandle
3796 current_date(1:19) , & ! DateStr
3797 'SNOWNCV' , & ! Data Name
3798 grid%snowncv , & ! Field
3799 WRF_FLOAT , & ! FieldType
3800 grid%communicator , & ! Comm
3801 grid%iocommunicator , & ! Comm
3802 grid%domdesc , & ! Comm
3803 grid%bdy_mask , & ! bdy_mask
3804 'XY' , & ! MemoryOrder
3805 '' , & ! Stagger
3806 'inc/wrf_restartin.inc ext_read_field SNOWNCV memorder XY' , & ! Debug message
3807 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3808 ims , ime , jms , jme , 1 , 1 , &
3809 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3810 ierr )
3811 CALL wrf_ext_read_field ( &
3812 fid , & ! DataHandle
3813 current_date(1:19) , & ! DateStr
3814 'GRAUPELNCV' , & ! Data Name
3815 grid%graupelncv , & ! Field
3816 WRF_FLOAT , & ! FieldType
3817 grid%communicator , & ! Comm
3818 grid%iocommunicator , & ! Comm
3819 grid%domdesc , & ! Comm
3820 grid%bdy_mask , & ! bdy_mask
3821 'XY' , & ! MemoryOrder
3822 '' , & ! Stagger
3823 'inc/wrf_restartin.inc ext_read_field GRAUPELNCV memorder XY' , & ! Debug message
3824 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3825 ims , ime , jms , jme , 1 , 1 , &
3826 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3827 ierr )
3828 CALL wrf_ext_read_field ( &
3829 fid , & ! DataHandle
3830 current_date(1:19) , & ! DateStr
3831 'NCA' , & ! Data Name
3832 grid%nca , & ! Field
3833 WRF_FLOAT , & ! FieldType
3834 grid%communicator , & ! Comm
3835 grid%iocommunicator , & ! Comm
3836 grid%domdesc , & ! Comm
3837 grid%bdy_mask , & ! bdy_mask
3838 'XY' , & ! MemoryOrder
3839 '' , & ! Stagger
3840 'inc/wrf_restartin.inc ext_read_field NCA memorder XY' , & ! Debug message
3841 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3842 ims , ime , jms , jme , 1 , 1 , &
3843 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3844 ierr )
3845 CALL wrf_ext_read_field ( &
3846 fid , & ! DataHandle
3847 current_date(1:19) , & ! DateStr
3848 'MASS_FLUX' , & ! Data Name
3849 grid%mass_flux , & ! Field
3850 WRF_FLOAT , & ! FieldType
3851 grid%communicator , & ! Comm
3852 grid%iocommunicator , & ! Comm
3853 grid%domdesc , & ! Comm
3854 grid%bdy_mask , & ! bdy_mask
3855 'XY' , & ! MemoryOrder
3856 '' , & ! Stagger
3857 'inc/wrf_restartin.inc ext_read_field MASS_FLUX memorder XY' , & ! Debug message
3858 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3859 ims , ime , jms , jme , 1 , 1 , &
3860 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3861 ierr )
3862 CALL wrf_ext_read_field ( &
3863 fid , & ! DataHandle
3864 current_date(1:19) , & ! DateStr
3865 'APR_GR' , & ! Data Name
3866 grid%apr_gr , & ! Field
3867 WRF_FLOAT , & ! FieldType
3868 grid%communicator , & ! Comm
3869 grid%iocommunicator , & ! Comm
3870 grid%domdesc , & ! Comm
3871 grid%bdy_mask , & ! bdy_mask
3872 'XY' , & ! MemoryOrder
3873 '' , & ! Stagger
3874 'inc/wrf_restartin.inc ext_read_field APR_GR memorder XY' , & ! Debug message
3875 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3876 ims , ime , jms , jme , 1 , 1 , &
3877 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3878 ierr )
3879 CALL wrf_ext_read_field ( &
3880 fid , & ! DataHandle
3881 current_date(1:19) , & ! DateStr
3882 'APR_W' , & ! Data Name
3883 grid%apr_w , & ! Field
3884 WRF_FLOAT , & ! FieldType
3885 grid%communicator , & ! Comm
3886 grid%iocommunicator , & ! Comm
3887 grid%domdesc , & ! Comm
3888 grid%bdy_mask , & ! bdy_mask
3889 'XY' , & ! MemoryOrder
3890 '' , & ! Stagger
3891 'inc/wrf_restartin.inc ext_read_field APR_W memorder XY' , & ! Debug message
3892 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3893 ims , ime , jms , jme , 1 , 1 , &
3894 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3895 ierr )
3896 CALL wrf_ext_read_field ( &
3897 fid , & ! DataHandle
3898 current_date(1:19) , & ! DateStr
3899 'APR_MC' , & ! Data Name
3900 grid%apr_mc , & ! Field
3901 WRF_FLOAT , & ! FieldType
3902 grid%communicator , & ! Comm
3903 grid%iocommunicator , & ! Comm
3904 grid%domdesc , & ! Comm
3905 grid%bdy_mask , & ! bdy_mask
3906 'XY' , & ! MemoryOrder
3907 '' , & ! Stagger
3908 'inc/wrf_restartin.inc ext_read_field APR_MC memorder XY' , & ! Debug message
3909 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3910 ims , ime , jms , jme , 1 , 1 , &
3911 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3912 ierr )
3913 CALL wrf_ext_read_field ( &
3914 fid , & ! DataHandle
3915 current_date(1:19) , & ! DateStr
3916 'APR_ST' , & ! Data Name
3917 grid%apr_st , & ! Field
3918 WRF_FLOAT , & ! FieldType
3919 grid%communicator , & ! Comm
3920 grid%iocommunicator , & ! Comm
3921 grid%domdesc , & ! Comm
3922 grid%bdy_mask , & ! bdy_mask
3923 'XY' , & ! MemoryOrder
3924 '' , & ! Stagger
3925 'inc/wrf_restartin.inc ext_read_field APR_ST memorder XY' , & ! Debug message
3926 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3927 ims , ime , jms , jme , 1 , 1 , &
3928 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3929 ierr )
3930 CALL wrf_ext_read_field ( &
3931 fid , & ! DataHandle
3932 current_date(1:19) , & ! DateStr
3933 'APR_AS' , & ! Data Name
3934 grid%apr_as , & ! Field
3935 WRF_FLOAT , & ! FieldType
3936 grid%communicator , & ! Comm
3937 grid%iocommunicator , & ! Comm
3938 grid%domdesc , & ! Comm
3939 grid%bdy_mask , & ! bdy_mask
3940 'XY' , & ! MemoryOrder
3941 '' , & ! Stagger
3942 'inc/wrf_restartin.inc ext_read_field APR_AS memorder XY' , & ! Debug message
3943 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3944 ims , ime , jms , jme , 1 , 1 , &
3945 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3946 ierr )
3947 CALL wrf_ext_read_field ( &
3948 fid , & ! DataHandle
3949 current_date(1:19) , & ! DateStr
3950 'APR_CAPMA' , & ! Data Name
3951 grid%apr_capma , & ! Field
3952 WRF_FLOAT , & ! FieldType
3953 grid%communicator , & ! Comm
3954 grid%iocommunicator , & ! Comm
3955 grid%domdesc , & ! Comm
3956 grid%bdy_mask , & ! bdy_mask
3957 'XY' , & ! MemoryOrder
3958 '' , & ! Stagger
3959 'inc/wrf_restartin.inc ext_read_field APR_CAPMA memorder XY' , & ! Debug message
3960 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3961 ims , ime , jms , jme , 1 , 1 , &
3962 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3963 ierr )
3964 CALL wrf_ext_read_field ( &
3965 fid , & ! DataHandle
3966 current_date(1:19) , & ! DateStr
3967 'APR_CAPME' , & ! Data Name
3968 grid%apr_capme , & ! Field
3969 WRF_FLOAT , & ! FieldType
3970 grid%communicator , & ! Comm
3971 grid%iocommunicator , & ! Comm
3972 grid%domdesc , & ! Comm
3973 grid%bdy_mask , & ! bdy_mask
3974 'XY' , & ! MemoryOrder
3975 '' , & ! Stagger
3976 'inc/wrf_restartin.inc ext_read_field APR_CAPME memorder XY' , & ! Debug message
3977 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3978 ims , ime , jms , jme , 1 , 1 , &
3979 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3980 ierr )
3981 CALL wrf_ext_read_field ( &
3982 fid , & ! DataHandle
3983 current_date(1:19) , & ! DateStr
3984 'APR_CAPMI' , & ! Data Name
3985 grid%apr_capmi , & ! Field
3986 WRF_FLOAT , & ! FieldType
3987 grid%communicator , & ! Comm
3988 grid%iocommunicator , & ! Comm
3989 grid%domdesc , & ! Comm
3990 grid%bdy_mask , & ! bdy_mask
3991 'XY' , & ! MemoryOrder
3992 '' , & ! Stagger
3993 'inc/wrf_restartin.inc ext_read_field APR_CAPMI memorder XY' , & ! Debug message
3994 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
3995 ims , ime , jms , jme , 1 , 1 , &
3996 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
3997 ierr )
3998 CALL wrf_ext_read_field ( &
3999 fid , & ! DataHandle
4000 current_date(1:19) , & ! DateStr
4001 'XF_ENS' , & ! Data Name
4002 grid%xf_ens , & ! Field
4003 WRF_FLOAT , & ! FieldType
4004 grid%communicator , & ! Comm
4005 grid%iocommunicator , & ! Comm
4006 grid%domdesc , & ! Comm
4007 grid%bdy_mask , & ! bdy_mask
4008 'XYZ' , & ! MemoryOrder
4009 'Z' , & ! Stagger
4010 'inc/wrf_restartin.inc ext_read_field XF_ENS memorder XYZ' , & ! Debug message
4011 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%ensdim , &
4012 ims , ime , jms , jme , 1 , config_flags%ensdim , &
4013 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%ensdim , &
4014 ierr )
4015 CALL wrf_ext_read_field ( &
4016 fid , & ! DataHandle
4017 current_date(1:19) , & ! DateStr
4018 'PR_ENS' , & ! Data Name
4019 grid%pr_ens , & ! Field
4020 WRF_FLOAT , & ! FieldType
4021 grid%communicator , & ! Comm
4022 grid%iocommunicator , & ! Comm
4023 grid%domdesc , & ! Comm
4024 grid%bdy_mask , & ! bdy_mask
4025 'XYZ' , & ! MemoryOrder
4026 'Z' , & ! Stagger
4027 'inc/wrf_restartin.inc ext_read_field PR_ENS memorder XYZ' , & ! Debug message
4028 ids , (ide-1) , jds , (jde-1) , 1 , config_flags%ensdim , &
4029 ims , ime , jms , jme , 1 , config_flags%ensdim , &
4030 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , config_flags%ensdim , &
4031 ierr )
4032 CALL wrf_ext_read_field ( &
4033 fid , & ! DataHandle
4034 current_date(1:19) , & ! DateStr
4035 'RTHFTEN' , & ! Data Name
4036 grid%rthften , & ! Field
4037 WRF_FLOAT , & ! FieldType
4038 grid%communicator , & ! Comm
4039 grid%iocommunicator , & ! Comm
4040 grid%domdesc , & ! Comm
4041 grid%bdy_mask , & ! bdy_mask
4042 'XYZ' , & ! MemoryOrder
4043 '' , & ! Stagger
4044 'inc/wrf_restartin.inc ext_read_field RTHFTEN memorder XYZ' , & ! Debug message
4045 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4046 ims , ime , jms , jme , kms , kme , &
4047 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4048 ierr )
4049 CALL wrf_ext_read_field ( &
4050 fid , & ! DataHandle
4051 current_date(1:19) , & ! DateStr
4052 'RQVFTEN' , & ! Data Name
4053 grid%rqvften , & ! Field
4054 WRF_FLOAT , & ! FieldType
4055 grid%communicator , & ! Comm
4056 grid%iocommunicator , & ! Comm
4057 grid%domdesc , & ! Comm
4058 grid%bdy_mask , & ! bdy_mask
4059 'XYZ' , & ! MemoryOrder
4060 '' , & ! Stagger
4061 'inc/wrf_restartin.inc ext_read_field RQVFTEN memorder XYZ' , & ! Debug message
4062 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4063 ims , ime , jms , jme , kms , kme , &
4064 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4065 ierr )
4066 CALL wrf_ext_read_field ( &
4067 fid , & ! DataHandle
4068 current_date(1:19) , & ! DateStr
4069 'STEPCU' , & ! Data Name
4070 grid%stepcu , & ! Field
4071 WRF_integer , & ! FieldType
4072 grid%communicator , & ! Comm
4073 grid%iocommunicator , & ! Comm
4074 grid%domdesc , & ! Comm
4075 grid%bdy_mask , & ! bdy_mask
4076 '0' , & ! MemoryOrder
4077 '' , & ! Stagger
4078 'inc/wrf_restartin.inc ext_read_field STEPCU memorder 0' , & ! Debug message
4079 1 , 1 , 1 , 1 , 1 , 1 , &
4080 1 , 1 , 1 , 1 , 1 , 1 , &
4081 1 , 1 , 1 , 1 , 1 , 1 , &
4082 ierr )
4083 CALL wrf_ext_read_field ( &
4084 fid , & ! DataHandle
4085 current_date(1:19) , & ! DateStr
4086 'RTHRATEN' , & ! Data Name
4087 grid%rthraten , & ! Field
4088 WRF_FLOAT , & ! FieldType
4089 grid%communicator , & ! Comm
4090 grid%iocommunicator , & ! Comm
4091 grid%domdesc , & ! Comm
4092 grid%bdy_mask , & ! bdy_mask
4093 'XYZ' , & ! MemoryOrder
4094 '' , & ! Stagger
4095 'inc/wrf_restartin.inc ext_read_field RTHRATEN memorder XYZ' , & ! Debug message
4096 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4097 ims , ime , jms , jme , kms , kme , &
4098 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4099 ierr )
4100 CALL wrf_ext_read_field ( &
4101 fid , & ! DataHandle
4102 current_date(1:19) , & ! DateStr
4103 'RTHRATLW' , & ! Data Name
4104 grid%rthratenlw , & ! Field
4105 WRF_FLOAT , & ! FieldType
4106 grid%communicator , & ! Comm
4107 grid%iocommunicator , & ! Comm
4108 grid%domdesc , & ! Comm
4109 grid%bdy_mask , & ! bdy_mask
4110 'XYZ' , & ! MemoryOrder
4111 '' , & ! Stagger
4112 'inc/wrf_restartin.inc ext_read_field RTHRATLW memorder XYZ' , & ! Debug message
4113 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4114 ims , ime , jms , jme , kms , kme , &
4115 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4116 ierr )
4117 CALL wrf_ext_read_field ( &
4118 fid , & ! DataHandle
4119 current_date(1:19) , & ! DateStr
4120 'RTHRATSW' , & ! Data Name
4121 grid%rthratensw , & ! Field
4122 WRF_FLOAT , & ! FieldType
4123 grid%communicator , & ! Comm
4124 grid%iocommunicator , & ! Comm
4125 grid%domdesc , & ! Comm
4126 grid%bdy_mask , & ! bdy_mask
4127 'XYZ' , & ! MemoryOrder
4128 '' , & ! Stagger
4129 'inc/wrf_restartin.inc ext_read_field RTHRATSW memorder XYZ' , & ! Debug message
4130 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4131 ims , ime , jms , jme , kms , kme , &
4132 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4133 ierr )
4134 CALL wrf_ext_read_field ( &
4135 fid , & ! DataHandle
4136 current_date(1:19) , & ! DateStr
4137 'CLDFRA' , & ! Data Name
4138 grid%cldfra , & ! Field
4139 WRF_FLOAT , & ! FieldType
4140 grid%communicator , & ! Comm
4141 grid%iocommunicator , & ! Comm
4142 grid%domdesc , & ! Comm
4143 grid%bdy_mask , & ! bdy_mask
4144 'XYZ' , & ! MemoryOrder
4145 '' , & ! Stagger
4146 'inc/wrf_restartin.inc ext_read_field CLDFRA memorder XYZ' , & ! Debug message
4147 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4148 ims , ime , jms , jme , kms , kme , &
4149 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4150 ierr )
4151 CALL wrf_ext_read_field ( &
4152 fid , & ! DataHandle
4153 current_date(1:19) , & ! DateStr
4154 'SWDOWN' , & ! Data Name
4155 grid%swdown , & ! Field
4156 WRF_FLOAT , & ! FieldType
4157 grid%communicator , & ! Comm
4158 grid%iocommunicator , & ! Comm
4159 grid%domdesc , & ! Comm
4160 grid%bdy_mask , & ! bdy_mask
4161 'XY' , & ! MemoryOrder
4162 '' , & ! Stagger
4163 'inc/wrf_restartin.inc ext_read_field SWDOWN memorder XY' , & ! Debug message
4164 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4165 ims , ime , jms , jme , 1 , 1 , &
4166 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4167 ierr )
4168 CALL wrf_ext_read_field ( &
4169 fid , & ! DataHandle
4170 current_date(1:19) , & ! DateStr
4171 'GSW' , & ! Data Name
4172 grid%gsw , & ! Field
4173 WRF_FLOAT , & ! FieldType
4174 grid%communicator , & ! Comm
4175 grid%iocommunicator , & ! Comm
4176 grid%domdesc , & ! Comm
4177 grid%bdy_mask , & ! bdy_mask
4178 'XY' , & ! MemoryOrder
4179 '' , & ! Stagger
4180 'inc/wrf_restartin.inc ext_read_field GSW memorder XY' , & ! Debug message
4181 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4182 ims , ime , jms , jme , 1 , 1 , &
4183 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4184 ierr )
4185 CALL wrf_ext_read_field ( &
4186 fid , & ! DataHandle
4187 current_date(1:19) , & ! DateStr
4188 'GLW' , & ! Data Name
4189 grid%glw , & ! Field
4190 WRF_FLOAT , & ! FieldType
4191 grid%communicator , & ! Comm
4192 grid%iocommunicator , & ! Comm
4193 grid%domdesc , & ! Comm
4194 grid%bdy_mask , & ! bdy_mask
4195 'XY' , & ! MemoryOrder
4196 '' , & ! Stagger
4197 'inc/wrf_restartin.inc ext_read_field GLW memorder XY' , & ! Debug message
4198 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4199 ims , ime , jms , jme , 1 , 1 , &
4200 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4201 ierr )
4202 CALL wrf_ext_read_field ( &
4203 fid , & ! DataHandle
4204 current_date(1:19) , & ! DateStr
4205 'SWCF' , & ! Data Name
4206 grid%swcf , & ! Field
4207 WRF_FLOAT , & ! FieldType
4208 grid%communicator , & ! Comm
4209 grid%iocommunicator , & ! Comm
4210 grid%domdesc , & ! Comm
4211 grid%bdy_mask , & ! bdy_mask
4212 'XY' , & ! MemoryOrder
4213 '' , & ! Stagger
4214 'inc/wrf_restartin.inc ext_read_field SWCF memorder XY' , & ! Debug message
4215 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4216 ims , ime , jms , jme , 1 , 1 , &
4217 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4218 ierr )
4219 CALL wrf_ext_read_field ( &
4220 fid , & ! DataHandle
4221 current_date(1:19) , & ! DateStr
4222 'LWCF' , & ! Data Name
4223 grid%lwcf , & ! Field
4224 WRF_FLOAT , & ! FieldType
4225 grid%communicator , & ! Comm
4226 grid%iocommunicator , & ! Comm
4227 grid%domdesc , & ! Comm
4228 grid%bdy_mask , & ! bdy_mask
4229 'XY' , & ! MemoryOrder
4230 '' , & ! Stagger
4231 'inc/wrf_restartin.inc ext_read_field LWCF memorder XY' , & ! Debug message
4232 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4233 ims , ime , jms , jme , 1 , 1 , &
4234 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4235 ierr )
4236 CALL wrf_ext_read_field ( &
4237 fid , & ! DataHandle
4238 current_date(1:19) , & ! DateStr
4239 'OLR' , & ! Data Name
4240 grid%olr , & ! Field
4241 WRF_FLOAT , & ! FieldType
4242 grid%communicator , & ! Comm
4243 grid%iocommunicator , & ! Comm
4244 grid%domdesc , & ! Comm
4245 grid%bdy_mask , & ! bdy_mask
4246 'XY' , & ! MemoryOrder
4247 '' , & ! Stagger
4248 'inc/wrf_restartin.inc ext_read_field OLR memorder XY' , & ! Debug message
4249 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4250 ims , ime , jms , jme , 1 , 1 , &
4251 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4252 ierr )
4253 CALL wrf_ext_read_field ( &
4254 fid , & ! DataHandle
4255 current_date(1:19) , & ! DateStr
4256 'XLAT' , & ! Data Name
4257 grid%xlat , & ! Field
4258 WRF_FLOAT , & ! FieldType
4259 grid%communicator , & ! Comm
4260 grid%iocommunicator , & ! Comm
4261 grid%domdesc , & ! Comm
4262 grid%bdy_mask , & ! bdy_mask
4263 'XY' , & ! MemoryOrder
4264 '' , & ! Stagger
4265 'inc/wrf_restartin.inc ext_read_field XLAT memorder XY' , & ! Debug message
4266 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4267 ims , ime , jms , jme , 1 , 1 , &
4268 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4269 ierr )
4270 CALL wrf_ext_read_field ( &
4271 fid , & ! DataHandle
4272 current_date(1:19) , & ! DateStr
4273 'XLONG' , & ! Data Name
4274 grid%xlong , & ! Field
4275 WRF_FLOAT , & ! FieldType
4276 grid%communicator , & ! Comm
4277 grid%iocommunicator , & ! Comm
4278 grid%domdesc , & ! Comm
4279 grid%bdy_mask , & ! bdy_mask
4280 'XY' , & ! MemoryOrder
4281 '' , & ! Stagger
4282 'inc/wrf_restartin.inc ext_read_field XLONG memorder XY' , & ! Debug message
4283 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4284 ims , ime , jms , jme , 1 , 1 , &
4285 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4286 ierr )
4287 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4288 CALL wrf_ext_read_field ( &
4289 fid , & ! DataHandle
4290 current_date(1:19) , & ! DateStr
4291 'XLAT_U' , & ! Data Name
4292 grid%em_xlat_u , & ! Field
4293 WRF_FLOAT , & ! FieldType
4294 grid%communicator , & ! Comm
4295 grid%iocommunicator , & ! Comm
4296 grid%domdesc , & ! Comm
4297 grid%bdy_mask , & ! bdy_mask
4298 'XY' , & ! MemoryOrder
4299 'X' , & ! Stagger
4300 'inc/wrf_restartin.inc ext_read_field XLAT_U memorder XY' , & ! Debug message
4301 ids , ide , jds , (jde-1) , 1 , 1 , &
4302 ims , ime , jms , jme , 1 , 1 , &
4303 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4304 ierr )
4305 END IF
4306 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4307 CALL wrf_ext_read_field ( &
4308 fid , & ! DataHandle
4309 current_date(1:19) , & ! DateStr
4310 'XLONG_U' , & ! Data Name
4311 grid%em_xlong_u , & ! Field
4312 WRF_FLOAT , & ! FieldType
4313 grid%communicator , & ! Comm
4314 grid%iocommunicator , & ! Comm
4315 grid%domdesc , & ! Comm
4316 grid%bdy_mask , & ! bdy_mask
4317 'XY' , & ! MemoryOrder
4318 'X' , & ! Stagger
4319 'inc/wrf_restartin.inc ext_read_field XLONG_U memorder XY' , & ! Debug message
4320 ids , ide , jds , (jde-1) , 1 , 1 , &
4321 ims , ime , jms , jme , 1 , 1 , &
4322 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4323 ierr )
4324 END IF
4325 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4326 CALL wrf_ext_read_field ( &
4327 fid , & ! DataHandle
4328 current_date(1:19) , & ! DateStr
4329 'XLAT_V' , & ! Data Name
4330 grid%em_xlat_v , & ! Field
4331 WRF_FLOAT , & ! FieldType
4332 grid%communicator , & ! Comm
4333 grid%iocommunicator , & ! Comm
4334 grid%domdesc , & ! Comm
4335 grid%bdy_mask , & ! bdy_mask
4336 'XY' , & ! MemoryOrder
4337 'Y' , & ! Stagger
4338 'inc/wrf_restartin.inc ext_read_field XLAT_V memorder XY' , & ! Debug message
4339 ids , (ide-1) , jds , jde , 1 , 1 , &
4340 ims , ime , jms , jme , 1 , 1 , &
4341 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
4342 ierr )
4343 END IF
4344 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
4345 CALL wrf_ext_read_field ( &
4346 fid , & ! DataHandle
4347 current_date(1:19) , & ! DateStr
4348 'XLONG_V' , & ! Data Name
4349 grid%em_xlong_v , & ! Field
4350 WRF_FLOAT , & ! FieldType
4351 grid%communicator , & ! Comm
4352 grid%iocommunicator , & ! Comm
4353 grid%domdesc , & ! Comm
4354 grid%bdy_mask , & ! bdy_mask
4355 'XY' , & ! MemoryOrder
4356 'Y' , & ! Stagger
4357 'inc/wrf_restartin.inc ext_read_field XLONG_V memorder XY' , & ! Debug message
4358 ids , (ide-1) , jds , jde , 1 , 1 , &
4359 ims , ime , jms , jme , 1 , 1 , &
4360 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
4361 ierr )
4362 END IF
4363 CALL wrf_ext_read_field ( &
4364 fid , & ! DataHandle
4365 current_date(1:19) , & ! DateStr
4366 'ALBEDO' , & ! Data Name
4367 grid%albedo , & ! Field
4368 WRF_FLOAT , & ! FieldType
4369 grid%communicator , & ! Comm
4370 grid%iocommunicator , & ! Comm
4371 grid%domdesc , & ! Comm
4372 grid%bdy_mask , & ! bdy_mask
4373 'XY' , & ! MemoryOrder
4374 '' , & ! Stagger
4375 'inc/wrf_restartin.inc ext_read_field ALBEDO memorder XY' , & ! Debug message
4376 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4377 ims , ime , jms , jme , 1 , 1 , &
4378 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4379 ierr )
4380 CALL wrf_ext_read_field ( &
4381 fid , & ! DataHandle
4382 current_date(1:19) , & ! DateStr
4383 'ALBBCK' , & ! Data Name
4384 grid%albbck , & ! Field
4385 WRF_FLOAT , & ! FieldType
4386 grid%communicator , & ! Comm
4387 grid%iocommunicator , & ! Comm
4388 grid%domdesc , & ! Comm
4389 grid%bdy_mask , & ! bdy_mask
4390 'XY' , & ! MemoryOrder
4391 '' , & ! Stagger
4392 'inc/wrf_restartin.inc ext_read_field ALBBCK memorder XY' , & ! Debug message
4393 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4394 ims , ime , jms , jme , 1 , 1 , &
4395 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4396 ierr )
4397 CALL wrf_ext_read_field ( &
4398 fid , & ! DataHandle
4399 current_date(1:19) , & ! DateStr
4400 'EMISS' , & ! Data Name
4401 grid%emiss , & ! Field
4402 WRF_FLOAT , & ! FieldType
4403 grid%communicator , & ! Comm
4404 grid%iocommunicator , & ! Comm
4405 grid%domdesc , & ! Comm
4406 grid%bdy_mask , & ! bdy_mask
4407 'XY' , & ! MemoryOrder
4408 '' , & ! Stagger
4409 'inc/wrf_restartin.inc ext_read_field EMISS memorder XY' , & ! Debug message
4410 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4411 ims , ime , jms , jme , 1 , 1 , &
4412 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4413 ierr )
4414 CALL wrf_ext_read_field ( &
4415 fid , & ! DataHandle
4416 current_date(1:19) , & ! DateStr
4417 'CLDEFI' , & ! Data Name
4418 grid%cldefi , & ! Field
4419 WRF_FLOAT , & ! FieldType
4420 grid%communicator , & ! Comm
4421 grid%iocommunicator , & ! Comm
4422 grid%domdesc , & ! Comm
4423 grid%bdy_mask , & ! bdy_mask
4424 'XY' , & ! MemoryOrder
4425 '' , & ! Stagger
4426 'inc/wrf_restartin.inc ext_read_field CLDEFI memorder XY' , & ! Debug message
4427 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4428 ims , ime , jms , jme , 1 , 1 , &
4429 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4430 ierr )
4431 CALL wrf_ext_read_field ( &
4432 fid , & ! DataHandle
4433 current_date(1:19) , & ! DateStr
4434 'STEPRA' , & ! Data Name
4435 grid%stepra , & ! Field
4436 WRF_integer , & ! FieldType
4437 grid%communicator , & ! Comm
4438 grid%iocommunicator , & ! Comm
4439 grid%domdesc , & ! Comm
4440 grid%bdy_mask , & ! bdy_mask
4441 '0' , & ! MemoryOrder
4442 '' , & ! Stagger
4443 'inc/wrf_restartin.inc ext_read_field STEPRA memorder 0' , & ! Debug message
4444 1 , 1 , 1 , 1 , 1 , 1 , &
4445 1 , 1 , 1 , 1 , 1 , 1 , &
4446 1 , 1 , 1 , 1 , 1 , 1 , &
4447 ierr )
4448 CALL wrf_ext_read_field ( &
4449 fid , & ! DataHandle
4450 current_date(1:19) , & ! DateStr
4451 'RUBLTEN' , & ! Data Name
4452 grid%rublten , & ! Field
4453 WRF_FLOAT , & ! FieldType
4454 grid%communicator , & ! Comm
4455 grid%iocommunicator , & ! Comm
4456 grid%domdesc , & ! Comm
4457 grid%bdy_mask , & ! bdy_mask
4458 'XYZ' , & ! MemoryOrder
4459 '' , & ! Stagger
4460 'inc/wrf_restartin.inc ext_read_field RUBLTEN memorder XYZ' , & ! Debug message
4461 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4462 ims , ime , jms , jme , kms , kme , &
4463 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4464 ierr )
4465 CALL wrf_ext_read_field ( &
4466 fid , & ! DataHandle
4467 current_date(1:19) , & ! DateStr
4468 'RVBLTEN' , & ! Data Name
4469 grid%rvblten , & ! Field
4470 WRF_FLOAT , & ! FieldType
4471 grid%communicator , & ! Comm
4472 grid%iocommunicator , & ! Comm
4473 grid%domdesc , & ! Comm
4474 grid%bdy_mask , & ! bdy_mask
4475 'XYZ' , & ! MemoryOrder
4476 '' , & ! Stagger
4477 'inc/wrf_restartin.inc ext_read_field RVBLTEN memorder XYZ' , & ! Debug message
4478 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4479 ims , ime , jms , jme , kms , kme , &
4480 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4481 ierr )
4482 CALL wrf_ext_read_field ( &
4483 fid , & ! DataHandle
4484 current_date(1:19) , & ! DateStr
4485 'RTHBLTEN' , & ! Data Name
4486 grid%rthblten , & ! Field
4487 WRF_FLOAT , & ! FieldType
4488 grid%communicator , & ! Comm
4489 grid%iocommunicator , & ! Comm
4490 grid%domdesc , & ! Comm
4491 grid%bdy_mask , & ! bdy_mask
4492 'XYZ' , & ! MemoryOrder
4493 '' , & ! Stagger
4494 'inc/wrf_restartin.inc ext_read_field RTHBLTEN memorder XYZ' , & ! Debug message
4495 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4496 ims , ime , jms , jme , kms , kme , &
4497 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4498 ierr )
4499 CALL wrf_ext_read_field ( &
4500 fid , & ! DataHandle
4501 current_date(1:19) , & ! DateStr
4502 'RQVBLTEN' , & ! Data Name
4503 grid%rqvblten , & ! Field
4504 WRF_FLOAT , & ! FieldType
4505 grid%communicator , & ! Comm
4506 grid%iocommunicator , & ! Comm
4507 grid%domdesc , & ! Comm
4508 grid%bdy_mask , & ! bdy_mask
4509 'XYZ' , & ! MemoryOrder
4510 '' , & ! Stagger
4511 'inc/wrf_restartin.inc ext_read_field RQVBLTEN memorder XYZ' , & ! Debug message
4512 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4513 ims , ime , jms , jme , kms , kme , &
4514 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4515 ierr )
4516 CALL wrf_ext_read_field ( &
4517 fid , & ! DataHandle
4518 current_date(1:19) , & ! DateStr
4519 'RQCBLTEN' , & ! Data Name
4520 grid%rqcblten , & ! Field
4521 WRF_FLOAT , & ! FieldType
4522 grid%communicator , & ! Comm
4523 grid%iocommunicator , & ! Comm
4524 grid%domdesc , & ! Comm
4525 grid%bdy_mask , & ! bdy_mask
4526 'XYZ' , & ! MemoryOrder
4527 '' , & ! Stagger
4528 'inc/wrf_restartin.inc ext_read_field RQCBLTEN memorder XYZ' , & ! Debug message
4529 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4530 ims , ime , jms , jme , kms , kme , &
4531 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4532 ierr )
4533 CALL wrf_ext_read_field ( &
4534 fid , & ! DataHandle
4535 current_date(1:19) , & ! DateStr
4536 'RQIBLTEN' , & ! Data Name
4537 grid%rqiblten , & ! Field
4538 WRF_FLOAT , & ! FieldType
4539 grid%communicator , & ! Comm
4540 grid%iocommunicator , & ! Comm
4541 grid%domdesc , & ! Comm
4542 grid%bdy_mask , & ! bdy_mask
4543 'XYZ' , & ! MemoryOrder
4544 '' , & ! Stagger
4545 'inc/wrf_restartin.inc ext_read_field RQIBLTEN memorder XYZ' , & ! Debug message
4546 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
4547 ims , ime , jms , jme , kms , kme , &
4548 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
4549 ierr )
4550 CALL wrf_ext_read_field ( &
4551 fid , & ! DataHandle
4552 current_date(1:19) , & ! DateStr
4553 'MP_RESTART_STATE' , & ! Data Name
4554 grid%mp_restart_state , & ! Field
4555 WRF_FLOAT , & ! FieldType
4556 grid%communicator , & ! Comm
4557 grid%iocommunicator , & ! Comm
4558 grid%domdesc , & ! Comm
4559 grid%bdy_mask , & ! bdy_mask
4560 'C' , & ! MemoryOrder
4561 '' , & ! Stagger
4562 'inc/wrf_restartin.inc ext_read_field MP_RESTART_STATE memorder C' , & ! Debug message
4563 1 , 7501 , 1 , 1 , 1 , 1 , &
4564 1 , 7501 , 1 , 1 , 1 , 1 , &
4565 1 , 7501 , 1 , 1 , 1 , 1 , &
4566 ierr )
4567 CALL wrf_ext_read_field ( &
4568 fid , & ! DataHandle
4569 current_date(1:19) , & ! DateStr
4570 'TBPVS_STATE' , & ! Data Name
4571 grid%tbpvs_state , & ! Field
4572 WRF_FLOAT , & ! FieldType
4573 grid%communicator , & ! Comm
4574 grid%iocommunicator , & ! Comm
4575 grid%domdesc , & ! Comm
4576 grid%bdy_mask , & ! bdy_mask
4577 'C' , & ! MemoryOrder
4578 '' , & ! Stagger
4579 'inc/wrf_restartin.inc ext_read_field TBPVS_STATE memorder C' , & ! Debug message
4580 1 , 7501 , 1 , 1 , 1 , 1 , &
4581 1 , 7501 , 1 , 1 , 1 , 1 , &
4582 1 , 7501 , 1 , 1 , 1 , 1 , &
4583 ierr )
4584 CALL wrf_ext_read_field ( &
4585 fid , & ! DataHandle
4586 current_date(1:19) , & ! DateStr
4587 'TBPVS0_STATE' , & ! Data Name
4588 grid%tbpvs0_state , & ! Field
4589 WRF_FLOAT , & ! FieldType
4590 grid%communicator , & ! Comm
4591 grid%iocommunicator , & ! Comm
4592 grid%domdesc , & ! Comm
4593 grid%bdy_mask , & ! bdy_mask
4594 'C' , & ! MemoryOrder
4595 '' , & ! Stagger
4596 'inc/wrf_restartin.inc ext_read_field TBPVS0_STATE memorder C' , & ! Debug message
4597 1 , 7501 , 1 , 1 , 1 , 1 , &
4598 1 , 7501 , 1 , 1 , 1 , 1 , &
4599 1 , 7501 , 1 , 1 , 1 , 1 , &
4600 ierr )
4601 CALL wrf_ext_read_field ( &
4602 fid , & ! DataHandle
4603 current_date(1:19) , & ! DateStr
4604 'LANDUSE_ISICE' , & ! Data Name
4605 grid%landuse_isice , & ! Field
4606 WRF_integer , & ! FieldType
4607 grid%communicator , & ! Comm
4608 grid%iocommunicator , & ! Comm
4609 grid%domdesc , & ! Comm
4610 grid%bdy_mask , & ! bdy_mask
4611 '0' , & ! MemoryOrder
4612 '' , & ! Stagger
4613 'inc/wrf_restartin.inc ext_read_field LANDUSE_ISICE memorder 0' , & ! Debug message
4614 1 , 1 , 1 , 1 , 1 , 1 , &
4615 1 , 1 , 1 , 1 , 1 , 1 , &
4616 1 , 1 , 1 , 1 , 1 , 1 , &
4617 ierr )
4618 CALL wrf_ext_read_field ( &
4619 fid , & ! DataHandle
4620 current_date(1:19) , & ! DateStr
4621 'LANDUSE_LUCATS' , & ! Data Name
4622 grid%landuse_lucats , & ! Field
4623 WRF_integer , & ! FieldType
4624 grid%communicator , & ! Comm
4625 grid%iocommunicator , & ! Comm
4626 grid%domdesc , & ! Comm
4627 grid%bdy_mask , & ! bdy_mask
4628 '0' , & ! MemoryOrder
4629 '' , & ! Stagger
4630 'inc/wrf_restartin.inc ext_read_field LANDUSE_LUCATS memorder 0' , & ! Debug message
4631 1 , 1 , 1 , 1 , 1 , 1 , &
4632 1 , 1 , 1 , 1 , 1 , 1 , &
4633 1 , 1 , 1 , 1 , 1 , 1 , &
4634 ierr )
4635 CALL wrf_ext_read_field ( &
4636 fid , & ! DataHandle
4637 current_date(1:19) , & ! DateStr
4638 'LANDUSE_LUSEAS' , & ! Data Name
4639 grid%landuse_luseas , & ! Field
4640 WRF_integer , & ! FieldType
4641 grid%communicator , & ! Comm
4642 grid%iocommunicator , & ! Comm
4643 grid%domdesc , & ! Comm
4644 grid%bdy_mask , & ! bdy_mask
4645 '0' , & ! MemoryOrder
4646 '' , & ! Stagger
4647 'inc/wrf_restartin.inc ext_read_field LANDUSE_LUSEAS memorder 0' , & ! Debug message
4648 1 , 1 , 1 , 1 , 1 , 1 , &
4649 1 , 1 , 1 , 1 , 1 , 1 , &
4650 1 , 1 , 1 , 1 , 1 , 1 , &
4651 ierr )
4652 CALL wrf_ext_read_field ( &
4653 fid , & ! DataHandle
4654 current_date(1:19) , & ! DateStr
4655 'LANDUSE_ISN' , & ! Data Name
4656 grid%landuse_isn , & ! Field
4657 WRF_integer , & ! FieldType
4658 grid%communicator , & ! Comm
4659 grid%iocommunicator , & ! Comm
4660 grid%domdesc , & ! Comm
4661 grid%bdy_mask , & ! bdy_mask
4662 '0' , & ! MemoryOrder
4663 '' , & ! Stagger
4664 'inc/wrf_restartin.inc ext_read_field LANDUSE_ISN memorder 0' , & ! Debug message
4665 1 , 1 , 1 , 1 , 1 , 1 , &
4666 1 , 1 , 1 , 1 , 1 , 1 , &
4667 1 , 1 , 1 , 1 , 1 , 1 , &
4668 ierr )
4669 CALL wrf_ext_read_field ( &
4670 fid , & ! DataHandle
4671 current_date(1:19) , & ! DateStr
4672 'LU_STATE' , & ! Data Name
4673 grid%lu_state , & ! Field
4674 WRF_FLOAT , & ! FieldType
4675 grid%communicator , & ! Comm
4676 grid%iocommunicator , & ! Comm
4677 grid%domdesc , & ! Comm
4678 grid%bdy_mask , & ! bdy_mask
4679 'C' , & ! MemoryOrder
4680 '' , & ! Stagger
4681 'inc/wrf_restartin.inc ext_read_field LU_STATE memorder C' , & ! Debug message
4682 1 , 7501 , 1 , 1 , 1 , 1 , &
4683 1 , 7501 , 1 , 1 , 1 , 1 , &
4684 1 , 7501 , 1 , 1 , 1 , 1 , &
4685 ierr )
4686 CALL wrf_ext_read_field ( &
4687 fid , & ! DataHandle
4688 current_date(1:19) , & ! DateStr
4689 'TMN' , & ! Data Name
4690 grid%tmn , & ! Field
4691 WRF_FLOAT , & ! FieldType
4692 grid%communicator , & ! Comm
4693 grid%iocommunicator , & ! Comm
4694 grid%domdesc , & ! Comm
4695 grid%bdy_mask , & ! bdy_mask
4696 'XY' , & ! MemoryOrder
4697 '' , & ! Stagger
4698 'inc/wrf_restartin.inc ext_read_field TMN memorder XY' , & ! Debug message
4699 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4700 ims , ime , jms , jme , 1 , 1 , &
4701 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4702 ierr )
4703 CALL wrf_ext_read_field ( &
4704 fid , & ! DataHandle
4705 current_date(1:19) , & ! DateStr
4706 'XLAND' , & ! Data Name
4707 grid%xland , & ! Field
4708 WRF_FLOAT , & ! FieldType
4709 grid%communicator , & ! Comm
4710 grid%iocommunicator , & ! Comm
4711 grid%domdesc , & ! Comm
4712 grid%bdy_mask , & ! bdy_mask
4713 'XY' , & ! MemoryOrder
4714 '' , & ! Stagger
4715 'inc/wrf_restartin.inc ext_read_field XLAND memorder XY' , & ! Debug message
4716 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4717 ims , ime , jms , jme , 1 , 1 , &
4718 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4719 ierr )
4720 CALL wrf_ext_read_field ( &
4721 fid , & ! DataHandle
4722 current_date(1:19) , & ! DateStr
4723 'ZNT' , & ! Data Name
4724 grid%znt , & ! Field
4725 WRF_FLOAT , & ! FieldType
4726 grid%communicator , & ! Comm
4727 grid%iocommunicator , & ! Comm
4728 grid%domdesc , & ! Comm
4729 grid%bdy_mask , & ! bdy_mask
4730 'XY' , & ! MemoryOrder
4731 '' , & ! Stagger
4732 'inc/wrf_restartin.inc ext_read_field ZNT memorder XY' , & ! Debug message
4733 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4734 ims , ime , jms , jme , 1 , 1 , &
4735 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4736 ierr )
4737 CALL wrf_ext_read_field ( &
4738 fid , & ! DataHandle
4739 current_date(1:19) , & ! DateStr
4740 'UST' , & ! Data Name
4741 grid%ust , & ! Field
4742 WRF_FLOAT , & ! FieldType
4743 grid%communicator , & ! Comm
4744 grid%iocommunicator , & ! Comm
4745 grid%domdesc , & ! Comm
4746 grid%bdy_mask , & ! bdy_mask
4747 'XY' , & ! MemoryOrder
4748 '' , & ! Stagger
4749 'inc/wrf_restartin.inc ext_read_field UST memorder XY' , & ! Debug message
4750 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4751 ims , ime , jms , jme , 1 , 1 , &
4752 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4753 ierr )
4754 CALL wrf_ext_read_field ( &
4755 fid , & ! DataHandle
4756 current_date(1:19) , & ! DateStr
4757 'RMOL' , & ! Data Name
4758 grid%rmol , & ! Field
4759 WRF_FLOAT , & ! FieldType
4760 grid%communicator , & ! Comm
4761 grid%iocommunicator , & ! Comm
4762 grid%domdesc , & ! Comm
4763 grid%bdy_mask , & ! bdy_mask
4764 'XY' , & ! MemoryOrder
4765 '' , & ! Stagger
4766 'inc/wrf_restartin.inc ext_read_field RMOL memorder XY' , & ! Debug message
4767 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4768 ims , ime , jms , jme , 1 , 1 , &
4769 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4770 ierr )
4771 CALL wrf_ext_read_field ( &
4772 fid , & ! DataHandle
4773 current_date(1:19) , & ! DateStr
4774 'MOL' , & ! Data Name
4775 grid%mol , & ! Field
4776 WRF_FLOAT , & ! FieldType
4777 grid%communicator , & ! Comm
4778 grid%iocommunicator , & ! Comm
4779 grid%domdesc , & ! Comm
4780 grid%bdy_mask , & ! bdy_mask
4781 'XY' , & ! MemoryOrder
4782 '' , & ! Stagger
4783 'inc/wrf_restartin.inc ext_read_field MOL memorder XY' , & ! Debug message
4784 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4785 ims , ime , jms , jme , 1 , 1 , &
4786 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4787 ierr )
4788 CALL wrf_ext_read_field ( &
4789 fid , & ! DataHandle
4790 current_date(1:19) , & ! DateStr
4791 'PBLH' , & ! Data Name
4792 grid%pblh , & ! Field
4793 WRF_FLOAT , & ! FieldType
4794 grid%communicator , & ! Comm
4795 grid%iocommunicator , & ! Comm
4796 grid%domdesc , & ! Comm
4797 grid%bdy_mask , & ! bdy_mask
4798 'XY' , & ! MemoryOrder
4799 '' , & ! Stagger
4800 'inc/wrf_restartin.inc ext_read_field PBLH memorder XY' , & ! Debug message
4801 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4802 ims , ime , jms , jme , 1 , 1 , &
4803 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4804 ierr )
4805 CALL wrf_ext_read_field ( &
4806 fid , & ! DataHandle
4807 current_date(1:19) , & ! DateStr
4808 'CAPG' , & ! Data Name
4809 grid%capg , & ! Field
4810 WRF_FLOAT , & ! FieldType
4811 grid%communicator , & ! Comm
4812 grid%iocommunicator , & ! Comm
4813 grid%domdesc , & ! Comm
4814 grid%bdy_mask , & ! bdy_mask
4815 'XY' , & ! MemoryOrder
4816 '' , & ! Stagger
4817 'inc/wrf_restartin.inc ext_read_field CAPG memorder XY' , & ! Debug message
4818 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4819 ims , ime , jms , jme , 1 , 1 , &
4820 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4821 ierr )
4822 CALL wrf_ext_read_field ( &
4823 fid , & ! DataHandle
4824 current_date(1:19) , & ! DateStr
4825 'THC' , & ! Data Name
4826 grid%thc , & ! Field
4827 WRF_FLOAT , & ! FieldType
4828 grid%communicator , & ! Comm
4829 grid%iocommunicator , & ! Comm
4830 grid%domdesc , & ! Comm
4831 grid%bdy_mask , & ! bdy_mask
4832 'XY' , & ! MemoryOrder
4833 '' , & ! Stagger
4834 'inc/wrf_restartin.inc ext_read_field THC memorder XY' , & ! Debug message
4835 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4836 ims , ime , jms , jme , 1 , 1 , &
4837 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4838 ierr )
4839 CALL wrf_ext_read_field ( &
4840 fid , & ! DataHandle
4841 current_date(1:19) , & ! DateStr
4842 'HFX' , & ! Data Name
4843 grid%hfx , & ! Field
4844 WRF_FLOAT , & ! FieldType
4845 grid%communicator , & ! Comm
4846 grid%iocommunicator , & ! Comm
4847 grid%domdesc , & ! Comm
4848 grid%bdy_mask , & ! bdy_mask
4849 'XY' , & ! MemoryOrder
4850 '' , & ! Stagger
4851 'inc/wrf_restartin.inc ext_read_field HFX memorder XY' , & ! Debug message
4852 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4853 ims , ime , jms , jme , 1 , 1 , &
4854 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4855 ierr )
4856 CALL wrf_ext_read_field ( &
4857 fid , & ! DataHandle
4858 current_date(1:19) , & ! DateStr
4859 'QFX' , & ! Data Name
4860 grid%qfx , & ! Field
4861 WRF_FLOAT , & ! FieldType
4862 grid%communicator , & ! Comm
4863 grid%iocommunicator , & ! Comm
4864 grid%domdesc , & ! Comm
4865 grid%bdy_mask , & ! bdy_mask
4866 'XY' , & ! MemoryOrder
4867 '' , & ! Stagger
4868 'inc/wrf_restartin.inc ext_read_field QFX memorder XY' , & ! Debug message
4869 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4870 ims , ime , jms , jme , 1 , 1 , &
4871 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4872 ierr )
4873 CALL wrf_ext_read_field ( &
4874 fid , & ! DataHandle
4875 current_date(1:19) , & ! DateStr
4876 'LH' , & ! Data Name
4877 grid%lh , & ! Field
4878 WRF_FLOAT , & ! FieldType
4879 grid%communicator , & ! Comm
4880 grid%iocommunicator , & ! Comm
4881 grid%domdesc , & ! Comm
4882 grid%bdy_mask , & ! bdy_mask
4883 'XY' , & ! MemoryOrder
4884 '' , & ! Stagger
4885 'inc/wrf_restartin.inc ext_read_field LH memorder XY' , & ! Debug message
4886 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4887 ims , ime , jms , jme , 1 , 1 , &
4888 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4889 ierr )
4890 CALL wrf_ext_read_field ( &
4891 fid , & ! DataHandle
4892 current_date(1:19) , & ! DateStr
4893 'FLHC' , & ! Data Name
4894 grid%flhc , & ! Field
4895 WRF_FLOAT , & ! FieldType
4896 grid%communicator , & ! Comm
4897 grid%iocommunicator , & ! Comm
4898 grid%domdesc , & ! Comm
4899 grid%bdy_mask , & ! bdy_mask
4900 'XY' , & ! MemoryOrder
4901 '' , & ! Stagger
4902 'inc/wrf_restartin.inc ext_read_field FLHC memorder XY' , & ! Debug message
4903 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4904 ims , ime , jms , jme , 1 , 1 , &
4905 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4906 ierr )
4907 CALL wrf_ext_read_field ( &
4908 fid , & ! DataHandle
4909 current_date(1:19) , & ! DateStr
4910 'FLQC' , & ! Data Name
4911 grid%flqc , & ! Field
4912 WRF_FLOAT , & ! FieldType
4913 grid%communicator , & ! Comm
4914 grid%iocommunicator , & ! Comm
4915 grid%domdesc , & ! Comm
4916 grid%bdy_mask , & ! bdy_mask
4917 'XY' , & ! MemoryOrder
4918 '' , & ! Stagger
4919 'inc/wrf_restartin.inc ext_read_field FLQC memorder XY' , & ! Debug message
4920 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4921 ims , ime , jms , jme , 1 , 1 , &
4922 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4923 ierr )
4924 CALL wrf_ext_read_field ( &
4925 fid , & ! DataHandle
4926 current_date(1:19) , & ! DateStr
4927 'QSG' , & ! Data Name
4928 grid%qsg , & ! Field
4929 WRF_FLOAT , & ! FieldType
4930 grid%communicator , & ! Comm
4931 grid%iocommunicator , & ! Comm
4932 grid%domdesc , & ! Comm
4933 grid%bdy_mask , & ! bdy_mask
4934 'XY' , & ! MemoryOrder
4935 '' , & ! Stagger
4936 'inc/wrf_restartin.inc ext_read_field QSG memorder XY' , & ! Debug message
4937 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4938 ims , ime , jms , jme , 1 , 1 , &
4939 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4940 ierr )
4941 CALL wrf_ext_read_field ( &
4942 fid , & ! DataHandle
4943 current_date(1:19) , & ! DateStr
4944 'QVG' , & ! Data Name
4945 grid%qvg , & ! Field
4946 WRF_FLOAT , & ! FieldType
4947 grid%communicator , & ! Comm
4948 grid%iocommunicator , & ! Comm
4949 grid%domdesc , & ! Comm
4950 grid%bdy_mask , & ! bdy_mask
4951 'XY' , & ! MemoryOrder
4952 '' , & ! Stagger
4953 'inc/wrf_restartin.inc ext_read_field QVG memorder XY' , & ! Debug message
4954 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4955 ims , ime , jms , jme , 1 , 1 , &
4956 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4957 ierr )
4958 CALL wrf_ext_read_field ( &
4959 fid , & ! DataHandle
4960 current_date(1:19) , & ! DateStr
4961 'QCG' , & ! Data Name
4962 grid%qcg , & ! Field
4963 WRF_FLOAT , & ! FieldType
4964 grid%communicator , & ! Comm
4965 grid%iocommunicator , & ! Comm
4966 grid%domdesc , & ! Comm
4967 grid%bdy_mask , & ! bdy_mask
4968 'XY' , & ! MemoryOrder
4969 '' , & ! Stagger
4970 'inc/wrf_restartin.inc ext_read_field QCG memorder XY' , & ! Debug message
4971 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4972 ims , ime , jms , jme , 1 , 1 , &
4973 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4974 ierr )
4975 CALL wrf_ext_read_field ( &
4976 fid , & ! DataHandle
4977 current_date(1:19) , & ! DateStr
4978 'SOILT1' , & ! Data Name
4979 grid%soilt1 , & ! Field
4980 WRF_FLOAT , & ! FieldType
4981 grid%communicator , & ! Comm
4982 grid%iocommunicator , & ! Comm
4983 grid%domdesc , & ! Comm
4984 grid%bdy_mask , & ! bdy_mask
4985 'XY' , & ! MemoryOrder
4986 '' , & ! Stagger
4987 'inc/wrf_restartin.inc ext_read_field SOILT1 memorder XY' , & ! Debug message
4988 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
4989 ims , ime , jms , jme , 1 , 1 , &
4990 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
4991 ierr )
4992 CALL wrf_ext_read_field ( &
4993 fid , & ! DataHandle
4994 current_date(1:19) , & ! DateStr
4995 'TSNAV' , & ! Data Name
4996 grid%tsnav , & ! Field
4997 WRF_FLOAT , & ! FieldType
4998 grid%communicator , & ! Comm
4999 grid%iocommunicator , & ! Comm
5000 grid%domdesc , & ! Comm
5001 grid%bdy_mask , & ! bdy_mask
5002 'XY' , & ! MemoryOrder
5003 '' , & ! Stagger
5004 'inc/wrf_restartin.inc ext_read_field TSNAV memorder XY' , & ! Debug message
5005 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5006 ims , ime , jms , jme , 1 , 1 , &
5007 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5008 ierr )
5009 CALL wrf_ext_read_field ( &
5010 fid , & ! DataHandle
5011 current_date(1:19) , & ! DateStr
5012 'SNOWC' , & ! Data Name
5013 grid%snowc , & ! Field
5014 WRF_FLOAT , & ! FieldType
5015 grid%communicator , & ! Comm
5016 grid%iocommunicator , & ! Comm
5017 grid%domdesc , & ! Comm
5018 grid%bdy_mask , & ! bdy_mask
5019 'XY' , & ! MemoryOrder
5020 '' , & ! Stagger
5021 'inc/wrf_restartin.inc ext_read_field SNOWC memorder XY' , & ! Debug message
5022 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5023 ims , ime , jms , jme , 1 , 1 , &
5024 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5025 ierr )
5026 CALL wrf_ext_read_field ( &
5027 fid , & ! DataHandle
5028 current_date(1:19) , & ! DateStr
5029 'MAVAIL' , & ! Data Name
5030 grid%mavail , & ! Field
5031 WRF_FLOAT , & ! FieldType
5032 grid%communicator , & ! Comm
5033 grid%iocommunicator , & ! Comm
5034 grid%domdesc , & ! Comm
5035 grid%bdy_mask , & ! bdy_mask
5036 'XY' , & ! MemoryOrder
5037 '' , & ! Stagger
5038 'inc/wrf_restartin.inc ext_read_field MAVAIL memorder XY' , & ! Debug message
5039 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
5040 ims , ime , jms , jme , 1 , 1 , &
5041 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
5042 ierr )
5043 CALL wrf_ext_read_field ( &
5044 fid , & ! DataHandle
5045 current_date(1:19) , & ! DateStr
5046 'STEPBL' , & ! Data Name
5047 grid%stepbl , & ! Field
5048 WRF_integer , & ! FieldType
5049 grid%communicator , & ! Comm
5050 grid%iocommunicator , & ! Comm
5051 grid%domdesc , & ! Comm
5052 grid%bdy_mask , & ! bdy_mask
5053 '0' , & ! MemoryOrder
5054 '' , & ! Stagger
5055 'inc/wrf_restartin.inc ext_read_field STEPBL memorder 0' , & ! Debug message
5056 1 , 1 , 1 , 1 , 1 , 1 , &
5057 1 , 1 , 1 , 1 , 1 , 1 , &
5058 1 , 1 , 1 , 1 , 1 , 1 , &
5059 ierr )
5060 !ENDOFREGISTRYGENERATEDINCLUDE