Skip to content

Commit 7ed6b2d

Browse files
hyeoksu-leehyeoksu-lee
committed
Remove unnecesasry codes and comments
1 parent 405ea0a commit 7ed6b2d

File tree

3 files changed

+1
-49
lines changed

3 files changed

+1
-49
lines changed

‎src/simulation/m_cbc.fpp‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -767,7 +767,6 @@ contains
767767

768768
! Compute mixture sound speed
769769
call s_compute_speed_of_sound(pres, rho, gamma, pi_inf, H, adv, vel_K_sum, c)
770-
! write(44,*) cbc_dir,r,k,adv,c
771770
! ============================================================
772771

773772
! First-Order Spatial Derivatives of Primitive Variables =====

‎src/simulation/m_rhs.fpp‎

Lines changed: 1 addition & 40 deletions
Original file line numberDiff line numberDiff line change
@@ -818,30 +818,6 @@ contains
818818
! ===============================================================
819819
call nvtxStartRange("RHS-Riemann")
820820

821-
! Computing Riemann Solver Flux and Source Flux =================
822-
! do l = 0, p
823-
! do k = 0, n
824-
! do j = 0, m
825-
! do q = 1, sys_size
826-
! if(isnan(q_prim_qp%vf(q)%sf(j,k,l))) then
827-
! write(*,*) t_step,id,q,j,k,l,'q_prim_qp'
828-
! end if
829-
! end do
830-
! do q = momxb,momxe
831-
! if(isnan(dqR_prim_dx_n(id)%vf(q)%sf(j,k,l))) then
832-
! write(*,*) t_step,id,q,j,k,l,'dqR_prim_dx_n'
833-
! end if
834-
! if(isnan(dqR_prim_dy_n(id)%vf(q)%sf(j,k,l))) then
835-
! write(*,*) t_step,id,q,j,k,l,'dqR_prim_dy_n'
836-
! end if
837-
! if(isnan(dqR_prim_dz_n(id)%vf(q)%sf(j,k,l))) then
838-
! write(*,*) t_step,id,q,j,k,l,'dqR_prim_dz_n'
839-
! end if
840-
! end do
841-
! end do
842-
! end do
843-
! end do
844-
845821
call s_riemann_solver(qR_rsx_vf, qR_rsy_vf, qR_rsz_vf, &
846822
dqR_prim_dx_n(id)%vf, &
847823
dqR_prim_dy_n(id)%vf, &
@@ -858,22 +834,7 @@ contains
858834
flux_gsrc_n(id)%vf, &
859835
id, ix, iy, iz)
860836
call nvtxEndRange
861-
! do l = 0, p
862-
! do k = 0, n
863-
! do j = 0, m
864-
! do q = 1, sys_size
865-
! if(isnan(flux_n(id)%vf(q)%sf(j,k,l))) then
866-
! write(*,*) t_step,id,q,j,k,l,'flux_n'
867-
! end if
868-
! end do
869-
! do q = momxb,advxe
870-
! if(isnan(flux_src_n(id)%vf(q)%sf(j,k,l))) then
871-
! write(*,*) t_step,id,q,j,k,l,'flux_src_n'
872-
! end if
873-
! end do
874-
! end do
875-
! end do
876-
! end do
837+
877838
! ===============================================================
878839

879840

‎src/simulation/m_viscous.fpp‎

Lines changed: 0 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -97,13 +97,11 @@ module m_viscous
9797
!$acc loop seq
9898
do i = 1, num_fluids
9999
alpha_rho_visc(i) = q_prim_vf(i)%sf(j, k, l)
100-
! Added --------------------------------------------------------------
101100
if (bubbles .and. num_fluids == 1) then
102101
alpha_visc(i) = 1d0 - q_prim_vf(E_idx + i)%sf(j, k, l)
103102
else
104103
alpha_visc(i) = q_prim_vf(E_idx + i)%sf(j, k, l)
105104
end if
106-
! Added --------------------------------------------------------------
107105
end do
108106

109107
if (bubbles) then
@@ -206,13 +204,11 @@ module m_viscous
206204
!$acc loop seq
207205
do i = 1, num_fluids
208206
alpha_rho_visc(i) = q_prim_vf(i)%sf(j, k, l)
209-
! Added --------------------------------------------------------------
210207
if (bubbles .and. num_fluids == 1) then
211208
alpha_visc(i) = 1d0 - q_prim_vf(E_idx + i)%sf(j, k, l)
212209
else
213210
alpha_visc(i) = q_prim_vf(E_idx + i)%sf(j, k, l)
214211
end if
215-
! Added --------------------------------------------------------------
216212
end do
217213

218214
if (bubbles) then
@@ -312,13 +308,11 @@ module m_viscous
312308
!$acc loop seq
313309
do i = 1, num_fluids
314310
alpha_rho_visc(i) = q_prim_vf(i)%sf(j, k, l)
315-
! Added --------------------------------------------------------------
316311
if (bubbles .and. num_fluids == 1) then
317312
alpha_visc(i) = 1d0 - q_prim_vf(E_idx + i)%sf(j, k, l)
318313
else
319314
alpha_visc(i) = q_prim_vf(E_idx + i)%sf(j, k, l)
320315
end if
321-
! Added --------------------------------------------------------------
322316
end do
323317

324318
if (bubbles) then
@@ -422,13 +416,11 @@ module m_viscous
422416
!$acc loop seq
423417
do i = 1, num_fluids
424418
alpha_rho_visc(i) = q_prim_vf(i)%sf(j, k, l)
425-
! Added --------------------------------------------------------------
426419
if (bubbles .and. num_fluids == 1) then
427420
alpha_visc(i) = 1d0 - q_prim_vf(E_idx + i)%sf(j, k, l)
428421
else
429422
alpha_visc(i) = q_prim_vf(E_idx + i)%sf(j, k, l)
430423
end if
431-
! Added --------------------------------------------------------------
432424
end do
433425

434426
if (bubbles) then

0 commit comments

Comments
 (0)