Changeset 1783 for palm/trunk/SOURCE/data_output_tseries.f90
- Timestamp:
- Mar 6, 2016 6:36:17 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_tseries.f90
r1683 r1783 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! name change of netcdf routines and module + related changes 22 22 ! 23 23 ! Former revisions: … … 72 72 USE kinds 73 73 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 75 80 76 81 USE pegrid … … 115 120 start = (/ dots_time_count /), & 116 121 count = (/ 1 /) ) 117 CALL handle_netcdf_error( 'data_output_tseries', 350 )122 CALL netcdf_handle_error( 'data_output_tseries', 350 ) 118 123 #endif 119 124 … … 129 134 start = (/ dots_time_count /), & 130 135 count = (/ 1 /) ) 131 CALL handle_netcdf_error( 'data_output_tseries', 351 )136 CALL netcdf_handle_error( 'data_output_tseries', 351 ) 132 137 ENDDO 133 138 #endif
Note: See TracChangeset
for help on using the changeset viewer.