Ignore:
Timestamp:
Feb 23, 2021 4:32:41 PM (7 months ago)
Author:
hellstea
Message:

user switch for particle coupling added

File:
1 edited

Legend:

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

    r4865 r4883  
    2424! -----------------
    2525! $Id$
     26! User switch for particle coupling added
     27!
     28! 4865 2021-02-03 11:51:40Z schwenkel
    2629! Remove unnecessary interface decalrations and public statments for private routines
    2730!
     
    251254
    252255    USE pmc_interface,                                                                             &
    253         ONLY: nested_run
     256        ONLY: nested_run, particle_coupling
    254257
    255258    USE grid_variables,                                                                            &
     
    22532256!
    22542257!--          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
    22602265                CALL lpm_sort_and_delete
    22612266
Note: See TracChangeset for help on using the changeset viewer.