Juan 23/11/2013: replace local/create

bd98b8df · ESCOBAR Juan · cd9a494e · bd98b8df
Commit bd98b8df authored 11 years ago by ESCOBAR Juan
--- a/MNH/contrav.f90
+++ b/MNH/contrav.f90
@@ -305,7 +305,7 @@ IJE=SIZE(PDXX,2)-1
 IKB=1+JPVEXT
 IKE=SIZE(PDXX,3) - JPVEXT
 !
-!$acc data local (z1,z2 )
+!$acc data create (z1,z2 )
 !$acc kernels 
 !
 PRUCT(:,:,:) = PRUT(:,:,:) / PDXX(:,:,:)