Fixing bugs for non-constant N

flexi-framework · Feb 2, 2024 · 8205d3a · 8205d3a
1 parent 61d4562
commit 8205d3a
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/src/dg/applydmatrix.t90 b/src/dg/applydmatrix.t90
@@ -79,6 +79,7 @@ PPURE SUBROUTINE ApplyDMatrix_CUDA(&
         nElems,d_Ut,d_f,d_g,d_h,d_D_Hat_T,streamID)
 !----------------------------------------------------------------------------------------------------------------------------------
 ! MODULES
+USE MOD_PreProc
 USE CUDAFOR
 USE MOD_GPU,ONLY: DefaultStream
 IMPLICIT NONE
@@ -121,6 +122,7 @@ PPURE SUBROUTINE ApplyDMatrix(&
         nElems,Ut,f,g,h,D_Hat_T)
 !----------------------------------------------------------------------------------------------------------------------------------
 ! MODULES
+USE MOD_PreProc
 IMPLICIT NONE
 !----------------------------------------------------------------------------------------------------------------------------------
 ! INPUT/OUTPUT VARIABLES

diff --git a/src/equations/navierstokes/calctimestep.f90 b/src/equations/navierstokes/calctimestep.f90
@@ -220,7 +220,7 @@ ATTRIBUTES(GLOBAL) SUBROUTINE CalcMaxEigenvalue(Nloc,nElems,U,EOS_Vars,&
 
 ! Each Thread gets whole i-slice to compute to save shared memory space
 Max_LambdaTmp=0.
-DO i=0,PP_N
+DO i=0,Nloc
   ! TODO: ATTENTION: Temperature of UE not filled!!!
   UE(EXT_CONS)=U(:,i,j,k,ElemID)
   UE(EXT_SRHO)=1./UE(EXT_DENS)

diff --git a/src/equations/navierstokes/idealgas/getboundaryflux.f90 b/src/equations/navierstokes/idealgas/getboundaryflux.f90
@@ -923,8 +923,8 @@ PPURE SUBROUTINE Lifting_GetBoundaryFlux(Nloc,nSides,d_Flux,d_UPrim_master,nRefS
 mystream=DefaultStream
 IF (PRESENT(streamID)) mystream=streamID
 
-nDOF = (PP_N+1)*(PP_NZ+1)*nSides
-CALL Lifting_GetBoundaryFlux_Kernel<<<nDOF/nThreads+1,nThreads,0,mystream>>>(nDOF,PP_N &
+nDOF = (Nloc+1)*(ZDIM(Nloc)+1)*nSides
+CALL Lifting_GetBoundaryFlux_Kernel<<<nDOF/nThreads+1,nThreads,0,mystream>>>(nDOF,Nloc &
                                       ,d_Flux &
                                       ,d_UPrim_master,nRefState,d_RefStatePrim &
                                       ,d_NormVec  &