20131002 New multpv for CVI.
20131002 2726-2604 2726-2443 Vipolozhena structura
20131002 perf redacted
20131002 Added NTG=1 and marker cube =2 into cells in CT that interpreted as shale.
Now they have 0.01 poro, 0.01 permz, 0 permx. 2263 Well has been added new connection to CT.
Like ZKC. P.S. marker is a cube that highlights that cells (like a shale)
diff --git a/INCL/perf.inc b/INCL/perf.inc
index 2b3447d..0c0c901 100644
--- a/INCL/perf.inc
+++ b/INCL/perf.inc
@@ -24,6 +24,7 @@ ETAB
 2263   01.05.2009      PERF    1301.60 1303.50 0.066   0       1       /       CV
 2263   01.05.2009      PERF    1301.60 1303.50 0.066   0       1       /       CV
 2263   01.11.2012      PERF    1316.00 1324.00 0.066   0       1       /       CT
+2263   01.11.2012      PERF    1324.00 1330.00 0.066   0       1       /       CT
 2264   01.02.2009      PERF    1275.50 1281.50 0.066   0       1       /       CT
 2264   01.12.2011      PERF    1265.50 1270.00 0.066   0       1       /       CV
 2265   01.01.2009      PERF    1320.00 1328.00 0.066   0       1       /       CT

 diff --git a/Troickoe.data b/Troickoe.data
index 0716418..6d7719c 100644
--- a/Troickoe.data
+++ b/Troickoe.data
@@ -75,6 +75,9 @@ INCLUDE
 --INCLUDE
 --'INCL/grid_arith_0829_1.inc' / -- grid_arith

+INCLUDE
+'GEO_0920/marker.inc' / -- where second clay is permeable in the CT
+
 ARITHMETIC
 ARRCVIM = 1
 ARRCTMULT(,,1:40) = 1
@@ -111,6 +114,10 @@ MULTPV(1:69,73:74,1:79) = 100000* (MULTPV!=1)+1* (MULTPV==1)
 MULTPV(1:2,1:74,1:79) = 100000* (MULTPV!=1)+1* (MULTPV==1)
 MULTPV(68:69,1:74,1:79) = 100000* (MULTPV!=1)+1* (MULTPV==1)
 MULTPV =1 * (MULTPV ==1) + 1* (MULTPV ==2) + MULTPV* (MULTPV >2)
+NTG = (ARRMARKER == 2) * 1 + (ARRMARKER != 2) * NTG
+PORO = (ARRMARKER == 2) * 0.01 + (ARRMARKER != 2) * PORO
+PERMX = (ARRMARKER == 2) * 0 + (ARRMARKER != 2) * PERMX
+PERMZ = (ARRMARKER == 2) * 0.01 + (ARRMARKER != 2) * PERMZ
 /

 ARITHMETIC
@@ -220,6 +227,8 @@ SWOF
 1.00000        1.00000 0.00000 0.00000
  /

+INCLUDE
+'GEO_0920/marker.inc' / -- where second clay is permeable in the CT

 ARITHMETIC
 SWL(,,1:40) = MAX((42.9+11.835*(PORO*100)-1.5613*(PORO*100)^2+0.06093*(PORO*100)^3-0.000782*(PORO*100)^4)*0.01,0.07)
@@ -237,11 +246,11 @@ KRWR(,,1:40) = 0.075440
 KRWR(,,41:79) = 0.025290
 --KRWR(,,1:40) = KRWR * 0.1
 --KRWR(,,41:76) = KRWR * 0.1
+SOWCR = (ARRMARKER == 2) * 0.01 + (ARRMARKER != 2) * SOWCR
 SOWCR(,,1:40) = SOWCR * 1
 SOWCR(,,41:79) = SOWCR * 0.8
 SOWCR(,,71:71) = 0.01
-SWL(,,71:71) = 0.8
-SWL(,,69:72) = MIN(0.8,SWL)
+SWL = MIN(0.8,SWL)
  /