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

Timestamp:

Mar 27, 2019 11:01:36 AM (5 years ago)

Author:

hellstea

Message:

Adjustable anterpolation buffer introduced on all nest boundaries

File:

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

palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Adjustable anterpolation buffer introduced on all nest boundaries, it is controlled
+! by the new nesting_parameters parameter anterpolation_buffer_width.
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! nestpar renamed to nesting_parameters
 ! 
@@ -185 +189 @@
 
  SUBROUTINE pmc_init_model( comm, nesting_datatransfer_mode, nesting_mode,      &
-                            pmc_status )
+                            anterpolation_buffer_width, pmc_status )
 
     USE control_parameters,                                                     &
@@ -198 +202 @@
     CHARACTER(LEN=7), INTENT(INOUT) ::  nesting_datatransfer_mode  !<
 
+    INTEGER, INTENT(INOUT) ::  anterpolation_buffer_width          !< Boundary buffer width for anterpolation
     INTEGER, INTENT(INOUT) ::  comm        !<
     INTEGER, INTENT(INOUT) ::  pmc_status  !<
@@ -226 +231 @@
 
        CALL read_coupling_layout( nesting_datatransfer_mode, nesting_mode,      &
-                                  pmc_status )
+                                  anterpolation_buffer_width, pmc_status )
 
        IF ( pmc_status /= pmc_no_namelist_found  .AND.                          &
@@ -473 +478 @@
 
  SUBROUTINE read_coupling_layout( nesting_datatransfer_mode, nesting_mode,      &
-      pmc_status )
+      anterpolation_buffer_width, pmc_status )
 
     IMPLICIT NONE
@@ -479 +484 @@
     CHARACTER(LEN=8), INTENT(INOUT) ::  nesting_mode
     CHARACTER(LEN=7), INTENT(INOUT) ::  nesting_datatransfer_mode
-
+    
+    INTEGER, INTENT(INOUT)      ::  anterpolation_buffer_width     !< Boundary buffer width for anterpolation
     INTEGER(iwp), INTENT(INOUT) ::  pmc_status
     INTEGER(iwp)                ::  bad_llcorner
@@ -488 +494 @@
 
     NAMELIST /nesting_parameters/  domain_layouts, nesting_datatransfer_mode,  &
-                                   nesting_mode
+                                   nesting_mode, anterpolation_buffer_width
     
 !