Skip to content

Commit df70e0e

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 3519265 commit df70e0e

File tree

2 files changed

+1
-4
lines changed

2 files changed

+1
-4
lines changed

src/simulation/m_acoustic_src.fpp

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -126,9 +126,8 @@ contains
126126
!> This subroutine updates the rhs by computing the mass, mom, energy sources
127127
!! @param q_cons_vf Conservative variables
128128
!! @param q_prim_vf Primitive variables
129-
!! @param t_step Current time step
130129
!! @param rhs_vf rhs variables
131-
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)
132131

133132
type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf !<
134133
!! This variable contains the WENO-reconstructed values of the cell-average
@@ -142,7 +141,6 @@ contains
142141

143142
type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
144143

145-
integer, intent(in) :: t_step
146144
#:if not MFC_CASE_OPTIMIZATION and USING_AMD
147145
real(wp), dimension(3) :: myalpha, myalpha_rho
148146
#:else

src/simulation/m_rhs.fpp

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1025,7 +1025,6 @@ contains
10251025
call nvtxStartRange("RHS-ACOUSTIC-SRC")
10261026
call s_acoustic_src_calculations(q_cons_qp%vf(1:sys_size), &
10271027
q_prim_qp%vf(1:sys_size), &
1028-
t_step, &
10291028
rhs_vf)
10301029
call nvtxEndRange
10311030
end if

0 commit comments

Comments
 (0)