diff --git a/MNH/contrav.f90 b/MNH/contrav.f90 index 38ef8d54d01fe67e2be5377f60e2d5734af0ae04..ff2eefea39758c36b5f4139cc44ca58ea5f5568c 100644 --- 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(:,:,:)