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

palm/trunk/SOURCE/set_slicer_attributes_dvrp.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,
+! 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
 !
 ! Former revisions:
@@ -39 +45 @@
 #if defined( __dvrp_graphics )
 
-    USE control_parameters
-    USE dvrp_variables
+    USE dvrp_variables,                                                        &
+        ONLY:  dvrp_colortable_entries, interval_h_dvrp, interval_values_dvrp, &
+               slicer_range_limits_dvrp
+
+    USE kinds
 
     IMPLICIT NONE
 
-    INTEGER ::  j, n_slicer
-    REAL    ::  maxv, meav, minv
+    INTEGER(iwp) ::  j         !:
+    INTEGER(iwp) ::  n_slicer  !:
+
+    REAL(wp)     ::  maxv      !:
+    REAL(wp)     ::  meav      !:
+    REAL(wp)     ::  minv      !: