library(rNodal)

vlp_input <-  set_vlp_input(VLP, field.name = "HAGBR.MOD", 
                            well.name = "Oilwell_01_Dry", 
                            depth.wh = 0, depth.bh = 9275, 
                            diam.in = 4.052, 
                            GLR = 800, liq.rt = 983, wcut = 0.0, 
                            thp = 100, tht = 60, bht = 210, 
                            API = 37, oil.visc = 5.0, 
                            gas.sg = 0.76, wat.sg = 1.07, if.tens = 30, 
                            salinity = 23000
                            )

vlp_model <- set_vlp_model(vlp.model = "hagbr.mod", 
                           segments = 29, 
                           tol = 0.00001)


vlp <- VLP(vlp_input, vlp_model)

show(vlp)
library(rNodal)

well_input <-  setWellInput(field.name = "HAGBR.MOD", 
                            well.name = "Oilwell_01_Dry", 
                            depth.wh = 0, depth.bh = 9275, 
                            diam.in = 4.052, 
                            GLR = 800, liq.rt = 983, wcut = 0.0, 
                            thp = 100, tht = 60, bht = 210, 
                            API = 37, oil.visc = 5.0, 
                            gas.sg = 0.76, wat.sg = 1.07, if.tens = 30, 
                            salinity = 23000
                            )

vlp_model <- setVLPmodel(vlp.model = "hagbr.mod", 
                         segments = 29, 
                         tol = 0.00001)


vlp <- VLP(well_input, vlp_model)

show(vlp)


f0nzie/rNodal documentation built on Oct. 30, 2017, 4:03 a.m.