Changeset 1003 for palm/trunk/SOURCE/init_advec.f90

Timestamp:

Sep 14, 2012 2:35:53 PM (12 years ago)

Author:

raasch

Message:

subdomains must have identical size, i.e. grid_matching = "match" not allowed any more
parameter grid_matching removed
some obsolete variables removed

File:

• palm/trunk/SOURCE/init_advec.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_advec.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! obsolete variables removed
 !
 ! Former revisions:
@@ -34 +34 @@
     IMPLICIT NONE
 
-    INTEGER :: i, intervals, j, k
-    REAL    :: delt, dn, dnneu, ex1, ex2, ex3, ex4, ex5, ex6, spl_alpha, &
-               spl_beta, sterm
-    REAL, DIMENSION(:), ALLOCATABLE ::  spl_u, temp
+    INTEGER :: i, intervals, j
+    REAL    :: delt, dn, dnneu, ex1, ex2, ex3, ex4, ex5, ex6, sterm