RANS 2D source: Bugfix, used the same source (of the last element) fo…

…r all other elements.
gahansen · May 17, 2018 · 0477eb8 · 0477eb8
1 parent c49fb8c
commit 0477eb8
Showing 1 changed file with 0 additions and 3 deletions.
diff --git 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