Ignore:
Timestamp:
Jun 13, 2019 12:21:37 PM (5 years ago)
Author:
schwenkel
Message:

Further modularization of particle code components

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

    r4020 r4028  
    2525! -----------------
    2626! $Id$
     27! Further modularization of particle code components
     28!
     29! 4020 2019-06-06 14:57:48Z schwenkel
    2730! Removing submodules
    2831!
     
    162165    USE arrays_3d,                                                             &
    163166        ONLY:  de_dx, de_dy, de_dz, dzw, zu, zw,  ql_c, ql_v, ql_vp, hyp,      &
    164                pt, q, exner, ql, diss, e, u, v, w, km     
     167               pt, q, exner, ql, diss, e, u, v, w, km, ql_1, ql_2     
    165168 
    166169    USE averaging,                                                             &
     
    354357    PUBLIC lpm_parin,     &
    355358           lpm_header,    &
     359           lpm_init_arrays,&           
    356360           lpm_init,      &
    357361           lpm_actions,   &
     
    386390    END INTERFACE lpm_header
    387391   
     392    INTERFACE lpm_init_arrays
     393       MODULE PROCEDURE lpm_init_arrays
     394    END INTERFACE lpm_init_arrays             
     395 
    388396    INTERFACE lpm_init
    389397       MODULE PROCEDURE lpm_init
     
    829837! Description:
    830838! ------------
     839!> Initialize arrays for lpm
     840!------------------------------------------------------------------------------!   
     841 SUBROUTINE lpm_init_arrays
     842 
     843    IF ( cloud_droplets )  THEN
     844!
     845!--    Liquid water content, change in liquid water content
     846       ALLOCATE ( ql_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                      &
     847                  ql_2(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     848!
     849!--    Real volume of particles (with weighting), volume of particles
     850       ALLOCATE ( ql_v(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                      &
     851                     ql_vp(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     852    ENDIF
     853   
     854!
     855!--    Initial assignment of the pointers   
     856    IF ( cloud_droplets )  THEN
     857       ql   => ql_1
     858       ql_c => ql_2
     859    ENDIF
     860   
     861 END SUBROUTINE lpm_init_arrays
     862 
     863!------------------------------------------------------------------------------!
     864! Description:
     865! ------------
    831866!> Initialize Lagrangian particle model
    832867!------------------------------------------------------------------------------!
Note: See TracChangeset for help on using the changeset viewer.