111
|
1 ! { dg-do compile }
|
|
2 ! PR 47574 - this used to ICE.
|
|
3 SUBROUTINE EXCH2_UV_AGRID_3D_RL( uPhi, vPhi, myNz )
|
|
4
|
|
5 IMPLICIT NONE
|
|
6
|
|
7 INTEGER, parameter :: sNx=32, sNy=32, OLx=4, OLy=4
|
|
8
|
|
9 INTEGER myNz
|
|
10 Real(8) uPhi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNz,3,1)
|
|
11 REAL(8) vPhi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNz,3,1)
|
|
12
|
|
13 INTEGER i,j,k,bi,bj
|
|
14 REAL(8) uLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
|
|
15 REAL(8) vLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
|
|
16 REAL(8) negOne
|
|
17
|
|
18 negOne = 1.
|
|
19 DO k = 1,myNz
|
|
20 DO j = 1-OLy,sNy+OLy
|
|
21 DO i = 1-OLx,sNx+OLx
|
|
22 uLoc(i,j) = uPhi(i,j,k,bi,bj)
|
|
23 vLoc(i,j) = vPhi(i,j,k,bi,bj)
|
|
24 ENDDO
|
|
25 ENDDO
|
|
26 DO j = 1-OLy,sNy+OLy
|
|
27 DO i = 1,OLx
|
|
28 uPhi(1-i,j,k,bi,bj) = vLoc(1-i,j)
|
|
29 vPhi(1-i,j,k,bi,bj) = uLoc(1-i,j)*negOne
|
|
30 ENDDO
|
|
31 ENDDO
|
|
32
|
|
33 ENDDO
|
|
34
|
|
35 END
|
|
36
|