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

Timestamp:

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

Author:

raasch

Message:

 

File:

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

palm/trunk/SOURCE/tridia_solver.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! bugfix for pgi 14.4: declare create moved after array declaration
 ! 
 ! Former revisions:
@@ -336 +336 @@
           REAL(wp)     ::  ar(nxl_z:nxr_z,nys_z:nyn_z,1:nz) !: 
 
+          REAL(wp), DIMENSION(nxl_z:nxr_z,nys_z:nyn_z,0:nz-1) ::  ar1 !:
           !$acc declare create( ar1 )
-          REAL(wp), DIMENSION(nxl_z:nxr_z,nys_z:nyn_z,0:nz-1) ::  ar1 !: 
 
 !