wrf_auxinput3out.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_auxinput3out.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_write_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 dryrun , & ! flag
18 'XY' , & ! MemoryOrder
19 '' , & ! Stagger
20 'west_east' , & ! Dimname 1
21 'south_north' , & ! Dimname 2
22 '' , & ! Dimname 3
23 '0 land 1 water' , & ! Desc
24 '' , & ! Units
25 'inc/wrf_auxinput3out.inc ext_write_field LU_MASK memorder XY' , & ! Debug message
26 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
27 ims , ime , jms , jme , 1 , 1 , &
28 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
29 ierr )
30 DO itrace = PARAM_FIRST_SCALAR , num_moist
31 IF (BTEST(moist_stream_table(grid%id, itrace ) , switch )) THEN
32 IF (.not. ((moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
33 (moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
34 (moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
35 CALL wrf_ext_write_field ( &
36 fid , & ! DataHandle
37 current_date(1:19) , & ! DateStr
38 TRIM(moist_dname_table( grid%id, itrace )), & !data name
39 grid%moist(ims,jms,kms,itrace) , & ! Field
40 WRF_FLOAT , & ! FieldType
41 grid%communicator , & ! Comm
42 grid%iocommunicator , & ! Comm
43 grid%domdesc , & ! Comm
44 grid%bdy_mask , & ! bdy_mask
45 dryrun , & ! flag
46 'XYZ' , & ! MemoryOrder
47 '' , & ! Stagger
48 'west_east' , & ! Dimname 1
49 'south_north' , & ! Dimname 2
50 'bottom_top' , & ! Dimname 3
51 moist_desc_table( grid%id, itrace ), & ! Desc
52 moist_units_table( grid%id, itrace ), & ! Units
53 'inc/wrf_auxinput3out.inc ext_write_field '//TRIM(moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
54 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
55 ims , ime , jms , jme , kms , kme , &
56 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
57 ierr )
58 ENDIF
59 ENDIF
60 ENDDO
61 DO itrace = PARAM_FIRST_SCALAR , num_a_moist
62 IF (BTEST(a_moist_stream_table(grid%id, itrace ) , switch )) THEN
63 IF (.not. ((a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
64 (a_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
65 (a_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
66 CALL wrf_ext_write_field ( &
67 fid , & ! DataHandle
68 current_date(1:19) , & ! DateStr
69 TRIM(a_moist_dname_table( grid%id, itrace )), & !data name
70 grid%a_moist(ims,jms,kms,itrace) , & ! Field
71 WRF_FLOAT , & ! FieldType
72 grid%communicator , & ! Comm
73 grid%iocommunicator , & ! Comm
74 grid%domdesc , & ! Comm
75 grid%bdy_mask , & ! bdy_mask
76 dryrun , & ! flag
77 'XYZ' , & ! MemoryOrder
78 '' , & ! Stagger
79 'west_east' , & ! Dimname 1
80 'south_north' , & ! Dimname 2
81 'bottom_top' , & ! Dimname 3
82 a_moist_desc_table( grid%id, itrace ), & ! Desc
83 a_moist_units_table( grid%id, itrace ), & ! Units
84 'inc/wrf_auxinput3out.inc ext_write_field '//TRIM(a_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
85 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
86 ims , ime , jms , jme , kms , kme , &
87 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
88 ierr )
89 ENDIF
90 ENDIF
91 ENDDO
92 DO itrace = PARAM_FIRST_SCALAR , num_g_moist
93 IF (BTEST(g_moist_stream_table(grid%id, itrace ) , switch )) THEN
94 IF (.not. ((g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
95 (g_moist_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
96 (g_moist_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
97 CALL wrf_ext_write_field ( &
98 fid , & ! DataHandle
99 current_date(1:19) , & ! DateStr
100 TRIM(g_moist_dname_table( grid%id, itrace )), & !data name
101 grid%g_moist(ims,jms,kms,itrace) , & ! Field
102 WRF_FLOAT , & ! FieldType
103 grid%communicator , & ! Comm
104 grid%iocommunicator , & ! Comm
105 grid%domdesc , & ! Comm
106 grid%bdy_mask , & ! bdy_mask
107 dryrun , & ! flag
108 'XYZ' , & ! MemoryOrder
109 '' , & ! Stagger
110 'west_east' , & ! Dimname 1
111 'south_north' , & ! Dimname 2
112 'bottom_top' , & ! Dimname 3
113 g_moist_desc_table( grid%id, itrace ), & ! Desc
114 g_moist_units_table( grid%id, itrace ), & ! Units
115 'inc/wrf_auxinput3out.inc ext_write_field '//TRIM(g_moist_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
116 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
117 ims , ime , jms , jme , kms , kme , &
118 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
119 ierr )
120 ENDIF
121 ENDIF
122 ENDDO
123 DO itrace = PARAM_FIRST_SCALAR , num_scalar
124 IF (BTEST(scalar_stream_table(grid%id, itrace ) , switch )) THEN
125 IF (.not. ((scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
126 (scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
127 (scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
128 CALL wrf_ext_write_field ( &
129 fid , & ! DataHandle
130 current_date(1:19) , & ! DateStr
131 TRIM(scalar_dname_table( grid%id, itrace )), & !data name
132 grid%scalar(ims,jms,kms,itrace) , & ! Field
133 WRF_FLOAT , & ! FieldType
134 grid%communicator , & ! Comm
135 grid%iocommunicator , & ! Comm
136 grid%domdesc , & ! Comm
137 grid%bdy_mask , & ! bdy_mask
138 dryrun , & ! flag
139 'XYZ' , & ! MemoryOrder
140 '' , & ! Stagger
141 'west_east' , & ! Dimname 1
142 'south_north' , & ! Dimname 2
143 'bottom_top' , & ! Dimname 3
144 scalar_desc_table( grid%id, itrace ), & ! Desc
145 scalar_units_table( grid%id, itrace ), & ! Units
146 'inc/wrf_auxinput3out.inc ext_write_field '//TRIM(scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
147 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
148 ims , ime , jms , jme , kms , kme , &
149 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
150 ierr )
151 ENDIF
152 ENDIF
153 ENDDO
154 DO itrace = PARAM_FIRST_SCALAR , num_a_scalar
155 IF (BTEST(a_scalar_stream_table(grid%id, itrace ) , switch )) THEN
156 IF (.not. ((a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
157 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
158 (a_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
159 CALL wrf_ext_write_field ( &
160 fid , & ! DataHandle
161 current_date(1:19) , & ! DateStr
162 TRIM(a_scalar_dname_table( grid%id, itrace )), & !data name
163 grid%a_scalar(ims,jms,kms,itrace) , & ! Field
164 WRF_FLOAT , & ! FieldType
165 grid%communicator , & ! Comm
166 grid%iocommunicator , & ! Comm
167 grid%domdesc , & ! Comm
168 grid%bdy_mask , & ! bdy_mask
169 dryrun , & ! flag
170 'XYZ' , & ! MemoryOrder
171 '' , & ! Stagger
172 'west_east' , & ! Dimname 1
173 'south_north' , & ! Dimname 2
174 'bottom_top' , & ! Dimname 3
175 a_scalar_desc_table( grid%id, itrace ), & ! Desc
176 a_scalar_units_table( grid%id, itrace ), & ! Units
177 'inc/wrf_auxinput3out.inc ext_write_field '//TRIM(a_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
178 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
179 ims , ime , jms , jme , kms , kme , &
180 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
181 ierr )
182 ENDIF
183 ENDIF
184 ENDDO
185 DO itrace = PARAM_FIRST_SCALAR , num_g_scalar
186 IF (BTEST(g_scalar_stream_table(grid%id, itrace ) , switch )) THEN
187 IF (.not. ((g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM_TL) .or. &
188 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'A_' .and. grid%dyn_opt == DYN_EM) .or. &
189 (g_scalar_dname_table( grid%id, itrace )(1:2) == 'G_' .and. grid%dyn_opt == DYN_EM))) THEN
190 CALL wrf_ext_write_field ( &
191 fid , & ! DataHandle
192 current_date(1:19) , & ! DateStr
193 TRIM(g_scalar_dname_table( grid%id, itrace )), & !data name
194 grid%g_scalar(ims,jms,kms,itrace) , & ! Field
195 WRF_FLOAT , & ! FieldType
196 grid%communicator , & ! Comm
197 grid%iocommunicator , & ! Comm
198 grid%domdesc , & ! Comm
199 grid%bdy_mask , & ! bdy_mask
200 dryrun , & ! flag
201 'XYZ' , & ! MemoryOrder
202 '' , & ! Stagger
203 'west_east' , & ! Dimname 1
204 'south_north' , & ! Dimname 2
205 'bottom_top' , & ! Dimname 3
206 g_scalar_desc_table( grid%id, itrace ), & ! Desc
207 g_scalar_units_table( grid%id, itrace ), & ! Units
208 'inc/wrf_auxinput3out.inc ext_write_field '//TRIM(g_scalar_dname_table( grid%id, itrace ))//' memorder XYZ' , & ! Debug message
209 ids , (ide-1) , jds , (jde-1) , kds , (kde-1) , &
210 ims , ime , jms , jme , kms , kme , &
211 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , kps , MIN( (kde-1), kpe ) , &
212 ierr )
213 ENDIF
214 ENDIF
215 ENDDO
216 CALL wrf_ext_write_field ( &
217 fid , & ! DataHandle
218 current_date(1:19) , & ! DateStr
219 'XLAT' , & ! Data Name
220 grid%xlat , & ! Field
221 WRF_FLOAT , & ! FieldType
222 grid%communicator , & ! Comm
223 grid%iocommunicator , & ! Comm
224 grid%domdesc , & ! Comm
225 grid%bdy_mask , & ! bdy_mask
226 dryrun , & ! flag
227 'XY' , & ! MemoryOrder
228 '' , & ! Stagger
229 'west_east' , & ! Dimname 1
230 'south_north' , & ! Dimname 2
231 '' , & ! Dimname 3
232 'LATITUDE, SOUTH IS NEGATIVE' , & ! Desc
233 'degree_north' , & ! Units
234 'inc/wrf_auxinput3out.inc ext_write_field XLAT memorder XY' , & ! Debug message
235 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
236 ims , ime , jms , jme , 1 , 1 , &
237 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
238 ierr )
239 CALL wrf_ext_write_field ( &
240 fid , & ! DataHandle
241 current_date(1:19) , & ! DateStr
242 'XLONG' , & ! Data Name
243 grid%xlong , & ! Field
244 WRF_FLOAT , & ! FieldType
245 grid%communicator , & ! Comm
246 grid%iocommunicator , & ! Comm
247 grid%domdesc , & ! Comm
248 grid%bdy_mask , & ! bdy_mask
249 dryrun , & ! flag
250 'XY' , & ! MemoryOrder
251 '' , & ! Stagger
252 'west_east' , & ! Dimname 1
253 'south_north' , & ! Dimname 2
254 '' , & ! Dimname 3
255 'LONGITUDE, WEST IS NEGATIVE' , & ! Desc
256 'degree_east' , & ! Units
257 'inc/wrf_auxinput3out.inc ext_write_field XLONG memorder XY' , & ! Debug message
258 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
259 ims , ime , jms , jme , 1 , 1 , &
260 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
261 ierr )
262 CALL wrf_ext_write_field ( &
263 fid , & ! DataHandle
264 current_date(1:19) , & ! DateStr
265 'ZNT' , & ! Data Name
266 grid%znt , & ! Field
267 WRF_FLOAT , & ! FieldType
268 grid%communicator , & ! Comm
269 grid%iocommunicator , & ! Comm
270 grid%domdesc , & ! Comm
271 grid%bdy_mask , & ! bdy_mask
272 dryrun , & ! flag
273 'XY' , & ! MemoryOrder
274 '' , & ! Stagger
275 'west_east' , & ! Dimname 1
276 'south_north' , & ! Dimname 2
277 '' , & ! Dimname 3
278 'TIME-VARYING ROUGHNESS LENGTH' , & ! Desc
279 'm' , & ! Units
280 'inc/wrf_auxinput3out.inc ext_write_field ZNT memorder XY' , & ! Debug message
281 ids , (ide-1) , jds , (jde-1) , 1 , 1 , &
282 ims , ime , jms , jme , 1 , 1 , &
283 ips , MIN( (ide-1), ipe ) , jps , MIN( (jde-1), jpe ) , 1 , 1 , &
284 ierr )
285 !ENDOFREGISTRYGENERATEDINCLUDE