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

Timestamp:

Nov 29, 2011 3:11:20 AM (13 years ago)

Author:

raasch

Message:

Bugfix for output of mean particle radius + preliminary works for implementing the Wang collision kernel

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -7 +7 @@
 ! Current revisions:
 ! ------------------
-! 
+! diss is also allocated in case that the Wang kernel is used
 !
 ! Former revisions:
@@ -331 +331 @@
 !-- 3D-array for storing the dissipation, needed for calculating the sgs
 !-- particle velocities
-    IF ( use_sgs_for_particles )  THEN
+    IF ( use_sgs_for_particles  .OR.  wang_collision_kernel )  THEN
        ALLOCATE ( diss(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     ELSE