Changeset 263 for palm/trunk/SOURCE/data_output_profiles.f90
- Timestamp:
- Mar 18, 2009 12:26:04 PM (15 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/data_output_profiles.f90 (modified) (15 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_profiles.f90
r254 r263 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! Output of NetCDF messages with aid of message handling routine. 6 7 ! Output of messages replaced by message handling routine. 7 8 ! … … 117 118 (/ 0.0 /), start = (/ 1 /), & 118 119 count = (/ 1 /) ) 119 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(329 )120 CALL handle_netcdf_error( 'data_output_profiles', 329 ) 120 121 output_for_t0 = .TRUE. 121 122 EXIT … … 128 129 (/ hom_sum(nzb,18,normalizing_region) /), & 129 130 start = (/ 1 /), count = (/ 1 /) ) 130 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(330 )131 CALL handle_netcdf_error( 'data_output_profiles', 330 ) 131 132 132 133 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(2), & ! ws2 133 134 (/ hom_sum(nzb+8,pr_palm,normalizing_region)**2 /), & 134 135 start = (/ 1 /), count = (/ 1 /) ) 135 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 331 ) 136 136 CALL handle_netcdf_error( 'data_output_profiles', 331 ) 137 137 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(3), & ! tsw2 138 138 (/ hom_sum(nzb+3,pr_palm,normalizing_region)**2 /), & 139 139 start = (/ 1 /), count = (/ 1 /) ) 140 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error( 332 ) 141 140 CALL handle_netcdf_error( 'data_output_profiles', 332 ) 142 141 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(4), & ! ws3 143 142 (/ hom_sum(nzb+8,pr_palm,normalizing_region)**3 /), & 144 143 start = (/ 1 /), count = (/ 1 /) ) 145 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(333 )144 CALL handle_netcdf_error( 'data_output_profiles', 333 ) 146 145 147 146 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(5), & ! ws2tsw … … 149 148 hom_sum(nzb+3,pr_palm,normalizing_region) /), & 150 149 start = (/ 1 /), count = (/ 1 /) ) 151 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(334 )150 CALL handle_netcdf_error( 'data_output_profiles', 334 ) 152 151 153 152 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(6), & ! wstsw2 … … 155 154 hom_sum(nzb+3,pr_palm,normalizing_region)**2 /), & 156 155 start = (/ 1 /), count = (/ 1 /) ) 157 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(335 )156 CALL handle_netcdf_error( 'data_output_profiles', 335 ) 158 157 159 158 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(7), & ! z_i 160 159 (/ hom_sum(nzb+6,pr_palm,normalizing_region) /), & 161 160 start = (/ 1 /), count = (/ 1 /) ) 162 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(336 )161 CALL handle_netcdf_error( 'data_output_profiles', 336 ) 163 162 #endif 164 163 ENDIF … … 197 196 start = (/ 1, 1 /), & 198 197 count = (/ nzt-nzb+2, 1 /) ) 199 IF ( nc_stat /= NF90_NOERR ) & 200 CALL handle_netcdf_error( 337 ) 198 CALL handle_netcdf_error( 'data_output_profiles', 337 ) 201 199 #endif 202 200 ENDIF … … 361 359 start = (/ dopr_time_count /), & 362 360 count = (/ 1 /) ) 363 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(338 )361 CALL handle_netcdf_error( 'data_output_profiles', 338 ) 364 362 365 363 ! … … 369 367 start = (/ dopr_time_count /), & 370 368 count = (/ 1 /) ) 371 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(339 )369 CALL handle_netcdf_error( 'data_output_profiles', 339 ) 372 370 373 371 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(2), & ! ws2 … … 375 373 start = (/ dopr_time_count /), & 376 374 count = (/ 1 /) ) 377 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(340 )375 CALL handle_netcdf_error( 'data_output_profiles', 340 ) 378 376 379 377 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(3), & ! tsw2 … … 381 379 start = (/ dopr_time_count /), & 382 380 count = (/ 1 /) ) 383 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(341 )381 CALL handle_netcdf_error( 'data_output_profiles', 341 ) 384 382 385 383 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(4), & ! ws3 … … 387 385 start = (/ dopr_time_count /), & 388 386 count = (/ 1 /) ) 389 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(342 )387 CALL handle_netcdf_error( 'data_output_profiles', 342 ) 390 388 391 389 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(5), & ! ws2tsw … … 394 392 start = (/ dopr_time_count /), & 395 393 count = (/ 1 /) ) 396 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(343 )397 394 CALL handle_netcdf_error( 'data_output_profiles', 343 ) 395 398 396 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(6), & ! wstsw2 399 397 (/ hom_sum(nzb+8,pr_palm,normalizing_region) * & … … 401 399 start = (/ dopr_time_count /), & 402 400 count = (/ 1 /) ) 403 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(344 )401 CALL handle_netcdf_error( 'data_output_profiles', 344 ) 404 402 405 403 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(7), & ! z_i … … 407 405 start = (/ dopr_time_count /), & 408 406 count = (/ 1 /) ) 409 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(345 )407 CALL handle_netcdf_error( 'data_output_profiles', 345 ) 410 408 #endif 411 409 ENDIF … … 443 441 start = (/ 1, dopr_time_count /), & 444 442 count = (/ nzt-nzb+2, 1 /) ) 445 IF ( nc_stat /= NF90_NOERR ) CALL handle_netcdf_error(346 )443 CALL handle_netcdf_error( 'data_output_profiles', 346 ) 446 444 #endif 447 445 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.
