shift_dxyz.f

Go to the documentation of this file.

!
!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: SHIFT_DXYZ                                             C
!  Purpose:  shift the data in the dx,dy,dz arrays from 1:IMAX to      C
!            IMIN1:IMAX1,  1:JMAX to JMIN1:JMAX1 ,                     C
!            1:KMAX to KMIN1:KMAX1                                     C
!                                                                      C
!  Author: P. Nicoletti                               Date: 03-DEC-91  C
!  Reviewer: M.SYAMLAL, W.ROGERS, P.NICOLETTI         Date: 24-JAN-92  C
!                                                                      C
!  Revision Number:                                                    C
!  Purpose:                                                            C
!  Author:                                            Date: dd-mmm-yy  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Literature/Document References:                                     C
!                                                                      C
!  Variables referenced: IMAX, IMAX1, IMAX2, JMAX, JMAX1, JMAX2, KMAX  C
!                        KMAX1 , KMAX2, IMIN1, JMIN1, KMIN1, NO_I,     C
!                        NO_J, NO_K                                    C
!  Variables modified:  DX, DY, DZ                                     C
!                                                                      C
!  Local variables: LC                                                 C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      SUBROUTINE shift_dxyz
!...Translated by Pacific-Sierra Research VAST-90 2.06G5  12:17:31  12/09/98
!...Switches: -xf
!-----------------------------------------------
!   M o d u l e s
!-----------------------------------------------
      USE param
      USE param1
      USE geometry
      IMPLICIT NONE
!-----------------------------------------------
!   G l o b a l   P a r a m e t e r s
!-----------------------------------------------
!-----------------------------------------------
!   L o c a l   P a r a m e t e r s
!-----------------------------------------------
!-----------------------------------------------
!   L o c a l   V a r i a b l e s
!-----------------------------------------------
!              loop counter
      INTEGER :: LC
!-----------------------------------------------
!
!
      IF (do_i) THEN
         dx(imax3) = dx(imax-1)
         dx(imax2) = dx(imax-1)
         DO lc = imax1, imin1, -1
            dx(lc) = dx(lc-2)
         ENDDO
         dx(imin2) = dx(imin1)
         dx(imin3) =dx(imin2)
      ENDIF
!

      IF (do_j) THEN
         dy(jmax3) = dy(jmax-1)
         dy(jmax2) = dy(jmax-1)
         DO lc = jmax1, jmin1, -1
            dy(lc) = dy(lc-2)
         ENDDO
         dy(jmin2) = dy(jmin1)
         dy(jmin3) =dy(jmin2)

      ENDIF
!
      IF (do_k) THEN

         dz(kmax3) = dz(kmax-1)
         dz(kmax2) = dz(kmax-1)
         DO lc = kmax1, kmin1, -1
            dz(lc) = dz(lc-2)
         ENDDO
         dz(kmin2) = dz(kmin1)
         dz(kmin3) =dz(kmin2)
      ENDIF
!
      RETURN
      END SUBROUTINE shift_dxyz

!// Comments on the modifications for DMP version implementation
!// 120 Added new initializations at IMAX2, JMAX2, KMAX2 etc.