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

palm/trunk/SOURCE/init_advec.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:
@@ -35 +41 @@
 ! all actions concerning upstream-spline-method removed
 !
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.6  2004/04/30 11:59:31  raasch
-! impulse_advec renamed momentum_advec
-!
 ! Revision 1.1  1999/02/05 09:07:38  raasch
 ! Initial revision
@@ -49 +50 @@
 !------------------------------------------------------------------------------!
 
-    USE advection
-    USE arrays_3d
-    USE indices
-    USE control_parameters
+    USE advection,                                                             &
+        ONLY:  aex, bex, dex, eex
+        
+    USE kinds
+    
+    USE control_parameters,                                                    &
+        ONLY:  scalar_advec
 
     IMPLICIT NONE
 
-    INTEGER :: i, intervals, j
-    REAL    :: delt, dn, dnneu, ex1, ex2, ex3, ex4, ex5, ex6, sterm
+    INTEGER(iwp) ::  i          !:
+    INTEGER(iwp) ::  intervals  !: 
+    INTEGER(iwp) ::  j          !:
+    
+    REAL(wp) :: delt   !:
+    REAL(wp) :: dn     !:
+    REAL(wp) :: dnneu  !:
+    REAL(wp) :: ex1    !:
+    REAL(wp) :: ex2    !:
+    REAL(wp) :: ex3    !:
+    REAL(wp) :: ex4    !:
+    REAL(wp) :: ex5    !:
+    REAL(wp) :: ex6    !:
+    REAL(wp) :: sterm  !: