Changeset 1406 for palm/trunk/SOURCE/poisfft.f90

Timestamp:

May 16, 2014 1:47:01 PM (10 years ago)

Author:

raasch

Message:

 

File:

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

palm/trunk/SOURCE/poisfft.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! bugfix for pgi 14.4: declare create moved after array declaration
 !
 ! Former revisions:
@@ -220 +220 @@
 
        REAL(wp), DIMENSION(1:nz,nys:nyn,nxl:nxr) ::  ar      !:
+       REAL(wp), DIMENSION(nys:nyn,nxl:nxr,1:nz) ::  ar_inv  !:
        !$acc declare create( ar_inv )
-       REAL(wp), DIMENSION(nys:nyn,nxl:nxr,1:nz) ::  ar_inv  !:
 
        REAL(wp), DIMENSION(:,:,:),   ALLOCATABLE ::  ar1      !: