[Help] Change the data by the Region in ECLIPSE?

[hoangbh86]

Hello everybody!

I have a problem in change the data. I have a huge reservoir, this reservoir is split to some regions. I want to change the data (such: poro, per,) of one region in this reservoir . If i change each cell in the whole reservoir, it take much time. So How can i change the data by the region?

THanks for your help!

[temr]

The easiest way is to use petrel , load the grid and change the values in properties using filter
The hardest way is to load all data and split it by fipnum value and change this values manualy
for this purpose you would need to create VBA script like this
Sub reader_v2()
Dim la() As String
Dim cnt As Long
Dim tempbuf() As String
Dim frows As Long
Application.ScreenUpdating = False
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Set fs = CreateObject("Scripting.FileSystemObject")
'path_to_prop = "E:\Geo Models\North Truva\NtgModel\Kt1\ntg.inc"
Set f = fs.GetFile(path_to_prop)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
count_i = 1
count_j = 1
count_k = 1
stat_lag = 10
start_flag = 0
cnt = 0
Dim tempstr1 As String
Dim tempstr2 As String
Dim allstr As Long

frows = 0
frows1 = 0
allstr = i * j * k
iii = 1
jjj = 1
kkk = 1
Dim numval As Long
Dim vval As Double
Do While ts.AtEndOfStream <> True
prop_string = ts.readline
fflag = Trim(Mid(prop_string, 1, 1))
If start_flag = 1 And fflag <> "-" Then
tempstr1 = ""
tempstr2 = ""
lenth_string = Len(prop_string)
For jj = 1 To lenth_string
tempstr1 = Trim(Mid(prop_string, jj, 1))
If tempstr1 <> "" And tempstr2 <> "" Then tempstr2 = tempstr2 & tempstr1
If tempstr1 <> "" And tempstr2 = "" Then tempstr2 = tempstr1
If tempstr1 = "" And tempstr2 <> "" Then
'If tempstr2 = "/" Then Stop
lenth_string1 = Len(tempstr2)
numval = 0
vval = 0
For rr = 1 To lenth_string1
If Trim(Mid(tempstr2, rr, 1)) = "*" Then
numval = Mid(tempstr2, 1, rr - 1)
vval = Mid(tempstr2, rr + 1, 100)
'Stop
Exit For
End If
Next rr

If numval = 0 Then
numval = 1
vval = tempstr2
' Stop
End If
' Stop

For ttt = 1 To numval
prop_array(iii, jjj, kkk, 1) = vval
iii = iii + 1
If iii > i Then
iii = 1
jjj = jjj + 1
If jjj > j Then
jjj = 1
kkk = kkk + 1
End If
End If
' Stop
Next ttt
frows1 = frows1 + numval
tempstr2 = ""
End If
Next jj
End If
If tempstr2 <> "" Then
If tempstr2 <> "/" Then
lenth_string1 = Len(tempstr2)
numval = 0
vval = 0
For rr = 1 To lenth_string1
If Trim(Mid(tempstr2, rr, 1)) = "*" Then
numval = Mid(tempstr2, 1, rr - 1)
vval = Mid(tempstr2, rr + 1, 100)
Stop
Exit For
End If
Next rr

If numval = 0 Then
numval = 1
vval = tempstr2
' Stop
End If
' Stop

For ttt = 1 To numval
prop_array(iii, jjj, kkk, 1) = vval
iii = iii + 1
If iii > i Then
iii = 1
jjj = jjj + 1
If jjj > j Then
jjj = 1
kkk = kkk + 1
End If
End If
' Stop
Next ttt
frows1 = frows1 + numval
tempstr2 = ""
End If
End If

frows = frows + 1

'Stop
If prop_string Like Range("PNAME") & "*" Then start_flag = 1
If stat_lag > 0 Then
If file_row Mod frows = 0 Then
DoEvents
Application.StatusBar = "Array Red Status # " & Round(frows1 / (allstr), 4) * 100 & "%"
End If
End If


Loop
'rrr = tempbuf(cnt)

End Sub
This is routine to read eclipse include properties files

[temr]

For use this routine you need to understand it
once you will get it you would be able to change any values in your file

[MIROINE]

the easiest way to change data inside one region is to implement a MULTNUM regions .... (just make a copy of your FIP*** file and change the FIP*** keyword to MULTNUM or OPERNUM) add it to the grid section in your eclipse file and then use a "MULTIREG" keyword .... (remember to add GRIDOPTS in your RUNSPEC) .... the changes will be applied on your regions only ....

If you want to create a region different than a BOX .. you need Petrel RE, Script, (or an old method using FLOVIZ ..... up to you and what y have as package)

[vinomarky]

+1 for MIROINE's suggestion. copy FIPNUM to REGNUM / OPERNUM etc and use the OPERATE and OPERATOR keywords and you can do quite a lot very easily without having to start up Petrel.