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

    r1683 r1783  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! name change of netcdf routines and module + related changes
    2222!
    2323! Former revisions:
     
    7272    USE kinds
    7373
    74     USE netcdf_control
     74#if defined( __netcdf )
     75    USE NETCDF
     76#endif
     77    USE netcdf_interface,                                                      &
     78        ONLY:  dots_num, id_set_ts, id_var_dots, id_var_time_ts, nc_stat,      &
     79               netcdf_handle_error
    7580
    7681    USE pegrid
     
    115120                               start = (/ dots_time_count /),    &
    116121                               count = (/ 1 /) )
    117        CALL handle_netcdf_error( 'data_output_tseries', 350 )
     122       CALL netcdf_handle_error( 'data_output_tseries', 350 )
    118123#endif
    119124
     
    129134                                     start = (/ dots_time_count /), &
    130135                                     count = (/ 1 /) )
    131              CALL handle_netcdf_error( 'data_output_tseries', 351 )
     136             CALL netcdf_handle_error( 'data_output_tseries', 351 )
    132137          ENDDO
    133138#endif
Note: See TracChangeset for help on using the changeset viewer.