Changeset 3979 for palm/trunk/SOURCE/pmc_interface_mod.f90

Timestamp:

May 15, 2019 1:54:29 PM (6 years ago)

Author:

hellstea

Message:

Bugfix in nesting interpolation pmci_interp_1sto_sn

File:

• palm/trunk/SOURCE/pmc_interface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in pmc_interp_1sto_sn. This bug had effect only in case of 1-d domain
+! decomposition with npex = 1. 
+! 
+! 3976 2019-05-15 11:02:34Z hellstea
 ! Child initialization also for the redundant ghost points behind the nested 
 ! boundaries added (2nd and 3rd ghost-point layers and corners).
@@ -4247 +4251 @@
                             status, ierr )
 
-      ELSE                                                                  
-         workarr_sn(0:pg%nz+1,0:2,iplw+1:iprw-1)                                                    &
-              = parent_array(0:pg%nz+1,jpbeg:jpbeg+2,iplw+1:iprw-1)
+      ELSE
+         workarr_sn(0:pg%nz+1,0:2,iplw:iprw) = parent_array(0:pg%nz+1,jpbeg:jpbeg+2,iplw:iprw)
       ENDIF