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

Timestamp:

Nov 22, 2012 5:42:36 PM (11 years ago)

Author:

hoffmann

Message:

cloud physics: rain sedimentation and turbulence effects

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
+! allocation of diss (dissipation rate) in case of turbulence = .TRUE. added
 !
 ! Former revisions:
@@ -467 +468 @@
 !-- 3D-array for storing the dissipation, needed for calculating the sgs
 !-- particle velocities
-    IF ( use_sgs_for_particles  .OR.  wang_kernel )  THEN
+    IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  turbulence )  THEN
        ALLOCATE ( diss(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     ELSE