Changeset 291 for palm/trunk/SOURCE/data_output_tseries.f90

Timestamp:

Apr 16, 2009 12:07:26 PM (15 years ago)

Author:

raasch

Message:

changes for coupling with independent precursor runs; z_i calculation with Sullivan criterion

File:

• palm/trunk/SOURCE/data_output_tseries.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_tseries.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! simulated_time in NetCDF output replaced by time_since_reference_point.
 ! Output of NetCDF messages with aid of message handling routine.
 !
@@ -63 +64 @@
 !
 !--       Update the time series time axis
-          nc_stat = NF90_PUT_VAR( id_set_ts, id_var_time_ts,     &
-                                  (/ simulated_time /),          &
-                                  start = (/ dots_time_count /), &
+          nc_stat = NF90_PUT_VAR( id_set_ts, id_var_time_ts,        &
+                                  (/ time_since_reference_point /), &
+                                  start = (/ dots_time_count /),    &
                                   count = (/ 1 /) )
           CALL handle_netcdf_error( 'data_output_tseries', 350 )