wrf_auxinput3in.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxinput3in.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_MASK' , & ! Data Name
11 grid%lu_mask , & ! 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_auxinput3in.inc ext_read_field LU_MASK 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 DO itrace = PARAM_FIRST_SCALAR , num_moist
25 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
26 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
27 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
28 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
29 CALL wrf_ext_read_field ( &
30 fid , & ! DataHandle
31 current_date(1:19) , & ! DateStr
32 TRIM(moist_dname_table( grid%id, itrace )), & !data name
33 grid%moist(ims,jms,kms,itrace) , & ! Field
34 WRF_FLOAT , & ! FieldType
35 grid%communicator , & ! Comm
36 grid%iocommunicator , & ! Comm
37 grid%domdesc , & ! Comm
38 grid%bdy_mask , & ! bdy_mask
39 'XYZ' , & ! MemoryOrder
40 '' , & ! Stagger
41 'inc/wrf_auxinput3in.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
42 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
43 ims , ime , jms , jme , kms , kme , &
44 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
45 ierr )
46 ENDIF
47 ENDIF
48 ENDDO
49 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
50 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
51 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
52 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
53 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
54 CALL wrf_ext_read_field ( &
55 fid , & ! DataHandle
56 current_date(1:19) , & ! DateStr
57 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
58 grid%a_moist(ims,jms,kms,itrace) , & ! Field
59 WRF_FLOAT , & ! FieldType
60 grid%communicator , & ! Comm
61 grid%iocommunicator , & ! Comm
62 grid%domdesc , & ! Comm
63 grid%bdy_mask , & ! bdy_mask
64 'XYZ' , & ! MemoryOrder
65 '' , & ! Stagger
66 'inc/wrf_auxinput3in.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
67 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
68 ims , ime , jms , jme , kms , kme , &
69 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
70 ierr )
71 ENDIF
72 ENDIF
73 ENDDO
74 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
75 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
76 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
77 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
78 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
79 CALL wrf_ext_read_field ( &
80 fid , & ! DataHandle
81 current_date(1:19) , & ! DateStr
82 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
83 grid%g_moist(ims,jms,kms,itrace) , & ! Field
84 WRF_FLOAT , & ! FieldType
85 grid%communicator , & ! Comm
86 grid%iocommunicator , & ! Comm
87 grid%domdesc , & ! Comm
88 grid%bdy_mask , & ! bdy_mask
89 'XYZ' , & ! MemoryOrder
90 '' , & ! Stagger
91 'inc/wrf_auxinput3in.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
92 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
93 ims , ime , jms , jme , kms , kme , &
94 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
95 ierr )
96 ENDIF
97 ENDIF
98 ENDDO
99 DO itrace = PARAM_FIRST_SCALAR , num_scalar
100 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
101 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
102 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
103 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
104 CALL wrf_ext_read_field ( &
105 fid , & ! DataHandle
106 current_date(1:19) , & ! DateStr
107 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
108 grid%scalar(ims,jms,kms,itrace) , & ! Field
109 WRF_FLOAT , & ! FieldType
110 grid%communicator , & ! Comm
111 grid%iocommunicator , & ! Comm
112 grid%domdesc , & ! Comm
113 grid%bdy_mask , & ! bdy_mask
114 'XYZ' , & ! MemoryOrder
115 '' , & ! Stagger
116 'inc/wrf_auxinput3in.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
117 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
118 ims , ime , jms , jme , kms , kme , &
119 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
120 ierr )
121 ENDIF
122 ENDIF
123 ENDDO
124 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
125 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
126 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
127 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
128 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
129 CALL wrf_ext_read_field ( &
130 fid , & ! DataHandle
131 current_date(1:19) , & ! DateStr
132 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
133 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
134 WRF_FLOAT , & ! FieldType
135 grid%communicator , & ! Comm
136 grid%iocommunicator , & ! Comm
137 grid%domdesc , & ! Comm
138 grid%bdy_mask , & ! bdy_mask
139 'XYZ' , & ! MemoryOrder
140 '' , & ! Stagger
141 'inc/wrf_auxinput3in.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
142 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
143 ims , ime , jms , jme , kms , kme , &
144 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
145 ierr )
146 ENDIF
147 ENDIF
148 ENDDO
149 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
150 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
151 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
152 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
153 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
154 CALL wrf_ext_read_field ( &
155 fid , & ! DataHandle
156 current_date(1:19) , & ! DateStr
157 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
158 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
159 WRF_FLOAT , & ! FieldType
160 grid%communicator , & ! Comm
161 grid%iocommunicator , & ! Comm
162 grid%domdesc , & ! Comm
163 grid%bdy_mask , & ! bdy_mask
164 'XYZ' , & ! MemoryOrder
165 '' , & ! Stagger
166 'inc/wrf_auxinput3in.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
167 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
168 ims , ime , jms , jme , kms , kme , &
169 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
170 ierr )
171 ENDIF
172 ENDIF
173 ENDDO
174 CALL wrf_ext_read_field ( &
175 fid , & ! DataHandle
176 current_date(1:19) , & ! DateStr
177 'XLAT' , & ! Data Name
178 grid%xlat , & ! Field
179 WRF_FLOAT , & ! FieldType
180 grid%communicator , & ! Comm
181 grid%iocommunicator , & ! Comm
182 grid%domdesc , & ! Comm
183 grid%bdy_mask , & ! bdy_mask
184 'XY' , & ! MemoryOrder
185 '' , & ! Stagger
186 'inc/wrf_auxinput3in.inc ext_read_field XLAT memorder XY' , & ! Debug message
187 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
188 ims , ime , jms , jme , 1 , 1 , &
189 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
190 ierr )
191 CALL wrf_ext_read_field ( &
192 fid , & ! DataHandle
193 current_date(1:19) , & ! DateStr
194 'XLONG' , & ! Data Name
195 grid%xlong , & ! Field
196 WRF_FLOAT , & ! FieldType
197 grid%communicator , & ! Comm
198 grid%iocommunicator , & ! Comm
199 grid%domdesc , & ! Comm
200 grid%bdy_mask , & ! bdy_mask
201 'XY' , & ! MemoryOrder
202 '' , & ! Stagger
203 'inc/wrf_auxinput3in.inc ext_read_field XLONG memorder XY' , & ! Debug message
204 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
205 ims , ime , jms , jme , 1 , 1 , &
206 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
207 ierr )
208 CALL wrf_ext_read_field ( &
209 fid , & ! DataHandle
210 current_date(1:19) , & ! DateStr
211 'ZNT' , & ! Data Name
212 grid%znt , & ! Field
213 WRF_FLOAT , & ! FieldType
214 grid%communicator , & ! Comm
215 grid%iocommunicator , & ! Comm
216 grid%domdesc , & ! Comm
217 grid%bdy_mask , & ! bdy_mask
218 'XY' , & ! MemoryOrder
219 '' , & ! Stagger
220 'inc/wrf_auxinput3in.inc ext_read_field ZNT memorder XY' , & ! Debug message
221 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
222 ims , ime , jms , jme , 1 , 1 , &
223 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
224 ierr )
225 !ENDOFREGISTRYGENERATEDINCLUDE