Ignore:
Timestamp:
Mar 6, 2016 6:36:17 PM (5 years ago)
Author:
raasch
Message:

NetCDF routines modularized; new parameter netcdf_deflate; further changes in the pmc

File:
1 edited

Legend:

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

    r1683 r1783  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! name change of netcdf routines and module + related changes
    2222!
    2323! Former revisions:
     
    8686    USE kinds
    8787
    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
    8995
    9096    USE pegrid
     
    155161                                        (/ -coupling_start_time /), &
    156162                                        start = (/ 1 /), count = (/ 1 /) )
    157                    CALL handle_netcdf_error( 'data_output_profiles', 329 )
     163                   CALL netcdf_handle_error( 'data_output_profiles', 329 )
    158164                   output_for_t0 = .TRUE.
    159165                   EXIT
     
    166172                                  (/ hom_sum(nzb,18,normalizing_region) /), &
    167173                                     start = (/ 1 /), count = (/ 1 /) )
    168              CALL handle_netcdf_error( 'data_output_profiles', 330 )
     174             CALL netcdf_handle_error( 'data_output_profiles', 330 )
    169175
    170176             nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(2), & ! ws2
    171177                        (/ hom_sum(nzb+8,pr_palm,normalizing_region)**2 /), &
    172178                                     start = (/ 1 /), count = (/ 1 /) )
    173              CALL handle_netcdf_error( 'data_output_profiles', 331 )
     179             CALL netcdf_handle_error( 'data_output_profiles', 331 )
    174180             nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(3), & ! tsw2
    175181                        (/ hom_sum(nzb+3,pr_palm,normalizing_region)**2 /), &
    176182                                  start = (/ 1 /), count = (/ 1 /) )
    177              CALL handle_netcdf_error( 'data_output_profiles', 332 )
     183             CALL netcdf_handle_error( 'data_output_profiles', 332 )
    178184             nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(4), & ! ws3
    179185                        (/ hom_sum(nzb+8,pr_palm,normalizing_region)**3 /), &
    180186                                     start = (/ 1 /), count = (/ 1 /) )
    181              CALL handle_netcdf_error( 'data_output_profiles', 333 )
     187             CALL netcdf_handle_error( 'data_output_profiles', 333 )
    182188
    183189             nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(5), &!ws2tsw
     
    185191                           hom_sum(nzb+3,pr_palm,normalizing_region)    /), &
    186192                                     start = (/ 1 /), count = (/ 1 /) )
    187              CALL handle_netcdf_error( 'data_output_profiles', 334 )
     193             CALL netcdf_handle_error( 'data_output_profiles', 334 )
    188194
    189195             nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(6), &!wstsw2
     
    191197                           hom_sum(nzb+3,pr_palm,normalizing_region)**2 /), &
    192198                                     start = (/ 1 /), count = (/ 1 /) )
    193              CALL handle_netcdf_error( 'data_output_profiles', 335 )
     199             CALL netcdf_handle_error( 'data_output_profiles', 335 )
    194200
    195201             nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(7), & ! z_i
    196202                           (/ hom_sum(nzb+6,pr_palm,normalizing_region) /), &
    197203                                     start = (/ 1 /), count = (/ 1 /) )
    198              CALL handle_netcdf_error( 'data_output_profiles', 336 )
     204             CALL netcdf_handle_error( 'data_output_profiles', 336 )
    199205             
    200206#endif
     
    216222                                              start = (/ 1, 1 /),              &
    217223                                              count = (/ nzt-nzb+2, 1 /) )
    218                       CALL handle_netcdf_error( 'data_output_profiles', 337 )
     224                      CALL netcdf_handle_error( 'data_output_profiles', 337 )
    219225#endif
    220226
     
    240246                               start = (/ dopr_time_count /),    &
    241247                               count = (/ 1 /) )
    242        CALL handle_netcdf_error( 'data_output_profiles', 338 )
     248       CALL netcdf_handle_error( 'data_output_profiles', 338 )
    243249
    244250!
     
    248254                               start = (/ dopr_time_count /),               &
    249255                               count = (/ 1 /) )
    250        CALL handle_netcdf_error( 'data_output_profiles', 339 )
     256       CALL netcdf_handle_error( 'data_output_profiles', 339 )
    251257
    252258       nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(2), &  ! ws2
     
    254260                               start = (/ dopr_time_count /),               &
    255261                               count = (/ 1 /) )
    256        CALL handle_netcdf_error( 'data_output_profiles', 340 )
     262       CALL netcdf_handle_error( 'data_output_profiles', 340 )
    257263
    258264       nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(3), &  ! tsw2
     
    260266                               start = (/ dopr_time_count /),               &
    261267                               count = (/ 1 /) )
    262        CALL handle_netcdf_error( 'data_output_profiles', 341 )
     268       CALL netcdf_handle_error( 'data_output_profiles', 341 )
    263269
    264270       nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(4), &  ! ws3
     
    266272                               start = (/ dopr_time_count /),               &
    267273                               count = (/ 1 /) )
    268        CALL handle_netcdf_error( 'data_output_profiles', 342 )
     274       CALL netcdf_handle_error( 'data_output_profiles', 342 )
    269275
    270276       nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(5), &  ! ws2tsw
     
    273279                               start = (/ dopr_time_count /),               &
    274280                               count = (/ 1 /) )
    275        CALL handle_netcdf_error( 'data_output_profiles', 343 )
     281       CALL netcdf_handle_error( 'data_output_profiles', 343 )
    276282
    277283       nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(6), &  ! wstsw2
     
    280286                               start = (/ dopr_time_count /),               &
    281287                               count = (/ 1 /) )
    282        CALL handle_netcdf_error( 'data_output_profiles', 344 )
     288       CALL netcdf_handle_error( 'data_output_profiles', 344 )
    283289
    284290       nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(7), &  ! z_i
     
    286292                               start = (/ dopr_time_count /),               &
    287293                               count = (/ 1 /) )
    288        CALL handle_netcdf_error( 'data_output_profiles', 345 )
     294       CALL netcdf_handle_error( 'data_output_profiles', 345 )
    289295#endif
    290296
     
    304310                                     start = (/ 1, dopr_time_count /),      &
    305311                                     count = (/ nzt-nzb+2, 1 /) )
    306              CALL handle_netcdf_error( 'data_output_profiles', 346 )
     312             CALL netcdf_handle_error( 'data_output_profiles', 346 )
    307313#endif
    308314
Note: See TracChangeset for help on using the changeset viewer.