Changeset 291 for palm/trunk/SOURCE/data_output_3d.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_3d.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_3d.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.
 ! Output of messages replaced by message handling routine.
@@ -93 +94 @@
     IF ( myid == 0  .AND.  netcdf_output )  THEN
        nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_time_3d(av), &
-                               (/ simulated_time /),              &
+                               (/ time_since_reference_point /),  &
                                start = (/ do3d_time_count(av) /), &
                                count = (/ 1 /) )