Ignore:
Timestamp:
Mar 11, 2020 2:20:43 PM (4 years ago)
Author:
raasch
Message:

ghost point exchange modularized, bugfix for wrong 2d-exchange

File:
1 edited

Legend:

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

    r4444 r4457  
    2525! -----------------
    2626! $Id$
     27! use statement for exchange horiz added
     28!
     29! 4444 2020-03-05 15:59:50Z raasch
    2730! bugfix: cpp-directives for serial mode added
    2831!
     
    17721775 SUBROUTINE lpm_init_sgs_tke
    17731776
     1777    USE exchange_horiz_mod,                                                    &
     1778        ONLY:  exchange_horiz
     1779
    17741780    USE statistics,                                                            &
    17751781        ONLY:  flow_statistics_called, hom, sums, sums_l
     
    20142020!------------------------------------------------------------------------------! 
    20152021 SUBROUTINE lpm_actions( location )
     2022
     2023    USE exchange_horiz_mod,                                                    &
     2024        ONLY:  exchange_horiz
    20162025
    20172026    CHARACTER (LEN=*), INTENT(IN) ::  location !< call location string
Note: See TracChangeset for help on using the changeset viewer.