Fixed subroutine call.

CaNS-World · Oct 29, 2023 · ca9a032 · ca9a032
1 parent a54dd3d
commit ca9a032
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/rk.f90 b/src/rk.f90
@@ -259,7 +259,7 @@ subroutine rk_scal(rkpar,n,dli,l,dzci,dzfi,grid_vol_ratio_f,alpha,dt,is_bound,u,
       dsdtrko => dsdtrko_t
     end if
     if(is_cmpt_wallflux) then
-      call cmpt_wallflux(n,is_bound,l,dli,dzci,dzfi,alpha,flux)
+      call cmpt_scalflux(n,is_bound,l,dli,dzci,dzfi,alpha,s,flux)
       f = (factor1*sum(flux(:)/l(:)) + factor2*sum(fluxo(:)/l(:)))
       fluxo(:) = flux(:)
     end if