Changeset 4028 for palm/trunk/SOURCE/lagrangian_particle_model_mod.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/lagrangian_particle_model_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Further modularization of particle code components
+! 
+! 4020 2019-06-06 14:57:48Z schwenkel
 ! Removing submodules 
 ! 
@@ -162 +165 @@
     USE arrays_3d,                                                             &
         ONLY:  de_dx, de_dy, de_dz, dzw, zu, zw,  ql_c, ql_v, ql_vp, hyp,      &
-               pt, q, exner, ql, diss, e, u, v, w, km     
+               pt, q, exner, ql, diss, e, u, v, w, km, ql_1, ql_2     
  
     USE averaging,                                                             &
@@ -354 +357 @@
     PUBLIC lpm_parin,     &
            lpm_header,    &
+           lpm_init_arrays,&           
            lpm_init,      &
            lpm_actions,   &
@@ -386 +390 @@
     END INTERFACE lpm_header
     
+    INTERFACE lpm_init_arrays
+       MODULE PROCEDURE lpm_init_arrays
+    END INTERFACE lpm_init_arrays             
+ 
     INTERFACE lpm_init
        MODULE PROCEDURE lpm_init
@@ -829 +837 @@
 ! Description:
 ! ------------
+!> Initialize arrays for lpm
+!------------------------------------------------------------------------------!   
+ SUBROUTINE lpm_init_arrays
+ 
+    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
+    
+!
+!--    Initial assignment of the pointers    
+    IF ( cloud_droplets )  THEN
+       ql   => ql_1
+       ql_c => ql_2
+    ENDIF
+    
+ END SUBROUTINE lpm_init_arrays
+ 
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
 !> Initialize Lagrangian particle model
 !------------------------------------------------------------------------------!