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

palm/trunk/SOURCE/user_lpm_init.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! kind-parameters added to all INTEGER and REAL declaration statements, 
+! kinds are defined in new module kinds, 
+! old module precision_kind is removed,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements 
 ! 
 !
@@ -40 +45 @@
 !------------------------------------------------------------------------------!
 
+    USE kinds
+    
     USE particle_attributes
+    
     USE user
 
     IMPLICIT NONE
 
-    INTEGER ::  n
+    INTEGER(iwp) ::  n   !: 
 
 !