Changeset 4457 for palm/trunk/SOURCE/lagrangian_particle_model_mod.f90
- Timestamp:
- Mar 11, 2020 2:20:43 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lagrangian_particle_model_mod.f90
r4444 r4457 25 25 ! ----------------- 26 26 ! $Id$ 27 ! use statement for exchange horiz added 28 ! 29 ! 4444 2020-03-05 15:59:50Z raasch 27 30 ! bugfix: cpp-directives for serial mode added 28 31 ! … … 1772 1775 SUBROUTINE lpm_init_sgs_tke 1773 1776 1777 USE exchange_horiz_mod, & 1778 ONLY: exchange_horiz 1779 1774 1780 USE statistics, & 1775 1781 ONLY: flow_statistics_called, hom, sums, sums_l … … 2014 2020 !------------------------------------------------------------------------------! 2015 2021 SUBROUTINE lpm_actions( location ) 2022 2023 USE exchange_horiz_mod, & 2024 ONLY: exchange_horiz 2016 2025 2017 2026 CHARACTER (LEN=*), INTENT(IN) :: location !< call location string
Note: See TracChangeset
for help on using the changeset viewer.