File tree Expand file tree Collapse file tree 1 file changed +10
-8
lines changed Expand file tree Collapse file tree 1 file changed +10
-8
lines changed Original file line number Diff line number Diff line change @@ -903,17 +903,19 @@ contains
903903 call nvtxEndRange
904904
905905 ! Add bubles source term
906- call nvtxStartRange(" RHS-BUBBLES-SRC" )
907- if (bubbles .and. (.not. adap_dt) .and. (.not. qbmm)) call s_compute_bubble_source( &
908- q_cons_qp%vf(1 :sys_size), &
909- q_prim_qp%vf(1 :sys_size), &
910- t_step, &
911- rhs_vf)
912- call nvtxEndRange
906+ if (bubbles .and. (.not. adap_dt) .and. (.not. qbmm)) then
907+ call nvtxStartRange(" RHS-BUBBLES-SRC" )
908+ call s_compute_bubble_source( &
909+ q_cons_qp%vf(1 :sys_size), &
910+ q_prim_qp%vf(1 :sys_size), &
911+ t_step, &
912+ rhs_vf)
913+ call nvtxEndRange
914+ end if
913915
914916 if (chemistry) then
915917 if (chem_params%reactions) then
916- call nvtxStartRange(" RHS_Chem_Reactions " )
918+ call nvtxStartRange(" RHS-CHEM-REACTIONS " )
917919 call s_compute_chemistry_reaction_flux(rhs_vf, q_cons_qp%vf, q_prim_qp%vf)
918920 call nvtxEndRange
919921 end if
You can’t perform that action at this time.
0 commit comments