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

Timestamp:

Apr 7, 2016 1:15:51 PM (9 years ago)

Author:

hoffmann

Message:

cloud physics variables renamed

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
-! 
+! turbulence renamed collision_turbulence
+!
 ! Former revisions:
 ! -----------------
@@ -258 +258 @@
     
     USE cloud_parameters,                                                      &
-        ONLY:  nc_const, precipitation_amount, precipitation_rate, prr
+        ONLY:  collision_turbulence, nc_const, precipitation_amount,           &
+               precipitation_rate, prr
     
     USE constants,                                                             &
@@ -569 +570 @@
 !-- 3D-array for storing the dissipation, needed for calculating the sgs
 !-- particle velocities
-    IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  turbulence  .OR.      &
-         num_acc_per_node > 0 )  THEN
+    IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  collision_turbulence  &
+         .OR.  num_acc_per_node > 0 )  THEN
        ALLOCATE( diss(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     ENDIF