Skip to content

Commit 0107c0e

Browse files
sbryngelsonclaude
andcommitted
Remove unused t_step parameter from s_acoustic_src_calculations
No longer needed after switching from sim_time = t_step*dt to sim_time = mytime. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
1 parent 41797a2 commit 0107c0e

File tree

2 files changed

+3
-4
lines changed

2 files changed

+3
-4
lines changed

src/simulation/m_acoustic_src.fpp

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -124,9 +124,10 @@ contains
124124
end subroutine s_initialize_acoustic_src
125125

126126
!> This subroutine updates the rhs by computing the mass, mom, energy sources
127-
!! @param t_step Current time step
127+
!! @param q_cons_vf Conservative variables
128+
!! @param q_prim_vf Primitive variables
128129
!! @param rhs_vf rhs variables
129-
impure subroutine s_acoustic_src_calculations(q_cons_vf, q_prim_vf, t_step, rhs_vf)
130+
impure subroutine s_acoustic_src_calculations(q_cons_vf, q_prim_vf, rhs_vf)
130131

131132
type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf !<
132133
!! This variable contains the WENO-reconstructed values of the cell-average
@@ -140,7 +141,6 @@ contains
140141

141142
type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
142143

143-
integer, intent(in) :: t_step
144144
#:if not MFC_CASE_OPTIMIZATION and USING_AMD
145145
real(wp), dimension(3) :: myalpha, myalpha_rho
146146
#:else

src/simulation/m_rhs.fpp

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1016,7 +1016,6 @@ contains
10161016
call nvtxStartRange("RHS-ACOUSTIC-SRC")
10171017
call s_acoustic_src_calculations(q_cons_qp%vf(1:sys_size), &
10181018
q_prim_qp%vf(1:sys_size), &
1019-
t_step, &
10201019
rhs_vf)
10211020
call nvtxEndRange
10221021
end if

0 commit comments

Comments
 (0)