Changeset 4883 for palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

Timestamp:

Feb 23, 2021 4:32:41 PM (3 years ago)

Author:

hellstea

Message:

user switch for particle coupling added

File:

• palm/trunk/SOURCE/lagrangian_particle_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! User switch for particle coupling added
+!
+! 4865 2021-02-03 11:51:40Z schwenkel
 ! Remove unnecessary interface decalrations and public statments for private routines
 !
@@ -251 +254 @@
 
     USE pmc_interface,                                                                             &
-        ONLY: nested_run
+        ONLY: nested_run, particle_coupling
 
     USE grid_variables,                                                                            &
@@ -2253 +2256 @@
 !
 !--          In case of nested runs do the transfer of particles after every full model time step
-             IF ( nested_run )   THEN
-                CALL particles_from_parent_to_child
-                CALL particles_from_child_to_parent
-                CALL pmcp_p_delete_particles_in_fine_grid_area
-
+!--          if requested ( particle_coupling = .TRUE. )
+             IF ( nested_run )   THEN   
+                IF ( particle_coupling )  THEN
+                   CALL particles_from_parent_to_child
+                   CALL particles_from_child_to_parent
+                   CALL pmcp_p_delete_particles_in_fine_grid_area
+                ENDIF
                 CALL lpm_sort_and_delete