wrf_auxhist1in.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxhist1in.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_auxhist1in.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 CALL wrf_ext_read_field ( &
25 fid , & ! DataHandle
26 current_date(1:19) , & ! DateStr
27 'LU_MASK' , & ! Data Name
28 grid%lu_mask , & ! Field
29 WRF_FLOAT , & ! FieldType
30 grid%communicator , & ! Comm
31 grid%iocommunicator , & ! Comm
32 grid%domdesc , & ! Comm
33 grid%bdy_mask , & ! bdy_mask
34 'XY' , & ! MemoryOrder
35 '' , & ! Stagger
36 'inc/wrf_auxhist1in.inc ext_read_field LU_MASK memorder XY' , & ! Debug message
37 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
38 ims , ime , jms , jme , 1 , 1 , &
39 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
40 ierr )
41 CALL wrf_ext_read_field ( &
42 fid , & ! DataHandle
43 current_date(1:19) , & ! DateStr
44 'U10' , & ! Data Name
45 grid%u10 , & ! Field
46 WRF_FLOAT , & ! FieldType
47 grid%communicator , & ! Comm
48 grid%iocommunicator , & ! Comm
49 grid%domdesc , & ! Comm
50 grid%bdy_mask , & ! bdy_mask
51 'XY' , & ! MemoryOrder
52 '' , & ! Stagger
53 'inc/wrf_auxhist1in.inc ext_read_field U10 memorder XY' , & ! Debug message
54 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
55 ims , ime , jms , jme , 1 , 1 , &
56 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
57 ierr )
58 CALL wrf_ext_read_field ( &
59 fid , & ! DataHandle
60 current_date(1:19) , & ! DateStr
61 'V10' , & ! Data Name
62 grid%v10 , & ! Field
63 WRF_FLOAT , & ! FieldType
64 grid%communicator , & ! Comm
65 grid%iocommunicator , & ! Comm
66 grid%domdesc , & ! Comm
67 grid%bdy_mask , & ! bdy_mask
68 'XY' , & ! MemoryOrder
69 '' , & ! Stagger
70 'inc/wrf_auxhist1in.inc ext_read_field V10 memorder XY' , & ! Debug message
71 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
72 ims , ime , jms , jme , 1 , 1 , &
73 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
74 ierr )
75 DO itrace = PARAM_FIRST_SCALAR , num_moist
76 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
77 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
78 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
79 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
80 CALL wrf_ext_read_field ( &
81 fid , & ! DataHandle
82 current_date(1:19) , & ! DateStr
83 TRIM(moist_dname_table( grid%id, itrace )), & !data name
84 grid%moist(ims,jms,kms,itrace) , & ! Field
85 WRF_FLOAT , & ! FieldType
86 grid%communicator , & ! Comm
87 grid%iocommunicator , & ! Comm
88 grid%domdesc , & ! Comm
89 grid%bdy_mask , & ! bdy_mask
90 'XYZ' , & ! MemoryOrder
91 '' , & ! Stagger
92 'inc/wrf_auxhist1in.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
93 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
94 ims , ime , jms , jme , kms , kme , &
95 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
96 ierr )
97 ENDIF
98 ENDIF
99 ENDDO
100 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
101 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
102 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
103 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
104 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
105 CALL wrf_ext_read_field ( &
106 fid , & ! DataHandle
107 current_date(1:19) , & ! DateStr
108 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
109 grid%a_moist(ims,jms,kms,itrace) , & ! Field
110 WRF_FLOAT , & ! FieldType
111 grid%communicator , & ! Comm
112 grid%iocommunicator , & ! Comm
113 grid%domdesc , & ! Comm
114 grid%bdy_mask , & ! bdy_mask
115 'XYZ' , & ! MemoryOrder
116 '' , & ! Stagger
117 'inc/wrf_auxhist1in.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
118 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
119 ims , ime , jms , jme , kms , kme , &
120 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
121 ierr )
122 ENDIF
123 ENDIF
124 ENDDO
125 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
126 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
127 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
128 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
129 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
130 CALL wrf_ext_read_field ( &
131 fid , & ! DataHandle
132 current_date(1:19) , & ! DateStr
133 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
134 grid%g_moist(ims,jms,kms,itrace) , & ! Field
135 WRF_FLOAT , & ! FieldType
136 grid%communicator , & ! Comm
137 grid%iocommunicator , & ! Comm
138 grid%domdesc , & ! Comm
139 grid%bdy_mask , & ! bdy_mask
140 'XYZ' , & ! MemoryOrder
141 '' , & ! Stagger
142 'inc/wrf_auxhist1in.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
143 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
144 ims , ime , jms , jme , kms , kme , &
145 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
146 ierr )
147 ENDIF
148 ENDIF
149 ENDDO
150 DO itrace = PARAM_FIRST_SCALAR , num_scalar
151 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
152 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
153 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
154 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
155 CALL wrf_ext_read_field ( &
156 fid , & ! DataHandle
157 current_date(1:19) , & ! DateStr
158 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
159 grid%scalar(ims,jms,kms,itrace) , & ! Field
160 WRF_FLOAT , & ! FieldType
161 grid%communicator , & ! Comm
162 grid%iocommunicator , & ! Comm
163 grid%domdesc , & ! Comm
164 grid%bdy_mask , & ! bdy_mask
165 'XYZ' , & ! MemoryOrder
166 '' , & ! Stagger
167 'inc/wrf_auxhist1in.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
168 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
169 ims , ime , jms , jme , kms , kme , &
170 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
171 ierr )
172 ENDIF
173 ENDIF
174 ENDDO
175 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
176 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
177 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
178 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
179 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
180 CALL wrf_ext_read_field ( &
181 fid , & ! DataHandle
182 current_date(1:19) , & ! DateStr
183 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
184 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
185 WRF_FLOAT , & ! FieldType
186 grid%communicator , & ! Comm
187 grid%iocommunicator , & ! Comm
188 grid%domdesc , & ! Comm
189 grid%bdy_mask , & ! bdy_mask
190 'XYZ' , & ! MemoryOrder
191 '' , & ! Stagger
192 'inc/wrf_auxhist1in.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
193 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
194 ims , ime , jms , jme , kms , kme , &
195 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
196 ierr )
197 ENDIF
198 ENDIF
199 ENDDO
200 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
201 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
202 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
203 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
204 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
205 CALL wrf_ext_read_field ( &
206 fid , & ! DataHandle
207 current_date(1:19) , & ! DateStr
208 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
209 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
210 WRF_FLOAT , & ! FieldType
211 grid%communicator , & ! Comm
212 grid%iocommunicator , & ! Comm
213 grid%domdesc , & ! Comm
214 grid%bdy_mask , & ! bdy_mask
215 'XYZ' , & ! MemoryOrder
216 '' , & ! Stagger
217 'inc/wrf_auxhist1in.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
218 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
219 ims , ime , jms , jme , kms , kme , &
220 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
221 ierr )
222 ENDIF
223 ENDIF
224 ENDDO
225 CALL wrf_ext_read_field ( &
226 fid , & ! DataHandle
227 current_date(1:19) , & ! DateStr
228 'XLAT' , & ! Data Name
229 grid%xlat , & ! Field
230 WRF_FLOAT , & ! FieldType
231 grid%communicator , & ! Comm
232 grid%iocommunicator , & ! Comm
233 grid%domdesc , & ! Comm
234 grid%bdy_mask , & ! bdy_mask
235 'XY' , & ! MemoryOrder
236 '' , & ! Stagger
237 'inc/wrf_auxhist1in.inc ext_read_field XLAT memorder XY' , & ! Debug message
238 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
239 ims , ime , jms , jme , 1 , 1 , &
240 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
241 ierr )
242 CALL wrf_ext_read_field ( &
243 fid , & ! DataHandle
244 current_date(1:19) , & ! DateStr
245 'XLONG' , & ! Data Name
246 grid%xlong , & ! Field
247 WRF_FLOAT , & ! FieldType
248 grid%communicator , & ! Comm
249 grid%iocommunicator , & ! Comm
250 grid%domdesc , & ! Comm
251 grid%bdy_mask , & ! bdy_mask
252 'XY' , & ! MemoryOrder
253 '' , & ! Stagger
254 'inc/wrf_auxhist1in.inc ext_read_field XLONG memorder XY' , & ! Debug message
255 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
256 ims , ime , jms , jme , 1 , 1 , &
257 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
258 ierr )
259 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
260 CALL wrf_ext_read_field ( &
261 fid , & ! DataHandle
262 current_date(1:19) , & ! DateStr
263 'XLAT_U' , & ! Data Name
264 grid%em_xlat_u , & ! Field
265 WRF_FLOAT , & ! FieldType
266 grid%communicator , & ! Comm
267 grid%iocommunicator , & ! Comm
268 grid%domdesc , & ! Comm
269 grid%bdy_mask , & ! bdy_mask
270 'XY' , & ! MemoryOrder
271 'X' , & ! Stagger
272 'inc/wrf_auxhist1in.inc ext_read_field XLAT_U memorder XY' , & ! Debug message
273 ids , ide , jds , (jde-1) , 1 , 1 , &
274 ims , ime , jms , jme , 1 , 1 , &
275 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
276 ierr )
277 END IF
278 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
279 CALL wrf_ext_read_field ( &
280 fid , & ! DataHandle
281 current_date(1:19) , & ! DateStr
282 'XLONG_U' , & ! Data Name
283 grid%em_xlong_u , & ! Field
284 WRF_FLOAT , & ! FieldType
285 grid%communicator , & ! Comm
286 grid%iocommunicator , & ! Comm
287 grid%domdesc , & ! Comm
288 grid%bdy_mask , & ! bdy_mask
289 'XY' , & ! MemoryOrder
290 'X' , & ! Stagger
291 'inc/wrf_auxhist1in.inc ext_read_field XLONG_U memorder XY' , & ! Debug message
292 ids , ide , jds , (jde-1) , 1 , 1 , &
293 ims , ime , jms , jme , 1 , 1 , &
294 ips , MIN( ide, ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
295 ierr )
296 END IF
297 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
298 CALL wrf_ext_read_field ( &
299 fid , & ! DataHandle
300 current_date(1:19) , & ! DateStr
301 'XLAT_V' , & ! Data Name
302 grid%em_xlat_v , & ! Field
303 WRF_FLOAT , & ! FieldType
304 grid%communicator , & ! Comm
305 grid%iocommunicator , & ! Comm
306 grid%domdesc , & ! Comm
307 grid%bdy_mask , & ! bdy_mask
308 'XY' , & ! MemoryOrder
309 'Y' , & ! Stagger
310 'inc/wrf_auxhist1in.inc ext_read_field XLAT_V memorder XY' , & ! Debug message
311 ids , (ide-1) , jds , jde , 1 , 1 , &
312 ims , ime , jms , jme , 1 , 1 , &
313 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
314 ierr )
315 END IF
316 IF ( mod(grid%dyn_opt,100) .EQ. dyn_em ) THEN
317 CALL wrf_ext_read_field ( &
318 fid , & ! DataHandle
319 current_date(1:19) , & ! DateStr
320 'XLONG_V' , & ! Data Name
321 grid%em_xlong_v , & ! Field
322 WRF_FLOAT , & ! FieldType
323 grid%communicator , & ! Comm
324 grid%iocommunicator , & ! Comm
325 grid%domdesc , & ! Comm
326 grid%bdy_mask , & ! bdy_mask
327 'XY' , & ! MemoryOrder
328 'Y' , & ! Stagger
329 'inc/wrf_auxhist1in.inc ext_read_field XLONG_V memorder XY' , & ! Debug message
330 ids , (ide-1) , jds , jde , 1 , 1 , &
331 ims , ime , jms , jme , 1 , 1 , &
332 ips , MIN( (ide-1), ipe ) , jps , MIN( jde, jpe ) , 1 , 1 , &
333 ierr )
334 END IF
335 !ENDOFREGISTRYGENERATEDINCLUDE