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

1264 lines
55 KiB
Raw Blame History 

  1.  SUBROUTINE DEALLOCATE_ARRAYS()

  2. USE VARIABLES

  3. implicit none

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

  5. !                   	RAMLINE MINOR LOSSES INPUT

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

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

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

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

  10. !                   	RAMLINE PIPNING LOSSES INPUT

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

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

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

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

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

  16. !                   	ANNULAR MINOR LOSSES INPUT

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

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

  19.             ,AnnularComputational%LF_ANNULARLINE,AnnularComputational%CV_ANNULARLINE,AnnularComputational%NOTE_ANNULARLINE,AnnularComputational%minlosspa_ANNULAR,AnnularComputational%minloss_ANNULAR)

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

  21. !                   	ANNULAR PIPNING LOSSES INPUT

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

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

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

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

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

  27. !                   	AIR PUMP LOSSES INPUT

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

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

  30.             RamLine%Re_air,RamLine%AREA_AIR,RamLine%LENGT_AIR,RamLine%ROUGHNESS_AIRPLINE,RamLine%REL_ROUGHAIR,  &

  31.            RamLine%fric_air,RamLine%fricloss_air)

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

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

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

  35.             ,RamLine%minlosspa_air,RamLine%minloss_air)  

  36.  

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

  38. !                   	DELAY ARRAYS

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

  40. call 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 VARIABLES

  58. implicit none

  59. INTEGER I

  60. 

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

  62. !                   	RAMLINE MINOR LOSSES INPUT

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

  64. RamLine%NO_MINORSRAMLINE=34

  65. 

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

  67. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  103. 

  104. 

  105. ALLOCATE (RamLine%MINORDIAMETER_RAMLINE(RamLine%NO_MINORSRAMLINE),RamLine%AREAMINOR_RAMLINE(RamLine%NO_MINORSRAMLINE),RamLine%LF_RAMLINE(RamLine%NO_MINORSRAMLINE),RamLine%CV_RAMLINE(RamLine%NO_MINORSRAMLINE)  &

  106.             ,RamLine%NOTE_RAMLINE(RamLine%NO_MINORSRAMLINE),RAMS%minlosspa(6,RamLine%NO_MINORSRAMLINE),RAMS%minloss(6,RamLine%NO_MINORSRAMLINE))

  107. 

  108. 

  109. 

  110. DO I=1,RamLine%NO_MINORSRAMLINE

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

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

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

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

  115.     

  116.     

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

  118. ENDDO

  119.     

  120. 

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

  122. !                   	RAMLINE PIPNING LOSSES INPUT

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

  124. RamLine%NO_PIPINGSRAMLINE=15

  125. 

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

  127. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  144. 

  145. 

  146. 

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

  148.             RamLine%AREA_RAMLINE(RamLine%NO_PIPINGSRAMLINE),RamLine%LENGT_RAMLINE(RamLine%NO_PIPINGSRAMLINE),RamLine%ROUGHNESS_RAMLINE(RamLine%NO_PIPINGSRAMLINE),RamLine%RELROUGH_RAMLINE(RamLine%NO_PIPINGSRAMLINE)   &

  149.             ,RAMS%Re_ramline(6,RamLine%NO_PIPINGSRAMLINE),RAMS%fric(6,RamLine%NO_PIPINGSRAMLINE),RAMS%fricloss(6,RamLine%NO_PIPINGSRAMLINE))

  150. 

  151. DO I=1,RamLine%NO_PIPINGSRAMLINE

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

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

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

  155.     

  156.     

  157.     

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

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

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

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

  162. ENDDO

  163.   

  164. 

  165. 

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

  167. !                   	ANNULAR PREVENTER MINOR LOSSES INPUT

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

  169. AnnularComputational%NO_MinorsAnnularLine=29

  170. 

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

  172. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  203. 

  204. 

  205. 

  206.  ALLOCATE (AnnularComputational%MINORDIAMETER_ANNULARLINE(AnnularComputational%NO_MinorsAnnularLine),AnnularComputational%AREAMINOR_ANNULARLINE(AnnularComputational%NO_MinorsAnnularLine),AnnularComputational%LF_ANNULARLINE(AnnularComputational%NO_MinorsAnnularLine)  &

  207.             ,AnnularComputational%CV_ANNULARLINE(AnnularComputational%NO_MinorsAnnularLine),AnnularComputational%NOTE_ANNULARLINE(AnnularComputational%NO_MinorsAnnularLine),AnnularComputational%minlosspa_ANNULAR(AnnularComputational%NO_MinorsAnnularLine),AnnularComputational%minloss_ANNULAR(AnnularComputational%NO_MinorsAnnularLine))

  208. 

  209. 

  210. 

  211. DO I=1,AnnularComputational%NO_MinorsAnnularLine

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

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

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

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

  216.     

  217.     AnnularComputational%AREAMINOR_ANNULARLINE(I)=PI*(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. AnnularComputational%NO_PipingsAnnularLine=10

  225. 

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

  227. 

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

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

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

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

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

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

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

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

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

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

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

  239. 

  240. 

  241. 

  242. 

  243.  ALLOCATE (AnnularComputational%DIAM_ANNULARLINE_INCH(AnnularComputational%NO_PipingsAnnularLine),AnnularComputational%AREA_ANNULARLINE(AnnularComputational%NO_PipingsAnnularLine),AnnularComputational%LENGT_ANNULARLINE(AnnularComputational%NO_PipingsAnnularLine)  &

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

  245.             ,AnnularComputational%Re_ANNULARline(AnnularComputational%NO_PipingsAnnularLine),AnnularComputational%fricANNULAR(AnnularComputational%NO_PipingsAnnularLine),AnnularComputational%friclossANNULAR(AnnularComputational%NO_PipingsAnnularLine))

  246. 

  247. 

  248. DO I=1,AnnularComputational%NO_PipingsAnnularLine

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

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

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

  252.     

  253.     

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

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

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

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

  258.     ENDDO

  259. 

  260. 

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

  262. !                   	AIR PUMP LOSSES INPUT

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

  264. RamLine%NO_PIPINGS_AIRPLINE=1

  265. 

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

  267. 

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

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

  270.  

  271. 

  272. 

  273.   

  274.   ALLOCATE (RamLine%DIAM_AIR_INCH(RamLine%NO_PIPINGS_AIRPLINE),RamLine%Re_air(RamLine%NO_PIPINGS_AIRPLINE),RamLine%AREA_AIR(RamLine%NO_PIPINGS_AIRPLINE),  &

  275.             RamLine%LENGT_AIR(RamLine%NO_PIPINGS_AIRPLINE),RamLine%ROUGHNESS_AIRPLINE(RamLine%NO_PIPINGS_AIRPLINE),RamLine%REL_ROUGHAIR(RamLine%NO_PIPINGS_AIRPLINE),  &

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

  277. 

  278. 

  279. 

  280. DO I=1,RamLine%NO_PIPINGS_AIRPLINE

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

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

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

  284.     

  285.     

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

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

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

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

  290.     ENDDO

  291. 

  292. 

  293.     

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

  295. RamLine%NO_MINORS_AIRPLINE=6

  296. 

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

  298. 

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

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

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

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

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

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

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

  306.   

  307. 

  308.     

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

  310.             RamLine%LF_AIR(RamLine%NO_MINORS_AIRPLINE),RamLine%CV_AIR(RamLine%NO_MINORS_AIRPLINE),RamLine%NOTE_AIR(RamLine%NO_MINORS_AIRPLINE) &

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

  312.  

  313. 

  314.  

  315. DO I=1,RamLine%NO_MINORS_AIRPLINE

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

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

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

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

  320.     

  321.     

  322.     RamLine%MINORAREA_AIR(I)=PI*(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 VARIABLES

  331. USE CAccumulatorVariables

  332. USE CBopStackVariables

  333. USE CBopControlPanelVariables

  334. USE CEquipmentsConstants

  335. ! use CSimulationVariables

  336. implicit none

  337. 

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

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

  340.     

  341.     if(BopControlPanel%ByePassValve == -1.0) then

  342.         BopStackAcc%ByPassOld= -1.0

  343.     elseif(BopControlPanel%ByePassValve == 1.0) then

  344.         BopStackAcc%ByPassOld= 1.0

  345.     endif

  346. 

  347.     

  348. !=====================================================================

  349. !                       ACCUMULATOR

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

  351. !for charging bottles by the pump

  352. !((((((((IN OUTER LOOP))))))

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

  354. if (RamLine%AIRP_SWITCH==0) Pumps%DELTAV_AIR=0

  355. RamLine%FVR=RamLine%FVR+Pumps%DELTAV_AIR+Pumps%DELTAV_ELECP

  356. 

  357. RamLine%pacc_before=RamLine%P_ACC

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

  359. 

  360. !=====================================================================

  361. 

  362. 

  363.     if(BopStackAcc%ByPassOld == 1.0) then

  364. 

  365.         if (BopStackAcc%pram_reg<BopStackAcc%PRAMS_REGSET) then

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

  367.             BopStackAcc%PressureDifference= (RamLine%P_ACC-RamLine%pacc_before)

  368.         else

  369.             !pram_reg=PRAMS_REGSET

  370.             BopStackAcc%PressureDifference= BopStackAcc%PRAMS_REGSET - BopStackAcc%pram_reg

  371.         endif

  372.         

  373.         

  374.          !old=pram_reg

  375.          !difference= new-old

  376.          if (ABS(BopStackAcc%PressureDifference) > BaseDifferenceP) then

  377.              BopStackAcc%pram_reg= BopStackAcc%pram_reg + (BopStackAcc%PressureDifference/PressureDifferenceSteps)      ! PressureDifferenceSteps = 20.

  378.          else

  379.              

  380.                 if (BopStackAcc%pram_reg<BopStackAcc%PRAMS_REGSET) then

  381.                     BopStackAcc%pram_reg=BopStackAcc%pram_reg+(RamLine%P_ACC-RamLine%pacc_before)

  382.                 else

  383.                     BopStackAcc%pram_reg=BopStackAcc%PRAMS_REGSET

  384.                 endif

  385.         

  386.          endif        

  387.         

  388.         

  389.         

  390.         

  391. 

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

  393. 

  394. 

  395.          !old=pram_reg

  396.          !new=p_acc- MAXVAL(RAM%loss_before)

  397.          !difference= new-old

  398.          BopStackAcc%PressureDifference= RamLine%P_ACC- MAXVAL(RAM%loss_before) - BopStackAcc%pram_reg

  399.          if (ABS(BopStackAcc%PressureDifference) > BaseDifferenceP) then

  400.              BopStackAcc%pram_reg= BopStackAcc%pram_reg + (BopStackAcc%PressureDifference/PressureDifferenceSteps)      ! PressureDifferenceSteps = 20.

  401.          else

  402.             BopStackAcc%pram_reg= RamLine%P_ACC- MAXVAL(RAM%loss_before)

  403.          endif         

  404. 

  405.     endif

  406. 

  407. 

  408.     !Pannular_reg= min(p_acc,Pannular_regset)

  409.     

  410. 

  411.     end

  412.     

  413.     

  414. SUBROUTINE airpump_code()    

  415. USE VARIABLES

  416. use CSounds

  417. implicit none

  418. INTEGER I

  419. 

  420. 

  421. 

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

  423. RamLine%diffp_air=-10

  424. RamLine%losses_air=10

  425. 

  426. !===================================================================

  427. !                       AIR OPERATED PUMP

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

  429. do while (RamLine%diffp_air<0)

  430.  Pumps%QAIR=Pumps%QAIR-.1

  431. ! Qup=QAIR_PUMP;

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

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

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

  435. 

  436. 

  437.  RamLine%diffp_air=Pumps%P_AIRP+RamLine%kinetic_air-RamLine%P_ACC

  438. 

  439. end do    !returns Qup

  440. 

  441. 

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

  443. 

  444. if (RamLine%diffp_air-RamLine%losses_air>0) then

  445.     Pumps%QAIR=Pumps%QAIR+.01

  446. else

  447.     Pumps%QAIR=Pumps%QAIR-.01

  448. endif

  449. 

  450. !===================================================================

  451. !                       AIR OPERATED PUMP

  452. !                   Maximator - Model: GX (35)

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

  454. 

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

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

  457. 

  458.  RamLine%diffp_air=Pumps%P_AIRP+RamLine%kinetic_air-RamLine%P_ACC

  459. 

  460. 

  461. !===========================LOSSES====================================

  462.  do i=1,RamLine%NO_PIPINGS_AIRPLINE

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

  464. enddo

  465. 

  466. do i=1,RamLine%NO_PIPINGS_AIRPLINE

  467.      if (RamLine%Re_air(i)<Re_cr) then

  468.          RamLine%fric_air(i)=64/RamLine%Re_air(i)

  469.      else

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

  471.      endif

  472.      

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

  474. 

  475.  enddo

  476. 

  477. 

  478. 

  479. 

  480. RamLine%pipe_loss1air=sum(RamLine%fricloss_air)  !loss before regulator(psi)

  481. 

  482. do i=1,RamLine%NO_MINORS_AIRPLINE

  483.     if (RamLine%LF_AIR(i)/=0) then

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

  485.         RamLine%minloss_air(i)=RamLine%minlosspa_air(i)/6895 !(psi)

  486.     elseif (RamLine%CV_AIR(i)/=0) then

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

  488.         RamLine%minloss_air(i)=RamLine%minlosspa_air(i)/6895 !(psi)

  489.     else

  490.         RamLine%minlosspa_air(i)=RamLine%NOTE_AIR(i)*1e5 !(pa)

  491.         RamLine%minloss_air(i)=RamLine%minlosspa_air(i)/6895 !(psi)

  492.     endif

  493. enddo

  494. 

  495.         

  496. RamLine%minor_loss1air=sum(RamLine%minloss_air)  !loss before regulator(psi)

  497. 

  498. RamLine%static_loss1air=0

  499. 

  500. RamLine%losses_air=RamLine%pipe_loss1air+RamLine%minor_loss1air+RamLine%static_loss1air !(psi)

  501. !=========================================================================

  502. 

  503. 

  504. 

  505.  end do  !returns correct QAIR_PUMP for 1 counter

  506. 

  507. RamLine%counter_airp=RamLine%counter_airp+1 

  508.    Pumps%Qiter=Pumps%QAIR

  509.    

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

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

  512.    

  513.    if ( BopStackAcc%Cumulative_AirVolume > 1.0 ) then

  514.        BopStackAcc%SoundKoomeyAirPump= 120.0

  515.        BopStackAcc%Cumulative_AirVolume= BopStackAcc%Cumulative_AirVolume - 1.0

  516.    else

  517.        BopStackAcc%SoundKoomeyAirPump= 0.0

  518.    endif

  519.    

  520.    

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

  522.    !  2.0 : two air pumps   60:seconds

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

  524.    call SetSoundKoomeyAirPump(BopStackAcc%SoundKoomeyAirPump)

  525.    

  526. 

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

  528. 

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

  530. 

  531. 

  532. !((((((((IN OUTER LOOP))))))

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

  534. 

  535. 

  536. !========================================================

  537. 

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

  539.              !p_acc,diffp_air,losses_air,deltav_air

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

  541. 

  542.     

  543.     end

  544.     

  545.     

  546.     SUBROUTINE bop_code(ramtype,H_RAMBOP,RNUMBER) 

  547.     

  548.     USE VARIABLES

  549.     USE CAccumulatorVariables

  550.     USE CBopControlPanelVariables

  551.     USE CEquipmentsConstants

  552.     ! use CSimulationVariables

  553.     USE TD_GeneralData

  554.     use CUnityOutputs

  555.    implicit none 

  556.     integer ramtype, I

  557.     real H_RAMBOP

  558.     INTEGER RNUMBER

  559.    

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

  561.     

  562. !====================================================

  563. !       BOP back pressure IN PRESENCE OF DP

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

  565. if (RAM(RNUMBER)%bop_type==2) then

  566.      RAM(RNUMBER)%checkp= RAM(RNUMBER)%p_bop

  567. if ( RAM(RNUMBER)%vdis_tot<ShearRam%VA) then

  568.      RAM(RNUMBER)%p_bop=ShearRam%PA

  569. elseif (ShearRam%VA<= RAM(RNUMBER)%vdis_tot .and.  RAM(RNUMBER)%vdis_tot<=ShearRam%VB) then

  570.      RAM(RNUMBER)%p_bop=ShearRam%PA+ShearRam%PB*(( RAM(RNUMBER)%vdis_tot-ShearRam%VA)/(ShearRam%VB-ShearRam%VA))

  571. else

  572.      RAM(RNUMBER)%p_bop=ShearRam%PA

  573. endif

  574.  

  575. if ( RAM(RNUMBER)%checkp/=ShearRam%PA .and.  RAM(RNUMBER)%p_bop==ShearRam%PA) then

  576.     RAM(RNUMBER)%Q=RAM(RNUMBER)%Qzero

  577. else

  578.  RAM(RNUMBER)%Q=RAM(RNUMBER)%flow

  579. endif

  580. 

  581.     endif    

  582.     

  583. !====================================================

  584. !       BOP back pressure without DP

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

  586. if (RAM(RNUMBER)%bop_type==3) then 

  587.      RAM(RNUMBER)%p_bop=ShearRam%PA

  588. ! Q=flow    

  589.     endif 

  590.     

  591.       

  592.     

  593.  RAM(RNUMBER)%clock=0

  594. !======================Losses============================

  595.  RAM(RNUMBER)%loss_after=0 !initial value

  596.  RAM(RNUMBER)%diffp_ram=1000  !initial value

  597.  RAM(RNUMBER)%loss_before=0

  598. 

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

  600. 

  601.  RAM(RNUMBER)%Q=RAM(RNUMBER)%flow

  602. 

  603. 

  604. do while (abs( RAM(RNUMBER)%diffp_ram- RAM(RNUMBER)%loss_after)/ RAM(RNUMBER)%diffp_ram>RAM(RNUMBER)%tol)

  605.     if (RAM(RNUMBER)%Bottles_Charged_MalfActive==.true.) exit

  606. ! while abs( RAM(RNUMBER)%diffp_ram- RAM(RNUMBER)%loss_after)>10

  607.  RAM(RNUMBER)%clock= RAM(RNUMBER)%clock+1

  608. 

  609. if ( RAM(RNUMBER)%clock>20) then

  610. !    tclock=clock

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

  612. endif

  613.  !      if (clock==1) continue

  614.        

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

  616.         RAM(RNUMBER)%Q=RAM(RNUMBER)%Q-.1

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

  618.         RAM(RNUMBER)%Q=RAM(RNUMBER)%Q+.01

  619. 

  620.     endif

  621. 

  622. !====================Before Regulator=========================

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

  624. do i=1,RamLine%NO_PIPINGSRAMLINE

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

  626. 

  627. enddo

  628. 

  629. 

  630. do i=1,RamLine%NO_PIPINGSRAMLINE

  631.      if ( RAMS%Re_ramline(RNUMBER,i)<Re_cr) then

  632.           RAMS%fric(RNUMBER,i)=64/ RAMS%Re_ramline(RNUMBER,i)

  633.      else

  634. 

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

  636.      endif

  637. 

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

  639. 

  640. enddo

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

  642. 

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

  644. do i=1,RamLine%NO_MINORSRAMLINE

  645.     if (RamLine%LF_RAMLINE(i)/=0) then

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

  647.          RAMS%minloss(RNUMBER,i)= RAMS%minlosspa(RNUMBER,i)/6895 !(psi)

  648.     elseif (RamLine%CV_RAMLINE(i)/=0) then

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

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

  651.     else

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

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

  654.     endif

  655. enddo

  656. 

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

  658.         

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

  660. 

  661.  RAM(RNUMBER)%static_loss1=0

  662. 

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

  664. !.72 for regulator diameter)

  665. 

  666.  RAM(RNUMBER)%loss_before= RAM(RNUMBER)%pipe_loss1+ RAM(RNUMBER)%minor_loss1+ RAM(RNUMBER)%static_loss1+ RAM(RNUMBER)%kinetic_loss1 !(psi)

  667. !===================after Regulator======================

  668. ! all in (psi)

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

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

  671. 

  672.  RAM(RNUMBER)%deltah=H_RAMBOP-ShearRam%H_REGRAM

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

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

  675.  RAM(RNUMBER)%kinetic_loss2=0

  676. 

  677.  RAM(RNUMBER)%loss_after= RAM(RNUMBER)%pipe_loss2+ RAM(RNUMBER)%minor_loss2+ RAM(RNUMBER)%static_loss2 !(psi)

  678. !=======================================================

  679. 

  680.     if(BopControlPanel%ByePassValve == -1.0) then

  681.         BopStackAcc%ByPassOld= -1.0

  682.     elseif(BopControlPanel%ByePassValve == 1.0) then

  683.         BopStackAcc%ByPassOld= 1.0

  684.     endif

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

  686.  

  687. 

  688. !==========================p_regulator======================

  689. if (BopStackAcc%PRAMS_REGSET<RamLine%P_ACC- RAM(RNUMBER)%loss_before) then

  690.     

  691.     if(BopStackAcc%ByPassOld == 1.0)  then  

  692.          !old=pram_reg

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

  694.          !difference= new-old

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

  696.          if (ABS(BopStackAcc%PressureDifference) > BaseDifferenceP) then

  697.              BopStackAcc%pram_reg= BopStackAcc%pram_reg + (BopStackAcc%PressureDifference/PressureDifferenceSteps)      ! PressureDifferenceSteps = 20.

  698.          else

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

  700.          endif

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

  702.     else    !(ByPassOld == -1.0) 

  703.          !old=pram_reg

  704.          !new=p_acc- RAM(RNUMBER)%loss_before

  705.          !difference= new-old

  706.          BopStackAcc%PressureDifference= RamLine%P_ACC- RAM(RNUMBER)%loss_before - BopStackAcc%pram_reg

  707.          if (ABS(BopStackAcc%PressureDifference) > BaseDifferenceP) then

  708.              BopStackAcc%pram_reg= BopStackAcc%pram_reg + (BopStackAcc%PressureDifference/PressureDifferenceSteps)      ! PressureDifferenceSteps = 20.

  709.          else

  710.             BopStackAcc%pram_reg= RamLine%P_ACC- RAM(RNUMBER)%loss_before

  711.          endif    

  712.     

  713.     endif

  714.         !pram_reg=p_acc- RAM(RNUMBER)%loss_before

  715. 

  716. else

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

  718. endif

  719. !===========================================================

  720. 

  721. 

  722. !====================Flow Rate calculation==================

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

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

  725. 

  726. 

  727. end do  ! returns correct Q for one timecounter_ram

  728. !write(*,*)'RAM(RNUMBER)%Q= ' , RAM(RNUMBER)%Q

  729. 

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

  731. if (RAM(RNUMBER)%Bottles_Charged_MalfActive==.true.) then

  732.     RAM(RNUMBER)%Q= 5.0 ! gpm

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

  734. endif

  735. 

  736. RAM(RNUMBER)%flow=RAM(RNUMBER)%Q

  737. 

  738. 

  739. 

  740. !====================p_accumulator for next iterate==================

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

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

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

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

  745. 

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

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

  748. RamLine%FVR=RamLine%FVR- RAM(RNUMBER)%deltav_bottles  !=fvr_after (galon)

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

  750.  RAM(RNUMBER)%p_acccheck=RamLine%P_ACC

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

  752. !formula is derived for fvr (galon)

  753. !vdis_bottles=fvr_tot-fvr

  754.  RAM(RNUMBER)%vdis_bottles= RAM(RNUMBER)%vdis_bottles+ RAM(RNUMBER)%deltav_bottles

  755. 

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

  757.  

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

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

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

  761. 

  762.  RAM(RNUMBER)%vdis_tot= RAM(RNUMBER)%vdis_bottles+ RAM(RNUMBER)%fvr_air+ RAM(RNUMBER)%vdis_elecp      !overal

  763.       !  write(*,*)  RAM(RNUMBER)%vdis_tot, vdis_bottles, RAM(RNUMBER)%fvr_air, vdis_elecp      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  764. 

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

  766.      if (RamLine%ShearRamIsClosing) then

  767.         ShearRam%IDshearBop=(2.*(ShearRam%NeededVolumeShearRams- RAM(RNUMBER)%vdis_tot)*231./ShearRam%AbopShearRam) +ShearRam%ShearIsNotAllowed*ShearRam%ODDrillpipe_inShearRam

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

  769.      endif

  770.      

  771.      if (RamLine%ShearRamIsOpening) then

  772.         ShearRam%IDshearBop=ShearRam%IDshearBopBase-2.*(ShearRam%NeededVolumeShearRams- RAM(RNUMBER)%vdis_tot)*231./ShearRam%AbopShearRam    

  773.      endif

  774.      

  775. 

  776.         

  777.       if ( RAM(RNUMBER)%vdis_tot>ShearRam%NeededVolumeShearRams) then

  778. 

  779.              RamLine%ShearBop_closed=1

  780.              !ShearBop_closed_withPossibility= ShearBop_closed * TD_BOPConnectionPossibility(3)

  781.              

  782.              BopStackAcc%pram_reg=BopStackAcc%pram_reg+RAMS%minloss(RNUMBER,17)

  783.              RamLine%P_ACC= RAM(RNUMBER)%p_acccheck

  784. 

  785.            if (RamLine%ShearRamIsClosing) then

  786.               ShearRam%IDshearBop=0. + ShearRam%ShearIsNotAllowed*ShearRam%ODDrillpipe_inShearRam      

  787.               BopControlPanel%MiddleRamsCloseLED = LedOn

  788.               BopStackInput%MiddleRamsCloseLEDMine = LedOn

  789.               BopControlPanel%MiddleRamsOpenLED = LedOff

  790.               BopStackInput%MiddleRamsOpenLEDMine = LedOff

  791.               if (TD_BOP%BOPConnectionPossibility(3) == 1 .and. ShearRam%ShearIsNotAllowed==0) then

  792.                   CALL CloseMiddleRams

  793.                   RamLine%ShearBop_Situation_forTD= 1       ! closed - for TD code

  794.               endif

  795.           endif

  796.      

  797.           if (RamLine%ShearRamIsOpening) then

  798.              ShearRam%IDshearBop=ShearRam%IDshearBopBase

  799.              BopControlPanel%MiddleRamsOpenLED = LedOn

  800.              BopStackInput%MiddleRamsOpenLEDMine = LedOn

  801.              BopControlPanel%MiddleRamsCloseLED = LedOff

  802.              BopStackInput%MiddleRamsCloseLEDMine = LedOff

  803.              CALL OpenMiddleRams

  804.              RamLine%ShearBop_Situation_forTD= 0       ! open - for TD code

  805.          endif

  806.     

  807.       endif  

  808.       

  809.       ShearRam%IDshearBopFinal= ShearRam%IDshearBop       ! for output data

  810.      

  811. endif

  812. 

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

  814.      if (PipeRam1%IsClosing) then

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

  816.      endif

  817.      

  818.      if (PipeRam1%IsOpening) then

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

  820.      endif

  821. 

  822.      if ( RAM(RNUMBER)%vdis_tot>PipeRam1%NeededVolume) then

  823. 

  824.               PipeRam1%closed=1

  825.               !PipeRam1_Situation_forTD= PipeRam1_closed * TD_BOPConnectionPossibility(2)

  826.               BopStackAcc%pram_reg=BopStackAcc%pram_reg+RAMS%minloss(RNUMBER,17)

  827.               RamLine%P_ACC= RAM(RNUMBER)%p_acccheck

  828. 

  829.            if (PipeRam1%IsClosing) then

  830.               PipeRam1%ID=max(PipeRam1%ODDrillpipe_in,PipeRam1%ODDrillpipe_inBase)       

  831.               BopControlPanel%UpperRamsCloseLED = LedOn

  832.               BopStackInput%UpperRamsCloseLEDMine = LedOn

  833.               BopControlPanel%UpperRamsOpenLED = LedOff

  834.               BopStackInput%UpperRamsOpenLEDMine = LedOff

  835.               if (TD_BOP%BOPConnectionPossibility(2) == 1) then

  836.                   CALL CloseUpperRams       ! for C code

  837.                   call Set_BlowoutFromAnnular(.true.) 

  838. 

  839.  

  840.                   PipeRam1%Situation_forTD= 1       ! closed - for TD code

  841.               endif

  842.           endif

  843.      

  844.           if (PipeRam1%IsOpening) then

  845.               PipeRam1%ID=PipeRam1%IDBase

  846.               BopControlPanel%UpperRamsOpenLED = LedOn

  847.               BopStackInput%UpperRamsOpenLEDMine = LedOn

  848.               BopControlPanel%UpperRamsCloseLED = LedOff

  849.               BopStackInput%UpperRamsCloseLEDMine = LedOff

  850.               Call OpenUpperRams       ! for C code

  851.               PipeRam1%Situation_forTD= 0       ! open - for TD code

  852.          endif

  853.     

  854.      endif 

  855.      

  856.      ShearRam%IDPipeRam1Final= PipeRam1%ID       ! for output data

  857. 

  858. endif

  859. 

  860. 

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

  862.      if (PipeRam2%IsClosing) then

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

  864.      endif

  865.      

  866.      if (PipeRam2%IsOpening) then

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

  868.      endif

  869. 

  870.      if ( RAM(RNUMBER)%vdis_tot>PipeRam2%NeededVolume) then

  871. 

  872.               PipeRam2%closed=1

  873.               !PipeRam2_closed_withPossibility= PipeRam2_closed * TD_BOPConnectionPossibility(4)

  874.               BopStackAcc%pram_reg=BopStackAcc%pram_reg+RAMS%minloss(RNUMBER,17)

  875.               RamLine%P_ACC= RAM(RNUMBER)%p_acccheck

  876. 

  877.            if (PipeRam2%IsClosing) then

  878.               PipeRam2%ID=max(PipeRam2%ODDrillpipe_in,PipeRam1%ODDrillpipe_inBase)       

  879.               BopControlPanel%LowerRamsCloseLED = LedOn

  880.               BopStackInput%LowerRamsCloseLEDMine = LedOn

  881.               BopControlPanel%LowerRamsOpenLED = LedOff

  882.               BopStackInput%LowerRamsOpenLEDMine = LedOff

  883.               if (TD_BOP%BOPConnectionPossibility(4) == 1) then

  884.                   CALL CloseLowerRams

  885.                   PipeRam2%Situation_forTD= 1       ! closed - for TD code

  886.               endif

  887.           endif

  888.      

  889.           if (PipeRam2%IsOpening) then

  890.               PipeRam2%ID=PipeRam1%IDBase

  891.               BopControlPanel%LowerRamsOpenLED = LedOn

  892.               BopStackInput%LowerRamsOpenLEDMine = LedOn

  893.               BopControlPanel%LowerRamsCloseLED = LedOff

  894.               BopStackInput%LowerRamsCloseLEDMine = LedOff

  895.               CALL OpenLowerRams

  896.               PipeRam2%Situation_forTD= 0       ! open - for TD code

  897.          endif

  898.     

  899.      endif  

  900.      

  901.      ShearRam%IDPipeRam2Final= PipeRam2%ID       ! for output data

  902. 

  903. endif

  904. 

  905. 

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

  907.      if (ChokeLine%IsClosing) then

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

  909.      endif

  910.      

  911.      if (ChokeLine%IsOpening) then

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

  913.      endif

  914. 

  915.      if ( RAM(RNUMBER)%vdis_tot>ChokeLine%NeededVolume) then

  916. 

  917.               ChokeLine%closed=1

  918.               BopStackAcc%pram_reg=BopStackAcc%pram_reg+RAMS%minloss(RNUMBER,17)

  919.               RamLine%P_ACC= RAM(RNUMBER)%p_acccheck

  920. 

  921.            if (ChokeLine%IsClosing) then

  922.               ChokeLine%ID=max(ChokeLine%ODDrillpipe_in,ChokeLine%ODDrillpipe_inBase)      

  923.               BopControlPanel%ChokeLineCloseLED = LedOn

  924.               BopStackInput%ChokeLineCloseLEDMine = LedOn

  925.               BopControlPanel%ChokeLineOpenLED = LedOff

  926.               BopStackInput%ChokeLineOpenLEDMine = LedOff

  927.               CALL CloseChokeLine

  928.           endif

  929.      

  930.           if (ChokeLine%IsOpening) then

  931.               ChokeLine%ID=ChokeLine%IDBase

  932.               BopControlPanel%ChokeLineOpenLED = LedOn

  933.               BopStackInput%ChokeLineOpenLEDMine = LedOn

  934.               BopControlPanel%ChokeLineCloseLED = LedOff

  935.               BopStackInput%ChokeLineCloseLEDMine = LedOff

  936.               CALL OpenChokeLine

  937.          endif

  938.     

  939.      endif  

  940. 

  941. endif

  942. 

  943. 

  944. 

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

  946.      if (KillLine%IsClosing) then

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

  948.      endif

  949.      

  950.      if (KillLine%IsOpening) then

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

  952.      endif

  953. 

  954.      if ( RAM(RNUMBER)%vdis_tot>KillLine%NeededVolume) then

  955. 

  956.               KillLine%closed=1

  957.               BopStackAcc%pram_reg=BopStackAcc%pram_reg+RAMS%minloss(RNUMBER,17)

  958.               RamLine%P_ACC= RAM(RNUMBER)%p_acccheck

  959. 

  960.            if (KillLine%IsClosing) then

  961.               KillLine%ID=max(KillLine%ODDrillpipe_in,KillLine%ODDrillpipe_inBase)      

  962.               BopControlPanel%KillLineCloseLED = LedOn

  963.               BopStackInput%KillLineCloseLedMine = LedOn

  964.               BopControlPanel%KillLineOpenLED = LedOff

  965.               BopStackInput%KillLineOpenLedMine = LedOff

  966.               CALL CloseKillLine

  967.           endif

  968.      

  969.           if (KillLine%IsOpening) then

  970.               KillLine%ID=KillLine%IDBase

  971.               BopControlPanel%KillLineOpenLED = LedOn

  972.               BopStackInput%KillLineOpenLedMine = LedOn

  973.               BopControlPanel%KillLineCloseLED = LedOff

  974.               BopStackInput%KillLineCloseLedMine = LedOff

  975.               CALL OpenKillLine

  976.          endif

  977.     

  978.      endif  

  979. 

  980. endif

  981. 

  982. 

  983. 

  984. 

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

  986. !     if (AnnularIsClosing) then

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

  988. !     endif

  989. !     

  990. !     if (AnnularIsOpening) then

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

  992. !     endif

  993. !

  994. !     if (vdis_tot>NeededVolumeAnnular) then

  995. !

  996. !              Annular_closed=1

  997. !              p_acc= RAM(RNUMBER)%p_acccheck

  998. !

  999. !           if (AnnularIsClosing) then

  1000. !              IDAnnular=ODDrillpipe_inAnnular       

  1001. !              AnnularCloseLed = LedOn

  1002. !              AnnularOpenLed = LedOff

  1003. !          endif

  1004. !     

  1005. !          if (AnnularIsOpening) then

  1006. !              IDAnnular=IDAnnularBase

  1007. !              AnnularOpenLed = LedOn

  1008. !              AnnularCloseLed = LedOff        

  1009. !         endif

  1010. !    

  1011. !     endif  

  1012. !

  1013. !endif

  1014. 

  1015. 

  1016.     end

  1017.     

  1018.     

  1019.    

  1020.     SUBROUTINE bop_codeAnnular(RNUMBER) 

  1021.     

  1022.     USE VARIABLES 

  1023.     USE CBopControlPanelVariables

  1024.     USE CEquipmentsConstants

  1025.     USE TD_GeneralData

  1026. implicit none

  1027. INTEGER RNUMBER, I

  1028. 

  1029. 

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

  1031.     

  1032. !====================================================

  1033. !       BOP back pressure without DP

  1034. !====================================================    

  1035. !if (bop_type==3) then 

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

  1037.     AnnularComputational%p_annular=448-(19.7*Annular%IDAnnular)

  1038. !    Q=flow    

  1039. !    endif 

  1040.     

  1041.       

  1042.     

  1043.  RAM(RNUMBER)%clock=0

  1044. !======================Losses============================

  1045.  RAM(RNUMBER)%loss_after=0 !initial value

  1046.  RAM(RNUMBER)%diffp_ram=1000  !initial value

  1047.  RAM(RNUMBER)%loss_before=0

  1048. 

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

  1050. 

  1051.  RAM(RNUMBER)%Q=RAM(RNUMBER)%flow

  1052. 

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

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

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

  1056.     if (RAM(RNUMBER)%Bottles_Charged_MalfActive==.true.) exit

  1057. ! while abs( RAM(RNUMBER)%diffp_ram- RAM(RNUMBER)%loss_after)>10

  1058.  RAM(RNUMBER)%clock= RAM(RNUMBER)%clock+1

  1059. 

  1060. if ( RAM(RNUMBER)%clock>20) then

  1061. !    tclock=clock

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

  1063. endif

  1064.  !      if (clock==1) continue

  1065.        

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

  1067.         RAM(RNUMBER)%Q=RAM(RNUMBER)%Q-.1

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

  1069.         RAM(RNUMBER)%Q=RAM(RNUMBER)%Q+.01

  1070. 

  1071.     endif

  1072. 

  1073. !====================Before Regulator=========================

  1074. do i=1,AnnularComputational%NO_PipingsAnnularLine

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

  1076. 

  1077. enddo

  1078. 

  1079. 

  1080. 

  1081. do i=1,AnnularComputational%NO_PipingsAnnularLine

  1082.      if (AnnularComputational%Re_ANNULARline(i)<Re_cr) then

  1083.          AnnularComputational%fricANNULAR(i)=64/AnnularComputational%Re_ANNULARline(i)

  1084.      else

  1085. 

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

  1087.      endif

  1088. 

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

  1090. 

  1091. enddo

  1092. 

  1093. 

  1094. 

  1095. 

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

  1097. 

  1098. 

  1099. do i=1,AnnularComputational%NO_MinorsAnnularLine

  1100.     if (AnnularComputational%LF_ANNULARLINE(i)/=0) then

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

  1102.         AnnularComputational%minloss_ANNULAR(i)=AnnularComputational%minlosspa_ANNULAR(i)/6895 !(psi)

  1103.     elseif (AnnularComputational%CV_ANNULARLINE(i)/=0) then

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

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

  1106.     else

  1107.         AnnularComputational%minlosspa_ANNULAR(i)=AnnularComputational%NOTE_ANNULARLINE(i)*1e5 !(pa)

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

  1109.     endif

  1110. enddo

  1111. 

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

  1113.         

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

  1115. 

  1116.  RAM(RNUMBER)%static_loss1=0

  1117. 

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

  1119. !.72 for regulator diameter)

  1120. 

  1121.  RAM(RNUMBER)%loss_before= RAM(RNUMBER)%pipe_loss1+ RAM(RNUMBER)%minor_loss1+ RAM(RNUMBER)%static_loss1+ RAM(RNUMBER)%kinetic_loss1 !(psi)

  1122. !===================after Regulator======================

  1123. ! all in (psi)

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

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

  1126. 

  1127.  RAM(RNUMBER)%deltah=Annular%H_AnnularBop-ShearRam%H_REGRAM

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

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

  1130.  RAM(RNUMBER)%kinetic_loss2=0

  1131. 

  1132.  RAM(RNUMBER)%loss_after= RAM(RNUMBER)%pipe_loss2+ RAM(RNUMBER)%minor_loss2+ RAM(RNUMBER)%static_loss2 !(psi)

  1133. !=======================================================

  1134. 

  1135. 

  1136. 

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

  1138. if (Annular%Pannular_regset<RamLine%P_ACC- RAM(RNUMBER)%loss_before) then

  1139.     

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

  1141.             ! 

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

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

  1144.             !Pannular_reg= Pannular_regDelay%Last()

  1145.             

  1146.             Annular%Pannular_reg= Annular%Pannular_regset-AnnularComputational%minloss_ANNULAR(17)     

  1147. 

  1148.     ! RAM(RNUMBER)%loss_after= RAM(RNUMBER)%loss_after-minloss(17);   %minloss(17)=regulator loss

  1149. else

  1150.     

  1151.             !!new= p_acc- RAM(RNUMBER)%loss_before-minloss_ANNULAR(17)

  1152.             ! 

  1153.             !CALL Pannular_regDelay%AddToFirst( p_acc- RAM(RNUMBER)%loss_before-minloss_ANNULAR(17) )

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

  1155.             !Pannular_reg= Pannular_regDelay%Last()

  1156.             

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

  1158. 

  1159. endif

  1160. !===========================================================

  1161. 

  1162. 

  1163. !====================Flow Rate calculation==================

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

  1165. 

  1166. 

  1167. 

  1168. 

  1169. 

  1170. end do  ! returns correct Q for one timecounter_ram

  1171. 

  1172. if (RAM(RNUMBER)%Bottles_Charged_MalfActive==.true.) then

  1173.     RAM(RNUMBER)%Q= 5.0 ! gpm

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

  1175. endif

  1176. 

  1177. RAM(RNUMBER)%flow=RAM(RNUMBER)%Q

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

  1179. !write(*,*) '%loss_after=' ,RAM(RNUMBER)%loss_after

  1180. !====================p_accumulator for next iterate==================

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

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

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

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

  1185. 

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

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

  1188. RamLine%FVR=RamLine%FVR- RAM(RNUMBER)%deltav_bottles  !=fvr_after (galon)

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

  1190.  RAM(RNUMBER)%p_acccheck=RamLine%P_ACC

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

  1192. !formula is derived for fvr (galon)

  1193. !vdis_bottles=fvr_tot-fvr

  1194.  RAM(RNUMBER)%vdis_bottles= RAM(RNUMBER)%vdis_bottles+ RAM(RNUMBER)%deltav_bottles

  1195. 

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

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

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

  1199. 

  1200. 

  1201.  RAM(RNUMBER)%vdis_tot= RAM(RNUMBER)%vdis_bottles+ RAM(RNUMBER)%fvr_air+ RAM(RNUMBER)%vdis_elecp      !overal

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

  1203. 

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

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

  1206.         !    

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

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

  1209. 

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

  1211.      if (Annular%AnnularIsClosing) then

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

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

  1214.      endif

  1215.      

  1216.      if (Annular%AnnularIsOpening) then

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

  1218.      endif

  1219. 

  1220.      if ( RAM(RNUMBER)%vdis_tot>Annular%NeededVolumeAnnular) then

  1221. 

  1222.               Annular%Annular_closed=1

  1223.               !Annular_closed_withPossibility= Annular_closed * TD_BOPConnectionPossibility(1)

  1224.               !pram_reg=pram_reg+minloss_ANNULAR(17)

  1225.             Annular%Pannular_reg= Annular%Pannular_reg+AnnularComputational%minloss_ANNULAR(17)               

  1226. 

  1227.               RamLine%P_ACC= RAM(RNUMBER)%p_acccheck

  1228.            if (Annular%AnnularIsClosing) then

  1229.                

  1230.               Annular%IDAnnular=max(Annular%ODDrillpipe_inAnnular,Annular%ODDrillpipe_inAnnularBase)      

  1231.               BopControlPanel%AnnularCloseLED = LedOn

  1232.               BopStackInput%AnnularCloseLedMine = LedOn

  1233.               

  1234.               BopControlPanel%AnnularOpenLED = LedOff

  1235.               BopStackInput%AnnularOpenLedMine = LedOff

  1236.               

  1237.               if (TD_BOP%BOPConnectionPossibility(1) == 1) then

  1238.                   CALL CloseAnnular

  1239.                   Annular%Annular_Situation_forTD= 1       ! closed - for TD code

  1240.               endif

  1241.            endif

  1242.            

  1243.            

  1244.      

  1245.           if (Annular%AnnularIsOpening) then

  1246.               

  1247.               Annular%IDAnnular=Annular%IDAnnularBase

  1248.               BopControlPanel%AnnularOpenLED = LedOn

  1249.               BopStackInput%AnnularOpenLedMine = LedOn

  1250.               

  1251.               BopControlPanel%AnnularCloseLED = LedOff

  1252.               BopStackInput%AnnularCloseLedMine = LedOff

  1253.               

  1254.               CALL OpenAnnular

  1255.               Annular%Annular_Situation_forTD= 0       ! open - for TD code

  1256.          endif

  1257.     

  1258.      endif 

  1259.      

  1260.         ShearRam%IDAnnularFinal= Annular%IDAnnular       ! for output data

  1261. !endif

  1262. 

  1263. 

  1264.     end