mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
66 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 9f0233da87
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '9f0233da87'
${ noResults }
SimulationCore2/Equipments/BopStack/LOSS_INPUTS.f90

1268 lines
69 KiB
Raw Blame History 

  1.  SUBROUTINE DEALLOCATE_ARRAYS()

  2. use SimulationVariables

  3. use UnityModule

  4. implicit none

  5. !===========================================================================

  6. !                   	RAMLINE MINOR LOSSES INPUT

  7. !===========================================================================

  8.  DEALLOCATE (data%State%BopStackInput%MINORS1,data%State%RamLine%MINORDIAMETER_RAMLINE,data%State%RamLine%AREAMINOR_RAMLINE  &

  9.             ,data%State%RamLine%LF_RAMLINE,data%State%RamLine%CV_RAMLINE,data%State%RamLine%NOTE_RAMLINE,data%State%RAMS%minlosspa,data%State%RAMS%minloss)

  10. !===========================================================================

  11. !                   	RAMLINE PIPNING LOSSES INPUT

  12. !===========================================================================

  13.  DEALLOCATE (data%State%BopStackInput%PIPINGS_RAMLINE,data%State%RamLine%DIAM_RAMLINE_INCH,  &

  14.             data%State%RamLine%AREA_RAMLINE,data%State%RamLine%LENGT_RAMLINE,data%State%RamLine%ROUGHNESS_RAMLINE,data%State%RamLine%RELROUGH_RAMLINE   &

  15.             ,data%State%RAMS%Re_ramline,data%State%RAMS%fric,data%State%RAMS%fricloss)

  16. !===========================================================================

  17. !                   	ANNULAR MINOR LOSSES INPUT

  18. !===========================================================================

  19.  DEALLOCATE (data%State%BopStackInput%MINORS_ANNULAR,data%State%AnnularComputational%MINORDIAMETER_ANNULARLINE,data%State%AnnularComputational%AREAMINOR_ANNULARLINE  &

  20.             ,data%State%AnnularComputational%LF_ANNULARLINE,data%State%AnnularComputational%CV_ANNULARLINE,data%State%AnnularComputational%NOTE_ANNULARLINE,data%State%AnnularComputational%minlosspa_ANNULAR,data%State%AnnularComputational%minloss_ANNULAR)

  21. !===========================================================================

  22. !                   	ANNULAR PIPNING LOSSES INPUT

  23. !=========================================================================== 

  24.  DEALLOCATE (data%State%BopStackInput%PIPINGS_ANNULAR,data%State%AnnularComputational%DIAM_ANNULARLINE_INCH,data%State%AnnularComputational%AREA_ANNULARLINE, &

  25.             data%State%AnnularComputational%LENGT_ANNULARLINE,data%State%AnnularComputational%ROUGHNESS_ANNULARLINE,data%State%AnnularComputational%RELROUGH_ANNULARLINE   &

  26.             ,data%State%AnnularComputational%Re_ANNULARline,data%State%AnnularComputational%fricANNULAR,data%State%AnnularComputational%friclossANNULAR)

  27. !===========================================================================

  28. !                   	AIR PUMP LOSSES INPUT

  29. !===========================================================================  

  30. DEALLOCATE (data%State%BopStackInput%PIPINGS_AIRPUMP,data%State%RamLine%DIAM_AIR_INCH,  &

  31.             data%State%RamLine%Re_air,data%State%RamLine%AREA_AIR,data%State%RamLine%LENGT_AIR,data%State%RamLine%ROUGHNESS_AIRPLINE,data%State%RamLine%REL_ROUGHAIR,  &

  32.            data%State%RamLine%fric_air,data%State%RamLine%fricloss_air)

  33.    !================================================================ 

  34. DEALLOCATE (data%State%BopStackInput%MINORS_AIRPUMP,data%State%RamLine%MINORDIAM_AIR_INCH,  &

  35.             data%State%RamLine%MINORAREA_AIR,data%State%RamLine%LF_AIR,data%State%RamLine%CV_AIR,data%State%RamLine%NOTE_AIR &

  36.             ,data%State%RamLine%minlosspa_air,data%State%RamLine%minloss_air)  

  37.  

  38. !===========================================================================

  39. !                   	DELAY ARRAYS

  40. !===========================================================================  

  41. call data%State%AnnularComputational%Pannular_regDelay%Empty()

  42. 

  43. 

  44. 

  45.     END

  46. 

  47. 

  48. 

  49. 

  50. 

  51. 

  52. 

  53.     

  54.     

  55.     

  56.     

  57. SUBROUTINE LOSS_INPUTS()

  58. use SimulationVariables

  59. implicit none

  60. INTEGER I

  61. 

  62. !===========================================================================

  63. !                   	RAMLINE MINOR LOSSES INPUT

  64. !===========================================================================

  65. data%State%RamLine%NO_MINORSRAMLINE=34

  66. 

  67. ALLOCATE (data%State%BopStackInput%MINORS1(data%State%RamLine%NO_MINORSRAMLINE,4))

  68. 

  69.     !               ID(INCH)     LF	      CV	    NOTE(BAR)   DESCRIPTION

  70. data%State%BopStackInput%MINORS1(1,1:4)=     (/2.,        2.,      0.,	    0./)      !Acc.tee

  71. data%State%BopStackInput%MINORS1(2,1:4)=     (/2.,        0.9,     0.,	    0./)      !Avg.acc.tee

  72. data%State%BopStackInput%MINORS1(3,1:4)=     (/2.,        0.9,     0.,	    0./)      !Avg.acc.tee

  73. data%State%BopStackInput%MINORS1(4,1:4)=     (/2.,        0.9,     0.,	    0./)      !Avg.acc.tee

  74. data%State%BopStackInput%MINORS1(5,1:4)=     (/2.,        0.9,     0.,	    0./)      !tee

  75. data%State%BopStackInput%MINORS1(6,1:4)=     (/2.,        2.,      0.,	    0./)      !tee

  76. data%State%BopStackInput%MINORS1(7,1:4)=     (/2.,        0.,      105.,	    0./)      !valve

  77. data%State%BopStackInput%MINORS1(8,1:4)=     (/2.,        0.9,     0.,	    0./)      !tee

  78. data%State%BopStackInput%MINORS1(9,1:4)=     (/2.,        0.,      105.,	    0./)      !valve

  79. data%State%BopStackInput%MINORS1(10,1:4)=    (/2.,        0.42,    0.,	    0./)      !elbow

  80. data%State%BopStackInput%MINORS1(11,1:4)=    (/2.,        0.42,    0.,	    0./)      !elbow

  81. data%State%BopStackInput%MINORS1(12,1:4)=    (/2.,        0.8,     0.,	    0./)      !unionA

  82. data%State%BopStackInput%MINORS1(13,1:4)=    (/2.,        0.8,     0.,	    0./)      !unionA

  83. data%State%BopStackInput%MINORS1(14,1:4)=    (/2.,        1.5,     0.,	    0./)      !elbow

  84. data%State%BopStackInput%MINORS1(15,1:4)=    (/2.,        0.,      425.,	    0./)      !valve

  85. data%State%BopStackInput%MINORS1(16,1:4)=    (/2.,        2.,      0.,	    0./)      !tee

  86. data%State%BopStackInput%MINORS1(17,1:4)=    (/0.75,      0.,      1.5,	    0./)      !REGULATOR

  87. data%State%BopStackInput%MINORS1(18,1:4)=    (/1.,        2.,      0.,	    0./)      !tee

  88. data%State%BopStackInput%MINORS1(19,1:4)=    (/1.,        1.5,     0.,	    0./)      !elbow

  89. data%State%BopStackInput%MINORS1(20,1:4)=    (/1.,        0.42,    0.,	    0./)      !elbow

  90. data%State%BopStackInput%MINORS1(21,1:4)=    (/1.,        0.42,    0.,	    0./)      !elbow

  91. data%State%BopStackInput%MINORS1(22,1:4)=    (/1.,        1.5,     0.,	    0./)      !elbow

  92. data%State%BopStackInput%MINORS1(23,1:4)=    (/1.,        0.,      105.,     0./)      !valve

  93. data%State%BopStackInput%MINORS1(24,1:4)=    (/1.,        0.9,     0.,	    0./)      !tee

  94. data%State%BopStackInput%MINORS1(25,1:4)=    (/1.,        0.,      0.,	    0.5/)     !FT

  95. data%State%BopStackInput%MINORS1(26,1:4)=    (/1.,        0.,      0.,       3.4/)     !filter

  96. data%State%BopStackInput%MINORS1(27,1:4)=    (/1.,        0.,      105.,	    0./)      !valve

  97. data%State%BopStackInput%MINORS1(28,1:4)=    (/1.,        0.9,     0.,	    0./)      !tee

  98. data%State%BopStackInput%MINORS1(29,1:4)=    (/1.,        1.5,     0.,	    0./)      !elbow

  99. data%State%BopStackInput%MINORS1(30,1:4)=    (/1.,        1.5,     0.,	    0./)      !elbow

  100. data%State%BopStackInput%MINORS1(31,1:4)=    (/1.,        0.,      9.2,	    0./)      !valve

  101. data%State%BopStackInput%MINORS1(32,1:4)=    (/1.,        0.8,     0.,	    0./)      !unionA

  102. data%State%BopStackInput%MINORS1(33,1:4)=    (/1.,        0.8,     0.,	    0./)      !unionA

  103. data%State%BopStackInput%MINORS1(34,1:4)=    (/0.75,      0.35,     0.,	    0./)      !contraction

  104. 

  105. 

  106. ALLOCATE (data%State%RamLine%MINORDIAMETER_RAMLINE(data%State%RamLine%NO_MINORSRAMLINE),data%State%RamLine%AREAMINOR_RAMLINE(data%State%RamLine%NO_MINORSRAMLINE),data%State%RamLine%LF_RAMLINE(data%State%RamLine%NO_MINORSRAMLINE),data%State%RamLine%CV_RAMLINE(data%State%RamLine%NO_MINORSRAMLINE)  &

  107.             ,data%State%RamLine%NOTE_RAMLINE(data%State%RamLine%NO_MINORSRAMLINE),data%State%RAMS%minlosspa(6,data%State%RamLine%NO_MINORSRAMLINE),data%State%RAMS%minloss(6,data%State%RamLine%NO_MINORSRAMLINE))

  108. 

  109. 

  110. 

  111. DO I=1,data%State%RamLine%NO_MINORSRAMLINE

  112.     data%State%RamLine%MINORDIAMETER_RAMLINE(I)=data%State%BopStackInput%MINORS1(I,1)

  113.     data%State%RamLine%LF_RAMLINE(I)=data%State%BopStackInput%MINORS1(I,2)

  114.     data%State%RamLine%CV_RAMLINE(I)=data%State%BopStackInput%MINORS1(I,3)

  115.     data%State%RamLine%NOTE_RAMLINE(I)=data%State%BopStackInput%MINORS1(I,4)

  116.     

  117.     

  118.     data%State%RamLine%AREAMINOR_RAMLINE(I)=PI*(data%State%RamLine%MINORDIAMETER_RAMLINE(I)*0.0254)**2/4.   !D(in), AREA(m)

  119. ENDDO

  120.     

  121. 

  122. !===========================================================================

  123. !                   	RAMLINE PIPNING LOSSES INPUT

  124. !===========================================================================

  125. data%State%RamLine%NO_PIPINGSRAMLINE=15

  126. 

  127. ALLOCATE (data%State%BopStackInput%PIPINGS_RAMLINE(data%State%RamLine%NO_PIPINGSRAMLINE,3))

  128. 

  129.             !               ID(INCH)	L(MM)	ROUGHNESS(MM)=e  DESCRIPTION		

  130. data%State%BopStackInput%PIPINGS_RAMLINE(1,1:3)=		 (/2.,		1035.,		0.03/)      !Avg.acc.distance

  131. data%State%BopStackInput%PIPINGS_RAMLINE(2,1:3)=		 (/2.,		730.,       0.03/)      !Acc.end.horizontal

  132. data%State%BopStackInput%PIPINGS_RAMLINE(3,1:3)=		 (/2.,		2000.,		0.03/)      !Acc.end.vertical

  133. data%State%BopStackInput%PIPINGS_RAMLINE(4,1:3)=      (/2.,		6000.,		0.05/)      !Hyd.hose

  134. data%State%BopStackInput%PIPINGS_RAMLINE(5,1:3)=      (/2.,		2370.,		0.03/)      !Corner.vertical1

  135. data%State%BopStackInput%PIPINGS_RAMLINE(6,1:3)=      (/2.,		210.,       0.03/)      !Add.from.bend

  136. data%State%BopStackInput%PIPINGS_RAMLINE(7,1:3)=      (/1.,		780.,       0.03/)      !Corner.horizontal1

  137. data%State%BopStackInput%PIPINGS_RAMLINE(8,1:3)=      (/1.,		780.,       0.03/)      !Corner.horizontal2

  138. data%State%BopStackInput%PIPINGS_RAMLINE(9,1:3)=      (/1.,		750.,       0.03/)      !Extra.length.back

  139. data%State%BopStackInput%PIPINGS_RAMLINE(10,1:3)=     (/1.,		800.,       0.03/)      !Corner.horizontal3

  140. data%State%BopStackInput%PIPINGS_RAMLINE(11,1:3)=     (/1.,		1650.,		0.03/)      !Corner.vertical2

  141. data%State%BopStackInput%PIPINGS_RAMLINE(12,1:3)=     (/1.,		340.,       0.03/)      !12.Valves.horizontal

  142. data%State%BopStackInput%PIPINGS_RAMLINE(13,1:3)=     (/1.,		1650.,		0.03/)      !Valves.vertical

  143. data%State%BopStackInput%PIPINGS_RAMLINE(14,1:3)=     (/1.,		31000.,		10./)       !Hyd.hose

  144. data%State%BopStackInput%PIPINGS_RAMLINE(15,1:3)=     (/1.,		526.,       0.03/)      !Add.from.bend

  145. 

  146. 

  147. 

  148.  ALLOCATE (data%State%RamLine%DIAM_RAMLINE_INCH(data%State%RamLine%NO_PIPINGSRAMLINE),  &

  149.             data%State%RamLine%AREA_RAMLINE(data%State%RamLine%NO_PIPINGSRAMLINE),data%State%RamLine%LENGT_RAMLINE(data%State%RamLine%NO_PIPINGSRAMLINE),data%State%RamLine%ROUGHNESS_RAMLINE(data%State%RamLine%NO_PIPINGSRAMLINE),data%State%RamLine%RELROUGH_RAMLINE(data%State%RamLine%NO_PIPINGSRAMLINE)   &

  150.             ,data%State%RAMS%Re_ramline(6,data%State%RamLine%NO_PIPINGSRAMLINE),data%State%RAMS%fric(6,data%State%RamLine%NO_PIPINGSRAMLINE),data%State%RAMS%fricloss(6,data%State%RamLine%NO_PIPINGSRAMLINE))

  151. 

  152. DO I=1,data%State%RamLine%NO_PIPINGSRAMLINE

  153.     data%State%RamLine%DIAM_RAMLINE_INCH(I)=data%State%BopStackInput%PIPINGS_RAMLINE(I,1)

  154.     data%State%RamLine%LENGT_RAMLINE(I)=data%State%BopStackInput%PIPINGS_RAMLINE(I,2)

  155.     data%State%RamLine%ROUGHNESS_RAMLINE(I)=data%State%BopStackInput%PIPINGS_RAMLINE(I,3)

  156.     

  157.     

  158.     

  159.     data%State%RamLine%AREA_RAMLINE(I)=PI*(data%State%RamLine%DIAM_RAMLINE_INCH(I)*0.0254)**2/4   !D(in), AREA(m)

  160.     data%State%RamLine%RELROUGH_RAMLINE(I)=data%State%RamLine%ROUGHNESS_RAMLINE(I)/(data%State%RamLine%DIAM_RAMLINE_INCH(I)*25.4)    !e/D

  161.     !DIAM_RAMLINE_MM(I)=DIAM_RAMLINE_MM(I)*.001  !  (m)

  162.     data%State%RamLine%LENGT_RAMLINE(I)=data%State%RamLine%LENGT_RAMLINE(I)*.001      !  (m) 

  163. ENDDO

  164.   

  165. 

  166. 

  167. !===========================================================================

  168. !                   	ANNULAR PREVENTER MINOR LOSSES INPUT

  169. !===========================================================================

  170. data%State%AnnularComputational%NO_MinorsAnnularLine=29

  171. 

  172. ALLOCATE (data%State%BopStackInput%MINORS_ANNULAR(data%State%AnnularComputational%NO_MinorsAnnularLine,4))

  173. 

  174.     !			            ID(INCH)	LF	    CV	NOTE(BAR)     DESCRIPTION

  175. data%State%BopStackInput%MINORS_ANNULAR(1,1:4)=      (/2.,       2.,	    0.,	    0./)      !Acc.tee

  176. data%State%BopStackInput%MINORS_ANNULAR(2,1:4)=      (/2.,       0.9,	0.,	    0./)      !Avg.acc.tee

  177. data%State%BopStackInput%MINORS_ANNULAR(3,1:4)=      (/2.,       0.9,	0.,	    0./)      !Avg.acc.tee

  178. data%State%BopStackInput%MINORS_ANNULAR(4,1:4)=      (/2.,       0.9,	0.,	    0./)      !Avg.acc.tee	

  179. data%State%BopStackInput%MINORS_ANNULAR(5,1:4)=      (/2.,       0.9,	0.,	    0./)      !tee

  180. data%State%BopStackInput%MINORS_ANNULAR(6,1:4)=      (/2.,       2.,	    0.,	    0./)      !tee	

  181. data%State%BopStackInput%MINORS_ANNULAR(7,1:4)=      (/2.,       0.,	    105.,	0./)      !valve

  182. data%State%BopStackInput%MINORS_ANNULAR(8,1:4)=      (/2.,       0.9,	0.,	    0./)      !tee

  183. data%State%BopStackInput%MINORS_ANNULAR(9,1:4)=      (/2.,       0.,	    105.,	0./)      !valve

  184. data%State%BopStackInput%MINORS_ANNULAR(10,1:4)=     (/2.,       0.42,	0.,	    0./)      !elbow

  185. data%State%BopStackInput%MINORS_ANNULAR(11,1:4)=     (/2.,       0.42,	0.,	    0./)      !elbow

  186. data%State%BopStackInput%MINORS_ANNULAR(12,1:4)=     (/2.,       0.8,	0.,	    0./)      !unionA

  187. data%State%BopStackInput%MINORS_ANNULAR(13,1:4)=     (/2.,       0.8,	0.,	    0./)      !unionA

  188. data%State%BopStackInput%MINORS_ANNULAR(14,1:4)=     (/2.,       1.5,	0.,	    0./)      !elbow	

  189. data%State%BopStackInput%MINORS_ANNULAR(15,1:4)=     (/2.,       0.,	    425.,	0./)      !valve		

  190. data%State%BopStackInput%MINORS_ANNULAR(16,1:4)=     (/2.,       2.,	    0.,	    0./)      !tee

  191. data%State%BopStackInput%MINORS_ANNULAR(17,1:4)=     (/0.75,     0.,	    1.5,	0./)      !REGULATOR		

  192. data%State%BopStackInput%MINORS_ANNULAR(18,1:4)=     (/1.,       2.,	    0.,	    0./)      !tee	

  193. data%State%BopStackInput%MINORS_ANNULAR(19,1:4)=     (/1.,       1.5,	0.,	    0./)      !elbow	

  194. data%State%BopStackInput%MINORS_ANNULAR(20,1:4)=     (/1.,       0.42,	0.,	    0./)      !elbow	

  195. data%State%BopStackInput%MINORS_ANNULAR(21,1:4)=     (/1.,       0.42,	0.,	    0./)      !elbow

  196. data%State%BopStackInput%MINORS_ANNULAR(22,1:4)=     (/1.,       1.5,	0.,	    0./)      !elbow	

  197. data%State%BopStackInput%MINORS_ANNULAR(23,1:4)=     (/1.,       0.,	    3.2,	0./)      !valve

  198. data%State%BopStackInput%MINORS_ANNULAR(24,1:4)=     (/1.,       2.,	    0.,	    0./)      !tee

  199. data%State%BopStackInput%MINORS_ANNULAR(25,1:4)=     (/1.,       1.5,	0.,	    0./)      !elbow

  200. data%State%BopStackInput%MINORS_ANNULAR(26,1:4)=     (/1.,       0.42,	0.,	    0./)      !elbow

  201. data%State%BopStackInput%MINORS_ANNULAR(27,1:4)=     (/1.,       0.42,	0.,	    0./)      !elbow

  202. data%State%BopStackInput%MINORS_ANNULAR(28,1:4)=     (/1.,       1.5,	0.,	    0./)      !elbow

  203. data%State%BopStackInput%MINORS_ANNULAR(29,1:4)=     (/1.,       0.,	    3.2,	0./)      !valve

  204. 

  205. 

  206. 

  207.  ALLOCATE (data%State%AnnularComputational%MINORDIAMETER_ANNULARLINE(data%State%AnnularComputational%NO_MinorsAnnularLine),data%State%AnnularComputational%AREAMINOR_ANNULARLINE(data%State%AnnularComputational%NO_MinorsAnnularLine),data%State%AnnularComputational%LF_ANNULARLINE(data%State%AnnularComputational%NO_MinorsAnnularLine)  &

  208.             ,data%State%AnnularComputational%CV_ANNULARLINE(data%State%AnnularComputational%NO_MinorsAnnularLine),data%State%AnnularComputational%NOTE_ANNULARLINE(data%State%AnnularComputational%NO_MinorsAnnularLine),data%State%AnnularComputational%minlosspa_ANNULAR(data%State%AnnularComputational%NO_MinorsAnnularLine),data%State%AnnularComputational%minloss_ANNULAR(data%State%AnnularComputational%NO_MinorsAnnularLine))

  209. 

  210. 

  211. 

  212. DO I=1,data%State%AnnularComputational%NO_MinorsAnnularLine

  213.     data%State%AnnularComputational%MINORDIAMETER_ANNULARLINE(I)=data%State%BopStackInput%MINORS_ANNULAR(I,1)

  214.     data%State%AnnularComputational%LF_ANNULARLINE(I)=data%State%BopStackInput%MINORS_ANNULAR(I,2)

  215.     data%State%AnnularComputational%CV_ANNULARLINE(I)=data%State%BopStackInput%MINORS_ANNULAR(I,3)

  216.     data%State%AnnularComputational%NOTE_ANNULARLINE(I)=data%State%BopStackInput%MINORS_ANNULAR(I,4)

  217.     

  218.     data%State%AnnularComputational%AREAMINOR_ANNULARLINE(I)=PI*(data%State%AnnularComputational%MINORDIAMETER_ANNULARLINE(I)*0.0254)**2/4.   !D(in), AREA(m)

  219. ENDDO

  220.    

  221. 

  222. !===========================================================================

  223. !                   ANNULAR PREVENTER PIPNING LOSSES INPUT

  224. !===========================================================================

  225. data%State%AnnularComputational%NO_PipingsAnnularLine=10

  226. 

  227. ALLOCATE (data%State%BopStackInput%PIPINGS_ANNULAR(data%State%AnnularComputational%NO_PipingsAnnularLine,3))

  228. 

  229.                 !            ID(INCH)   L(MM)	ROUGHNESS(MM)=e		 DESCRIPTION			

  230. data%State%BopStackInput%PIPINGS_ANNULAR(1,1:3)=		 (/2.,		1035.,		0.03/)		     !Avg.acc.distance				

  231. data%State%BopStackInput%PIPINGS_ANNULAR(2,1:3)=		 (/2.,		730.,		0.03/)		     !Acc.endhorizontal				

  232. data%State%BopStackInput%PIPINGS_ANNULAR(3,1:3)=		 (/2.,		2000.,		0.03/)		     !Acc.endvertical				

  233. data%State%BopStackInput%PIPINGS_ANNULAR(4,1:3)=		 (/2.,		6000.,		0.03/)		     !Hyd.hose				

  234. data%State%BopStackInput%PIPINGS_ANNULAR(5,1:3)=		 (/2.,		2370.,		0.03/)		     !Corner.vertical1				

  235. data%State%BopStackInput%PIPINGS_ANNULAR(6,1:3)=		 (/2.,		210.,		0.03/)		     !Add.frombend				

  236. data%State%BopStackInput%PIPINGS_ANNULAR(7,1:3)=		 (/2.,		1000.,		0.03/)		     !manifold				

  237. data%State%BopStackInput%PIPINGS_ANNULAR(8,1:3)=		 (/1.,		46000.,		0.03/)		     !pipe				

  238. data%State%BopStackInput%PIPINGS_ANNULAR(9,1:3)=		 (/2.,		1000.,		0.03/)		     !manifold				

  239. data%State%BopStackInput%PIPINGS_ANNULAR(10,1:3)=     (/1.,		46000.,		0.03/)           !pipe

  240. 

  241. 

  242. 

  243. 

  244.  ALLOCATE (data%State%AnnularComputational%DIAM_ANNULARLINE_INCH(data%State%AnnularComputational%NO_PipingsAnnularLine),data%State%AnnularComputational%AREA_ANNULARLINE(data%State%AnnularComputational%NO_PipingsAnnularLine),data%State%AnnularComputational%LENGT_ANNULARLINE(data%State%AnnularComputational%NO_PipingsAnnularLine)  &

  245.             ,data%State%AnnularComputational%ROUGHNESS_ANNULARLINE(data%State%AnnularComputational%NO_PipingsAnnularLine),data%State%AnnularComputational%RELROUGH_ANNULARLINE(data%State%AnnularComputational%NO_PipingsAnnularLine)   &

  246.             ,data%State%AnnularComputational%Re_ANNULARline(data%State%AnnularComputational%NO_PipingsAnnularLine),data%State%AnnularComputational%fricANNULAR(data%State%AnnularComputational%NO_PipingsAnnularLine),data%State%AnnularComputational%friclossANNULAR(data%State%AnnularComputational%NO_PipingsAnnularLine))

  247. 

  248. 

  249. DO I=1,data%State%AnnularComputational%NO_PipingsAnnularLine

  250.     data%State%AnnularComputational%DIAM_ANNULARLINE_INCH(I)=data%State%BopStackInput%PIPINGS_ANNULAR(I,1)

  251.     data%State%AnnularComputational%LENGT_ANNULARLINE(I)=data%State%BopStackInput%PIPINGS_ANNULAR(I,2)

  252.     data%State%AnnularComputational%ROUGHNESS_ANNULARLINE(I)=data%State%BopStackInput%PIPINGS_ANNULAR(I,3)

  253.     

  254.     

  255.     data%State%AnnularComputational%AREA_ANNULARLINE(I)=PI*(data%State%AnnularComputational%DIAM_ANNULARLINE_INCH(I)*0.0254)**2/4.   !D(in), AREA(m)

  256.     data%State%AnnularComputational%RELROUGH_ANNULARLINE(I)=data%State%AnnularComputational%ROUGHNESS_ANNULARLINE(I)/(data%State%AnnularComputational%DIAM_ANNULARLINE_INCH(I)*25.4)

  257.     !DIAM_ANNULARLINE_MM(I)=DIAM_ANNULARLINE_MM(I)*.001  !  (m)

  258.     data%State%AnnularComputational%LENGT_ANNULARLINE(I)=data%State%AnnularComputational%LENGT_ANNULARLINE(I)*.001      !  (m) 

  259.     ENDDO

  260. 

  261. 

  262. !===========================================================================

  263. !                   	AIR PUMP LOSSES INPUT

  264. !===========================================================================  

  265. data%State%RamLine%NO_PIPINGS_AIRPLINE=1

  266. 

  267. ALLOCATE (data%State%BopStackInput%PIPINGS_AIRPUMP(data%State%RamLine%NO_PIPINGS_AIRPLINE,3))

  268. 

  269.                 !			ID(INCH)    L(MM)	  ROUGHNESS(MM)=e   DESCRIPTION	

  270. data%State%BopStackInput%PIPINGS_AIRPUMP(1,1:3)=		 (/2.,      10000.,   0.03/)            !Avg.acc.distance

  271.  

  272. 

  273. 

  274.   

  275.   ALLOCATE (data%State%RamLine%DIAM_AIR_INCH(data%State%RamLine%NO_PIPINGS_AIRPLINE),data%State%RamLine%Re_air(data%State%RamLine%NO_PIPINGS_AIRPLINE),data%State%RamLine%AREA_AIR(data%State%RamLine%NO_PIPINGS_AIRPLINE),  &

  276.             data%State%RamLine%LENGT_AIR(data%State%RamLine%NO_PIPINGS_AIRPLINE),data%State%RamLine%ROUGHNESS_AIRPLINE(data%State%RamLine%NO_PIPINGS_AIRPLINE),data%State%RamLine%REL_ROUGHAIR(data%State%RamLine%NO_PIPINGS_AIRPLINE),  &

  277.            data%State%RamLine%fric_air(data%State%RamLine%NO_PIPINGS_AIRPLINE),data%State%RamLine%fricloss_air(data%State%RamLine%NO_PIPINGS_AIRPLINE))

  278. 

  279. 

  280. 

  281. DO I=1,data%State%RamLine%NO_PIPINGS_AIRPLINE

  282.     data%State%RamLine%DIAM_AIR_INCH(I)=data%State%BopStackInput%PIPINGS_AIRPUMP(I,1)

  283.     data%State%RamLine%LENGT_AIR(I)=data%State%BopStackInput%PIPINGS_AIRPUMP(I,2)

  284.     data%State%RamLine%ROUGHNESS_AIRPLINE(I)=data%State%BopStackInput%PIPINGS_AIRPUMP(I,3)

  285.     

  286.     

  287.     data%State%RamLine%AREA_AIR(I)=PI*(data%State%RamLine%DIAM_AIR_INCH(I)*0.0254)**2/4   !D(in), AREA(m)

  288.     data%State%RamLine%REL_ROUGHAIR(I)=data%State%RamLine%ROUGHNESS_AIRPLINE(I)/(data%State%RamLine%DIAM_AIR_INCH(I)*25.4)

  289.     !DIAM_RAMLINE_MM(I)=DIAM_RAMLINE_MM(I)*.001  !  (m)

  290.     data%State%RamLine%LENGT_AIR(I)=data%State%RamLine%LENGT_AIR(I)*.001      !  (m) 

  291.     ENDDO

  292. 

  293. 

  294.     

  295.    !================================================================ 

  296. data%State%RamLine%NO_MINORS_AIRPLINE=6

  297. 

  298. ALLOCATE (data%State%BopStackInput%MINORS_AIRPUMP(data%State%RamLine%NO_MINORS_AIRPLINE,4))

  299. 

  300.                     !		ID(INCH)		LF	    CV	NOTE(BAR)      DESCRIPTION	

  301. data%State%BopStackInput%MINORS_AIRPUMP(1,1:4)=      (/2.,			10.,	0.,	    0./)       !Acc.tee	

  302. data%State%BopStackInput%MINORS_AIRPUMP(2,1:4)=      (/2.,			11.,	0.,	    0./)       !elbow	

  303. data%State%BopStackInput%MINORS_AIRPUMP(3,1:4)=      (/1.,			0.,	    0.,	    3.4/)      !filter

  304. data%State%BopStackInput%MINORS_AIRPUMP(4,1:4)=      (/2.,			0.,	    105.,	0./)       !valve	

  305. data%State%BopStackInput%MINORS_AIRPUMP(5,1:4)=      (/1.,			0.,	    9.2,	0./)       !valve	

  306. data%State%BopStackInput%MINORS_AIRPUMP(6,1:4)=      (/2.,			6.4,	0.,	    0./)       !unionA  

  307.   

  308. 

  309.     

  310.   ALLOCATE (data%State%RamLine%MINORDIAM_AIR_INCH(data%State%RamLine%NO_MINORS_AIRPLINE),data%State%RamLine%MINORAREA_AIR(data%State%RamLine%NO_MINORS_AIRPLINE),  &

  311.             data%State%RamLine%LF_AIR(data%State%RamLine%NO_MINORS_AIRPLINE),data%State%RamLine%CV_AIR(data%State%RamLine%NO_MINORS_AIRPLINE),data%State%RamLine%NOTE_AIR(data%State%RamLine%NO_MINORS_AIRPLINE) &

  312.             ,data%State%RamLine%minlosspa_air(data%State%RamLine%NO_MINORS_AIRPLINE),data%State%RamLine%minloss_air(data%State%RamLine%NO_MINORS_AIRPLINE))   

  313.  

  314. 

  315.  

  316. DO I=1,data%State%RamLine%NO_MINORS_AIRPLINE

  317.     data%State%RamLine%MINORDIAM_AIR_INCH(I)=data%State%BopStackInput%MINORS_AIRPUMP(I,1)

  318.     data%State%RamLine%LF_AIR(I)=data%State%BopStackInput%MINORS_AIRPUMP(I,2)

  319.     data%State%RamLine%CV_AIR(I)=data%State%BopStackInput%MINORS_AIRPUMP(I,3)

  320.     data%State%RamLine%NOTE_AIR(I)=data%State%BopStackInput%MINORS_AIRPUMP(I,4)

  321.     

  322.     

  323.     data%State%RamLine%MINORAREA_AIR(I)=PI*(data%State%RamLine%MINORDIAM_AIR_INCH(I)*0.0254)**2/4.   !D(in), AREA(m)

  324. ENDDO    

  325.     

  326. 

  327.  

  328.     END

  329.     

  330. SUBROUTINE pumps_charge_bottle()

  331. use SimulationVariables

  332. USE CAccumulatorVariables

  333. USE CBopStackVariables

  334. use CBopControlPanel

  335.     use SimulationVariables

  336. USE CEquipmentsConstants

  337. ! use CSimulationVariables

  338. implicit none

  339. 

  340.     !Pannular_regset=min(AnnularRegulatorSetControl,1700.)  ! for changing its set conditions instantaneously

  341. !write(*,*) 'pumps_charge_bottle'

  342.     

  343.     if(data%Equipments%BopControlPanel%ByePassValve == -1.0) then

  344.         data%State%BopStackAcc%ByPassOld= -1.0

  345.     elseif(data%Equipments%BopControlPanel%ByePassValve == 1.0) then

  346.         data%State%BopStackAcc%ByPassOld= 1.0

  347.     endif

  348. 

  349.     

  350. !=====================================================================

  351. !                       ACCUMULATOR

  352. !=====for a 10 gal bottle,precharge=1000psig curve BOSCH-isotherm=====

  353. !for charging bottles by the pump

  354. !((((((((IN OUTER LOOP))))))

  355. ! ba1=1003; ba2=.03375; ba3=4.014; ba4=.2458;

  356. if (data%State%RamLine%AIRP_SWITCH==0) data%State%Pumps%DELTAV_AIR=0

  357. data%State%RamLine%FVR=data%State%RamLine%FVR+data%State%Pumps%DELTAV_AIR+data%State%Pumps%DELTAV_ELECP

  358. 

  359. data%State%RamLine%pacc_before=data%State%RamLine%P_ACC

  360. data%State%RamLine%P_ACC=data%State%RamLine%B1*exp(data%State%RamLine%B2*data%State%RamLine%FVR/data%State%BopStackAcc%NOBOTTLES)+data%State%RamLine%B3*exp(data%State%RamLine%B4*data%State%RamLine%FVR/data%State%BopStackAcc%NOBOTTLES) ! adiabatic(psig)<<<< 8=no. of bottles

  361. 

  362. !=====================================================================

  363. 

  364. 

  365.     if(data%State%BopStackAcc%ByPassOld == 1.0) then

  366. 

  367.         if (data%State%BopStackAcc%pram_reg<data%State%BopStackAcc%PRAMS_REGSET) then

  368.             !pram_reg=pram_reg+(p_acc-pacc_before)

  369.             data%State%BopStackAcc%PressureDifference= (data%State%RamLine%P_ACC-data%State%RamLine%pacc_before)

  370.         else

  371.             !pram_reg=PRAMS_REGSET

  372.             data%State%BopStackAcc%PressureDifference= data%State%BopStackAcc%PRAMS_REGSET - data%State%BopStackAcc%pram_reg

  373.         endif

  374.         

  375.         

  376.          !old=pram_reg

  377.          !difference= new-old

  378.          if (ABS(data%State%BopStackAcc%PressureDifference) > BaseDifferenceP) then

  379.              data%State%BopStackAcc%pram_reg= data%State%BopStackAcc%pram_reg + (data%State%BopStackAcc%PressureDifference/PressureDifferenceSteps)      ! PressureDifferenceSteps = 20.

  380.          else

  381.              

  382.                 if (data%State%BopStackAcc%pram_reg<data%State%BopStackAcc%PRAMS_REGSET) then

  383.                     data%State%BopStackAcc%pram_reg=data%State%BopStackAcc%pram_reg+(data%State%RamLine%P_ACC-data%State%RamLine%pacc_before)

  384.                 else

  385.                     data%State%BopStackAcc%pram_reg=data%State%BopStackAcc%PRAMS_REGSET

  386.                 endif

  387.         

  388.          endif        

  389.         

  390.         

  391.         

  392.         

  393. 

  394.     else        !if(ByPassOld == -1.0) then

  395. 

  396. 

  397.          !old=pram_reg

  398.          !new=p_acc- MAXVAL(data%State%RAM%loss_before)

  399.          !difference= new-old

  400.          data%State%BopStackAcc%PressureDifference= data%State%RamLine%P_ACC- MAXVAL(data%State%RAM%loss_before) - data%State%BopStackAcc%pram_reg

  401.          if (ABS(data%State%BopStackAcc%PressureDifference) > BaseDifferenceP) then

  402.              data%State%BopStackAcc%pram_reg= data%State%BopStackAcc%pram_reg + (data%State%BopStackAcc%PressureDifference/PressureDifferenceSteps)      ! PressureDifferenceSteps = 20.

  403.          else

  404.             data%State%BopStackAcc%pram_reg= data%State%RamLine%P_ACC- MAXVAL(data%State%RAM%loss_before)

  405.          endif         

  406. 

  407.     endif

  408. 

  409. 

  410.     !Pannular_reg= min(p_acc,Pannular_regset)

  411.     

  412. 

  413.     end

  414.     

  415.     

  416. SUBROUTINE airpump_code()    

  417. use SimulationVariables

  418. use CSounds

  419. implicit none

  420. INTEGER I

  421. 

  422. 

  423. 

  424. data%State%Pumps%QAIR=data%State%Pumps%Qiter+.1   !(gpm)  maximum flow for the start

  425. data%State%RamLine%diffp_air=-10

  426. data%State%RamLine%losses_air=10

  427. 

  428. !===================================================================

  429. !                       AIR OPERATED PUMP

  430. !=================for air consumption at 8 bar======================

  431. do while (data%State%RamLine%diffp_air<0)

  432.  data%State%Pumps%QAIR=data%State%Pumps%QAIR-.1

  433. ! Qup=QAIR_PUMP;

  434. ! bba1 =31.8; bba2 =-725.7 ; bba3 =4154;

  435.  data%State%Pumps%P_AIRP=data%State%RamLine%BBA1*data%State%Pumps%QAIR**2+data%State%RamLine%BBA2*data%State%Pumps%QAIR+data%State%RamLine%BBA3 !(psig)

  436.  data%State%RamLine%kinetic_air=sg*wdens*(data%State%Pumps%QAIR*6.30902e-5/((1/4.)*pi*(2*0.254e-1)**2))**2/(2*6895) !(psi)

  437. 

  438. 

  439.  data%State%RamLine%diffp_air=data%State%Pumps%P_AIRP+data%State%RamLine%kinetic_air-data%State%RamLine%P_ACC

  440. 

  441. end do    !returns Qup

  442. 

  443. 

  444.  do while (abs((data%State%RamLine%diffp_air-data%State%RamLine%losses_air)/data%State%RamLine%diffp_air)>data%State%Pumps%TOL_AIR) !finding correct QAIR_pump for 1 timecounter_ram

  445. 

  446. if (data%State%RamLine%diffp_air-data%State%RamLine%losses_air>0) then

  447.     data%State%Pumps%QAIR=data%State%Pumps%QAIR+.01

  448. else

  449.     data%State%Pumps%QAIR=data%State%Pumps%QAIR-.01

  450. endif

  451. 

  452. !===================================================================

  453. !                       AIR OPERATED PUMP

  454. !                   Maximator - Model: GX (35)

  455. !=================for air consumption at 8 bar======================

  456. 

  457.  data%State%Pumps%P_AIRP=data%State%RamLine%BBA1*data%State%Pumps%QAIR**2+data%State%RamLine%BBA2*data%State%Pumps%QAIR+data%State%RamLine%BBA3 !(psig)

  458.  data%State%RamLine%kinetic_air=sg*wdens*(data%State%Pumps%QAIR*6.30902e-005/((1/4.)*pi*(2*0.254e-1)**2))**2/(2*6895) !(psi)

  459. 

  460.  data%State%RamLine%diffp_air=data%State%Pumps%P_AIRP+data%State%RamLine%kinetic_air-data%State%RamLine%P_ACC

  461. 

  462. 

  463. !===========================LOSSES====================================

  464.  do i=1,data%State%RamLine%NO_PIPINGS_AIRPLINE

  465. data%State%RamLine%Re_air(i)=data%State%Pumps%QAIR*6.30902e-005*data%State%RamLine%DIAM_AIR_INCH(I)*0.0254/(data%State%RamLine%AREA_AIR(i)*nu)

  466. enddo

  467. 

  468. do i=1,data%State%RamLine%NO_PIPINGS_AIRPLINE

  469.      if (data%State%RamLine%Re_air(i)<Re_cr) then

  470.          data%State%RamLine%fric_air(i)=64/data%State%RamLine%Re_air(i)

  471.      else

  472.         data%State%RamLine%fric_air(i)=1/(-1.8*log10((data%State%RamLine%REL_ROUGHAIR(i)/3.7)**1.11+6.9/data%State%RamLine%Re_air(i)))**2

  473.      endif

  474.      

  475. data%State%RamLine%fricloss_air(i)=((data%State%RamLine%fric_air(i)*(wdens*sg*data%State%RamLine%LENGT_AIR(i)*(data%State%Pumps%QAIR*6.30902e-005/data%State%RamLine%AREA_AIR(i))**2))/(2*data%State%RamLine%DIAM_AIR_INCH(I)*0.0254))/6895

  476. 

  477.  enddo

  478. 

  479. 

  480. 

  481. 

  482. data%State%RamLine%pipe_loss1air=sum(data%State%RamLine%fricloss_air)  !loss before regulator(psi)

  483. 

  484. do i=1,data%State%RamLine%NO_MINORS_AIRPLINE

  485.     if (data%State%RamLine%LF_AIR(i)/=0) then

  486.         data%State%RamLine%minlosspa_air(i)=data%State%RamLine%LF_AIR(i)*wdens*sg*(data%State%Pumps%QAIR*6.30902e-005/data%State%RamLine%MINORAREA_AIR(i))**2/2  !(Pa)

  487.         data%State%RamLine%minloss_air(i)=data%State%RamLine%minlosspa_air(i)/6895 !(psi)

  488.     elseif (data%State%RamLine%CV_AIR(i)/=0) then

  489.         data%State%RamLine%minlosspa_air(i)=1000*sg*((11.7*data%State%Pumps%QAIR*6.30902e-005*3600)/(data%State%RamLine%CV_AIR(i)))**2 !(pa)

  490.         data%State%RamLine%minloss_air(i)=data%State%RamLine%minlosspa_air(i)/6895 !(psi)

  491.     else

  492.         data%State%RamLine%minlosspa_air(i)=data%State%RamLine%NOTE_AIR(i)*1e5 !(pa)

  493.         data%State%RamLine%minloss_air(i)=data%State%RamLine%minlosspa_air(i)/6895 !(psi)

  494.     endif

  495. enddo

  496. 

  497.         

  498. data%State%RamLine%minor_loss1air=sum(data%State%RamLine%minloss_air)  !loss before regulator(psi)

  499. 

  500. data%State%RamLine%static_loss1air=0

  501. 

  502. data%State%RamLine%losses_air=data%State%RamLine%pipe_loss1air+data%State%RamLine%minor_loss1air+data%State%RamLine%static_loss1air !(psi)

  503. !=========================================================================

  504. 

  505. 

  506. 

  507.  end do  !returns correct QAIR_PUMP for 1 counter

  508. 

  509. data%State%RamLine%counter_airp=data%State%RamLine%counter_airp+1 

  510.    data%State%Pumps%Qiter=data%State%Pumps%QAIR

  511.    

  512.    data%State%BopStackAcc%Cumulative_AirVolume= data%State%BopStackAcc%Cumulative_AirVolume + ((data%State%Pumps%QAIR * data%State%RamLine%DeltaT_BOP / 60.0 ) / (6.71*0.004329004) )        ! =strokes

  513.    !write(*,*) 'Cumulative_AirVolume=' , Cumulative_AirVolume

  514.    

  515.    if ( data%State%BopStackAcc%Cumulative_AirVolume > 1.0 ) then

  516.        data%State%BopStackAcc%SoundKoomeyAirPump= 120.0

  517.        data%State%BopStackAcc%Cumulative_AirVolume= data%State%BopStackAcc%Cumulative_AirVolume - 1.0

  518.    else

  519.        data%State%BopStackAcc%SoundKoomeyAirPump= 0.0

  520.    endif

  521.    

  522.    

  523.    !SoundKoomeyAirPump= int ( (QAIR_PUMP/ (6.71*0.004329004))  )   !  6.71: Volume per stroke (in^3)  , 0.004329004: in^3 to gal

  524.    !  2.0 : two air pumps   60:seconds

  525.    !write(*,*) 'sedaaaa=' ,(QAIR_PUMP/ (6.71*0.004329004)) *DeltaT_BOP/(60.0*2.0) 

  526.    call SetSoundKoomeyAirPump(data%State%BopStackAcc%SoundKoomeyAirPump)

  527.    

  528. 

  529. data%State%Pumps%DELTAV_AIR=data%State%Pumps%QAIR*data%State%RamLine%DeltaT_BOP/60.  !(galon) delta_t=1sec , Q(gpm)

  530. 

  531. !write(*,*) 'QAIR_PUMP=' , QAIR_PUMP

  532. 

  533. 

  534. !((((((((IN OUTER LOOP))))))

  535. !fvr_air=fvr_air+deltav_air  !=fvr_after (galon) for next timecounter_ram

  536. 

  537. 

  538. !========================================================

  539. 

  540.          !WRITE(50,50) QAIR_PUMP,p_airp, &

  541.              !p_acc,diffp_air,losses_air,deltav_air

  542.     50     FORMAT(6(f15.5))

  543. 

  544.     

  545.     end

  546.     

  547.     

  548.     SUBROUTINE bop_code(ramtype,H_RAMBOP,RNUMBER) 

  549.     

  550.     use SimulationVariables

  551.     USE CAccumulatorVariables

  552.     use CBopControlPanel

  553.     use SimulationVariables

  554.     USE CEquipmentsConstants

  555.     ! use CSimulationVariables

  556.     use SimulationVariables !@

  557.     use UnityModule

  558.    implicit none 

  559.     integer ramtype, I

  560.     real H_RAMBOP

  561.     INTEGER RNUMBER

  562.    

  563.     !Pannular_regset=min(AnnularRegulatorSetControl,1700.)  ! for changing its set conditions instantaneously

  564.     

  565. !====================================================

  566. !       BOP back pressure IN PRESENCE OF DP

  567. !====================================================

  568. if (data%State%RAM(RNUMBER)%bop_type==2) then

  569.      data%State%RAM(RNUMBER)%checkp= data%State%RAM(RNUMBER)%p_bop

  570. if ( data%State%RAM(RNUMBER)%vdis_tot<data%State%ShearRAM%VA) then

  571.      data%State%RAM(RNUMBER)%p_bop=data%State%ShearRAM%PA

  572. elseif (data%State%ShearRAM%VA<= data%State%RAM(RNUMBER)%vdis_tot .and.  data%State%RAM(RNUMBER)%vdis_tot<=data%State%ShearRAM%VB) then

  573.      data%State%RAM(RNUMBER)%p_bop=data%State%ShearRAM%PA+data%State%ShearRAM%PB*(( data%State%RAM(RNUMBER)%vdis_tot-data%State%ShearRAM%VA)/(data%State%ShearRAM%VB-data%State%ShearRAM%VA))

  574. else

  575.      data%State%RAM(RNUMBER)%p_bop=data%State%ShearRAM%PA

  576. endif

  577.  

  578. if ( data%State%RAM(RNUMBER)%checkp/=data%State%ShearRAM%PA .and.  data%State%RAM(RNUMBER)%p_bop==data%State%ShearRAM%PA) then

  579.     data%State%RAM(RNUMBER)%Q=data%State%RAM(RNUMBER)%Qzero

  580. else

  581.  data%State%RAM(RNUMBER)%Q=data%State%RAM(RNUMBER)%flow

  582. endif

  583. 

  584.     endif    

  585.     

  586. !====================================================

  587. !       BOP back pressure without DP

  588. !====================================================    

  589. if (data%State%RAM(RNUMBER)%bop_type==3) then 

  590.      data%State%RAM(RNUMBER)%p_bop=data%State%ShearRAM%PA

  591. ! Q=flow    

  592.     endif 

  593.     

  594.       

  595.     

  596.  data%State%RAM(RNUMBER)%clock=0

  597. !======================Losses============================

  598.  data%State%RAM(RNUMBER)%loss_after=0 !initial value

  599.  data%State%RAM(RNUMBER)%diffp_ram=1000  !initial value

  600.  data%State%RAM(RNUMBER)%loss_before=0

  601. 

  602. !Q=0.0055;  %initial flow rate (m^3/s)

  603. 

  604.  data%State%RAM(RNUMBER)%Q=data%State%RAM(RNUMBER)%flow

  605. 

  606. 

  607. do while (abs( data%State%RAM(RNUMBER)%diffp_ram- data%State%RAM(RNUMBER)%loss_after)/ data%State%RAM(RNUMBER)%diffp_ram>data%State%RAM(RNUMBER)%tol)

  608.     if (data%State%RAM(RNUMBER)%Bottles_Charged_MalfActive==.true.) exit

  609. ! while abs( data%State%RAM(RNUMBER)%diffp_ram- data%State%RAM(RNUMBER)%loss_after)>10

  610.  data%State%RAM(RNUMBER)%clock= data%State%RAM(RNUMBER)%clock+1

  611. 

  612. if ( data%State%RAM(RNUMBER)%clock>20) then

  613. !    tclock=clock

  614.     data%State%RAM(RNUMBER)%tol= data%State%RAM(RNUMBER)%TOLZERO+(floor( data%State%RAM(RNUMBER)%clock/10)-1)*.001

  615. endif

  616.  !      if (clock==1) continue

  617.        

  618.     if ( data%State%RAM(RNUMBER)%clock/=1 .and.  data%State%RAM(RNUMBER)%loss_after> data%State%RAM(RNUMBER)%diffp_ram) then

  619.         data%State%RAM(RNUMBER)%Q=data%State%RAM(RNUMBER)%Q-.1

  620.     elseif ( data%State%RAM(RNUMBER)%clock/=1 .and.  data%State%RAM(RNUMBER)%loss_after<= data%State%RAM(RNUMBER)%diffp_ram) then

  621.         data%State%RAM(RNUMBER)%Q=data%State%RAM(RNUMBER)%Q+.01

  622. 

  623.     endif

  624. 

  625. !====================Before Regulator=========================

  626. !pipe_loss1=3.2;  % should be replaced by formula

  627. do i=1,data%State%RamLine%NO_PIPINGSRAMLINE

  628.  data%State%RAMS%Re_ramline(RNUMBER,i)=data%State%RAM(RNUMBER)%Q*6.30902e-5*data%State%RamLine%DIAM_RAMLINE_INCH(i)*0.0254/(data%State%RamLine%AREA_RAMLINE(i)*nu)

  629. 

  630. enddo

  631. 

  632. 

  633. do i=1,data%State%RamLine%NO_PIPINGSRAMLINE

  634.      if ( data%State%RAMS%Re_ramline(RNUMBER,i)<Re_cr) then

  635.           data%State%RAMS%fric(RNUMBER,i)=64/ data%State%RAMS%Re_ramline(RNUMBER,i)

  636.      else

  637. 

  638.          data%State%RAMS%fric(RNUMBER,i)=1/(-1.8*log10((data%State%RamLine%RELROUGH_RAMLINE(i)/3.7)**1.11+6.9/ data%State%RAMS%Re_ramline(RNUMBER,i)))**2

  639.      endif

  640. 

  641.  data%State%RAMS%fricloss(RNUMBER,i)=(( data%State%RAMS%fric(RNUMBER,i)*(wdens*sg*data%State%RamLine%LENGT_RAMLINE(i)*(data%State%RAM(RNUMBER)%Q*6.30902e-5/data%State%RamLine%AREA_RAMLINE(i))**2))/(2*data%State%RamLine%DIAM_RAMLINE_INCH(i)*0.0254))/6895

  642. 

  643. enddo

  644. data%State%RAM(RNUMBER)%pipe_loss1=sum( data%State%RAMS%fricloss(RNUMBER,1:6))  !loss before regulator(psi)

  645. 

  646. !   Q*6.30902e-5   for (gpm) to (m^3/sec)

  647. do i=1,data%State%RamLine%NO_MINORSRAMLINE

  648.     if (data%State%RamLine%LF_RAMLINE(i)/=0) then

  649.          data%State%RAMS%minlosspa(RNUMBER,i)=data%State%RamLine%LF_RAMLINE(i)*wdens*sg*(data%State%RAM(RNUMBER)%Q*6.30902e-5/data%State%RamLine%AREAMINOR_RAMLINE(i))**2/2  !(Pa)

  650.          data%State%RAMS%minloss(RNUMBER,i)= data%State%RAMS%minlosspa(RNUMBER,i)/6895 !(psi)

  651.     elseif (data%State%RamLine%CV_RAMLINE(i)/=0) then

  652.          data%State%RAMS%minlosspa(RNUMBER,i)=1000*sg*((11.7*data%State%RAM(RNUMBER)%Q*6.30902e-5*3600)/(data%State%RamLine%CV_RAMLINE(i)))**2 !(pa)

  653.          data%State%RAMS%minloss(RNUMBER,i)= data%State%RAMS%minlosspa(RNUMBER,i)/6895 !(psi)

  654.     else

  655.          data%State%RAMS%minlosspa(RNUMBER,i)=data%State%RamLine%NOTE_RAMLINE(i)*1e5 !(pa)

  656.          data%State%RAMS%minloss(RNUMBER,i)= data%State%RAMS%minlosspa(RNUMBER,i)/6895 !(psi)

  657.     endif

  658. enddo

  659. 

  660.  data%State%RAMS%minloss(RNUMBER,17)= 5.*data%State%RAM(RNUMBER)%Q       ! <==== regulator loss (psig)

  661.         

  662.  data%State%RAM(RNUMBER)%minor_loss1=sum( data%State%RAMS%minloss(RNUMBER,1:16))  !loss before regulator(psi)

  663. 

  664.  data%State%RAM(RNUMBER)%static_loss1=0

  665. 

  666.  data%State%RAM(RNUMBER)%kinetic_loss1=sg*wdens*(data%State%RAM(RNUMBER)%Q*6.30902e-5/((1/4.)*pi*(.72*0.254e-1)**2))**2/(2*6895) !(psi)

  667. !.72 for regulator diameter)

  668. 

  669.  data%State%RAM(RNUMBER)%loss_before= data%State%RAM(RNUMBER)%pipe_loss1+ data%State%RAM(RNUMBER)%minor_loss1+ data%State%RAM(RNUMBER)%static_loss1+ data%State%RAM(RNUMBER)%kinetic_loss1 !(psi)

  670. !===================after Regulator======================

  671. ! all in (psi)

  672.  data%State%RAM(RNUMBER)%pipe_loss2=sum( data%State%RAMS%fricloss(RNUMBER,7:data%State%RamLine%NO_PIPINGSRAMLINE))  !7=after regulator<<<<<<<

  673.  data%State%RAM(RNUMBER)%minor_loss2=sum( data%State%RAMS%minloss(RNUMBER,17:data%State%RamLine%NO_MINORSRAMLINE))  !17=after regulator<<<<<<<

  674. 

  675.  data%State%RAM(RNUMBER)%deltah=H_RAMBOP-data%State%ShearRAM%H_REGRAM

  676. ! data%State%RAM(RNUMBER)%static_loss2pa= data%State%RAM(RNUMBER)%deltah*sg*wdens*gravity; %(pa)

  677.  data%State%RAM(RNUMBER)%static_loss2= data%State%RAM(RNUMBER)%deltah*sg*wdens*gravity/6895 !(psi)

  678.  data%State%RAM(RNUMBER)%kinetic_loss2=0

  679. 

  680.  data%State%RAM(RNUMBER)%loss_after= data%State%RAM(RNUMBER)%pipe_loss2+ data%State%RAM(RNUMBER)%minor_loss2+ data%State%RAM(RNUMBER)%static_loss2 !(psi)

  681. !=======================================================

  682. 

  683.     if(data%Equipments%BopControlPanel%ByePassValve == -1.0) then

  684.         data%State%BopStackAcc%ByPassOld= -1.0

  685.     elseif(data%Equipments%BopControlPanel%ByePassValve == 1.0) then

  686.         data%State%BopStackAcc%ByPassOld= 1.0

  687.     endif

  688.  !   write(*,*) 'ByPassOld=', ByPassOld

  689.  

  690. 

  691. !==========================p_regulator======================

  692. if (data%State%BopStackAcc%PRAMS_REGSET<data%State%RamLine%P_ACC- data%State%RAM(RNUMBER)%loss_before) then

  693.     

  694.     if(data%State%BopStackAcc%ByPassOld == 1.0)  then  

  695.          !old=pram_reg

  696.          !new=PRAMS_REGSET- sum(data%State%RAMS%minloss(2:6,17))     ! 2:6 = RNUMBER

  697.          !difference= new-old

  698.          data%State%BopStackAcc%PressureDifference= data%State%BopStackAcc%PRAMS_REGSET- sum(data%State%RAMS%minloss(2:6,17)) - data%State%BopStackAcc%pram_reg

  699.          if (ABS(data%State%BopStackAcc%PressureDifference) > BaseDifferenceP) then

  700.              data%State%BopStackAcc%pram_reg= data%State%BopStackAcc%pram_reg + (data%State%BopStackAcc%PressureDifference/PressureDifferenceSteps)      ! PressureDifferenceSteps = 20.

  701.          else

  702.             data%State%BopStackAcc%pram_reg= data%State%BopStackAcc%PRAMS_REGSET- sum(data%State%RAMS%minloss(2:6,17))     ! 2:6 = RNUMBER

  703.          endif

  704.         !pram_reg=PRAMS_REGSET- sum(data%State%RAMS%minloss(2:6,17))     ! 2:6 = RNUMBER

  705.     else    !(ByPassOld == -1.0) 

  706.          !old=pram_reg

  707.          !new=p_acc- data%State%RAM(RNUMBER)%loss_before

  708.          !difference= new-old

  709.          data%State%BopStackAcc%PressureDifference= data%State%RamLine%P_ACC- data%State%RAM(RNUMBER)%loss_before - data%State%BopStackAcc%pram_reg

  710.          if (ABS(data%State%BopStackAcc%PressureDifference) > BaseDifferenceP) then

  711.              data%State%BopStackAcc%pram_reg= data%State%BopStackAcc%pram_reg + (data%State%BopStackAcc%PressureDifference/PressureDifferenceSteps)      ! PressureDifferenceSteps = 20.

  712.          else

  713.             data%State%BopStackAcc%pram_reg= data%State%RamLine%P_ACC- data%State%RAM(RNUMBER)%loss_before

  714.          endif    

  715.     

  716.     endif

  717.         !pram_reg=p_acc- data%State%RAM(RNUMBER)%loss_before

  718. 

  719. else

  720.     data%State%BopStackAcc%pram_reg=data%State%RamLine%P_ACC- data%State%RAM(RNUMBER)%loss_before- sum(data%State%RAMS%minloss(2:6,17))     ! 2:6 = RNUMBER

  721. endif

  722. !===========================================================

  723. 

  724. 

  725. !====================Flow Rate calculation==================

  726.  data%State%RAM(RNUMBER)%diffp_ram=data%State%BopStackAcc%pram_reg+data%State%RAMS%minloss(RNUMBER,17)- data%State%RAM(RNUMBER)%p_bop

  727.     !write(*,*) 'Q calculation'

  728. 

  729. 

  730. end do  ! returns correct Q for one timecounter_ram

  731. !write(*,*)'data%State%RAM(RNUMBER)%Q= ' , data%State%RAM(RNUMBER)%Q

  732. 

  733. !write(*,*) 'UpperRamsLeakMalf , Bottles_Charged_MalfActive=' , UpperRamsLeakMalf , Bottles_Charged_MalfActive

  734. if (data%State%RAM(RNUMBER)%Bottles_Charged_MalfActive==.true.) then

  735.     data%State%RAM(RNUMBER)%Q= 5.0 ! gpm

  736.     !write(*,*) 'malffffffffff'

  737. endif

  738. 

  739. data%State%RAM(RNUMBER)%flow=data%State%RAM(RNUMBER)%Q

  740. 

  741. 

  742. 

  743. !====================p_accumulator for next iterate==================

  744. ! deltav=Q*1*1000;   %delta_t=1sec (lit)

  745. ! fvr=fvr-deltav;  %=fvr_after (lit)

  746. ! p_acc=0.001178*fvr^3+0.02019*fvr^2+16.1*fvr+2379; %(psia)

  747. ! vdis_bottles=fvr_tot-fvr;   %from the start***needed for  p_bop calculating (lit)

  748. 

  749. !========for a 10 gal bottle,precharge=1000psig curve BOSCH======

  750. data%State%RAM(RNUMBER)%deltav_bottles=data%State%RAM(RNUMBER)%Q*data%State%RamLine%DeltaT_BOP/60.   !(galon) delta_t=1sec , Q(gpm)

  751. data%State%RamLine%FVR=data%State%RamLine%FVR- data%State%RAM(RNUMBER)%deltav_bottles  !=fvr_after (galon)

  752. ! b1=993.7; b2=0.164; b3=5.492; b4=0.9796;

  753.  data%State%RAM(RNUMBER)%p_acccheck=data%State%RamLine%P_ACC

  754. data%State%RamLine%P_ACC=data%State%RamLine%B1*exp(data%State%RamLine%B2*data%State%RamLine%FVR/data%State%BopStackAcc%NOBOTTLES)+data%State%RamLine%B3*exp(data%State%RamLine%B4*data%State%RamLine%FVR/data%State%BopStackAcc%NOBOTTLES) !(psig)<<<< 8=no. of bottles

  755. !formula is derived for fvr (galon)

  756. !vdis_bottles=fvr_tot-fvr

  757.  data%State%RAM(RNUMBER)%vdis_bottles= data%State%RAM(RNUMBER)%vdis_bottles+ data%State%RAM(RNUMBER)%deltav_bottles

  758. 

  759.  data%State%RamLine%NoActiveRmas=6.-real(data%State%Annular%Annular_closed+data%State%RamLine%ShearBop_closed+data%State%PipeRam1%closed+data%State%PipeRam2%closed+data%State%ChokeLine%closed+data%State%KillLine%closed)

  760.  

  761.  data%State%RAM(RNUMBER)%vdis_elecp= data%State%RAM(RNUMBER)%vdis_elecp+(data%State%Pumps%DELTAV_ELECP/data%State%RamLine%NoActiveRmas)  !overal discharged

  762.   data%State%RAM(RNUMBER)%fvr_air= data%State%RAM(RNUMBER)%fvr_air+(data%State%Pumps%DELTAV_AIR/data%State%RamLine%NoActiveRmas)  !=fvr_after (galon) for next timecounter_ram

  763. !write(*,*) 'deltav_air , NoActiveRmas' , deltav_air , NoActiveRmas

  764. 

  765.  data%State%RAM(RNUMBER)%vdis_tot= data%State%RAM(RNUMBER)%vdis_bottles+ data%State%RAM(RNUMBER)%fvr_air+ data%State%RAM(RNUMBER)%vdis_elecp      !overal

  766.       !  write(*,*)  data%State%RAM(RNUMBER)%vdis_tot, vdis_bottles, data%State%RAM(RNUMBER)%fvr_air, vdis_elecp      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  767. 

  768. if (ramtype==1) then    !for shear ram

  769.      if (data%State%RamLine%ShearRamIsClosing) then

  770.         data%State%ShearRAM%IDshearBop=(2.*(data%State%ShearRAM%NeededVolumeShearRams- data%State%RAM(RNUMBER)%vdis_tot)*231./data%State%ShearRAM%AbopShearRam) +data%State%ShearRAM%ShearIsNotAllowed*data%State%ShearRAM%ODDrillpipe_inShearRam

  771.         !write(*,*) 'stop now' !, IDshearBop, NeededVolumeShearRams, data%State%RAM(RNUMBER)%vdis_tot, AbopShearRam

  772.      endif

  773.      

  774.      if (data%State%RamLine%ShearRamIsOpening) then

  775.         data%State%ShearRAM%IDshearBop=data%State%ShearRAM%IDshearBopBase-2.*(data%State%ShearRAM%NeededVolumeShearRams- data%State%RAM(RNUMBER)%vdis_tot)*231./data%State%ShearRAM%AbopShearRam    

  776.      endif

  777.      

  778. 

  779.         

  780.       if ( data%State%RAM(RNUMBER)%vdis_tot>data%State%ShearRAM%NeededVolumeShearRams) then

  781. 

  782.              data%State%RamLine%ShearBop_closed=1

  783.              !ShearBop_closed_withPossibility= ShearBop_closed * TD_BOPConnectionPossibility(3)

  784.              

  785.              data%State%BopStackAcc%pram_reg=data%State%BopStackAcc%pram_reg+data%State%RAMS%minloss(RNUMBER,17)

  786.              data%State%RamLine%P_ACC= data%State%RAM(RNUMBER)%p_acccheck

  787. 

  788.            if (data%State%RamLine%ShearRamIsClosing) then

  789.               data%State%ShearRAM%IDshearBop=0. + data%State%ShearRAM%ShearIsNotAllowed*data%State%ShearRAM%ODDrillpipe_inShearRam      

  790.               data%Equipments%BopControlPanel%MiddleRamsCloseLED = LedOn

  791.               data%State%BopStackInput%MiddleRamsCloseLEDMine = LedOn

  792.               data%Equipments%BopControlPanel%MiddleRamsOpenLED = LedOff

  793.               data%State%BopStackInput%MiddleRamsOpenLEDMine = LedOff

  794.               if (data%State%TD_BOP%BOPConnectionPossibility(3) == 1 .and. data%State%ShearRAM%ShearIsNotAllowed==0) then

  795.                   CALL CloseMiddleRams

  796.                   data%State%RamLine%ShearBop_Situation_forTD= 1       ! closed - for TD code

  797.               endif

  798.           endif

  799.      

  800.           if (data%State%RamLine%ShearRamIsOpening) then

  801.              data%State%ShearRAM%IDshearBop=data%State%ShearRAM%IDshearBopBase

  802.              data%Equipments%BopControlPanel%MiddleRamsOpenLED = LedOn

  803.              data%State%BopStackInput%MiddleRamsOpenLEDMine = LedOn

  804.              data%Equipments%BopControlPanel%MiddleRamsCloseLED = LedOff

  805.              data%State%BopStackInput%MiddleRamsCloseLEDMine = LedOff

  806.              CALL OpenMiddleRams

  807.              data%State%RamLine%ShearBop_Situation_forTD= 0       ! open - for TD code

  808.          endif

  809.     

  810.       endif  

  811.       

  812.       data%State%ShearRAM%IDshearBopFinal= data%State%ShearRAM%IDshearBop       ! for output data

  813.      

  814. endif

  815. 

  816. if (ramtype==2) then    !for pipe ram1

  817.      if (data%State%PipeRam1%IsClosing) then

  818.         data%State%PipeRam1%ID=(2.*(data%State%PipeRam1%NeededVolume- data%State%RAM(RNUMBER)%vdis_tot)*231./data%State%PipeRam1%A)+max(data%State%PipeRam1%ODDrillpipe_in,data%State%PipeRam1%ODDrillpipe_inBase)   

  819.      endif

  820.      

  821.      if (data%State%PipeRam1%IsOpening) then

  822.         data%State%PipeRam1%ID=data%State%PipeRam1%IDBase-2.*(data%State%PipeRam1%NeededVolume- data%State%RAM(RNUMBER)%vdis_tot)*231./data%State%PipeRam1%A    

  823.      endif

  824. 

  825.      if ( data%State%RAM(RNUMBER)%vdis_tot>data%State%PipeRam1%NeededVolume) then

  826. 

  827.               data%State%PipeRam1%closed=1

  828.               !PipeRam1_Situation_forTD= PipeRam1_closed * TD_BOPConnectionPossibility(2)

  829.               data%State%BopStackAcc%pram_reg=data%State%BopStackAcc%pram_reg+data%State%RAMS%minloss(RNUMBER,17)

  830.               data%State%RamLine%P_ACC= data%State%RAM(RNUMBER)%p_acccheck

  831. 

  832.            if (data%State%PipeRam1%IsClosing) then

  833.               data%State%PipeRam1%ID=max(data%State%PipeRam1%ODDrillpipe_in,data%State%PipeRam1%ODDrillpipe_inBase)       

  834.               data%Equipments%BopControlPanel%UpperRamsCloseLED = LedOn

  835.               data%State%BopStackInput%UpperRamsCloseLEDMine = LedOn

  836.               data%Equipments%BopControlPanel%UpperRamsOpenLED = LedOff

  837.               data%State%BopStackInput%UpperRamsOpenLEDMine = LedOff

  838.               if (data%State%TD_BOP%BOPConnectionPossibility(2) == 1) then

  839.                   CALL CloseUpperRams       ! for C code

  840.                   call Set_BlowoutFromAnnular(.true.) 

  841. 

  842.  

  843.                   data%State%PipeRam1%Situation_forTD= 1       ! closed - for TD code

  844.               endif

  845.           endif

  846.      

  847.           if (data%State%PipeRam1%IsOpening) then

  848.               data%State%PipeRam1%ID=data%State%PipeRam1%IDBase

  849.               data%Equipments%BopControlPanel%UpperRamsOpenLED = LedOn

  850.               data%State%BopStackInput%UpperRamsOpenLEDMine = LedOn

  851.               data%Equipments%BopControlPanel%UpperRamsCloseLED = LedOff

  852.               data%State%BopStackInput%UpperRamsCloseLEDMine = LedOff

  853.               Call OpenUpperRams       ! for C code

  854.               data%State%PipeRam1%Situation_forTD= 0       ! open - for TD code

  855.          endif

  856.     

  857.      endif 

  858.      

  859.      data%State%ShearRAM%IDPipeRam1Final= data%State%PipeRam1%ID       ! for output data

  860. 

  861. endif

  862. 

  863. 

  864. if (ramtype==3) then    !for pipe ram2

  865.      if (data%State%PipeRam2%IsClosing) then

  866.         data%State%PipeRam2%ID=(2.*(data%State%PipeRam2%NeededVolume- data%State%RAM(RNUMBER)%vdis_tot)*231./data%State%PipeRam1%A)+max(data%State%PipeRam2%ODDrillpipe_in,data%State%PipeRam1%ODDrillpipe_inBase)   

  867.      endif

  868.      

  869.      if (data%State%PipeRam2%IsOpening) then

  870.         data%State%PipeRam2%ID=data%State%PipeRam1%IDBase-2.*(data%State%PipeRam2%NeededVolume- data%State%RAM(RNUMBER)%vdis_tot)*231./data%State%PipeRam1%A    

  871.      endif

  872. 

  873.      if ( data%State%RAM(RNUMBER)%vdis_tot>data%State%PipeRam2%NeededVolume) then

  874. 

  875.               data%State%PipeRam2%closed=1

  876.               !PipeRam2_closed_withPossibility= PipeRam2_closed * TD_BOPConnectionPossibility(4)

  877.               data%State%BopStackAcc%pram_reg=data%State%BopStackAcc%pram_reg+data%State%RAMS%minloss(RNUMBER,17)

  878.               data%State%RamLine%P_ACC= data%State%RAM(RNUMBER)%p_acccheck

  879. 

  880.            if (data%State%PipeRam2%IsClosing) then

  881.               data%State%PipeRam2%ID=max(data%State%PipeRam2%ODDrillpipe_in,data%State%PipeRam1%ODDrillpipe_inBase)       

  882.               data%Equipments%BopControlPanel%LowerRamsCloseLED = LedOn

  883.               data%State%BopStackInput%LowerRamsCloseLEDMine = LedOn

  884.               data%Equipments%BopControlPanel%LowerRamsOpenLED = LedOff

  885.               data%State%BopStackInput%LowerRamsOpenLEDMine = LedOff

  886.               if (data%State%TD_BOP%BOPConnectionPossibility(4) == 1) then

  887.                   CALL CloseLowerRams

  888.                   data%State%PipeRam2%Situation_forTD= 1       ! closed - for TD code

  889.               endif

  890.           endif

  891.      

  892.           if (data%State%PipeRam2%IsOpening) then

  893.               data%State%PipeRam2%ID=data%State%PipeRam1%IDBase

  894.               data%Equipments%BopControlPanel%LowerRamsOpenLED = LedOn

  895.               data%State%BopStackInput%LowerRamsOpenLEDMine = LedOn

  896.               data%Equipments%BopControlPanel%LowerRamsCloseLED = LedOff

  897.               data%State%BopStackInput%LowerRamsCloseLEDMine = LedOff

  898.               CALL OpenLowerRams

  899.               data%State%PipeRam2%Situation_forTD= 0       ! open - for TD code

  900.          endif

  901.     

  902.      endif  

  903.      

  904.      data%State%ShearRAM%IDPipeRam2Final= data%State%PipeRam2%ID       ! for output data

  905. 

  906. endif

  907. 

  908. 

  909. if (ramtype==4) then    !for Choke Line

  910.      if (data%State%ChokeLine%IsClosing) then

  911.         data%State%ChokeLine%ID=(2.*(data%State%ChokeLine%NeededVolume- data%State%RAM(RNUMBER)%vdis_tot)*231./data%State%ChokeLine%Abop)+max(data%State%ChokeLine%ODDrillpipe_in,data%State%ChokeLine%ODDrillpipe_inBase)  

  912.      endif

  913.      

  914.      if (data%State%ChokeLine%IsOpening) then

  915.         data%State%ChokeLine%ID=data%State%ChokeLine%IDBase-2.*(data%State%ChokeLine%NeededVolume- data%State%RAM(RNUMBER)%vdis_tot)*231./data%State%ChokeLine%Abop    

  916.      endif

  917. 

  918.      if ( data%State%RAM(RNUMBER)%vdis_tot>data%State%ChokeLine%NeededVolume) then

  919. 

  920.               data%State%ChokeLine%closed=1

  921.               data%State%BopStackAcc%pram_reg=data%State%BopStackAcc%pram_reg+data%State%RAMS%minloss(RNUMBER,17)

  922.               data%State%RamLine%P_ACC= data%State%RAM(RNUMBER)%p_acccheck

  923. 

  924.            if (data%State%ChokeLine%IsClosing) then

  925.               data%State%ChokeLine%ID=max(data%State%ChokeLine%ODDrillpipe_in,data%State%ChokeLine%ODDrillpipe_inBase)      

  926.               data%Equipments%BopControlPanel%ChokeLineCloseLED = LedOn

  927.               data%State%BopStackInput%ChokeLineCloseLEDMine = LedOn

  928.               data%Equipments%BopControlPanel%ChokeLineOpenLED = LedOff

  929.               data%State%BopStackInput%ChokeLineOpenLEDMine = LedOff

  930.               CALL CloseChokeLine

  931.           endif

  932.      

  933.           if (data%State%ChokeLine%IsOpening) then

  934.               data%State%ChokeLine%ID=data%State%ChokeLine%IDBase

  935.               data%Equipments%BopControlPanel%ChokeLineOpenLED = LedOn

  936.               data%State%BopStackInput%ChokeLineOpenLEDMine = LedOn

  937.               data%Equipments%BopControlPanel%ChokeLineCloseLED = LedOff

  938.               data%State%BopStackInput%ChokeLineCloseLEDMine = LedOff

  939.               CALL OpenChokeLine

  940.          endif

  941.     

  942.      endif  

  943. 

  944. endif

  945. 

  946. 

  947. 

  948. if (ramtype==5) then    !for Kill Line

  949.      if (data%State%KillLine%IsClosing) then

  950.         data%State%KillLine%ID=(2.*(data%State%KillLine%NeededVolume- data%State%RAM(RNUMBER)%vdis_tot)*231./data%State%KillLine%Abop)+max(data%State%KillLine%ODDrillpipe_in,data%State%KillLine%ODDrillpipe_inBase)  

  951.      endif

  952.      

  953.      if (data%State%KillLine%IsOpening) then

  954.         data%State%KillLine%ID=data%State%KillLine%IDBase-2.*(data%State%KillLine%NeededVolume- data%State%RAM(RNUMBER)%vdis_tot)*231./data%State%KillLine%Abop    

  955.      endif

  956. 

  957.      if ( data%State%RAM(RNUMBER)%vdis_tot>data%State%KillLine%NeededVolume) then

  958. 

  959.               data%State%KillLine%closed=1

  960.               data%State%BopStackAcc%pram_reg=data%State%BopStackAcc%pram_reg+data%State%RAMS%minloss(RNUMBER,17)

  961.               data%State%RamLine%P_ACC= data%State%RAM(RNUMBER)%p_acccheck

  962. 

  963.            if (data%State%KillLine%IsClosing) then

  964.               data%State%KillLine%ID=max(data%State%KillLine%ODDrillpipe_in,data%State%KillLine%ODDrillpipe_inBase)      

  965.               data%Equipments%BopControlPanel%KillLineCloseLED = LedOn

  966.               data%State%BopStackInput%KillLineCloseLedMine = LedOn

  967.               data%Equipments%BopControlPanel%KillLineOpenLED = LedOff

  968.               data%State%BopStackInput%KillLineOpenLedMine = LedOff

  969.               CALL CloseKillLine

  970.           endif

  971.      

  972.           if (data%State%KillLine%IsOpening) then

  973.               data%State%KillLine%ID=data%State%KillLine%IDBase

  974.               data%Equipments%BopControlPanel%KillLineOpenLED = LedOn

  975.               data%State%BopStackInput%KillLineOpenLedMine = LedOn

  976.               data%Equipments%BopControlPanel%KillLineCloseLED = LedOff

  977.               data%State%BopStackInput%KillLineCloseLedMine = LedOff

  978.               CALL OpenKillLine

  979.          endif

  980.     

  981.      endif  

  982. 

  983. endif

  984. 

  985. 

  986. 

  987. 

  988. !if (ramtype==4) then    !for annular

  989. !     if (AnnularIsClosing) then

  990. !        IDAnnular=((NeededVolumeAnnular-vdis_tot)*231./AbopAnnular)+ODDrillpipe_inAnnular   

  991. !     endif

  992. !     

  993. !     if (AnnularIsOpening) then

  994. !        IDAnnular=IDAnnularBase-(NeededVolumeAnnular-vdis_tot)*231./AbopAnnular

  995. !     endif

  996. !

  997. !     if (vdis_tot>NeededVolumeAnnular) then

  998. !

  999. !              Annular_closed=1

  1000. !              p_acc= data%State%RAM(RNUMBER)%p_acccheck

  1001. !

  1002. !           if (AnnularIsClosing) then

  1003. !              IDAnnular=ODDrillpipe_inAnnular       

  1004. !              AnnularCloseLed = LedOn

  1005. !              AnnularOpenLed = LedOff

  1006. !          endif

  1007. !     

  1008. !          if (AnnularIsOpening) then

  1009. !              IDAnnular=IDAnnularBase

  1010. !              AnnularOpenLed = LedOn

  1011. !              AnnularCloseLed = LedOff        

  1012. !         endif

  1013. !    

  1014. !     endif  

  1015. !

  1016. !endif

  1017. 

  1018. 

  1019.     end

  1020.     

  1021.     

  1022.    

  1023.     SUBROUTINE bop_codeAnnular(RNUMBER) 

  1024.     

  1025.     use SimulationVariables 

  1026.     use CBopControlPanel

  1027.     use SimulationVariables

  1028.     USE CEquipmentsConstants

  1029.     use SimulationVariables !@

  1030. implicit none

  1031. INTEGER RNUMBER, I

  1032. 

  1033. 

  1034.     !Pannular_regset=min(AnnularRegulatorSetControl,1700.)  ! for changing its set conditions instantaneously

  1035.     

  1036. !====================================================

  1037. !       BOP back pressure without DP

  1038. !====================================================    

  1039. !if (bop_type==3) then 

  1040.     !p_annular=510.725-(30.145*IDAnnular)

  1041.     data%State%AnnularComputational%p_annular=448-(19.7*data%State%Annular%IDAnnular)

  1042. !    Q=flow    

  1043. !    endif 

  1044.     

  1045.       

  1046.     

  1047.  data%State%RAM(RNUMBER)%clock=0

  1048. !======================Losses============================

  1049.  data%State%RAM(RNUMBER)%loss_after=0 !initial value

  1050.  data%State%RAM(RNUMBER)%diffp_ram=1000  !initial value

  1051.  data%State%RAM(RNUMBER)%loss_before=0

  1052. 

  1053. !Q=0.0055;  %initial flow rate (m^3/s)

  1054. 

  1055.  data%State%RAM(RNUMBER)%Q=data%State%RAM(RNUMBER)%flow

  1056. 

  1057. !write(*,*) 'Q1=' , Q

  1058. !write(*,*) 'tol=' , tol

  1059. do while (abs( data%State%RAM(RNUMBER)%diffp_ram- data%State%RAM(RNUMBER)%loss_after)/ data%State%RAM(RNUMBER)%diffp_ram>data%State%Annular%tolAnnular)

  1060.     if (data%State%RAM(RNUMBER)%Bottles_Charged_MalfActive==.true.) exit

  1061. ! while abs( data%State%RAM(RNUMBER)%diffp_ram- data%State%RAM(RNUMBER)%loss_after)>10

  1062.  data%State%RAM(RNUMBER)%clock= data%State%RAM(RNUMBER)%clock+1

  1063. 

  1064. if ( data%State%RAM(RNUMBER)%clock>20) then

  1065. !    tclock=clock

  1066.     data%State%Annular%tolAnnular=data%State%Annular%tolzeroAnnular+(floor( data%State%RAM(RNUMBER)%clock/10)-1)*.001

  1067. endif

  1068.  !      if (clock==1) continue

  1069.        

  1070.     if ( data%State%RAM(RNUMBER)%clock/=1 .and.  data%State%RAM(RNUMBER)%loss_after> data%State%RAM(RNUMBER)%diffp_ram) then

  1071.         data%State%RAM(RNUMBER)%Q=data%State%RAM(RNUMBER)%Q-.1

  1072.     elseif ( data%State%RAM(RNUMBER)%clock/=1 .and.  data%State%RAM(RNUMBER)%loss_after<= data%State%RAM(RNUMBER)%diffp_ram) then

  1073.         data%State%RAM(RNUMBER)%Q=data%State%RAM(RNUMBER)%Q+.01

  1074. 

  1075.     endif

  1076. 

  1077. !====================Before Regulator=========================

  1078. do i=1,data%State%AnnularComputational%NO_PipingsAnnularLine

  1079. data%State%AnnularComputational%Re_ANNULARline(i)=data%State%RAM(RNUMBER)%Q*6.30902e-5*data%State%AnnularComputational%DIAM_ANNULARLINE_INCH(i)*0.0254/(data%State%AnnularComputational%AREA_ANNULARLINE(i)*nu)

  1080. 

  1081. enddo

  1082. 

  1083. 

  1084. 

  1085. do i=1,data%State%AnnularComputational%NO_PipingsAnnularLine

  1086.      if (data%State%AnnularComputational%Re_ANNULARline(i)<Re_cr) then

  1087.          data%State%AnnularComputational%fricANNULAR(i)=64/data%State%AnnularComputational%Re_ANNULARline(i)

  1088.      else

  1089. 

  1090.         data%State%AnnularComputational%fricANNULAR(i)=1/(-1.8*log10((data%State%AnnularComputational%RELROUGH_ANNULARLINE(i)/3.7)**1.11+6.9/data%State%AnnularComputational%Re_ANNULARline(i)))**2

  1091.      endif

  1092. 

  1093. data%State%AnnularComputational%friclossANNULAR(i)=((data%State%AnnularComputational%fricANNULAR(i)*(wdens*sg*data%State%AnnularComputational%LENGT_ANNULARLINE(i)*(data%State%RAM(RNUMBER)%Q*6.30902e-5/data%State%AnnularComputational%AREA_ANNULARLINE(i))**2))/(2*data%State%AnnularComputational%DIAM_ANNULARLINE_INCH(i)*0.0254))/6895

  1094. 

  1095. enddo

  1096. 

  1097. 

  1098. 

  1099. 

  1100.  data%State%RAM(RNUMBER)%pipe_loss1=sum(data%State%AnnularComputational%friclossANNULAR(1:6))  !loss before regulator(psi)

  1101. 

  1102. 

  1103. do i=1,data%State%AnnularComputational%NO_MinorsAnnularLine

  1104.     if (data%State%AnnularComputational%LF_ANNULARLINE(i)/=0) then

  1105.         data%State%AnnularComputational%minlosspa_ANNULAR(i)=data%State%AnnularComputational%LF_ANNULARLINE(i)*wdens*sg*(data%State%RAM(RNUMBER)%Q*6.30902e-5/data%State%AnnularComputational%AREAMINOR_ANNULARLINE(i))**2/2  !(Pa)

  1106.         data%State%AnnularComputational%minloss_ANNULAR(i)=data%State%AnnularComputational%minlosspa_ANNULAR(i)/6895 !(psi)

  1107.     elseif (data%State%AnnularComputational%CV_ANNULARLINE(i)/=0) then

  1108.         data%State%AnnularComputational%minlosspa_ANNULAR(i)=1000*sg*((11.7*data%State%RAM(RNUMBER)%Q*6.30902e-5*3600)/(data%State%AnnularComputational%CV_ANNULARLINE(i)))**2 !(pa)

  1109.         data%State%AnnularComputational%minloss_ANNULAR(i)=data%State%AnnularComputational%minlosspa_ANNULAR(i)/6895 !(psi)

  1110.     else

  1111.         data%State%AnnularComputational%minlosspa_ANNULAR(i)=data%State%AnnularComputational%NOTE_ANNULARLINE(i)*1e5 !(pa)

  1112.         data%State%AnnularComputational%minloss_ANNULAR(i)=data%State%AnnularComputational%minlosspa_ANNULAR(i)/6895 !(psi)

  1113.     endif

  1114. enddo

  1115. 

  1116. data%State%AnnularComputational%minloss_ANNULAR(17)= 3.4*data%State%RAM(RNUMBER)%Q       ! <==== regulator loss (psig)

  1117.         

  1118.  data%State%RAM(RNUMBER)%minor_loss1=sum(data%State%AnnularComputational%minloss_ANNULAR(1:16))  !loss before regulator(psi)

  1119. 

  1120.  data%State%RAM(RNUMBER)%static_loss1=0

  1121. 

  1122.  data%State%RAM(RNUMBER)%kinetic_loss1=sg*wdens*(data%State%RAM(RNUMBER)%Q*6.30902e-5/((1/4.)*pi*(.72*0.254e-1)**2))**2/(2*6895) !(psi)

  1123. !.72 for regulator diameter)

  1124. 

  1125.  data%State%RAM(RNUMBER)%loss_before= data%State%RAM(RNUMBER)%pipe_loss1+ data%State%RAM(RNUMBER)%minor_loss1+ data%State%RAM(RNUMBER)%static_loss1+ data%State%RAM(RNUMBER)%kinetic_loss1 !(psi)

  1126. !===================after Regulator======================

  1127. ! all in (psi)

  1128.  data%State%RAM(RNUMBER)%pipe_loss2=sum(data%State%AnnularComputational%friclossANNULAR(7:data%State%AnnularComputational%NO_PipingsAnnularLine))  !7=after regulator<<<<<<<

  1129.  data%State%RAM(RNUMBER)%minor_loss2=sum(data%State%AnnularComputational%minloss_ANNULAR(17:data%State%AnnularComputational%NO_MinorsAnnularLine))  !17=after regulator<<<<<<<

  1130. 

  1131.  data%State%RAM(RNUMBER)%deltah=data%State%Annular%H_AnnularBop-data%State%ShearRAM%H_REGRAM

  1132. ! data%State%RAM(RNUMBER)%static_loss2pa= data%State%RAM(RNUMBER)%deltah*sg*wdens*gravity; %(pa)

  1133.  data%State%RAM(RNUMBER)%static_loss2= data%State%RAM(RNUMBER)%deltah*sg*wdens*gravity/6895 !(psi)

  1134.  data%State%RAM(RNUMBER)%kinetic_loss2=0

  1135. 

  1136.  data%State%RAM(RNUMBER)%loss_after= data%State%RAM(RNUMBER)%pipe_loss2+ data%State%RAM(RNUMBER)%minor_loss2+ data%State%RAM(RNUMBER)%static_loss2 !(psi)

  1137. !=======================================================

  1138. 

  1139. 

  1140. 

  1141. !==========================p_regulator======================

  1142. if (data%State%Annular%Pannular_regset<data%State%RamLine%P_ACC- data%State%RAM(RNUMBER)%loss_before) then

  1143.     

  1144.             !!new= Pannular_regset-minloss_ANNULAR(17) 

  1145.             ! 

  1146.             !CALL Pannular_regDelay%AddToFirst( Pannular_regset-minloss_ANNULAR(17) )

  1147.             !CALL Pannular_regDelay%Remove(Pannular_regDelay%Length())

  1148.             !Pannular_reg= Pannular_regDelay%Last()

  1149.             

  1150.             data%State%Annular%Pannular_reg= data%State%Annular%Pannular_regset-data%State%AnnularComputational%minloss_ANNULAR(17)     

  1151. 

  1152.     ! data%State%RAM(RNUMBER)%loss_after= data%State%RAM(RNUMBER)%loss_after-minloss(17);   %minloss(17)=regulator loss

  1153. else

  1154.     

  1155.             !!new= p_acc- data%State%RAM(RNUMBER)%loss_before-minloss_ANNULAR(17)

  1156.             ! 

  1157.             !CALL Pannular_regDelay%AddToFirst( p_acc- data%State%RAM(RNUMBER)%loss_before-minloss_ANNULAR(17) )

  1158.             !CALL Pannular_regDelay%Remove(Pannular_regDelay%Length())

  1159.             !Pannular_reg= Pannular_regDelay%Last()

  1160.             

  1161.             data%State%Annular%Pannular_reg= data%State%RamLine%P_ACC- data%State%RAM(RNUMBER)%loss_before-data%State%AnnularComputational%minloss_ANNULAR(17)    

  1162. 

  1163. endif

  1164. !===========================================================

  1165. 

  1166. 

  1167. !====================Flow Rate calculation==================

  1168.  data%State%RAM(RNUMBER)%diffp_ram=data%State%Annular%Pannular_reg+data%State%AnnularComputational%minloss_ANNULAR(17)-data%State%AnnularComputational%p_annular

  1169. 

  1170. 

  1171. 

  1172. 

  1173. 

  1174. end do  ! returns correct Q for one timecounter_ram

  1175. 

  1176. if (data%State%RAM(RNUMBER)%Bottles_Charged_MalfActive==.true.) then

  1177.     data%State%RAM(RNUMBER)%Q= 5.0 ! gpm

  1178.     !write(*,*) 'malffffffffff'

  1179. endif

  1180. 

  1181. data%State%RAM(RNUMBER)%flow=data%State%RAM(RNUMBER)%Q

  1182. !write(*,*) 'minloss_ANNULAR(17)=' , minloss_ANNULAR(17)

  1183. !write(*,*) '%loss_after=' ,data%State%RAM(RNUMBER)%loss_after

  1184. !====================p_accumulator for next iterate==================

  1185. ! deltav=Q*1*1000;   %delta_t=1sec (lit)

  1186. ! fvr=fvr-deltav;  %=fvr_after (lit)

  1187. ! p_acc=0.001178*fvr^3+0.02019*fvr^2+16.1*fvr+2379; %(psia)

  1188. ! vdis_bottles=fvr_tot-fvr;   %from the start***needed for p_BOP calculating (lit)

  1189. 

  1190. !========for a 10 gal bottle,precharge=1000psig curve BOSCH======

  1191.  data%State%RAM(RNUMBER)%deltav_bottles=data%State%RAM(RNUMBER)%Q*data%State%RamLine%DeltaT_BOP/60.   !(galon) delta_t=1sec , Q(gpm)

  1192. data%State%RamLine%FVR=data%State%RamLine%FVR- data%State%RAM(RNUMBER)%deltav_bottles  !=fvr_after (galon)

  1193. ! b1=993.7; b2=0.164; b3=5.492; b4=0.9796;

  1194.  data%State%RAM(RNUMBER)%p_acccheck=data%State%RamLine%P_ACC

  1195. data%State%RamLine%P_ACC=data%State%RamLine%B1*exp(data%State%RamLine%B2*data%State%RamLine%FVR/data%State%BopStackAcc%NOBOTTLES)+data%State%RamLine%B3*exp(data%State%RamLine%B4*data%State%RamLine%FVR/data%State%BopStackAcc%NOBOTTLES) !(psig)<<<< 8=no. of bottles

  1196. !formula is derived for fvr (galon)

  1197. !vdis_bottles=fvr_tot-fvr

  1198.  data%State%RAM(RNUMBER)%vdis_bottles= data%State%RAM(RNUMBER)%vdis_bottles+ data%State%RAM(RNUMBER)%deltav_bottles

  1199. 

  1200.  data%State%RamLine%NoActiveRmas=6.-real(data%State%Annular%Annular_closed+data%State%RamLine%ShearBop_closed+data%State%PipeRam1%closed+data%State%PipeRam2%closed+data%State%ChokeLine%closed+data%State%KillLine%closed)

  1201.  data%State%RAM(RNUMBER)%vdis_elecp= data%State%RAM(RNUMBER)%vdis_elecp+(data%State%Pumps%DELTAV_ELECP/data%State%RamLine%NoActiveRmas)  !overal discharged

  1202.   data%State%RAM(RNUMBER)%fvr_air= data%State%RAM(RNUMBER)%fvr_air+(data%State%Pumps%DELTAV_AIR/data%State%RamLine%NoActiveRmas)  !=fvr_after (galon) for next timecounter_ram

  1203. 

  1204. 

  1205.  data%State%RAM(RNUMBER)%vdis_tot= data%State%RAM(RNUMBER)%vdis_bottles+ data%State%RAM(RNUMBER)%fvr_air+ data%State%RAM(RNUMBER)%vdis_elecp      !overal

  1206.         !write(*,*)  'data%State%RAM(RNUMBER)%vdis_tot=' , data%State%RAM(RNUMBER)%vdis_tot!, vdis_bottles,fvr_air, vdis_elecp      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  1207. 

  1208.         !write(*,*) 'a)IDAnnular=' , IDAnnular

  1209.         !    WRITE(*,*) 'a)NeededVolumeAnnular=' , NeededVolumeAnnular

  1210.         !    

  1211.         !    write(*,*) 'AbopAnnular= ' , AbopAnnular

  1212.         !    write(*,*) 'max=' , max(ODDrillpipe_inAnnular,ODDrillpipe_inAnnularBase)  

  1213. 

  1214. !if (ramtype==4) then    !for annular

  1215.      if (data%State%Annular%AnnularIsClosing) then

  1216.         data%State%Annular%IDAnnular=(2.*(data%State%Annular%NeededVolumeAnnular- data%State%RAM(RNUMBER)%vdis_tot)*231./data%State%Annular%AbopAnnular)+max(data%State%Annular%ODDrillpipe_inAnnular,data%State%Annular%ODDrillpipe_inAnnularBase)  

  1217.         !write(*,*) 'b)IDAnnular=' , IDAnnular

  1218.      endif

  1219.      

  1220.      if (data%State%Annular%AnnularIsOpening) then

  1221.         data%State%Annular%IDAnnular=data%State%Annular%IDAnnularBase-2.*(data%State%Annular%NeededVolumeAnnular- data%State%RAM(RNUMBER)%vdis_tot)*231./data%State%Annular%AbopAnnular

  1222.      endif

  1223. 

  1224.      if ( data%State%RAM(RNUMBER)%vdis_tot>data%State%Annular%NeededVolumeAnnular) then

  1225. 

  1226.               data%State%Annular%Annular_closed=1

  1227.               !Annular_closed_withPossibility= Annular_closed * TD_BOPConnectionPossibility(1)

  1228.               !pram_reg=pram_reg+minloss_ANNULAR(17)

  1229.             data%State%Annular%Pannular_reg= data%State%Annular%Pannular_reg+data%State%AnnularComputational%minloss_ANNULAR(17)               

  1230. 

  1231.               data%State%RamLine%P_ACC= data%State%RAM(RNUMBER)%p_acccheck

  1232.            if (data%State%Annular%AnnularIsClosing) then

  1233.                

  1234.               data%State%Annular%IDAnnular=max(data%State%Annular%ODDrillpipe_inAnnular,data%State%Annular%ODDrillpipe_inAnnularBase)      

  1235.               data%Equipments%BopControlPanel%AnnularCloseLED = LedOn

  1236.               data%State%BopStackInput%AnnularCloseLedMine = LedOn

  1237.               

  1238.               data%Equipments%BopControlPanel%AnnularOpenLED = LedOff

  1239.               data%State%BopStackInput%AnnularOpenLedMine = LedOff

  1240.               

  1241.               if (data%State%TD_BOP%BOPConnectionPossibility(1) == 1) then

  1242.                   CALL CloseAnnular

  1243.                   data%State%Annular%Annular_Situation_forTD= 1       ! closed - for TD code

  1244.               endif

  1245.            endif

  1246.            

  1247.            

  1248.      

  1249.           if (data%State%Annular%AnnularIsOpening) then

  1250.               

  1251.               data%State%Annular%IDAnnular=data%State%Annular%IDAnnularBase

  1252.               data%Equipments%BopControlPanel%AnnularOpenLED = LedOn

  1253.               data%State%BopStackInput%AnnularOpenLedMine = LedOn

  1254.               

  1255.               data%Equipments%BopControlPanel%AnnularCloseLED = LedOff

  1256.               data%State%BopStackInput%AnnularCloseLedMine = LedOff

  1257.               

  1258.               CALL OpenAnnular

  1259.               data%State%Annular%Annular_Situation_forTD= 0       ! open - for TD code

  1260.          endif

  1261.     

  1262.      endif 

  1263.      

  1264.         data%State%ShearRAM%IDAnnularFinal= data%State%Annular%IDAnnular       ! for output data

  1265. !endif

  1266. 

  1267. 

  1268.     end