Changeset 1316 for palm

Timestamp:

Mar 17, 2014 7:44:59 AM (11 years ago)

Author:

heinze

Message:

bugfix: allocation of w_subs

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix: allocation of w_subs
 !
 ! Former revisions:
@@ -547 +547 @@
 !
 !-- 1D-array for large scale subsidence velocity
-    IF ( large_scale_subsidence )  THEN
-       ALLOCATE ( w_subs(nzb:nzt+1) )
-       w_subs = 0.0
-    ENDIF
+    ALLOCATE ( w_subs(nzb:nzt+1) )
+    w_subs = 0.0
+
 
 !