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

palm/trunk/SOURCE/user_actions.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! 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:
@@ -34 +38 @@
 ! 1036 2012-10-22 13:43:42Z raasch
 ! code put under GPL (PALM 3.9)
-!
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
-!
-! 258 2009-03-13 12:36:03Z heinze
-! Output of messages replaced by message handling routine.
 !
 ! 211 2008-11-11 04:46:24Z raasch
@@ -66 +64 @@
 
        USE control_parameters
+
        USE cpulog
+
        USE indices
+
+       USE kinds
+
        USE pegrid
+
        USE user
+
        USE arrays_3d
 
        IMPLICIT NONE
 
-       CHARACTER (LEN=*) ::  location
-
-       INTEGER ::  i, j, k
+       CHARACTER (LEN=*) ::  location !: 
+
+       INTEGER(iwp) ::  i !: 
+       INTEGER(iwp) ::  j !: 
+       INTEGER(iwp) ::  k !: 
 
        CALL cpu_log( log_point(24), 'user_actions', 'start' )
@@ -165 +172 @@
 
        USE control_parameters
+       USE kinds
        USE pegrid
        USE user
@@ -172 +180 @@
        CHARACTER (LEN=*) ::  location
 
-       INTEGER ::  i, idum, j
-
+       INTEGER(iwp) ::  i
+       INTEGER(iwp) ::  idum
+       INTEGER(iwp) ::  j
 
 !