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

Timestamp:

Mar 20, 2014 8:40:49 AM (10 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_profiles.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_profiles.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! ONLY-attribute added to USE-statements,
+! kind-parameters added to all INTEGER 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:
@@ -42 +47 @@
 ! 964 2012-07-26 09:14:24Z raasch
 ! code for profil-output removed
-!
-! 345 2009-07-01 14:37:56Z heinze
-! In case of restart runs without extension, initial profiles are not written 
-! to NetCDF-file anymore.
-! 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.
-!
-! 197 2008-09-16 15:29:03Z raasch
-! Time coordinate t=0 stored on netcdf-file only if an output is required for
-! this time for at least one of the profiles
-!
-! February 2007
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! 87 2007-05-22 15:46:47Z raasch
-! var_hom renamed pr_palm
-!
-! Revision 1.18  2006/08/16 14:27:04  raasch
-! PRINT* statements for testing removed
 !
 ! Revision 1.1  1997/09/12 06:28:48  raasch
@@ -72 +57 @@
 !------------------------------------------------------------------------------!
 
-    USE control_parameters
-    USE cpulog
-    USE indices
+    USE control_parameters,                                                    &
+        ONLY:  average_count_pr, averaging_interval_pr, coupling_start_time,   &
+               dopr_n, dopr_time_count, netcdf_output, normalizing_region,     &
+               time_since_reference_point
+
+    USE cpulog,                                                                &
+        ONLY:  cpu_log, log_point
+
+    USE indices,                                                               &
+        ONLY:  nzb, nzt
+
+    USE kinds
+
     USE netcdf_control
+
     USE pegrid
+
     USE profil_parameter
-    USE statistics
+
+    USE statistics,                                                            &
+        ONLY:  flow_statistics_called, hom, hom_sum, pr_palm, statistic_regions
 
     IMPLICIT NONE
 
 
-    INTEGER ::  i, sr
+    INTEGER(iwp) ::  i  !:
+    INTEGER(iwp) ::  sr !:
 
 !