1 ! 2 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 3 ! C 4 ! Module name: SHIFT_DXYZ C 5 ! Purpose: shift the data in the dx,dy,dz arrays from 1:IMAX to C 6 ! IMIN1:IMAX1, 1:JMAX to JMIN1:JMAX1 , C 7 ! 1:KMAX to KMIN1:KMAX1 C 8 ! C 9 ! Author: P. Nicoletti Date: 03-DEC-91 C 10 ! Reviewer: M.SYAMLAL, W.ROGERS, P.NICOLETTI Date: 24-JAN-92 C 11 ! C 12 ! Revision Number: C 13 ! Purpose: C 14 ! Author: Date: dd-mmm-yy C 15 ! Reviewer: Date: dd-mmm-yy C 16 ! C 17 ! Literature/Document References: C 18 ! C 19 ! Variables referenced: IMAX, IMAX1, IMAX2, JMAX, JMAX1, JMAX2, KMAX C 20 ! KMAX1 , KMAX2, IMIN1, JMIN1, KMIN1, NO_I, C 21 ! NO_J, NO_K C 22 ! Variables modified: DX, DY, DZ C 23 ! C 24 ! Local variables: LC C 25 ! C 26 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 27 ! 28 SUBROUTINE SHIFT_DXYZ 29 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 30 !...Switches: -xf 31 !----------------------------------------------- 32 ! M o d u l e s 33 !----------------------------------------------- 34 USE param 35 USE param1 36 USE geometry 37 IMPLICIT NONE 38 !----------------------------------------------- 39 ! G l o b a l P a r a m e t e r s 40 !----------------------------------------------- 41 !----------------------------------------------- 42 ! L o c a l P a r a m e t e r s 43 !----------------------------------------------- 44 !----------------------------------------------- 45 ! L o c a l V a r i a b l e s 46 !----------------------------------------------- 47 ! loop counter 48 INTEGER :: LC 49 !----------------------------------------------- 50 ! 51 ! 52 IF (DO_I) THEN 53 DX(IMAX3) = DX(IMAX-1) 54 DX(IMAX2) = DX(IMAX-1) 55 DO LC = IMAX1, IMIN1, -1 56 DX(LC) = DX(LC-2) 57 ENDDO 58 DX(IMIN2) = DX(IMIN1) 59 DX(IMIN3) =DX(IMIN2) 60 ENDIF 61 ! 62 63 IF (DO_J) THEN 64 DY(JMAX3) = DY(JMAX-1) 65 DY(JMAX2) = DY(JMAX-1) 66 DO LC = JMAX1, JMIN1, -1 67 DY(LC) = DY(LC-2) 68 ENDDO 69 DY(JMIN2) = DY(JMIN1) 70 DY(JMIN3) =DY(JMIN2) 71 72 ENDIF 73 ! 74 IF (DO_K) THEN 75 76 DZ(KMAX3) = DZ(KMAX-1) 77 DZ(KMAX2) = DZ(KMAX-1) 78 DO LC = KMAX1, KMIN1, -1 79 DZ(LC) = DZ(LC-2) 80 ENDDO 81 DZ(KMIN2) = DZ(KMIN1) 82 DZ(KMIN3) =DZ(KMIN2) 83 ENDIF 84 ! 85 RETURN 86 END SUBROUTINE SHIFT_DXYZ 87 88 !// Comments on the modifications for DMP version implementation 89 !// 120 Added new initializations at IMAX2, JMAX2, KMAX2 etc. 90