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

Timestamp:

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

Author:

hellstea

Message:

user switch for particle coupling added

File:

• palm/trunk/SOURCE/pmc_handle_communicator_mod.f90 (modified) (9 diffs)

palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! User switch for particle coupling added
+!
+! 4843 2021-01-15 15:22:11Z raasch
 ! local namelist parameter added to switch off the module although the respective module namelist
 ! appears in the namelist file
@@ -146 +149 @@
 !--------------------------------------------------------------------------------------------------!
  SUBROUTINE pmc_init_model( comm, nesting_datatransfer_mode, nesting_mode,                         &
-                            anterpolation_buffer_width, anterpolation_starting_height, pmc_status )
+                            anterpolation_buffer_width, anterpolation_starting_height,             &
+                            particle_coupling, pmc_status )
 
     USE control_parameters,                                                                        &
@@ -154 +158 @@
         ONLY:  myid
 
-      IMPLICIT NONE
+    IMPLICIT NONE
 
     CHARACTER(LEN=7), INTENT(INOUT) ::  nesting_datatransfer_mode  !<
@@ -164 +168 @@
 
     REAL(wp), INTENT(INOUT) ::  anterpolation_starting_height  !< steering parameter for canopy restricted anterpolation 
+    LOGICAL, INTENT(INOUT)  ::  particle_coupling              !< switch for particle coupling (default .TRUE.)
     
     INTEGER ::  childcount     !<
@@ -190 +195 @@
 
        CALL read_coupling_layout( nesting_datatransfer_mode, nesting_mode,                         &
-            anterpolation_buffer_width, anterpolation_starting_height,                             &
+            anterpolation_buffer_width, anterpolation_starting_height, particle_coupling,          &
             pmc_status )
 
@@ -264 +269 @@
     CALL MPI_BCAST( anterpolation_buffer_width, 1, MPI_INT, 0, MPI_COMM_WORLD, istat )
     CALL MPI_BCAST( anterpolation_starting_height, 1, MPI_REAL, 0, MPI_COMM_WORLD, istat )
+    CALL MPI_BCAST( particle_coupling, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, istat )
 !
 !-- Assign global MPI processes to individual models by setting the couple id
@@ -435 +441 @@
  SUBROUTINE read_coupling_layout( nesting_datatransfer_mode, nesting_mode,                         &
                                   anterpolation_buffer_width, anterpolation_starting_height,       &
-                                  pmc_status )
+                                  particle_coupling, pmc_status )
 
     IMPLICIT NONE
@@ -446 +452 @@
 
     REAL(wp), INTENT(INOUT) ::  anterpolation_starting_height   !< steering parameter for canopy restricted anterpolation
+    LOGICAL, INTENT(INOUT)  ::  particle_coupling               !< switch for particle coupling (default .TRUE.)
 
     INTEGER(iwp) ::  bad_llcorner  !<
@@ -462 +469 @@
                                    nesting_datatransfer_mode,                                      &
                                    nesting_mode,                                                   &
-                                   switch_off_module
+                                   switch_off_module,                                              &
+                                   particle_coupling