From ca9a032a6eddb0eb0827b18267965f6d4d0bf328 Mon Sep 17 00:00:00 2001
From: Pedro Costa <p.simoes.costa@gmail.com>
Date: Sun, 29 Oct 2023 19:05:31 +0100
Subject: [PATCH] Fixed subroutine call.

---
 src/rk.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/rk.f90 b/src/rk.f90
index 9182eafe..cd89d284 100644
--- 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