Changeset 3979 for palm


Ignore:
Timestamp:
May 15, 2019 1:54:29 PM (2 years ago)
Author:
hellstea
Message:

Bugfix in nesting interpolation pmci_interp_1sto_sn

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_interface_mod.f90

    r3976 r3979  
    2525! -----------------
    2626! $Id$
     27! Bugfix in pmc_interp_1sto_sn. This bug had effect only in case of 1-d domain
     28! decomposition with npex = 1.
     29!
     30! 3976 2019-05-15 11:02:34Z hellstea
    2731! Child initialization also for the redundant ghost points behind the nested
    2832! boundaries added (2nd and 3rd ghost-point layers and corners).
     
    42474251                            status, ierr )
    42484252
    4249       ELSE                                                                 
    4250          workarr_sn(0:pg%nz+1,0:2,iplw+1:iprw-1)                                                    &
    4251               = parent_array(0:pg%nz+1,jpbeg:jpbeg+2,iplw+1:iprw-1)
     4253      ELSE
     4254         workarr_sn(0:pg%nz+1,0:2,iplw:iprw) = parent_array(0:pg%nz+1,jpbeg:jpbeg+2,iplw:iprw)
    42524255      ENDIF
    42534256
Note: See TracChangeset for help on using the changeset viewer.