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

Timestamp:

Oct 7, 2020 1:25:11 PM (4 years ago)

Author:

schwenkel

Message:

Move exchange_horiz from time_integration to modules

File:

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

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! Move exchange_horiz from time_integration to modules
+!
+! 4673 2020-09-10 07:56:36Z schwenkel
 ! bugfix in case of mpi-restarts
 !
@@ -413 +416 @@
            lpm_actions,                                                                            &
            lpm_data_output_ptseries,                                                               &
+           lpm_exchange_horiz_bounds,                                                              &
            lpm_interaction_droplets_ptq,                                                           &
            lpm_rrd_local_particles,                                                                &
@@ -513 +517 @@
        MODULE PROCEDURE lpm_exchange_horiz
     END INTERFACE lpm_exchange_horiz
+
+    INTERFACE lpm_exchange_horiz_bounds
+       MODULE PROCEDURE lpm_exchange_horiz_bounds
+    END INTERFACE lpm_exchange_horiz_bounds
 
     INTERFACE lpm_move_particle
@@ -7764 +7772 @@
  END SUBROUTINE lpm_exchange_horiz
 
+
+!--------------------------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Exchange ghostpoints
+!--------------------------------------------------------------------------------------------------!
+    SUBROUTINE lpm_exchange_horiz_bounds( location )
+
+    USE exchange_horiz_mod,                                                                        &
+        ONLY:  exchange_horiz
+
+       CHARACTER (LEN=*), INTENT(IN) ::  location !< call location string
+
+       SELECT CASE ( location )
+
+          CASE ( 'before_prognostic_equation' )
+
+          CASE ( 'after_prognostic_equation' )
+
+             IF ( wang_kernel  .OR.  use_sgs_for_particles )  THEN
+                CALL exchange_horiz( diss, nbgp )
+             ENDIF
+
+       END SELECT
+
+    END SUBROUTINE lpm_exchange_horiz_bounds
+
+
 #if defined( __parallel )
 !--------------------------------------------------------------------------------------------------!