Research Article

The Framework Dedicated to Three Phase Flows Wellbore Modelling

Listing 1

Geothermal temperature algorithm.
temperatureStep=(BHTWHT)/MD[wellBottom]
TVDTemperature[0]=WHT
for i=0 To WellBottom
TVDTemperature[i+1]=TVDTemperature[i]+temperatureStep
for i=0 To WellBottom
GT[i]=TVDTemperature[TVD[i]]