Ignore:
Timestamp:
Mar 18, 2009 12:26:04 PM (12 years ago)
Author:
heinze
Message:

Output of NetCDF messages with aid of message handling routine.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_profiles.f90

    r254 r263  
    44! Current revisions:
    55! -----------------
     6! Output of NetCDF messages with aid of message handling routine.
    67! Output of messages replaced by message handling routine.
    78!
     
    117118                                           (/ 0.0 /), start = (/ 1 /), &
    118119                                           count = (/ 1 /) )
    119                    IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 329 )
     120                   CALL handle_netcdf_error( 'data_output_profiles', 329 )
    120121                   output_for_t0 = .TRUE.
    121122                   EXIT
     
    128129                                  (/ hom_sum(nzb,18,normalizing_region) /), &
    129130                                     start = (/ 1 /), count = (/ 1 /) )
    130              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 330 )
     131             CALL handle_netcdf_error( 'data_output_profiles', 330 )
    131132
    132133             nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(2), &  ! ws2
    133134                        (/ hom_sum(nzb+8,pr_palm,normalizing_region)**2 /), &
    134135                                     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 )
    137137             nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(3), &  ! tsw2
    138138                        (/ hom_sum(nzb+3,pr_palm,normalizing_region)**2 /), &
    139139                                     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 )
    142141             nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(4), &  ! ws3
    143142                        (/ hom_sum(nzb+8,pr_palm,normalizing_region)**3 /), &
    144143                                     start = (/ 1 /), count = (/ 1 /) )
    145              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 333 )
     144             CALL handle_netcdf_error( 'data_output_profiles', 333 )
    146145
    147146             nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(5), &  ! ws2tsw
     
    149148                           hom_sum(nzb+3,pr_palm,normalizing_region)    /), &
    150149                                     start = (/ 1 /), count = (/ 1 /) )
    151              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 334 )
     150             CALL handle_netcdf_error( 'data_output_profiles', 334 )
    152151
    153152             nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(6), &  ! wstsw2
     
    155154                           hom_sum(nzb+3,pr_palm,normalizing_region)**2 /), &
    156155                                     start = (/ 1 /), count = (/ 1 /) )
    157              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 335 )
     156             CALL handle_netcdf_error( 'data_output_profiles', 335 )
    158157
    159158             nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(7), &  ! z_i
    160159                           (/ hom_sum(nzb+6,pr_palm,normalizing_region) /), &
    161160                                     start = (/ 1 /), count = (/ 1 /) )
    162              IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 336 )
     161             CALL handle_netcdf_error( 'data_output_profiles', 336 )
    163162#endif
    164163          ENDIF
     
    197196                                              start = (/ 1, 1 /),              &
    198197                                              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 )
    201199#endif
    202200                   ENDIF
     
    361359                                  start = (/ dopr_time_count /), &
    362360                                  count = (/ 1 /) )
    363           IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 338 )
     361          CALL handle_netcdf_error( 'data_output_profiles', 338 )
    364362
    365363!
     
    369367                                  start = (/ dopr_time_count /),               &
    370368                                  count = (/ 1 /) )
    371           IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 339 )
     369          CALL handle_netcdf_error( 'data_output_profiles', 339 )
    372370
    373371          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(2), &  ! ws2
     
    375373                                  start = (/ dopr_time_count /),               &
    376374                                  count = (/ 1 /) )
    377           IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 340 )
     375          CALL handle_netcdf_error( 'data_output_profiles', 340 )
    378376
    379377          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(3), &  ! tsw2
     
    381379                                  start = (/ dopr_time_count /),               &
    382380                                  count = (/ 1 /) )
    383           IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 341 )
     381          CALL handle_netcdf_error( 'data_output_profiles', 341 )
    384382
    385383          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(4), &  ! ws3
     
    387385                                  start = (/ dopr_time_count /),               &
    388386                                  count = (/ 1 /) )
    389           IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 342 )
     387          CALL handle_netcdf_error( 'data_output_profiles', 342 )
    390388
    391389          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(5), &  ! ws2tsw
     
    394392                                  start = (/ dopr_time_count /),               &
    395393                                  count = (/ 1 /) )
    396           IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 343 )
    397 
     394          CALL handle_netcdf_error( 'data_output_profiles', 343 )
     395         
    398396          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(6), &  ! wstsw2
    399397                        (/ hom_sum(nzb+8,pr_palm,normalizing_region) *      &
     
    401399                                  start = (/ dopr_time_count /),               &
    402400                                  count = (/ 1 /) )
    403           IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 344 )
     401          CALL handle_netcdf_error( 'data_output_profiles', 344 )
    404402
    405403          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(7), &  ! z_i
     
    407405                                  start = (/ dopr_time_count /),               &
    408406                                  count = (/ 1 /) )
    409           IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 345 )
     407          CALL handle_netcdf_error( 'data_output_profiles', 345 )
    410408#endif
    411409       ENDIF
     
    443441                                        start = (/ 1, dopr_time_count /),      &
    444442                                        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 )
    446444#endif
    447445             ENDIF
Note: See TracChangeset for help on using the changeset viewer.