Changeset 1783 for palm/trunk/SOURCE/data_output_profiles.f90
- Timestamp:
- Mar 6, 2016 6:36:17 PM (8 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/data_output_profiles.f90 (modified) (16 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_profiles.f90
r1683 r1783 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! name change of netcdf routines and module + related changes 22 22 ! 23 23 ! Former revisions: … … 86 86 USE kinds 87 87 88 USE netcdf_control 88 #if defined( __netcdf ) 89 USE NETCDF 90 #endif 91 92 USE netcdf_interface, & 93 ONLY: id_set_pr, id_var_dopr, id_var_norm_dopr, id_var_time_pr, & 94 nc_stat, netcdf_handle_error, output_for_t0 89 95 90 96 USE pegrid … … 155 161 (/ -coupling_start_time /), & 156 162 start = (/ 1 /), count = (/ 1 /) ) 157 CALL handle_netcdf_error( 'data_output_profiles', 329 )163 CALL netcdf_handle_error( 'data_output_profiles', 329 ) 158 164 output_for_t0 = .TRUE. 159 165 EXIT … … 166 172 (/ hom_sum(nzb,18,normalizing_region) /), & 167 173 start = (/ 1 /), count = (/ 1 /) ) 168 CALL handle_netcdf_error( 'data_output_profiles', 330 )174 CALL netcdf_handle_error( 'data_output_profiles', 330 ) 169 175 170 176 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(2), & ! ws2 171 177 (/ hom_sum(nzb+8,pr_palm,normalizing_region)**2 /), & 172 178 start = (/ 1 /), count = (/ 1 /) ) 173 CALL handle_netcdf_error( 'data_output_profiles', 331 )179 CALL netcdf_handle_error( 'data_output_profiles', 331 ) 174 180 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(3), & ! tsw2 175 181 (/ hom_sum(nzb+3,pr_palm,normalizing_region)**2 /), & 176 182 start = (/ 1 /), count = (/ 1 /) ) 177 CALL handle_netcdf_error( 'data_output_profiles', 332 )183 CALL netcdf_handle_error( 'data_output_profiles', 332 ) 178 184 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(4), & ! ws3 179 185 (/ hom_sum(nzb+8,pr_palm,normalizing_region)**3 /), & 180 186 start = (/ 1 /), count = (/ 1 /) ) 181 CALL handle_netcdf_error( 'data_output_profiles', 333 )187 CALL netcdf_handle_error( 'data_output_profiles', 333 ) 182 188 183 189 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(5), &!ws2tsw … … 185 191 hom_sum(nzb+3,pr_palm,normalizing_region) /), & 186 192 start = (/ 1 /), count = (/ 1 /) ) 187 CALL handle_netcdf_error( 'data_output_profiles', 334 )193 CALL netcdf_handle_error( 'data_output_profiles', 334 ) 188 194 189 195 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(6), &!wstsw2 … … 191 197 hom_sum(nzb+3,pr_palm,normalizing_region)**2 /), & 192 198 start = (/ 1 /), count = (/ 1 /) ) 193 CALL handle_netcdf_error( 'data_output_profiles', 335 )199 CALL netcdf_handle_error( 'data_output_profiles', 335 ) 194 200 195 201 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(7), & ! z_i 196 202 (/ hom_sum(nzb+6,pr_palm,normalizing_region) /), & 197 203 start = (/ 1 /), count = (/ 1 /) ) 198 CALL handle_netcdf_error( 'data_output_profiles', 336 )204 CALL netcdf_handle_error( 'data_output_profiles', 336 ) 199 205 200 206 #endif … … 216 222 start = (/ 1, 1 /), & 217 223 count = (/ nzt-nzb+2, 1 /) ) 218 CALL handle_netcdf_error( 'data_output_profiles', 337 )224 CALL netcdf_handle_error( 'data_output_profiles', 337 ) 219 225 #endif 220 226 … … 240 246 start = (/ dopr_time_count /), & 241 247 count = (/ 1 /) ) 242 CALL handle_netcdf_error( 'data_output_profiles', 338 )248 CALL netcdf_handle_error( 'data_output_profiles', 338 ) 243 249 244 250 ! … … 248 254 start = (/ dopr_time_count /), & 249 255 count = (/ 1 /) ) 250 CALL handle_netcdf_error( 'data_output_profiles', 339 )256 CALL netcdf_handle_error( 'data_output_profiles', 339 ) 251 257 252 258 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(2), & ! ws2 … … 254 260 start = (/ dopr_time_count /), & 255 261 count = (/ 1 /) ) 256 CALL handle_netcdf_error( 'data_output_profiles', 340 )262 CALL netcdf_handle_error( 'data_output_profiles', 340 ) 257 263 258 264 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(3), & ! tsw2 … … 260 266 start = (/ dopr_time_count /), & 261 267 count = (/ 1 /) ) 262 CALL handle_netcdf_error( 'data_output_profiles', 341 )268 CALL netcdf_handle_error( 'data_output_profiles', 341 ) 263 269 264 270 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(4), & ! ws3 … … 266 272 start = (/ dopr_time_count /), & 267 273 count = (/ 1 /) ) 268 CALL handle_netcdf_error( 'data_output_profiles', 342 )274 CALL netcdf_handle_error( 'data_output_profiles', 342 ) 269 275 270 276 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(5), & ! ws2tsw … … 273 279 start = (/ dopr_time_count /), & 274 280 count = (/ 1 /) ) 275 CALL handle_netcdf_error( 'data_output_profiles', 343 )281 CALL netcdf_handle_error( 'data_output_profiles', 343 ) 276 282 277 283 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(6), & ! wstsw2 … … 280 286 start = (/ dopr_time_count /), & 281 287 count = (/ 1 /) ) 282 CALL handle_netcdf_error( 'data_output_profiles', 344 )288 CALL netcdf_handle_error( 'data_output_profiles', 344 ) 283 289 284 290 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(7), & ! z_i … … 286 292 start = (/ dopr_time_count /), & 287 293 count = (/ 1 /) ) 288 CALL handle_netcdf_error( 'data_output_profiles', 345 )294 CALL netcdf_handle_error( 'data_output_profiles', 345 ) 289 295 #endif 290 296 … … 304 310 start = (/ 1, dopr_time_count /), & 305 311 count = (/ nzt-nzb+2, 1 /) ) 306 CALL handle_netcdf_error( 'data_output_profiles', 346 )312 CALL netcdf_handle_error( 'data_output_profiles', 346 ) 307 313 #endif 308 314
Note: See TracChangeset
for help on using the changeset viewer.
