Suggestion by CoPilot

Author: Himpu Marbona

Solver/src/libs/mesh/StorageClass.f90

@@ -1355,8 +1355,8 @@ impure elemental subroutine ElementStorage_InterpolateSolution(this,other,nodes,
                                      outArray   = other % U_z  )
             end if
 
-            this % Q(1:,0:,0:,0:) => this % QbaseSponge
-            other % Q(1:,0:,0:,0:) => other % QbaseSponge
+            this % Q => this % QbaseSponge
+            other % Q=> other % QbaseSponge
 
             call Interp3DArrays  (Nvars      = NCONS   , &
                                   Nin        = this  % Nxyz , &

Solver/src/libs/timeintegrator/ExplicitMethods.f90

@@ -1021,8 +1021,6 @@ SUBROUTINE TakeMLRK3Step( mesh, particles, t, deltaT, ComputeTimeDerivative, dt_
       REAL(KIND=RP) :: corrector, corrector2, aLoc
       REAL(KIND=RP), ALLOCATABLE :: cLL(:) , tk(:), deltaTL(:) ! 
 
-      !$acc enter data copyin(a,b,c,d)
-      
       nLevel = mesh % MLRK % maxLevel
 
       allocate(k(nLevel), cLL(nLevel), tk(nLevel), deltaTL(nLevel), MLIterN(nLevel) , MLIter(nLevel+1), MLIter_eIDN(size(mesh % elements)))
@@ -1034,7 +1032,7 @@ SUBROUTINE TakeMLRK3Step( mesh, particles, t, deltaT, ComputeTimeDerivative, dt_
       deltaTL(:) = deltaT       ! Local timestep, for level 1 is the deltaT
       tk(:)      = t
 
-      !$acc data copyin(MLIter_eIDN,MLIterN,t)
+      !$acc data copyin(MLIter_eIDN,MLIterN,t,a,b,c,d)
       k(:) = kmax                ! A counter array to track at which stage and level , 3 is the total number of stages
       do k1 = 1,kmax
 !           LEVEL 1

Solver/src/libs/timeintegrator/TimeIntegrator.f90

@@ -461,7 +461,7 @@ subroutine IntegrateInTime( self, sem, controlVariables, monitors, ComputeTimeDe
       use ChannelForcing, only: initializeChannel, updateChannel
 #endif
 #if defined(FLOW) 
-      use SpongeClass, only: sponge, ConstructSponge, DestructSponge, UpdateBaseFlowSponge, WriteBaseFlowSponge
+      use SpongeClass
 #endif
 
 #if defined(NAVIERSTOKES) || defined(MULTIPHASE)