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

palm/trunk/SOURCE/data_log.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:
@@ -41 +47 @@
 #if defined( __logging )
 
-    USE control_parameters
+    USE control_parameters,                                                    &
+        ONLY:  log_message, simulated_time
+        
+    USE kinds
+        
     USE pegrid
 
     IMPLICIT NONE
 
-    INTEGER ::  i1, i2, j1, j2, k1, k2
+    INTEGER(iwp) ::  i1  !: 
+    INTEGER(iwp) ::  i2  !: 
+    INTEGER(iwp) ::  j1  !: 
+    INTEGER(iwp) ::  j2  !: 
+    INTEGER(iwp) ::  k1  !: 
+    INTEGER(iwp) ::  k2  !: 
 
-    REAL, DIMENSION(i1:i2,j1:j2,k1:k2) ::  array
+    REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2) ::  array  !: 
 
 
@@ -81 +96 @@
 #if defined( __logging )
 
-    USE control_parameters
+    USE control_parameters,                                                    &
+        ONLY:  log_message, simulated_time
+
+    USE kinds
+            
     USE pegrid
 
     IMPLICIT NONE
 
-    INTEGER ::  i1, i2, j1, j2
+    INTEGER(iwp) ::  i1  !: 
+    INTEGER(iwp) ::  i2  !: 
+    INTEGER(iwp) ::  j1  !: 
+    INTEGER(iwp) ::  j2  !: 
 
-    REAL, DIMENSION(i1:i2,j1:j2) ::  array
+    REAL(wp), DIMENSION(i1:i2,j1:j2) ::  array  !: 
 
 
@@ -121 +143 @@
 #if defined( __logging )
 
-    USE control_parameters
+    USE control_parameters,                                                    &
+        ONLY:  log_message, simulated_time
+
+    USE kinds
+            
     USE pegrid
 
     IMPLICIT NONE
 
-    INTEGER ::  i1, i2, j1, j2
+    INTEGER(iwp) ::  i1  !: 
+    INTEGER(iwp) ::  i2  !: 
+    INTEGER(iwp) ::  j1  !: 
+    INTEGER(iwp) ::  j2  !: 
 
-    INTEGER, DIMENSION(i1:i2,j1:j2) ::  array
+    INTEGER(iwp), DIMENSION(i1:i2,j1:j2) ::  array  !: