@@ -452,7 +452,6 @@ contains
452452 @:ALLOCATE(dqR_prim_dy_n(i)%vf(1 :sys_size))
453453 @:ALLOCATE(dqR_prim_dz_n(i)%vf(1 :sys_size))
454454
455-
456455 do l = mom_idx%beg, mom_idx%end
457456 @:ALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf( &
458457 & idwbuff(1 )%beg:idwbuff(1 )%end, &
@@ -788,14 +787,14 @@ contains
788787
789788 call nvtxStartRange(" Viscous" )
790789 if (viscous) call s_get_viscous(qL_rsx_vf, qL_rsy_vf, qL_rsz_vf, &
791- dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n, &
792- qL_prim, &
793- qR_rsx_vf, qR_rsy_vf, qR_rsz_vf, &
794- dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n, &
795- qR_prim, &
796- q_prim_qp, &
797- dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp, &
798- idwbuff(1 ), idwbuff(2 ), idwbuff(3 ))
790+ dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n, &
791+ qL_prim, &
792+ qR_rsx_vf, qR_rsy_vf, qR_rsz_vf, &
793+ dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n, &
794+ qR_prim, &
795+ q_prim_qp, &
796+ dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp, &
797+ idwbuff(1 ), idwbuff(2 ), idwbuff(3 ))
799798 call nvtxEndRange
800799
801800 call nvtxStartRange(" Surface_Tension" )
0 commit comments