Skip to content

Commit 53ee674

Browse files
committed
Add sponge to CAA solver and change it to be gpu compatible, removing
classes for types
1 parent 2968d26 commit 53ee674

4 files changed

Lines changed: 150 additions & 150 deletions

File tree

Solver/src/AcousticSolver/SpatialDiscretization.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -208,7 +208,7 @@ END SUBROUTINE ComputeTimeDerivativeIsolated
208208

209209
subroutine TimeDerivative_ComputeQDot( mesh , particles, t)
210210
! use ActuatorLine, only: farm
211-
! use SpongeClass, only: sponge
211+
use SpongeClass, only: sponge, addSourceSponge
212212
implicit none
213213
type(HexMesh) :: mesh
214214
type(Particles_t) :: particles
@@ -332,7 +332,7 @@ subroutine TimeDerivative_ComputeQDot( mesh , particles, t)
332332
end do
333333
!$omp end do
334334
! for the sponge, loops are in the internal subroutine as values are precalculated
335-
! call sponge % addSource(mesh)
335+
call addSourceSponge(sponge,mesh)
336336
!
337337
! ***********************
338338
! Now add the source term

0 commit comments

Comments
 (0)