Changeset 1320 for palm/trunk/SOURCE/data_output_ptseries.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_ptseries.f90 (modified) (4 diffs)

palm/trunk/SOURCE/data_output_ptseries.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 @@
 ! mean/minimum/maximum particle radius added as output quantity,
 ! particle attributes speed_x|y|z_sgs renamed rvar1|2|3
-!
-! 622 2010-12-10 08:08:13Z raasch
-! optional barriers included in order to speed up collective operations
-!
-! 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.
-!
-! 60 2007-03-11 11:50:04Z raasch
-! Particles-package is now part of the default code.
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.2  2006/08/22 13:51:13  raasch
-! Seperate output for particle groups
 !
 ! Revision 1.1  2006/08/04 14:24:18  raasch
@@ -61 +51 @@
 !------------------------------------------------------------------------------!
 
-    USE cloud_parameters
-    USE control_parameters
-    USE cpulog
-    USE indices
+    USE cloud_parameters,                                                      &
+        ONLY:  curvature_solution_effects
+
+    USE control_parameters,                                                    &
+        ONLY:  dopts_time_count, netcdf_output, time_since_reference_point
+
+    USE cpulog,                                                                &
+        ONLY:  cpu_log, log_point
+
+    USE indices,                                                               &
+        ONLY:
+
+    USE kinds
+
     USE netcdf_control
-    USE particle_attributes
+
+    USE particle_attributes,                                                   &
+        ONLY:  number_of_particles, number_of_particle_groups, particles
+
     USE pegrid
 
@@ -72 +75 @@
 
 
-    INTEGER ::  i, inum, j, n
-
-    REAL, DIMENSION(:,:), ALLOCATABLE ::  pts_value, pts_value_l
+    INTEGER(iwp) ::  i    !:
+    INTEGER(iwp) ::  inum !:
+    INTEGER(iwp) ::  j    !:
+    INTEGER(iwp) ::  n    !:
+
+    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  pts_value   !:
+    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  pts_value_l !: