wrf_auxhist3in.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxhist3in.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 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
8 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
9 CALL wrf_ext_read_field ( &
10 fid , & ! DataHandle
11 current_date(1:19) , & ! DateStr
12 'A_U' , & ! Data Name
13 grid%em_a_u_2 , & ! Field
14 WRF_FLOAT , & ! FieldType
15 grid%communicator , & ! Comm
16 grid%iocommunicator , & ! Comm
17 grid%domdesc , & ! Comm
18 grid%bdy_mask , & ! bdy_mask
19 'XYZ' , & ! MemoryOrder
20 'X' , & ! Stagger
21 'inc/wrf_auxhist3in.inc ext_read_field A_U memorder XYZ' , & ! Debug message
22 ids , ide , jds , (jde-1) , kds , (kde-1) , &
23 ims , ime , jms , jme , kms , kme , &
24 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
25 ierr )
26 END IF
27 END IF
28 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
29 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
30 CALL wrf_ext_read_field ( &
31 fid , & ! DataHandle
32 current_date(1:19) , & ! DateStr
33 'G_U' , & ! Data Name
34 grid%em_g_u_2 , & ! Field
35 WRF_FLOAT , & ! FieldType
36 grid%communicator , & ! Comm
37 grid%iocommunicator , & ! Comm
38 grid%domdesc , & ! Comm
39 grid%bdy_mask , & ! bdy_mask
40 'XYZ' , & ! MemoryOrder
41 'X' , & ! Stagger
42 'inc/wrf_auxhist3in.inc ext_read_field G_U memorder XYZ' , & ! Debug message
43 ids , ide , jds , (jde-1) , kds , (kde-1) , &
44 ims , ime , jms , jme , kms , kme , &
45 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
46 ierr )
47 END IF
48 END IF
49 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
50 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
51 CALL wrf_ext_read_field ( &
52 fid , & ! DataHandle
53 current_date(1:19) , & ! DateStr
54 'A_V' , & ! Data Name
55 grid%em_a_v_2 , & ! Field
56 WRF_FLOAT , & ! FieldType
57 grid%communicator , & ! Comm
58 grid%iocommunicator , & ! Comm
59 grid%domdesc , & ! Comm
60 grid%bdy_mask , & ! bdy_mask
61 'XYZ' , & ! MemoryOrder
62 'Y' , & ! Stagger
63 'inc/wrf_auxhist3in.inc ext_read_field A_V memorder XYZ' , & ! Debug message
64 ids , (ide-1) , jds , jde , kds , (kde-1) , &
65 ims , ime , jms , jme , kms , kme , &
66 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
67 ierr )
68 END IF
69 END IF
70 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
71 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
72 CALL wrf_ext_read_field ( &
73 fid , & ! DataHandle
74 current_date(1:19) , & ! DateStr
75 'G_V' , & ! Data Name
76 grid%em_g_v_2 , & ! Field
77 WRF_FLOAT , & ! FieldType
78 grid%communicator , & ! Comm
79 grid%iocommunicator , & ! Comm
80 grid%domdesc , & ! Comm
81 grid%bdy_mask , & ! bdy_mask
82 'XYZ' , & ! MemoryOrder
83 'Y' , & ! Stagger
84 'inc/wrf_auxhist3in.inc ext_read_field G_V memorder XYZ' , & ! Debug message
85 ids , (ide-1) , jds , jde , kds , (kde-1) , &
86 ims , ime , jms , jme , kms , kme , &
87 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , kps , MIN( (kde-1), kpe ) , &
88 ierr )
89 END IF
90 END IF
91 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
92 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
93 CALL wrf_ext_read_field ( &
94 fid , & ! DataHandle
95 current_date(1:19) , & ! DateStr
96 'A_W' , & ! Data Name
97 grid%em_a_w_2 , & ! Field
98 WRF_FLOAT , & ! FieldType
99 grid%communicator , & ! Comm
100 grid%iocommunicator , & ! Comm
101 grid%domdesc , & ! Comm
102 grid%bdy_mask , & ! bdy_mask
103 'XYZ' , & ! MemoryOrder
104 'Z' , & ! Stagger
105 'inc/wrf_auxhist3in.inc ext_read_field A_W memorder XYZ' , & ! Debug message
106 ids , (ide-1) , jds , (jde-1) , kds , kde , &
107 ims , ime , jms , jme , kms , kme , &
108 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
109 ierr )
110 END IF
111 END IF
112 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
113 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
114 CALL wrf_ext_read_field ( &
115 fid , & ! DataHandle
116 current_date(1:19) , & ! DateStr
117 'G_W' , & ! Data Name
118 grid%em_g_w_2 , & ! Field
119 WRF_FLOAT , & ! FieldType
120 grid%communicator , & ! Comm
121 grid%iocommunicator , & ! Comm
122 grid%domdesc , & ! Comm
123 grid%bdy_mask , & ! bdy_mask
124 'XYZ' , & ! MemoryOrder
125 'Z' , & ! Stagger
126 'inc/wrf_auxhist3in.inc ext_read_field G_W memorder XYZ' , & ! Debug message
127 ids , (ide-1) , jds , (jde-1) , kds , kde , &
128 ims , ime , jms , jme , kms , kme , &
129 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
130 ierr )
131 END IF
132 END IF
133 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
134 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
135 CALL wrf_ext_read_field ( &
136 fid , & ! DataHandle
137 current_date(1:19) , & ! DateStr
138 'A_PH' , & ! Data Name
139 grid%em_a_ph_2 , & ! Field
140 WRF_FLOAT , & ! FieldType
141 grid%communicator , & ! Comm
142 grid%iocommunicator , & ! Comm
143 grid%domdesc , & ! Comm
144 grid%bdy_mask , & ! bdy_mask
145 'XYZ' , & ! MemoryOrder
146 'Z' , & ! Stagger
147 'inc/wrf_auxhist3in.inc ext_read_field A_PH memorder XYZ' , & ! Debug message
148 ids , (ide-1) , jds , (jde-1) , kds , kde , &
149 ims , ime , jms , jme , kms , kme , &
150 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
151 ierr )
152 END IF
153 END IF
154 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
155 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
156 CALL wrf_ext_read_field ( &
157 fid , & ! DataHandle
158 current_date(1:19) , & ! DateStr
159 'G_PH' , & ! Data Name
160 grid%em_g_ph_2 , & ! Field
161 WRF_FLOAT , & ! FieldType
162 grid%communicator , & ! Comm
163 grid%iocommunicator , & ! Comm
164 grid%domdesc , & ! Comm
165 grid%bdy_mask , & ! bdy_mask
166 'XYZ' , & ! MemoryOrder
167 'Z' , & ! Stagger
168 'inc/wrf_auxhist3in.inc ext_read_field G_PH memorder XYZ' , & ! Debug message
169 ids , (ide-1) , jds , (jde-1) , kds , kde , &
170 ims , ime , jms , jme , kms , kme , &
171 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( kde, kpe ) , &
172 ierr )
173 END IF
174 END IF
175 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
176 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
177 CALL wrf_ext_read_field ( &
178 fid , & ! DataHandle
179 current_date(1:19) , & ! DateStr
180 'A_T' , & ! Data Name
181 grid%em_a_t_2 , & ! Field
182 WRF_FLOAT , & ! FieldType
183 grid%communicator , & ! Comm
184 grid%iocommunicator , & ! Comm
185 grid%domdesc , & ! Comm
186 grid%bdy_mask , & ! bdy_mask
187 'XYZ' , & ! MemoryOrder
188 '' , & ! Stagger
189 'inc/wrf_auxhist3in.inc ext_read_field A_T memorder XYZ' , & ! Debug message
190 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
191 ims , ime , jms , jme , kms , kme , &
192 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
193 ierr )
194 END IF
195 END IF
196 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
197 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
198 CALL wrf_ext_read_field ( &
199 fid , & ! DataHandle
200 current_date(1:19) , & ! DateStr
201 'G_T' , & ! Data Name
202 grid%em_g_t_2 , & ! Field
203 WRF_FLOAT , & ! FieldType
204 grid%communicator , & ! Comm
205 grid%iocommunicator , & ! Comm
206 grid%domdesc , & ! Comm
207 grid%bdy_mask , & ! bdy_mask
208 'XYZ' , & ! MemoryOrder
209 '' , & ! Stagger
210 'inc/wrf_auxhist3in.inc ext_read_field G_T memorder XYZ' , & ! Debug message
211 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
212 ims , ime , jms , jme , kms , kme , &
213 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
214 ierr )
215 END IF
216 END IF
217 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
218 IF ( grid%dyn_opt == DYN_EM_AD ) THEN
219 CALL wrf_ext_read_field ( &
220 fid , & ! DataHandle
221 current_date(1:19) , & ! DateStr
222 'A_MU' , & ! Data Name
223 grid%em_a_mu_2 , & ! Field
224 WRF_FLOAT , & ! FieldType
225 grid%communicator , & ! Comm
226 grid%iocommunicator , & ! Comm
227 grid%domdesc , & ! Comm
228 grid%bdy_mask , & ! bdy_mask
229 'XY' , & ! MemoryOrder
230 '' , & ! Stagger
231 'inc/wrf_auxhist3in.inc ext_read_field A_MU memorder XY' , & ! Debug message
232 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
233 ims , ime , jms , jme , 1 , 1 , &
234 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
235 ierr )
236 END IF
237 END IF
238 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
239 IF ( grid%dyn_opt == DYN_EM_TL .or. grid%dyn_opt == DYN_EM_AD ) THEN
240 CALL wrf_ext_read_field ( &
241 fid , & ! DataHandle
242 current_date(1:19) , & ! DateStr
243 'G_MU' , & ! Data Name
244 grid%em_g_mu_2 , & ! Field
245 WRF_FLOAT , & ! FieldType
246 grid%communicator , & ! Comm
247 grid%iocommunicator , & ! Comm
248 grid%domdesc , & ! Comm
249 grid%bdy_mask , & ! bdy_mask
250 'XY' , & ! MemoryOrder
251 '' , & ! Stagger
252 'inc/wrf_auxhist3in.inc ext_read_field G_MU memorder XY' , & ! Debug message
253 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
254 ims , ime , jms , jme , 1 , 1 , &
255 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
256 ierr )
257 END IF
258 END IF
259 DO itrace = PARAM_FIRST_SCALAR , num_moist
260 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
261 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
262 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
263 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
264 CALL wrf_ext_read_field ( &
265 fid , & ! DataHandle
266 current_date(1:19) , & ! DateStr
267 TRIM(moist_dname_table( grid%id, itrace )), & !data name
268 grid%moist(ims,jms,kms,itrace) , & ! Field
269 WRF_FLOAT , & ! FieldType
270 grid%communicator , & ! Comm
271 grid%iocommunicator , & ! Comm
272 grid%domdesc , & ! Comm
273 grid%bdy_mask , & ! bdy_mask
274 'XYZ' , & ! MemoryOrder
275 '' , & ! Stagger
276 'inc/wrf_auxhist3in.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
277 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
278 ims , ime , jms , jme , kms , kme , &
279 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
280 ierr )
281 ENDIF
282 ENDIF
283 ENDDO
284 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
285 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
286 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
287 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
288 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
289 CALL wrf_ext_read_field ( &
290 fid , & ! DataHandle
291 current_date(1:19) , & ! DateStr
292 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
293 grid%a_moist(ims,jms,kms,itrace) , & ! Field
294 WRF_FLOAT , & ! FieldType
295 grid%communicator , & ! Comm
296 grid%iocommunicator , & ! Comm
297 grid%domdesc , & ! Comm
298 grid%bdy_mask , & ! bdy_mask
299 'XYZ' , & ! MemoryOrder
300 '' , & ! Stagger
301 'inc/wrf_auxhist3in.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
302 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
303 ims , ime , jms , jme , kms , kme , &
304 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
305 ierr )
306 ENDIF
307 ENDIF
308 ENDDO
309 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
310 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
311 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
312 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
313 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
314 CALL wrf_ext_read_field ( &
315 fid , & ! DataHandle
316 current_date(1:19) , & ! DateStr
317 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
318 grid%g_moist(ims,jms,kms,itrace) , & ! Field
319 WRF_FLOAT , & ! FieldType
320 grid%communicator , & ! Comm
321 grid%iocommunicator , & ! Comm
322 grid%domdesc , & ! Comm
323 grid%bdy_mask , & ! bdy_mask
324 'XYZ' , & ! MemoryOrder
325 '' , & ! Stagger
326 'inc/wrf_auxhist3in.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
327 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
328 ims , ime , jms , jme , kms , kme , &
329 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
330 ierr )
331 ENDIF
332 ENDIF
333 ENDDO
334 DO itrace = PARAM_FIRST_SCALAR , num_scalar
335 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
336 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
337 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
338 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
339 CALL wrf_ext_read_field ( &
340 fid , & ! DataHandle
341 current_date(1:19) , & ! DateStr
342 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
343 grid%scalar(ims,jms,kms,itrace) , & ! Field
344 WRF_FLOAT , & ! FieldType
345 grid%communicator , & ! Comm
346 grid%iocommunicator , & ! Comm
347 grid%domdesc , & ! Comm
348 grid%bdy_mask , & ! bdy_mask
349 'XYZ' , & ! MemoryOrder
350 '' , & ! Stagger
351 'inc/wrf_auxhist3in.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
352 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
353 ims , ime , jms , jme , kms , kme , &
354 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
355 ierr )
356 ENDIF
357 ENDIF
358 ENDDO
359 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
360 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
361 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
362 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
363 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
364 CALL wrf_ext_read_field ( &
365 fid , & ! DataHandle
366 current_date(1:19) , & ! DateStr
367 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
368 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
369 WRF_FLOAT , & ! FieldType
370 grid%communicator , & ! Comm
371 grid%iocommunicator , & ! Comm
372 grid%domdesc , & ! Comm
373 grid%bdy_mask , & ! bdy_mask
374 'XYZ' , & ! MemoryOrder
375 '' , & ! Stagger
376 'inc/wrf_auxhist3in.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
377 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
378 ims , ime , jms , jme , kms , kme , &
379 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
380 ierr )
381 ENDIF
382 ENDIF
383 ENDDO
384 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
385 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
386 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
387 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
388 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
389 CALL wrf_ext_read_field ( &
390 fid , & ! DataHandle
391 current_date(1:19) , & ! DateStr
392 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
393 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
394 WRF_FLOAT , & ! FieldType
395 grid%communicator , & ! Comm
396 grid%iocommunicator , & ! Comm
397 grid%domdesc , & ! Comm
398 grid%bdy_mask , & ! bdy_mask
399 'XYZ' , & ! MemoryOrder
400 '' , & ! Stagger
401 'inc/wrf_auxhist3in.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
402 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
403 ims , ime , jms , jme , kms , kme , &
404 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
405 ierr )
406 ENDIF
407 ENDIF
408 ENDDO
409 !ENDOFREGISTRYGENERATEDINCLUDE