Changeset 787 for palm

Timestamp:

Nov 28, 2011 12:49:05 PM (13 years ago)

Author:

heinze

Message:

bugfix: call init_advec in every case - not only for inital runs

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -7 +7 @@
 ! Current revisions:
 ! ------------------
-! 
+! bugfix: call init_advec in every case - not only for inital runs
 !
 ! Former revisions:
@@ -876 +876 @@
           IF ( precipitation )  precipitation_amount = 0.0
        ENDIF
-       
-!
-!--    Initialize quantities for special advections schemes
-       CALL init_advec
-
 !
 !--    Impose vortex with vertical axis on the initial velocity profile
@@ -1290 +1285 @@
     ENDIF
 
+!
+!-- Initialize quantities for special advections schemes
+    CALL init_advec
 
 !