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