Changeset 4883 for palm/trunk/SOURCE/lagrangian_particle_model_mod.f90
- Timestamp:
- Feb 23, 2021 4:32:41 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lagrangian_particle_model_mod.f90
r4865 r4883 24 24 ! ----------------- 25 25 ! $Id$ 26 ! User switch for particle coupling added 27 ! 28 ! 4865 2021-02-03 11:51:40Z schwenkel 26 29 ! Remove unnecessary interface decalrations and public statments for private routines 27 30 ! … … 251 254 252 255 USE pmc_interface, & 253 ONLY: nested_run 256 ONLY: nested_run, particle_coupling 254 257 255 258 USE grid_variables, & … … 2253 2256 ! 2254 2257 !-- In case of nested runs do the transfer of particles after every full model time step 2255 IF ( nested_run ) THEN 2256 CALL particles_from_parent_to_child 2257 CALL particles_from_child_to_parent 2258 CALL pmcp_p_delete_particles_in_fine_grid_area 2259 2258 !-- if requested ( particle_coupling = .TRUE. ) 2259 IF ( nested_run ) THEN 2260 IF ( particle_coupling ) THEN 2261 CALL particles_from_parent_to_child 2262 CALL particles_from_child_to_parent 2263 CALL pmcp_p_delete_particles_in_fine_grid_area 2264 ENDIF 2260 2265 CALL lpm_sort_and_delete 2261 2266
Note: See TracChangeset
for help on using the changeset viewer.