diff --git a/src/equations/rans_sa/idealgas/exactfunc.f90 b/src/equations/rans_sa/idealgas/exactfunc.f90
index d3e84c9c..51d4994c 100644
--- a/src/equations/rans_sa/idealgas/exactfunc.f90
+++ b/src/equations/rans_sa/idealgas/exactfunc.f90
@@ -942,9 +942,6 @@ SUBROUTINE CalcSource(Ut,t)
                              )
 
   END DO; END DO; END DO ! i,j,k
-END DO
-
-DO iElem=1,nElems
   DO k=0,PP_NZ; DO j=0,PP_N; DO i=0,PP_N
     Ut(6,i,j,k,iElem) = Ut(6,i,j,k,iElem)+Ut_src(6,i,j,k)/sJ(i,j,k,iElem,0)
   END DO; END DO; END DO ! i,j,k