Changeset 291 for palm/trunk/SOURCE/data_output_spectra.f90
- Timestamp:
- Apr 16, 2009 12:07:26 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_spectra.f90
r263 r291 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! simulated_time in NetCDF output replaced by time_since_reference_point. 6 7 ! Output of NetCDF messages with aid of message handling routine. 7 8 ! Output of messages replaced by message handling routine. … … 65 66 ! 66 67 !-- Update the spectra time axis 67 nc_stat = NF90_PUT_VAR( id_set_sp, id_var_time_sp, (/ simulated_time /),& 68 nc_stat = NF90_PUT_VAR( id_set_sp, id_var_time_sp, & 69 (/ time_since_reference_point /), & 68 70 start = (/ dosp_time_count /), count = (/ 1 /) ) 69 71 CALL handle_netcdf_error( 'data_output_spectra', 47 )
Note: See TracChangeset
for help on using the changeset viewer.