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

palm/trunk/SOURCE/user_header.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 
 ! 
 !
@@ -28 +35 @@
 ! 1036 2012-10-22 13:43:42Z raasch
 ! code put under GPL (PALM 3.9)
-!
-! 256 2009-03-08 08:56:27Z letzel
-! new topography case 'single_street_canyon'
-! topography_grid_convention moved to header
 !
 ! 2008-12-09 18:00:48Z letzel
@@ -42 +45 @@
 !------------------------------------------------------------------------------!
 
-    USE control_parameters
-    USE statistics
+    USE kinds
+    
+    USE statistics,                                                            &
+        ONLY:  statistic_regions, region
+        
     USE user
 
     IMPLICIT NONE
 
-    INTEGER ::  i, io
+    INTEGER(iwp) ::  i    !: 
+    INTEGER(iwp) ::  io   !: 
 
 !
@@ -72 +79 @@
 !-- Format-descriptors
 100 FORMAT (//' *** no user-defined variables found'/)
-110 FORMAT (//1X,78('#')                                      &
-            //' User-defined variables and actions:'/  &
+110 FORMAT (//1X,78('#')                                                       &
+            //' User-defined variables and actions:'/                          &
               ' -----------------------------------'//)
 200 FORMAT (' Output of profiles and time series for following regions:' /)