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

Timestamp:

Jun 13, 2019 12:21:37 PM (4 years ago)

Author:

schwenkel

Message:

Further modularization of particle code components

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Further modularization of particle code components
+! 
+! 4017 2019-06-06 12:16:46Z schwenkel
 ! Convert most location messages to debug messages to reduce output in
 ! job logfile to a minimum
@@ -815 +818 @@
                  q_3(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                           &
                  vpt_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) 
-
-       IF ( cloud_droplets )  THEN
-!
-!--       Liquid water content, change in liquid water content
-          ALLOCATE ( ql_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                      &
-                     ql_2(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
-!
-!--       Real volume of particles (with weighting), volume of particles
-          ALLOCATE ( ql_v(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                      &
-                     ql_vp(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
-       ENDIF
-
     ENDIF   
     
@@ -1054 +1045 @@
        q => q_1;  q_p => q_2;  tq_m => q_3
        vpt  => vpt_1
-       IF ( cloud_droplets )  THEN
-          ql   => ql_1
-          ql_c => ql_2
-       ENDIF
     ENDIF