Changeset 4028


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

Further modularization of particle code components

Location:
palm/trunk/SOURCE
Files:
3 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   
  • 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!------------------------------------------------------------------------------!
  • palm/trunk/SOURCE/module_interface.f90

    r4017 r4028  
    2525! -----------------
    2626! $Id$
     27! Further modularization of particle code components
     28!
     29! 4017 2019-06-06 12:16:46Z schwenkel
    2730! local_pf need INTENT(INOUT) attribute rather than INTENT(OUT). This is
    2831! because INTENT(OUT) sets the array to not-defined. Especially for outputs that
     
    247250               lpm_header,                                                     &
    248251               lpm_check_parameters,                                           &
     252               lpm_init_arrays,                                                &                             
    249253               lpm_init,                                                       &
    250254               lpm_actions,                                                    &
     
    880884    IF ( air_chemistry       )  CALL chem_init_arrays
    881885    IF ( gust_module_enabled )  CALL gust_init_arrays
     886    IF ( particle_advection  )  CALL lpm_init_arrays       
    882887    IF ( land_surface        )  CALL lsm_init_arrays
    883888    IF ( ocean_mode          )  CALL ocean_init_arrays
Note: See TracChangeset for help on using the changeset viewer.