Add files via upload

relaxed stencil criterion for weno schemes
ucns3d-team · Aug 31, 2019 · 2449ed1 · 2449ed1
1 parent 0277cb6
commit 2449ed1
Showing 1 changed file with 20 additions and 1 deletion.
diff --git a/CODE/grid_p.f90 b/CODE/grid_p.f90
@@ -6181,7 +6181,26 @@ SUBROUTINE STENCILS(N,IELEM,IMAXE,XMPIE,XMPIELRANK,ILOCALSTENCIL,TYPESTEN,NUMNEI
 
 		END DO
 			IELEM(N,I)%ADMIS=KX
-			IF ((EES.EQ.0).OR.(EES.GE.4))THEN
+			IF ((EES.EQ.0))THEN
+
+                            if (initcond.eq.101)then
+
+                            IF (IELEM(N,I)%ADMIS.eq.ielem(n,i)%ifca+1)THEN
+                            IELEM(N,I)%FULL=1
+!                             
+                            end if
+
+                            else
+                            IF (IELEM(N,I)%ADMIS.Gt.3)THEN
+                            IELEM(N,I)%FULL=1
+                            END IF
+
+
+
+                            end if
+			END IF
+
+			IF ((EES.GE.4))THEN
 
                             if (initcond.eq.101)then