@@ -111,7 +111,7 @@ end subroutine Finalize_SpaceAndTimeMethods
111111!
112112! ////////////////////////////////////////////////////////////////////////
113113!
114- SUBROUTINE ComputeTimeDerivative ( mesh , particles , time , mode , HO_Elements , element_mask )
114+ SUBROUTINE ComputeTimeDerivative ( mesh , particles , time , mode , HO_Elements , element_mask , Level )
115115 IMPLICIT NONE
116116!
117117! ---------
@@ -124,6 +124,7 @@ SUBROUTINE ComputeTimeDerivative( mesh, particles, time, mode, HO_Elements, elem
124124 integer , intent (in ) :: mode
125125 logical , intent (in ), optional :: HO_Elements
126126 logical , intent (in ), optional :: element_mask(:)
127+ integer , intent (in ), optional :: Level
127128!
128129! ---------------
129130! Local variables
@@ -167,7 +168,7 @@ END SUBROUTINE ComputeTimeDerivative
167168! This routine computes the time derivative element by element, without considering the Riemann Solvers
168169! This is useful for estimating the isolated truncation error
169170!
170- SUBROUTINE ComputeTimeDerivativeIsolated ( mesh , particles , time , mode , HO_Elements , element_mask )
171+ SUBROUTINE ComputeTimeDerivativeIsolated ( mesh , particles , time , mode , HO_Elements , element_mask , Level )
171172 IMPLICIT NONE
172173!
173174! ---------
@@ -179,7 +180,8 @@ SUBROUTINE ComputeTimeDerivativeIsolated( mesh, particles, time, mode, HO_Elemen
179180 REAL (KIND= RP) :: time
180181 integer , intent (in ) :: mode
181182 logical , intent (in ), optional :: HO_Elements
182- logical , intent (in ), optional :: element_mask(:)
183+ logical , intent (in ), optional :: element_mask(:)
184+ integer , intent (in ), optional :: Level
183185!
184186! ---------------
185187! Local variables
@@ -206,7 +208,7 @@ END SUBROUTINE ComputeTimeDerivativeIsolated
206208
207209 subroutine TimeDerivative_ComputeQDot ( mesh , particles , t )
208210 ! use ActuatorLine, only: farm
209- ! use SpongeClass, only: sponge
211+ use SpongeClass, only: sponge, addSourceSponge
210212 implicit none
211213 type (HexMesh) :: mesh
212214 type (Particles_t) :: particles
@@ -330,7 +332,7 @@ subroutine TimeDerivative_ComputeQDot( mesh , particles, t)
330332 end do
331333! $omp end do
332334 ! for the sponge, loops are in the internal subroutine as values are precalculated
333- ! call sponge % addSource( mesh)
335+ call addSourceSponge(sponge, mesh)
334336!
335337! ***********************
336338! Now add the source term
0 commit comments