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.
44 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 5908248fa4
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '5908248fa4'
${ noResults }
SimulationCore2/Equipments/BopStack/LOSS_INPUTS.f90

1267 lines
69 KiB
Raw Blame History 

  1.  SUBROUTINE DEALLOCATE_ARRAYS()

  2. use SimulationVariables

  3. implicit none

  4. !===========================================================================

  5. !                   	RAMLINE MINOR LOSSES INPUT

  6. !===========================================================================

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

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

  9. !===========================================================================

  10. !                   	RAMLINE PIPNING LOSSES INPUT

  11. !===========================================================================

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

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

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

  15. !===========================================================================

  16. !                   	ANNULAR MINOR LOSSES INPUT

  17. !===========================================================================

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

  19.             ,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)

  20. !===========================================================================

  21. !                   	ANNULAR PIPNING LOSSES INPUT

  22. !=========================================================================== 

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

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

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

  26. !===========================================================================

  27. !                   	AIR PUMP LOSSES INPUT

  28. !===========================================================================  

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

  30.             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,  &

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

  32.    !================================================================ 

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

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

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

  36.  

  37. !===========================================================================

  38. !                   	DELAY ARRAYS

  39. !===========================================================================  

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

  41. 

  42. 

  43. 

  44.     END

  45. 

  46. 

  47. 

  48. 

  49. 

  50. 

  51. 

  52.     

  53.     

  54.     

  55.     

  56. SUBROUTINE LOSS_INPUTS()

  57. use SimulationVariables

  58. implicit none

  59. INTEGER I

  60. 

  61. !===========================================================================

  62. !                   	RAMLINE MINOR LOSSES INPUT

  63. !===========================================================================

  64. data%State%RamLine%NO_MINORSRAMLINE=34

  65. 

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

  67. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  103. 

  104. 

  105. 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)  &

  106.             ,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))

  107. 

  108. 

  109. 

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

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

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

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

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

  115.     

  116.     

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

  118. ENDDO

  119.     

  120. 

  121. !===========================================================================

  122. !                   	RAMLINE PIPNING LOSSES INPUT

  123. !===========================================================================

  124. data%State%RamLine%NO_PIPINGSRAMLINE=15

  125. 

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

  127. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  144. 

  145. 

  146. 

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

  148.             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)   &

  149.             ,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))

  150. 

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

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

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

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

  155.     

  156.     

  157.     

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

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

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

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

  162. ENDDO

  163.   

  164. 

  165. 

  166. !===========================================================================

  167. !                   	ANNULAR PREVENTER MINOR LOSSES INPUT

  168. !===========================================================================

  169. data%State%AnnularComputational%NO_MinorsAnnularLine=29

  170. 

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

  172. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  203. 

  204. 

  205. 

  206.  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)  &

  207.             ,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))

  208. 

  209. 

  210. 

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

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

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

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

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

  216.     

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

  218. ENDDO

  219.    

  220. 

  221. !===========================================================================

  222. !                   ANNULAR PREVENTER PIPNING LOSSES INPUT

  223. !===========================================================================

  224. data%State%AnnularComputational%NO_PipingsAnnularLine=10

  225. 

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

  227. 

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

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

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

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

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

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

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

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

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

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

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

  239. 

  240. 

  241. 

  242. 

  243.  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)  &

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

  245.             ,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))

  246. 

  247. 

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

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

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

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

  252.     

  253.     

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

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

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

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

  258.     ENDDO

  259. 

  260. 

  261. !===========================================================================

  262. !                   	AIR PUMP LOSSES INPUT

  263. !===========================================================================  

  264. data%State%RamLine%NO_PIPINGS_AIRPLINE=1

  265. 

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

  267. 

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

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

  270.  

  271. 

  272. 

  273.   

  274.   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),  &

  275.             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),  &

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

  277. 

  278. 

  279. 

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

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

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

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

  284.     

  285.     

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

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

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

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

  290.     ENDDO

  291. 

  292. 

  293.     

  294.    !================================================================ 

  295. data%State%RamLine%NO_MINORS_AIRPLINE=6

  296. 

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

  298. 

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

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

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

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

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

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

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

  306.   

  307. 

  308.     

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

  310.             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) &

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

  312.  

  313. 

  314.  

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

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

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

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

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

  320.     

  321.     

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

  323. ENDDO    

  324.     

  325. 

  326.  

  327.     END

  328.     

  329. SUBROUTINE pumps_charge_bottle()

  330. use SimulationVariables

  331. USE CAccumulatorVariables

  332. USE CBopStackVariables

  333. use CBopControlPanel

  334.     use SimulationVariables

  335. USE CEquipmentsConstants

  336. ! use CSimulationVariables

  337. implicit none

  338. 

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

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

  341.     

  342.     if(data%EquipmentControl%BopControlPanel%ByePassValve == -1.0) then

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

  344.     elseif(data%EquipmentControl%BopControlPanel%ByePassValve == 1.0) then

  345.         data%State%BopStackAcc%ByPassOld= 1.0

  346.     endif

  347. 

  348.     

  349. !=====================================================================

  350. !                       ACCUMULATOR

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

  352. !for charging bottles by the pump

  353. !((((((((IN OUTER LOOP))))))

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

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

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

  357. 

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

  359. 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

  360. 

  361. !=====================================================================

  362. 

  363. 

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

  365. 

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

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

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

  369.         else

  370.             !pram_reg=PRAMS_REGSET

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

  372.         endif

  373.         

  374.         

  375.          !old=pram_reg

  376.          !difference= new-old

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

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

  379.          else

  380.              

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

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

  383.                 else

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

  385.                 endif

  386.         

  387.          endif        

  388.         

  389.         

  390.         

  391.         

  392. 

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

  394. 

  395. 

  396.          !old=pram_reg

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

  398.          !difference= new-old

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

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

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

  402.          else

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

  404.          endif         

  405. 

  406.     endif

  407. 

  408. 

  409.     !Pannular_reg= min(p_acc,Pannular_regset)

  410.     

  411. 

  412.     end

  413.     

  414.     

  415. SUBROUTINE airpump_code()    

  416. use SimulationVariables

  417. use CSounds

  418. implicit none

  419. INTEGER I

  420. 

  421. 

  422. 

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

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

  425. data%State%RamLine%losses_air=10

  426. 

  427. !===================================================================

  428. !                       AIR OPERATED PUMP

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

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

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

  432. ! Qup=QAIR_PUMP;

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

  434.  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)

  435.  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)

  436. 

  437. 

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

  439. 

  440. end do    !returns Qup

  441. 

  442. 

  443.  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

  444. 

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

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

  447. else

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

  449. endif

  450. 

  451. !===================================================================

  452. !                       AIR OPERATED PUMP

  453. !                   Maximator - Model: GX (35)

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

  455. 

  456.  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)

  457.  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)

  458. 

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

  460. 

  461. 

  462. !===========================LOSSES====================================

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

  464. 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)

  465. enddo

  466. 

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

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

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

  470.      else

  471.         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

  472.      endif

  473.      

  474. 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

  475. 

  476.  enddo

  477. 

  478. 

  479. 

  480. 

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

  482. 

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

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

  485.         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)

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

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

  488.         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)

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

  490.     else

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

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

  493.     endif

  494. enddo

  495. 

  496.         

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

  498. 

  499. data%State%RamLine%static_loss1air=0

  500. 

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

  502. !=========================================================================

  503. 

  504. 

  505. 

  506.  end do  !returns correct QAIR_PUMP for 1 counter

  507. 

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

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

  510.    

  511.    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

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

  513.    

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

  515.        data%State%BopStackAcc%SoundKoomeyAirPump= 120.0

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

  517.    else

  518.        data%State%BopStackAcc%SoundKoomeyAirPump= 0.0

  519.    endif

  520.    

  521.    

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

  523.    !  2.0 : two air pumps   60:seconds

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

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

  526.    

  527. 

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

  529. 

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

  531. 

  532. 

  533. !((((((((IN OUTER LOOP))))))

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

  535. 

  536. 

  537. !========================================================

  538. 

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

  540.              !p_acc,diffp_air,losses_air,deltav_air

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

  542. 

  543.     

  544.     end

  545.     

  546.     

  547.     SUBROUTINE bop_code(ramtype,H_RAMBOP,RNUMBER) 

  548.     

  549.     use SimulationVariables

  550.     USE CAccumulatorVariables

  551.     use CBopControlPanel

  552.     use SimulationVariables

  553.     USE CEquipmentsConstants

  554.     ! use CSimulationVariables

  555.     use SimulationVariables !@

  556.     use CUnityOutputs

  557.    implicit none 

  558.     integer ramtype, I

  559.     real H_RAMBOP

  560.     INTEGER RNUMBER

  561.    

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

  563.     

  564. !====================================================

  565. !       BOP back pressure IN PRESENCE OF DP

  566. !====================================================

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

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

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

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

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

  572.      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))

  573. else

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

  575. endif

  576.  

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

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

  579. else

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

  581. endif

  582. 

  583.     endif    

  584.     

  585. !====================================================

  586. !       BOP back pressure without DP

  587. !====================================================    

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

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

  590. ! Q=flow    

  591.     endif 

  592.     

  593.       

  594.     

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

  596. !======================Losses============================

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

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

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

  600. 

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

  602. 

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

  604. 

  605. 

  606. 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)

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

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

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

  610. 

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

  612. !    tclock=clock

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

  614. endif

  615.  !      if (clock==1) continue

  616.        

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

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

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

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

  621. 

  622.     endif

  623. 

  624. !====================Before Regulator=========================

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

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

  627.  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)

  628. 

  629. enddo

  630. 

  631. 

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

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

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

  635.      else

  636. 

  637.          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

  638.      endif

  639. 

  640.  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

  641. 

  642. enddo

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

  644. 

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

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

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

  648.          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)

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

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

  651.          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)

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

  653.     else

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

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

  656.     endif

  657. enddo

  658. 

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

  660.         

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

  662. 

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

  664. 

  665.  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)

  666. !.72 for regulator diameter)

  667. 

  668.  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)

  669. !===================after Regulator======================

  670. ! all in (psi)

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

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

  673. 

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

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

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

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

  678. 

  679.  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)

  680. !=======================================================

  681. 

  682.     if(data%EquipmentControl%BopControlPanel%ByePassValve == -1.0) then

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

  684.     elseif(data%EquipmentControl%BopControlPanel%ByePassValve == 1.0) then

  685.         data%State%BopStackAcc%ByPassOld= 1.0

  686.     endif

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

  688.  

  689. 

  690. !==========================p_regulator======================

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

  692.     

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

  694.          !old=pram_reg

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

  696.          !difference= new-old

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

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

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

  700.          else

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

  702.          endif

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

  704.     else    !(ByPassOld == -1.0) 

  705.          !old=pram_reg

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

  707.          !difference= new-old

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

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

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

  711.          else

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

  713.          endif    

  714.     

  715.     endif

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

  717. 

  718. else

  719.     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

  720. endif

  721. !===========================================================

  722. 

  723. 

  724. !====================Flow Rate calculation==================

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

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

  727. 

  728. 

  729. end do  ! returns correct Q for one timecounter_ram

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

  731. 

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

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

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

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

  736. endif

  737. 

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

  739. 

  740. 

  741. 

  742. !====================p_accumulator for next iterate==================

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

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

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

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

  747. 

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

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

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

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

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

  753. 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

  754. !formula is derived for fvr (galon)

  755. !vdis_bottles=fvr_tot-fvr

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

  757. 

  758.  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)

  759.  

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

  761.   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

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

  763. 

  764.  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

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

  766. 

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

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

  769.         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

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

  771.      endif

  772.      

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

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

  775.      endif

  776.      

  777. 

  778.         

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

  780. 

  781.              data%State%RamLine%ShearBop_closed=1

  782.              !ShearBop_closed_withPossibility= ShearBop_closed * TD_BOPConnectionPossibility(3)

  783.              

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

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

  786. 

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

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

  789.               data%EquipmentControl%BopControlPanel%MiddleRamsCloseLED = LedOn

  790.               data%State%BopStackInput%MiddleRamsCloseLEDMine = LedOn

  791.               data%EquipmentControl%BopControlPanel%MiddleRamsOpenLED = LedOff

  792.               data%State%BopStackInput%MiddleRamsOpenLEDMine = LedOff

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

  794.                   CALL CloseMiddleRams

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

  796.               endif

  797.           endif

  798.      

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

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

  801.              data%EquipmentControl%BopControlPanel%MiddleRamsOpenLED = LedOn

  802.              data%State%BopStackInput%MiddleRamsOpenLEDMine = LedOn

  803.              data%EquipmentControl%BopControlPanel%MiddleRamsCloseLED = LedOff

  804.              data%State%BopStackInput%MiddleRamsCloseLEDMine = LedOff

  805.              CALL OpenMiddleRams

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

  807.          endif

  808.     

  809.       endif  

  810.       

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

  812.      

  813. endif

  814. 

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

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

  817.         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)   

  818.      endif

  819.      

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

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

  822.      endif

  823. 

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

  825. 

  826.               data%State%PipeRam1%closed=1

  827.               !PipeRam1_Situation_forTD= PipeRam1_closed * TD_BOPConnectionPossibility(2)

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

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

  830. 

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

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

  833.               data%EquipmentControl%BopControlPanel%UpperRamsCloseLED = LedOn

  834.               data%State%BopStackInput%UpperRamsCloseLEDMine = LedOn

  835.               data%EquipmentControl%BopControlPanel%UpperRamsOpenLED = LedOff

  836.               data%State%BopStackInput%UpperRamsOpenLEDMine = LedOff

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

  838.                   CALL CloseUpperRams       ! for C code

  839.                   call Set_BlowoutFromAnnular(.true.) 

  840. 

  841.  

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

  843.               endif

  844.           endif

  845.      

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

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

  848.               data%EquipmentControl%BopControlPanel%UpperRamsOpenLED = LedOn

  849.               data%State%BopStackInput%UpperRamsOpenLEDMine = LedOn

  850.               data%EquipmentControl%BopControlPanel%UpperRamsCloseLED = LedOff

  851.               data%State%BopStackInput%UpperRamsCloseLEDMine = LedOff

  852.               Call OpenUpperRams       ! for C code

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

  854.          endif

  855.     

  856.      endif 

  857.      

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

  859. 

  860. endif

  861. 

  862. 

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

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

  865.         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)   

  866.      endif

  867.      

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

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

  870.      endif

  871. 

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

  873. 

  874.               data%State%PipeRam2%closed=1

  875.               !PipeRam2_closed_withPossibility= PipeRam2_closed * TD_BOPConnectionPossibility(4)

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

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

  878. 

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

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

  881.               data%EquipmentControl%BopControlPanel%LowerRamsCloseLED = LedOn

  882.               data%State%BopStackInput%LowerRamsCloseLEDMine = LedOn

  883.               data%EquipmentControl%BopControlPanel%LowerRamsOpenLED = LedOff

  884.               data%State%BopStackInput%LowerRamsOpenLEDMine = LedOff

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

  886.                   CALL CloseLowerRams

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

  888.               endif

  889.           endif

  890.      

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

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

  893.               data%EquipmentControl%BopControlPanel%LowerRamsOpenLED = LedOn

  894.               data%State%BopStackInput%LowerRamsOpenLEDMine = LedOn

  895.               data%EquipmentControl%BopControlPanel%LowerRamsCloseLED = LedOff

  896.               data%State%BopStackInput%LowerRamsCloseLEDMine = LedOff

  897.               CALL OpenLowerRams

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

  899.          endif

  900.     

  901.      endif  

  902.      

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

  904. 

  905. endif

  906. 

  907. 

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

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

  910.         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)  

  911.      endif

  912.      

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

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

  915.      endif

  916. 

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

  918. 

  919.               data%State%ChokeLine%closed=1

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

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

  922. 

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

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

  925.               data%EquipmentControl%BopControlPanel%ChokeLineCloseLED = LedOn

  926.               data%State%BopStackInput%ChokeLineCloseLEDMine = LedOn

  927.               data%EquipmentControl%BopControlPanel%ChokeLineOpenLED = LedOff

  928.               data%State%BopStackInput%ChokeLineOpenLEDMine = LedOff

  929.               CALL CloseChokeLine

  930.           endif

  931.      

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

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

  934.               data%EquipmentControl%BopControlPanel%ChokeLineOpenLED = LedOn

  935.               data%State%BopStackInput%ChokeLineOpenLEDMine = LedOn

  936.               data%EquipmentControl%BopControlPanel%ChokeLineCloseLED = LedOff

  937.               data%State%BopStackInput%ChokeLineCloseLEDMine = LedOff

  938.               CALL OpenChokeLine

  939.          endif

  940.     

  941.      endif  

  942. 

  943. endif

  944. 

  945. 

  946. 

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

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

  949.         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)  

  950.      endif

  951.      

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

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

  954.      endif

  955. 

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

  957. 

  958.               data%State%KillLine%closed=1

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

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

  961. 

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

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

  964.               data%EquipmentControl%BopControlPanel%KillLineCloseLED = LedOn

  965.               data%State%BopStackInput%KillLineCloseLedMine = LedOn

  966.               data%EquipmentControl%BopControlPanel%KillLineOpenLED = LedOff

  967.               data%State%BopStackInput%KillLineOpenLedMine = LedOff

  968.               CALL CloseKillLine

  969.           endif

  970.      

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

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

  973.               data%EquipmentControl%BopControlPanel%KillLineOpenLED = LedOn

  974.               data%State%BopStackInput%KillLineOpenLedMine = LedOn

  975.               data%EquipmentControl%BopControlPanel%KillLineCloseLED = LedOff

  976.               data%State%BopStackInput%KillLineCloseLedMine = LedOff

  977.               CALL OpenKillLine

  978.          endif

  979.     

  980.      endif  

  981. 

  982. endif

  983. 

  984. 

  985. 

  986. 

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

  988. !     if (AnnularIsClosing) then

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

  990. !     endif

  991. !     

  992. !     if (AnnularIsOpening) then

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

  994. !     endif

  995. !

  996. !     if (vdis_tot>NeededVolumeAnnular) then

  997. !

  998. !              Annular_closed=1

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

  1000. !

  1001. !           if (AnnularIsClosing) then

  1002. !              IDAnnular=ODDrillpipe_inAnnular       

  1003. !              AnnularCloseLed = LedOn

  1004. !              AnnularOpenLed = LedOff

  1005. !          endif

  1006. !     

  1007. !          if (AnnularIsOpening) then

  1008. !              IDAnnular=IDAnnularBase

  1009. !              AnnularOpenLed = LedOn

  1010. !              AnnularCloseLed = LedOff        

  1011. !         endif

  1012. !    

  1013. !     endif  

  1014. !

  1015. !endif

  1016. 

  1017. 

  1018.     end

  1019.     

  1020.     

  1021.    

  1022.     SUBROUTINE bop_codeAnnular(RNUMBER) 

  1023.     

  1024.     use SimulationVariables 

  1025.     use CBopControlPanel

  1026.     use SimulationVariables

  1027.     USE CEquipmentsConstants

  1028.     use SimulationVariables !@

  1029. implicit none

  1030. INTEGER RNUMBER, I

  1031. 

  1032. 

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

  1034.     

  1035. !====================================================

  1036. !       BOP back pressure without DP

  1037. !====================================================    

  1038. !if (bop_type==3) then 

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

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

  1041. !    Q=flow    

  1042. !    endif 

  1043.     

  1044.       

  1045.     

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

  1047. !======================Losses============================

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

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

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

  1051. 

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

  1053. 

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

  1055. 

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

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

  1058. 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)

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

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

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

  1062. 

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

  1064. !    tclock=clock

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

  1066. endif

  1067.  !      if (clock==1) continue

  1068.        

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

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

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

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

  1073. 

  1074.     endif

  1075. 

  1076. !====================Before Regulator=========================

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

  1078. 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)

  1079. 

  1080. enddo

  1081. 

  1082. 

  1083. 

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

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

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

  1087.      else

  1088. 

  1089.         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

  1090.      endif

  1091. 

  1092. 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

  1093. 

  1094. enddo

  1095. 

  1096. 

  1097. 

  1098. 

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

  1100. 

  1101. 

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

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

  1104.         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)

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

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

  1107.         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)

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

  1109.     else

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

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

  1112.     endif

  1113. enddo

  1114. 

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

  1116.         

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

  1118. 

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

  1120. 

  1121.  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)

  1122. !.72 for regulator diameter)

  1123. 

  1124.  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)

  1125. !===================after Regulator======================

  1126. ! all in (psi)

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

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

  1129. 

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

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

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

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

  1134. 

  1135.  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)

  1136. !=======================================================

  1137. 

  1138. 

  1139. 

  1140. !==========================p_regulator======================

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

  1142.     

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

  1144.             ! 

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

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

  1147.             !Pannular_reg= Pannular_regDelay%Last()

  1148.             

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

  1150. 

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

  1152. else

  1153.     

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

  1155.             ! 

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

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

  1158.             !Pannular_reg= Pannular_regDelay%Last()

  1159.             

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

  1161. 

  1162. endif

  1163. !===========================================================

  1164. 

  1165. 

  1166. !====================Flow Rate calculation==================

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

  1168. 

  1169. 

  1170. 

  1171. 

  1172. 

  1173. end do  ! returns correct Q for one timecounter_ram

  1174. 

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

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

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

  1178. endif

  1179. 

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

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

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

  1183. !====================p_accumulator for next iterate==================

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

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

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

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

  1188. 

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

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

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

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

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

  1194. 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

  1195. !formula is derived for fvr (galon)

  1196. !vdis_bottles=fvr_tot-fvr

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

  1198. 

  1199.  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)

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

  1201.   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

  1202. 

  1203. 

  1204.  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

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

  1206. 

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

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

  1209.         !    

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

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

  1212. 

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

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

  1215.         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)  

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

  1217.      endif

  1218.      

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

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

  1221.      endif

  1222. 

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

  1224. 

  1225.               data%State%Annular%Annular_closed=1

  1226.               !Annular_closed_withPossibility= Annular_closed * TD_BOPConnectionPossibility(1)

  1227.               !pram_reg=pram_reg+minloss_ANNULAR(17)

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

  1229. 

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

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

  1232.                

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

  1234.               data%EquipmentControl%BopControlPanel%AnnularCloseLED = LedOn

  1235.               data%State%BopStackInput%AnnularCloseLedMine = LedOn

  1236.               

  1237.               data%EquipmentControl%BopControlPanel%AnnularOpenLED = LedOff

  1238.               data%State%BopStackInput%AnnularOpenLedMine = LedOff

  1239.               

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

  1241.                   CALL CloseAnnular

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

  1243.               endif

  1244.            endif

  1245.            

  1246.            

  1247.      

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

  1249.               

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

  1251.               data%EquipmentControl%BopControlPanel%AnnularOpenLED = LedOn

  1252.               data%State%BopStackInput%AnnularOpenLedMine = LedOn

  1253.               

  1254.               data%EquipmentControl%BopControlPanel%AnnularCloseLED = LedOff

  1255.               data%State%BopStackInput%AnnularCloseLedMine = LedOff

  1256.               

  1257.               CALL OpenAnnular

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

  1259.          endif

  1260.     

  1261.      endif 

  1262.      

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

  1264. !endif

  1265. 

  1266. 

  1267.     end