Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 5 additions & 3 deletions Solver/src/AcousticSolver/SpatialDiscretization.f90
Original file line number Diff line number Diff line change
Expand Up @@ -111,7 +111,7 @@ end subroutine Finalize_SpaceAndTimeMethods
!
!////////////////////////////////////////////////////////////////////////
!
SUBROUTINE ComputeTimeDerivative( mesh, particles, time, mode, HO_Elements, element_mask)
SUBROUTINE ComputeTimeDerivative( mesh, particles, time, mode, HO_Elements, element_mask, Level)
IMPLICIT NONE
!
! ---------
Expand All @@ -124,6 +124,7 @@ SUBROUTINE ComputeTimeDerivative( mesh, particles, time, mode, HO_Elements, elem
integer, intent(in) :: mode
logical, intent(in), optional :: HO_Elements
logical, intent(in), optional :: element_mask(:)
integer, intent(in), optional :: Level
!
! ---------------
! Local variables
Expand Down Expand Up @@ -167,7 +168,7 @@ END SUBROUTINE ComputeTimeDerivative
! This routine computes the time derivative element by element, without considering the Riemann Solvers
! This is useful for estimating the isolated truncation error
!
SUBROUTINE ComputeTimeDerivativeIsolated( mesh, particles, time, mode, HO_Elements, element_mask)
SUBROUTINE ComputeTimeDerivativeIsolated( mesh, particles, time, mode, HO_Elements, element_mask, Level)
IMPLICIT NONE
!
! ---------
Expand All @@ -179,7 +180,8 @@ SUBROUTINE ComputeTimeDerivativeIsolated( mesh, particles, time, mode, HO_Elemen
REAL(KIND=RP) :: time
integer, intent(in) :: mode
logical, intent(in), optional :: HO_Elements
logical, intent(in), optional :: element_mask(:)
logical, intent(in), optional :: element_mask(:)
integer, intent(in), optional :: Level
!
! ---------------
! Local variables
Expand Down
8 changes: 5 additions & 3 deletions Solver/src/CahnHilliardSolver/SpatialDiscretization.f90
Original file line number Diff line number Diff line change
Expand Up @@ -118,7 +118,7 @@ end subroutine Initialize_SpaceAndTimeMethods
!
!////////////////////////////////////////////////////////////////////////
!
subroutine ComputeTimeDerivative( mesh, particles, time, mode, HO_Elements, element_mask)
subroutine ComputeTimeDerivative( mesh, particles, time, mode, HO_Elements, element_mask, Level)
IMPLICIT NONE
!
! ---------
Expand All @@ -131,6 +131,7 @@ subroutine ComputeTimeDerivative( mesh, particles, time, mode, HO_Elements, elem
integer, intent(in) :: mode
logical, intent(in), optional :: HO_Elements
logical, intent(in), optional :: element_mask(:)
integer, intent(in), optional :: Level
!
! ---------------
! Local variables
Expand Down Expand Up @@ -372,7 +373,7 @@ subroutine ComputeTimeDerivative( mesh, particles, time, mode, HO_Elements, elem

end subroutine ComputeTimeDerivative

subroutine ComputeTimeDerivativeIsolated( mesh, particles, time, mode, HO_Elements, element_mask)
subroutine ComputeTimeDerivativeIsolated( mesh, particles, time, mode, HO_Elements, element_mask, Level)
IMPLICIT NONE
!
! ---------
Expand All @@ -384,7 +385,8 @@ subroutine ComputeTimeDerivativeIsolated( mesh, particles, time, mode, HO_Elemen
REAL(KIND=RP) :: time
integer, intent(in) :: mode
logical, intent(in), optional :: HO_Elements
logical, intent(in), optional :: element_mask(:)
logical, intent(in), optional :: element_mask(:)
integer, intent(in), optional :: Level

error stop 'ComputeTimeDerivativeIsolated not implemented for Cahn-Hilliard'
end subroutine ComputeTimeDerivativeIsolated
Expand Down
6 changes: 4 additions & 2 deletions Solver/src/IncompressibleNSSolver/SpatialDiscretization.f90
Original file line number Diff line number Diff line change
Expand Up @@ -173,7 +173,7 @@ end subroutine Finalize_SpaceAndTimeMethods
!
!////////////////////////////////////////////////////////////////////////
!
SUBROUTINE ComputeTimeDerivative( mesh, particles, time, mode, HO_Elements, element_mask)
SUBROUTINE ComputeTimeDerivative( mesh, particles, time, mode, HO_Elements, element_mask, Level)
IMPLICIT NONE
!
! ---------
Expand All @@ -186,6 +186,7 @@ SUBROUTINE ComputeTimeDerivative( mesh, particles, time, mode, HO_Elements, elem
integer, intent(in) :: mode
logical, intent(in), optional :: HO_Elements
logical, intent(in), optional :: element_mask(:)
integer, intent(in), optional :: Level
!
! ---------------
! Local variables
Expand Down Expand Up @@ -263,7 +264,7 @@ END SUBROUTINE ComputeTimeDerivative
! This routine computes the time derivative element by element, without considering the Riemann Solvers
! This is useful for estimating the isolated truncation error
!
SUBROUTINE ComputeTimeDerivativeIsolated( mesh, particles, time, mode, HO_Elements, element_mask)
SUBROUTINE ComputeTimeDerivativeIsolated( mesh, particles, time, mode, HO_Elements, element_mask, Level)
use EllipticDiscretizationClass
IMPLICIT NONE
!
Expand All @@ -277,6 +278,7 @@ SUBROUTINE ComputeTimeDerivativeIsolated( mesh, particles, time, mode, HO_Elemen
integer, intent(in) :: mode
logical, intent(in), optional :: HO_Elements
logical, intent(in), optional :: element_mask(:)
integer, intent(in), optional :: Level
!
! ---------------
! Local variables
Expand Down
Loading
Loading