diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/datatypes.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/datatypes.f90
index 7b693a9d2db92ac514618eaf16d6615332f497b5..fb91bcd17d3575bcdc763bd71dd092911aae5106 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/datatypes.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/datatypes.f90
@@ -344,7 +344,7 @@ private
        
        if (LUseT) then
           zphi_st => phi%st
-          !$acc kernels loop dtype(nvidia) collapse(3)
+          !$acc kernels loop collapse(3)
           do iz=1,nz
              do iy=1,nlocaly
                 do ix=1,nlocalx
diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
index 698ac9ed3cc00388859ae127d66b22af60818783..70d9063b2494dce63cf65cb43ce68cd9a379199b 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90
@@ -690,7 +690,7 @@ end subroutine construct_vertical_coeff
     
        !$acc kernels 
        iz=1
-       !$acc loop independent dtype(nvidia) collapse(2)
+       !$acc loop independent  collapse(2)
        do ij=ijb,ije
           do ii=iib,iie
              zv_st(ii,ij,iz)   = zd_k(iz)* ( (-zb_k(iz)-zc_k(iz))*Tij * zu_st(ii,ij,iz  )  &
@@ -699,7 +699,7 @@ end subroutine construct_vertical_coeff
        end do
        !
        do iz=2,ize-1
-          !$acc loop independent dtype(nvidia) collapse(2)
+          !$acc loop independent  collapse(2)
           do ij=ijb,ije
              do ii=iib,iie
                 zv_st(ii,ij,iz) = zd_k(iz)* ( ((-zb_k(iz)-zc_k(iz))*Tij - 4.0_rl ) * zu_st(ii,ij,iz)    &
@@ -715,7 +715,7 @@ end subroutine construct_vertical_coeff
        end do
        !
        iz=ize
-       !$acc loop independent dtype(nvidia) collapse(2)
+       !$acc loop independent  collapse(2)
        do ij=ijb,ije
           do ii=iib,iie
              zv_st(ii,ij,iz) = zd_k(iz)*  (  (-zb_k(iz)-zc_k(iz))*Tij  * zu_st(ii,ij,iz)    &
diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/multigrid.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/multigrid.f90
index 3bcc7423f5d7e6104c66e267d773b382a9057265..4db9947261144dad5e52ed19bfe5ae0be99d9e1f 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/multigrid.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/multigrid.f90
@@ -486,7 +486,7 @@ contains
       if (LUseT) then 
          zphifine_st => phifine%st
          zphicoarse_st => phicoarse%st
-         !$acc kernels loop independent dtype(nvidia) collapse(3)
+         !$acc kernels loop independent  collapse(3)
          do iz=1,phicoarse%grid_param%nz
             do iy=iy_min,iy_max
                do ix=ix_min,ix_max
@@ -810,7 +810,7 @@ contains
          zphifine_st => phifine%st
          zphicoarse_st => phicoarse%st
 
-         !$acc kernels loop independent dtype(nvidia) collapse(5)
+         !$acc kernels loop independent  collapse(5)
          do iz=1,phicoarse%grid_param%nz 
             do diy = -1,0
                do dix = -1,0