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

Timestamp:

Mar 20, 2014 8:40:49 AM (9 years ago)

Author:

raasch

Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:

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

palm/trunk/SOURCE/data_output_tseries.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! ONLY-attribute added to USE-statements,
+! kind-parameters added to all INTEGER and REAL declaration statements,
+! kinds are defined in new module kinds,
+! revision history before 2012 removed,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements
 !
 ! Former revisions:
@@ -36 +41 @@
 ! code put under GPL (PALM 3.9)
 !
-! 291 2009-04-16 12:07:26Z raasch
-! simulated_time in NetCDF output replaced by time_since_reference_point.
-! Output of NetCDF messages with aid of message handling routine.
-!
-! 48 2007-03-06 12:28:36Z raasch
-! Collection of time series quantities moved to routine flow_statistics,
-! output for "profil" removed
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.13  2006/03/14 12:42:51  raasch
-! Error removed: NetCDF output only if switched on
-!
 ! Revision 1.1  1998/03/03 08:00:13  raasch
 ! Initial revision
@@ -59 +51 @@
 !------------------------------------------------------------------------------!
 
-    USE control_parameters
-    USE cpulog
-    USE indices
+    USE control_parameters,                                                    &
+        ONLY:  dots_time_count, netcdf_output, time_since_reference_point
+
+    USE cpulog,                                                                &
+        ONLY:  cpu_log, log_point  
+
+    USE kinds
+
     USE netcdf_control
+
     USE pegrid
+
     USE profil_parameter
-    USE statistics
+    
+    USE statistics,                                                            &
+        ONLY:  flow_statistics_called, statistic_regions, ts_value
 
     IMPLICIT NONE
 
 
-    INTEGER ::  i, sr
+    INTEGER(iwp) ::  i  !:
+    INTEGER(iwp) ::  sr !: