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

Further modularization of particle code components

File:
1 edited

Legend:

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

    r4017 r4028  
    2525! -----------------
    2626! $Id$
     27! Further modularization of particle code components
     28!
     29! 4017 2019-06-06 12:16:46Z schwenkel
    2730! Convert most location messages to debug messages to reduce output in
    2831! job logfile to a minimum
     
    815818                 q_3(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                           &
    816819                 vpt_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    817 
    818        IF ( cloud_droplets )  THEN
    819 !
    820 !--       Liquid water content, change in liquid water content
    821           ALLOCATE ( ql_1(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                      &
    822                      ql_2(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    823 !
    824 !--       Real volume of particles (with weighting), volume of particles
    825           ALLOCATE ( ql_v(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                      &
    826                      ql_vp(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    827        ENDIF
    828 
    829820    ENDIF   
    830821   
     
    10541045       q => q_1;  q_p => q_2;  tq_m => q_3
    10551046       vpt  => vpt_1
    1056        IF ( cloud_droplets )  THEN
    1057           ql   => ql_1
    1058           ql_c => ql_2
    1059        ENDIF
    10601047    ENDIF
    10611048   
Note: See TracChangeset for help on using the changeset viewer.