Changeset 1299 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Mar 6, 2014 1:15:21 PM (10 years ago)

Author:

heinze

Message:

enable usage of large_scale subsidence in combination with large_scale_forcing

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-!
+! Allocate w_subs due to extension of large scale subsidence in combination
+! with large scale forcing data (LSF_DATA)
 !
 ! Former revisions:
@@ -542 +543 @@
 
 !
+!-- 1D-array for large scale subsidence velocity
+    IF ( large_scale_subsidence )  THEN
+       ALLOCATE ( w_subs(nzb:nzt+1) )
+       w_subs = 0.0
+    ENDIF
+
+!
 !-- 3D-arrays for the leaf area density and the canopy drag coefficient
     IF ( plant_canopy ) THEN