Ignore:
Timestamp:
Mar 6, 2016 6:36:17 PM (6 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_ptseries.f90

    r1683 r1783  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! netcdf module name changed + related changes
    2222!
    2323! Former revisions:
     
    8181    USE kinds
    8282
    83     USE netcdf_control
     83#if defined( __netcdf )
     84    USE NETCDF
     85#endif
     86
     87    USE netcdf_interface,                                                      &
     88        ONLY:  dopts_num, id_set_pts, id_var_dopts, id_var_time_pts, nc_stat,  &
     89               netcdf_handle_error
    8490
    8591    USE particle_attributes,                                                   &
     
    116122                               (/ time_since_reference_point /), &
    117123                               start = (/ dopts_time_count /), count = (/ 1 /) )
    118        CALL handle_netcdf_error( 'data_output_ptseries', 391 )
     124       CALL netcdf_handle_error( 'data_output_ptseries', 391 )
    119125#endif
    120126
     
    375381                                     start = (/ dopts_time_count /), &
    376382                                     count = (/ 1 /) )
    377              CALL handle_netcdf_error( 'data_output_ptseries', 392 )
     383             CALL netcdf_handle_error( 'data_output_ptseries', 392 )
    378384          ENDDO
    379385       ENDDO
Note: See TracChangeset for help on using the changeset viewer.