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

1269 lines
47 KiB
Raw Blame History 

  1.  SUBROUTINE DEALLOCATE_ARRAYS()

  2. USE VARIABLES

  3. implicit none

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

  5. !                   	RAMLINE MINOR LOSSES INPUT

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

  7.  DEALLOCATE (MINORS1,MINORDIAMETER_RAMLINE,AREAMINOR_RAMLINE  &

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

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

  10. !                   	RAMLINE PIPNING LOSSES INPUT

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

  12.  DEALLOCATE (PIPINGS_RAMLINE,DIAM_RAMLINE_INCH,  &

  13.             AREA_RAMLINE,LENGT_RAMLINE,ROUGHNESS_RAMLINE,RELROUGH_RAMLINE   &

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

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

  16. !                   	ANNULAR MINOR LOSSES INPUT

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

  18.  DEALLOCATE (MINORS_ANNULAR,MINORDIAMETER_ANNULARLINE,AREAMINOR_ANNULARLINE  &

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

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

  21. !                   	ANNULAR PIPNING LOSSES INPUT

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

  23.  DEALLOCATE (PIPINGS_ANNULAR,DIAM_ANNULARLINE_INCH,AREA_ANNULARLINE, &

  24.             LENGT_ANNULARLINE,ROUGHNESS_ANNULARLINE,RELROUGH_ANNULARLINE   &

  25.             ,Re_ANNULARline,fricANNULAR,friclossANNULAR)

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

  27. !                   	AIR PUMP LOSSES INPUT

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

  29. DEALLOCATE (PIPINGS_AIRPUMP,DIAM_AIR_INCH,  &

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

  31.            fric_air,fricloss_air)

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

  33. DEALLOCATE (MINORS_AIRPUMP,MINORDIAM_AIR_INCH,  &

  34.             MINORAREA_AIR,LF_AIR,CV_AIR,NOTE_AIR &

  35.             ,minlosspa_air,minloss_air)  

  36.  

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

  38. !                   	DELAY ARRAYS

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

  40. call 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. NO_MINORSRAMLINE=34

  65. 

  66. ALLOCATE (MINORS1(NO_MINORSRAMLINE,4))

  67. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  103. 

  104. 

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

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

  107. 

  108. 

  109. 

  110. DO I=1,NO_MINORSRAMLINE

  111.     MINORDIAMETER_RAMLINE(I)=MINORS1(I,1)

  112.     LF_RAMLINE(I)=MINORS1(I,2)

  113.     CV_RAMLINE(I)=MINORS1(I,3)

  114.     NOTE_RAMLINE(I)=MINORS1(I,4)

  115.     

  116.     

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

  118. ENDDO

  119.     

  120. 

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

  122. !                   	RAMLINE PIPNING LOSSES INPUT

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

  124. NO_PIPINGSRAMLINE=15

  125. 

  126. ALLOCATE (PIPINGS_RAMLINE(NO_PIPINGSRAMLINE,3))

  127. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  144. 

  145. 

  146. 

  147.  ALLOCATE (DIAM_RAMLINE_INCH(NO_PIPINGSRAMLINE),  &

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

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

  150. 

  151. DO I=1,NO_PIPINGSRAMLINE

  152.     DIAM_RAMLINE_INCH(I)=PIPINGS_RAMLINE(I,1)

  153.     LENGT_RAMLINE(I)=PIPINGS_RAMLINE(I,2)

  154.     ROUGHNESS_RAMLINE(I)=PIPINGS_RAMLINE(I,3)

  155.     

  156.     

  157.     

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

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

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

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

  162. ENDDO

  163.   

  164. 

  165. 

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

  167. !                   	ANNULAR PREVENTER MINOR LOSSES INPUT

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

  169. NO_MinorsAnnularLine=29

  170. 

  171. ALLOCATE (MINORS_ANNULAR(NO_MinorsAnnularLine,4))

  172. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  203. 

  204. 

  205. 

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

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

  208. 

  209. 

  210. 

  211. DO I=1,NO_MinorsAnnularLine

  212.     MINORDIAMETER_ANNULARLINE(I)=MINORS_ANNULAR(I,1)

  213.     LF_ANNULARLINE(I)=MINORS_ANNULAR(I,2)

  214.     CV_ANNULARLINE(I)=MINORS_ANNULAR(I,3)

  215.     NOTE_ANNULARLINE(I)=MINORS_ANNULAR(I,4)

  216.     

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

  218. ENDDO

  219.    

  220. 

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

  222. !                   ANNULAR PREVENTER PIPNING LOSSES INPUT

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

  224. NO_PipingsAnnularLine=10

  225. 

  226. ALLOCATE (PIPINGS_ANNULAR(NO_PipingsAnnularLine,3))

  227. 

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

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

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

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

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

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

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

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

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

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

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

  239. 

  240. 

  241. 

  242. 

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

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

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

  246. 

  247. 

  248. DO I=1,NO_PipingsAnnularLine

  249.     DIAM_ANNULARLINE_INCH(I)=PIPINGS_ANNULAR(I,1)

  250.     LENGT_ANNULARLINE(I)=PIPINGS_ANNULAR(I,2)

  251.     ROUGHNESS_ANNULARLINE(I)=PIPINGS_ANNULAR(I,3)

  252.     

  253.     

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

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

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

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

  258.     ENDDO

  259. 

  260. 

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

  262. !                   	AIR PUMP LOSSES INPUT

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

  264. NO_PIPINGS_AIRPLINE=1

  265. 

  266. ALLOCATE (PIPINGS_AIRPUMP(NO_PIPINGS_AIRPLINE,3))

  267. 

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

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

  270.  

  271. 

  272. 

  273.   

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

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

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

  277. 

  278. 

  279. 

  280. DO I=1,NO_PIPINGS_AIRPLINE

  281.     DIAM_AIR_INCH(I)=PIPINGS_AIRPUMP(I,1)

  282.     LENGT_AIR(I)=PIPINGS_AIRPUMP(I,2)

  283.     ROUGHNESS_AIRPLINE(I)=PIPINGS_AIRPUMP(I,3)

  284.     

  285.     

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

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

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

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

  290.     ENDDO

  291. 

  292. 

  293.     

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

  295. NO_MINORS_AIRPLINE=6

  296. 

  297. ALLOCATE (MINORS_AIRPUMP(NO_MINORS_AIRPLINE,4))

  298. 

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

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

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

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

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

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

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

  306.   

  307. 

  308.     

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

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

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

  312.  

  313. 

  314.  

  315. DO I=1,NO_MINORS_AIRPLINE

  316.     MINORDIAM_AIR_INCH(I)=MINORS_AIRPUMP(I,1)

  317.     LF_AIR(I)=MINORS_AIRPUMP(I,2)

  318.     CV_AIR(I)=MINORS_AIRPUMP(I,3)

  319.     NOTE_AIR(I)=MINORS_AIRPUMP(I,4)

  320.     

  321.     

  322.     MINORAREA_AIR(I)=PI*(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(ByePassValve == -1.0) then

  342.         ByPassOld= -1.0

  343.     elseif(ByePassValve == 1.0) then

  344.         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 (airp_switch==0) deltav_air=0

  355. fvr=fvr+deltav_air+deltav_elecp

  356. 

  357. pacc_before=p_acc

  358. p_acc=b1*exp(b2*fvr/nobottles)+b3*exp(b4*fvr/nobottles) ! adiabatic(psig)<<<< 8=no. of bottles

  359. 

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

  361. 

  362. 

  363.     if(ByPassOld == 1.0) then

  364. 

  365.         if (pram_reg<PRAMS_REGSET) then

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

  367.             PressureDifference= (p_acc-pacc_before)

  368.         else

  369.             !pram_reg=PRAMS_REGSET

  370.             PressureDifference= PRAMS_REGSET - pram_reg

  371.         endif

  372.         

  373.         

  374.          !old=pram_reg

  375.          !difference= new-old

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

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

  378.          else

  379.              

  380.                 if (pram_reg<PRAMS_REGSET) then

  381.                     pram_reg=pram_reg+(p_acc-pacc_before)

  382.                 else

  383.                     pram_reg=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.          PressureDifference= p_acc- MAXVAL(RAM%loss_before) - pram_reg

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

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

  401.          else

  402.             pram_reg= 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. QAIR_PUMP=Qiter+.1   !(gpm)  maximum flow for the start

  423. diffp_air=-10

  424. losses_air=10

  425. 

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

  427. !                       AIR OPERATED PUMP

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

  429. do while (diffp_air<0)

  430.  QAIR_PUMP=QAIR_PUMP-.1

  431. ! Qup=QAIR_PUMP;

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

  433.  p_airp=bba1*QAIR_PUMP**2+bba2*QAIR_PUMP+bba3 !(psig)

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

  435. 

  436. 

  437.  diffp_air=p_airp+kinetic_air-p_acc

  438. 

  439. end do    !returns Qup

  440. 

  441. 

  442.  do while (abs((diffp_air-losses_air)/diffp_air)>tol_air) !finding correct QAIR_pump for 1 timecounter_ram

  443. 

  444. if (diffp_air-losses_air>0) then

  445.     QAIR_PUMP=QAIR_PUMP+.01

  446. else

  447.     QAIR_PUMP=QAIR_PUMP-.01

  448. endif

  449. 

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

  451. !                       AIR OPERATED PUMP

  452. !                   Maximator - Model: GX (35)

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

  454. 

  455.  p_airp=bba1*QAIR_PUMP**2+bba2*QAIR_PUMP+bba3 !(psig)

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

  457. 

  458.  diffp_air=p_airp+kinetic_air-p_acc

  459. 

  460. 

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

  462.  do i=1,NO_PIPINGS_AIRPLINE

  463. Re_air(i)=QAIR_PUMP*6.30902e-005*DIAM_AIR_INCH(I)*0.0254/(area_air(i)*nu)

  464. enddo

  465. 

  466. do i=1,NO_PIPINGS_AIRPLINE

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

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

  469.      else

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

  471.      endif

  472.      

  473. fricloss_air(i)=((fric_air(i)*(wdens*sg*lengt_air(i)*(QAIR_PUMP*6.30902e-005/area_air(i))**2))/(2*DIAM_AIR_INCH(I)*0.0254))/6895

  474. 

  475.  enddo

  476. 

  477. 

  478. 

  479. 

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

  481. 

  482. do i=1,NO_MINORS_AIRPLINE

  483.     if (LF_air(i)/=0) then

  484.         minlosspa_air(i)=LF_air(i)*wdens*sg*(QAIR_PUMP*6.30902e-005/MINORAREA_AIR(i))**2/2  !(Pa)

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

  486.     elseif (CV_air(i)/=0) then

  487.         minlosspa_air(i)=1000*sg*((11.7*QAIR_PUMP*6.30902e-005*3600)/(CV_air(i)))**2 !(pa)

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

  489.     else

  490.         minlosspa_air(i)=NOTE_air(i)*1e5 !(pa)

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

  492.     endif

  493. enddo

  494. 

  495.         

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

  497. 

  498. static_loss1air=0

  499. 

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

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

  502. 

  503. 

  504. 

  505.  end do  !returns correct QAIR_PUMP for 1 counter

  506. 

  507. counter_airp=counter_airp+1 

  508.    Qiter=QAIR_PUMP

  509.    

  510.    Cumulative_AirVolume= Cumulative_AirVolume + ((QAIR_PUMP * DeltaT_BOP / 60.0 ) / (6.71*0.004329004) )        ! =strokes

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

  512.    

  513.    if ( Cumulative_AirVolume > 1.0 ) then

  514.        SoundKoomeyAirPump= 120.0

  515.        Cumulative_AirVolume= Cumulative_AirVolume - 1.0

  516.    else

  517.        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(SoundKoomeyAirPump)

  525.    

  526. 

  527. deltav_air=QAIR_PUMP*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<va) then

  568.      RAM(RNUMBER)%p_bop=pa

  569. elseif (va<= RAM(RNUMBER)%vdis_tot .and.  RAM(RNUMBER)%vdis_tot<=vb) then

  570.      RAM(RNUMBER)%p_bop=pa+pb*(( RAM(RNUMBER)%vdis_tot-va)/(vb-va))

  571. else

  572.      RAM(RNUMBER)%p_bop=pa

  573. endif

  574.  

  575. if ( RAM(RNUMBER)%checkp/=pa .and.  RAM(RNUMBER)%p_bop==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=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,NO_PIPINGSRAMLINE

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

  626. 

  627. enddo

  628. 

  629. 

  630. 

  631. do i=1,NO_PIPINGSRAMLINE

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

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

  634.      else

  635. 

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

  637.      endif

  638. 

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

  640. 

  641. enddo

  642. 

  643. 

  644. 

  645. 

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

  647. 

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

  649. do i=1,NO_MINORSRAMLINE

  650.     if (LF_RAMLINE(i)/=0) then

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

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

  653.     elseif (CV_RAMLINE(i)/=0) then

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

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

  656.     else

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

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

  659.     endif

  660. enddo

  661. 

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

  663.         

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

  665. 

  666.  RAM(RNUMBER)%static_loss1=0

  667. 

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

  669. !.72 for regulator diameter)

  670. 

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

  672. !===================after Regulator======================

  673. ! all in (psi)

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

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

  676. 

  677.  RAM(RNUMBER)%deltah=H_RAMBOP-H_REGRAM

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

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

  680.  RAM(RNUMBER)%kinetic_loss2=0

  681. 

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

  683. !=======================================================

  684. 

  685.     if(ByePassValve == -1.0) then

  686.         ByPassOld= -1.0

  687.     elseif(ByePassValve == 1.0) then

  688.         ByPassOld= 1.0

  689.     endif

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

  691.  

  692. 

  693. !==========================p_regulator======================

  694. if (PRAMS_REGSET<p_acc- RAM(RNUMBER)%loss_before) then

  695.     

  696.     if(ByPassOld == 1.0)  then  

  697.          !old=pram_reg

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

  699.          !difference= new-old

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

  701.          if (ABS(PressureDifference) > BaseDifferenceP) then

  702.              pram_reg= pram_reg + (PressureDifference/PressureDifferenceSteps)      ! PressureDifferenceSteps = 20.

  703.          else

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

  705.          endif

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

  707.     else    !(ByPassOld == -1.0) 

  708.          !old=pram_reg

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

  710.          !difference= new-old

  711.          PressureDifference= p_acc- RAM(RNUMBER)%loss_before - pram_reg

  712.          if (ABS(PressureDifference) > BaseDifferenceP) then

  713.              pram_reg= pram_reg + (PressureDifference/PressureDifferenceSteps)      ! PressureDifferenceSteps = 20.

  714.          else

  715.             pram_reg= p_acc- RAM(RNUMBER)%loss_before

  716.          endif    

  717.     

  718.     endif

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

  720. 

  721. else

  722.     pram_reg=p_acc- RAM(RNUMBER)%loss_before- sum(RAMS%minloss(2:6,17))     ! 2:6 = RNUMBER

  723. endif

  724. !===========================================================

  725. 

  726. 

  727. !====================Flow Rate calculation==================

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

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

  730. 

  731. 

  732. end do  ! returns correct Q for one timecounter_ram

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

  734. 

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

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

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

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

  739. endif

  740. 

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

  742. 

  743. 

  744. 

  745. !====================p_accumulator for next iterate==================

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

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

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

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

  750. 

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

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

  753. fvr=fvr- RAM(RNUMBER)%deltav_bottles  !=fvr_after (galon)

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

  755.  RAM(RNUMBER)%p_acccheck=p_acc

  756. p_acc=b1*exp(b2*fvr/nobottles)+b3*exp(b4*fvr/nobottles) !(psig)<<<< 8=no. of bottles

  757. !formula is derived for fvr (galon)

  758. !vdis_bottles=fvr_tot-fvr

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

  760. 

  761.  NoActiveRmas=6.-real(Annular_closed+ShearBop_closed+PipeRam1_closed+PipeRam2_closed+ChokeLine_closed+KillLine_closed)

  762.  

  763.  RAM(RNUMBER)%vdis_elecp= RAM(RNUMBER)%vdis_elecp+(deltav_elecp/NoActiveRmas)  !overal discharged

  764.   RAM(RNUMBER)%fvr_air= RAM(RNUMBER)%fvr_air+(deltav_air/NoActiveRmas)  !=fvr_after (galon) for next timecounter_ram

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

  766. 

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

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

  769. 

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

  771.      if (ShearRamIsClosing) then

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

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

  774.      endif

  775.      

  776.      if (ShearRamIsOpening) then

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

  778.      endif

  779.      

  780. 

  781.         

  782.       if ( RAM(RNUMBER)%vdis_tot>NeededVolumeShearRams) then

  783. 

  784.              ShearBop_closed=1

  785.              !ShearBop_closed_withPossibility= ShearBop_closed * TD_BOPConnectionPossibility(3)

  786.              

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

  788.              p_acc= RAM(RNUMBER)%p_acccheck

  789. 

  790.            if (ShearRamIsClosing) then

  791.               IDshearBop=0. + ShearIsNotAllowed*ODDrillpipe_inShearRam      

  792.               MiddleRamsCloseLED = LedOn

  793.               MiddleRamsCloseLEDMine = LedOn

  794.               MiddleRamsOpenLED = LedOff

  795.               MiddleRamsOpenLEDMine = LedOff

  796.               if (TD_BOPConnectionPossibility(3) == 1 .and. ShearIsNotAllowed==0) then

  797.                   CALL CloseMiddleRams

  798.                   ShearBop_Situation_forTD= 1       ! closed - for TD code

  799.               endif

  800.           endif

  801.      

  802.           if (ShearRamIsOpening) then

  803.              IDshearBop=IDshearBopBase

  804.              MiddleRamsOpenLED = LedOn

  805.              MiddleRamsOpenLEDMine = LedOn

  806.              MiddleRamsCloseLED = LedOff

  807.              MiddleRamsCloseLEDMine = LedOff

  808.              CALL OpenMiddleRams

  809.              ShearBop_Situation_forTD= 0       ! open - for TD code

  810.          endif

  811.     

  812.       endif  

  813.       

  814.       IDshearBopFinal= IDshearBop       ! for output data

  815.      

  816. endif

  817. 

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

  819.      if (PipeRam1IsClosing) then

  820.         IDPipeRam1=(2.*(NeededVolumePipeRams1- RAM(RNUMBER)%vdis_tot)*231./AbopPipeRam)+max(ODDrillpipe_inPipeRam1,ODDrillpipe_inPipeRam1Base)   

  821.      endif

  822.      

  823.      if (PipeRam1IsOpening) then

  824.         IDPipeRam1=IDPipeRamBase-2.*(NeededVolumePipeRams1- RAM(RNUMBER)%vdis_tot)*231./AbopPipeRam    

  825.      endif

  826. 

  827.      if ( RAM(RNUMBER)%vdis_tot>NeededVolumePipeRams1) then

  828. 

  829.               PipeRam1_closed=1

  830.               !PipeRam1_Situation_forTD= PipeRam1_closed * TD_BOPConnectionPossibility(2)

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

  832.               p_acc= RAM(RNUMBER)%p_acccheck

  833. 

  834.            if (PipeRam1IsClosing) then

  835.               IDPipeRam1=max(ODDrillpipe_inPipeRam1,ODDrillpipe_inPipeRam1Base)       

  836.               UpperRamsCloseLED = LedOn

  837.               UpperRamsCloseLEDMine = LedOn

  838.               UpperRamsOpenLED = LedOff

  839.               UpperRamsOpenLEDMine = LedOff

  840.               if (TD_BOPConnectionPossibility(2) == 1) then

  841.                   CALL CloseUpperRams       ! for C code

  842.                   call Set_BlowoutFromAnnular(.true.) 

  843. 

  844.  

  845.                   PipeRam1_Situation_forTD= 1       ! closed - for TD code

  846.               endif

  847.           endif

  848.      

  849.           if (PipeRam1IsOpening) then

  850.               IDPipeRam1=IDPipeRamBase

  851.               UpperRamsOpenLED = LedOn

  852.               UpperRamsOpenLEDMine = LedOn

  853.               UpperRamsCloseLED = LedOff

  854.               UpperRamsCloseLEDMine = LedOff

  855.               Call OpenUpperRams       ! for C code

  856.               PipeRam1_Situation_forTD= 0       ! open - for TD code

  857.          endif

  858.     

  859.      endif 

  860.      

  861.      IDPipeRam1Final= IDPipeRam1       ! for output data

  862. 

  863. endif

  864. 

  865. 

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

  867.      if (PipeRam2IsClosing) then

  868.         IDPipeRam2=(2.*(NeededVolumePipeRams2- RAM(RNUMBER)%vdis_tot)*231./AbopPipeRam)+max(ODDrillpipe_inPipeRam2,ODDrillpipe_inPipeRam1Base)   

  869.      endif

  870.      

  871.      if (PipeRam2IsOpening) then

  872.         IDPipeRam2=IDPipeRamBase-2.*(NeededVolumePipeRams2- RAM(RNUMBER)%vdis_tot)*231./AbopPipeRam    

  873.      endif

  874. 

  875.      if ( RAM(RNUMBER)%vdis_tot>NeededVolumePipeRams2) then

  876. 

  877.               PipeRam2_closed=1

  878.               !PipeRam2_closed_withPossibility= PipeRam2_closed * TD_BOPConnectionPossibility(4)

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

  880.               p_acc= RAM(RNUMBER)%p_acccheck

  881. 

  882.            if (PipeRam2IsClosing) then

  883.               IDPipeRam2=max(ODDrillpipe_inPipeRam2,ODDrillpipe_inPipeRam1Base)       

  884.               LowerRamsCloseLED = LedOn

  885.               LowerRamsCloseLEDMine = LedOn

  886.               LowerRamsOpenLED = LedOff

  887.               LowerRamsOpenLEDMine = LedOff

  888.               if (TD_BOPConnectionPossibility(4) == 1) then

  889.                   CALL CloseLowerRams

  890.                   PipeRam2_Situation_forTD= 1       ! closed - for TD code

  891.               endif

  892.           endif

  893.      

  894.           if (PipeRam2IsOpening) then

  895.               IDPipeRam2=IDPipeRamBase

  896.               LowerRamsOpenLED = LedOn

  897.               LowerRamsOpenLEDMine = LedOn

  898.               LowerRamsCloseLED = LedOff

  899.               LowerRamsCloseLEDMine = LedOff

  900.               CALL OpenLowerRams

  901.               PipeRam2_Situation_forTD= 0       ! open - for TD code

  902.          endif

  903.     

  904.      endif  

  905.      

  906.      IDPipeRam2Final= IDPipeRam2       ! for output data

  907. 

  908. endif

  909. 

  910. 

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

  912.      if (ChokeLineIsClosing) then

  913.         IDChokeLine=(2.*(NeededVolumeChokeLine- RAM(RNUMBER)%vdis_tot)*231./AbopChokeLine)+max(ODDrillpipe_inChokeLine,ODDrillpipe_inChokeLineBase)  

  914.      endif

  915.      

  916.      if (ChokeLineIsOpening) then

  917.         IDChokeLine=IDChokeLineBase-2.*(NeededVolumeChokeLine- RAM(RNUMBER)%vdis_tot)*231./AbopChokeLine    

  918.      endif

  919. 

  920.      if ( RAM(RNUMBER)%vdis_tot>NeededVolumeChokeLine) then

  921. 

  922.               ChokeLine_closed=1

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

  924.               p_acc= RAM(RNUMBER)%p_acccheck

  925. 

  926.            if (ChokeLineIsClosing) then

  927.               IDChokeLine=max(ODDrillpipe_inChokeLine,ODDrillpipe_inChokeLineBase)      

  928.               ChokeLineCloseLED = LedOn

  929.               ChokeLineCloseLEDMine = LedOn

  930.               ChokeLineOpenLED = LedOff

  931.               ChokeLineOpenLEDMine = LedOff

  932.               CALL CloseChokeLine

  933.           endif

  934.      

  935.           if (ChokeLineIsOpening) then

  936.               IDChokeLine=IDChokeLineBase

  937.               ChokeLineOpenLED = LedOn

  938.               ChokeLineOpenLEDMine = LedOn

  939.               ChokeLineCloseLED = LedOff

  940.               ChokeLineCloseLEDMine = LedOff

  941.               CALL OpenChokeLine

  942.          endif

  943.     

  944.      endif  

  945. 

  946. endif

  947. 

  948. 

  949. 

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

  951.      if (KillLineIsClosing) then

  952.         IDKillLine=(2.*(NeededVolumeKillLine- RAM(RNUMBER)%vdis_tot)*231./AbopKillLine)+max(ODDrillpipe_inKillLine,ODDrillpipe_inKillLineBase)  

  953.      endif

  954.      

  955.      if (KillLineIsOpening) then

  956.         IDKillLine=IDKillLineBase-2.*(NeededVolumeKillLine- RAM(RNUMBER)%vdis_tot)*231./AbopKillLine    

  957.      endif

  958. 

  959.      if ( RAM(RNUMBER)%vdis_tot>NeededVolumeKillLine) then

  960. 

  961.               KillLine_closed=1

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

  963.               p_acc= RAM(RNUMBER)%p_acccheck

  964. 

  965.            if (KillLineIsClosing) then

  966.               IDKillLine=max(ODDrillpipe_inKillLine,ODDrillpipe_inKillLineBase)      

  967.               KillLineCloseLed = LedOn

  968.               KillLineCloseLedMine = LedOn

  969.               KillLineOpenLed = LedOff

  970.               KillLineOpenLedMine = LedOff

  971.               CALL CloseKillLine

  972.           endif

  973.      

  974.           if (KillLineIsOpening) then

  975.               IDKillLine=IDKillLineBase

  976.               KillLineOpenLed = LedOn

  977.               KillLineOpenLedMine = LedOn

  978.               KillLineCloseLed = LedOff

  979.               KillLineCloseLedMine = LedOff

  980.               CALL OpenKillLine

  981.          endif

  982.     

  983.      endif  

  984. 

  985. endif

  986. 

  987. 

  988. 

  989. 

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

  991. !     if (AnnularIsClosing) then

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

  993. !     endif

  994. !     

  995. !     if (AnnularIsOpening) then

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

  997. !     endif

  998. !

  999. !     if (vdis_tot>NeededVolumeAnnular) then

  1000. !

  1001. !              Annular_closed=1

  1002. !              p_acc= RAM(RNUMBER)%p_acccheck

  1003. !

  1004. !           if (AnnularIsClosing) then

  1005. !              IDAnnular=ODDrillpipe_inAnnular       

  1006. !              AnnularCloseLed = LedOn

  1007. !              AnnularOpenLed = LedOff

  1008. !          endif

  1009. !     

  1010. !          if (AnnularIsOpening) then

  1011. !              IDAnnular=IDAnnularBase

  1012. !              AnnularOpenLed = LedOn

  1013. !              AnnularCloseLed = LedOff        

  1014. !         endif

  1015. !    

  1016. !     endif  

  1017. !

  1018. !endif

  1019. 

  1020. 

  1021.     end

  1022.     

  1023.     

  1024.    

  1025.     SUBROUTINE bop_codeAnnular(RNUMBER) 

  1026.     

  1027.     USE VARIABLES 

  1028.     USE CBopControlPanelVariables

  1029.     USE CEquipmentsConstants

  1030.     USE TD_GeneralData

  1031. implicit none

  1032. INTEGER RNUMBER, I

  1033. 

  1034. 

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

  1036.     

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

  1038. !       BOP back pressure without DP

  1039. !====================================================    

  1040. !if (bop_type==3) then 

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

  1042.     p_annular=448-(19.7*IDAnnular)

  1043. !    Q=flow    

  1044. !    endif 

  1045.     

  1046.       

  1047.     

  1048.  RAM(RNUMBER)%clock=0

  1049. !======================Losses============================

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

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

  1052.  RAM(RNUMBER)%loss_before=0

  1053. 

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

  1055. 

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

  1057. 

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

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

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

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

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

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

  1064. 

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

  1066. !    tclock=clock

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

  1068. endif

  1069.  !      if (clock==1) continue

  1070.        

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

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

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

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

  1075. 

  1076.     endif

  1077. 

  1078. !====================Before Regulator=========================

  1079. do i=1,NO_PipingsAnnularLine

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

  1081. 

  1082. enddo

  1083. 

  1084. 

  1085. 

  1086. do i=1,NO_PipingsAnnularLine

  1087.      if (Re_ANNULARline(i)<Re_cr) then

  1088.          fricANNULAR(i)=64/Re_ANNULARline(i)

  1089.      else

  1090. 

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

  1092.      endif

  1093. 

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

  1095. 

  1096. enddo

  1097. 

  1098. 

  1099. 

  1100. 

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

  1102. 

  1103. 

  1104. do i=1,NO_MinorsAnnularLine

  1105.     if (LF_ANNULARLINE(i)/=0) then

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

  1107.         minloss_ANNULAR(i)=minlosspa_ANNULAR(i)/6895 !(psi)

  1108.     elseif (CV_ANNULARLINE(i)/=0) then

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

  1110.         minloss_ANNULAR(i)=minlosspa_ANNULAR(i)/6895 !(psi)

  1111.     else

  1112.         minlosspa_ANNULAR(i)=NOTE_ANNULARLINE(i)*1e5 !(pa)

  1113.         minloss_ANNULAR(i)=minlosspa_ANNULAR(i)/6895 !(psi)

  1114.     endif

  1115. enddo

  1116. 

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

  1118.         

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

  1120. 

  1121.  RAM(RNUMBER)%static_loss1=0

  1122. 

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

  1124. !.72 for regulator diameter)

  1125. 

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

  1127. !===================after Regulator======================

  1128. ! all in (psi)

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

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

  1131. 

  1132.  RAM(RNUMBER)%deltah=H_AnnularBop-H_REGRAM

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

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

  1135.  RAM(RNUMBER)%kinetic_loss2=0

  1136. 

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

  1138. !=======================================================

  1139. 

  1140. 

  1141. 

  1142. !==========================p_regulator======================

  1143. if (Pannular_regset<p_acc- RAM(RNUMBER)%loss_before) then

  1144.     

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

  1146.             ! 

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

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

  1149.             !Pannular_reg= Pannular_regDelay%Last()

  1150.             

  1151.             Pannular_reg= Pannular_regset-minloss_ANNULAR(17)     

  1152. 

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

  1154. else

  1155.     

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

  1157.             ! 

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

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

  1160.             !Pannular_reg= Pannular_regDelay%Last()

  1161.             

  1162.             Pannular_reg= p_acc- RAM(RNUMBER)%loss_before-minloss_ANNULAR(17)    

  1163. 

  1164. endif

  1165. !===========================================================

  1166. 

  1167. 

  1168. !====================Flow Rate calculation==================

  1169.  RAM(RNUMBER)%diffp_ram=Pannular_reg+minloss_ANNULAR(17)-p_annular

  1170. 

  1171. 

  1172. 

  1173. 

  1174. 

  1175. end do  ! returns correct Q for one timecounter_ram

  1176. 

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

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

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

  1180. endif

  1181. 

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

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

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

  1185. !====================p_accumulator for next iterate==================

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

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

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

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

  1190. 

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

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

  1193. fvr=fvr- RAM(RNUMBER)%deltav_bottles  !=fvr_after (galon)

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

  1195.  RAM(RNUMBER)%p_acccheck=p_acc

  1196. p_acc=b1*exp(b2*fvr/nobottles)+b3*exp(b4*fvr/nobottles) !(psig)<<<< 8=no. of bottles

  1197. !formula is derived for fvr (galon)

  1198. !vdis_bottles=fvr_tot-fvr

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

  1200. 

  1201.  NoActiveRmas=6.-real(Annular_closed+ShearBop_closed+PipeRam1_closed+PipeRam2_closed+ChokeLine_closed+KillLine_closed)

  1202.  RAM(RNUMBER)%vdis_elecp= RAM(RNUMBER)%vdis_elecp+(deltav_elecp/NoActiveRmas)  !overal discharged

  1203.   RAM(RNUMBER)%fvr_air= RAM(RNUMBER)%fvr_air+(deltav_air/NoActiveRmas)  !=fvr_after (galon) for next timecounter_ram

  1204. 

  1205. 

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

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

  1208. 

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

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

  1211.         !    

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

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

  1214. 

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

  1216.      if (AnnularIsClosing) then

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

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

  1219.      endif

  1220.      

  1221.      if (AnnularIsOpening) then

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

  1223.      endif

  1224. 

  1225.      if ( RAM(RNUMBER)%vdis_tot>NeededVolumeAnnular) then

  1226. 

  1227.               Annular_closed=1

  1228.               !Annular_closed_withPossibility= Annular_closed * TD_BOPConnectionPossibility(1)

  1229.               !pram_reg=pram_reg+minloss_ANNULAR(17)

  1230.             Pannular_reg= Pannular_reg+minloss_ANNULAR(17)               

  1231. 

  1232.               p_acc= RAM(RNUMBER)%p_acccheck

  1233.            if (AnnularIsClosing) then

  1234.                

  1235.               IDAnnular=max(ODDrillpipe_inAnnular,ODDrillpipe_inAnnularBase)      

  1236.               AnnularCloseLed = LedOn

  1237.               AnnularCloseLedMine = LedOn

  1238.               

  1239.               AnnularOpenLed = LedOff

  1240.               AnnularOpenLedMine = LedOff

  1241.               

  1242.               if (TD_BOPConnectionPossibility(1) == 1) then

  1243.                   CALL CloseAnnular

  1244.                   Annular_Situation_forTD= 1       ! closed - for TD code

  1245.               endif

  1246.            endif

  1247.            

  1248.            

  1249.      

  1250.           if (AnnularIsOpening) then

  1251.               

  1252.               IDAnnular=IDAnnularBase

  1253.               AnnularOpenLed = LedOn

  1254.               AnnularOpenLedMine = LedOn

  1255.               

  1256.               AnnularCloseLed = LedOff

  1257.               AnnularCloseLedMine = LedOff

  1258.               

  1259.               CALL OpenAnnular

  1260.               Annular_Situation_forTD= 0       ! open - for TD code

  1261.          endif

  1262.     

  1263.      endif 

  1264.      

  1265.         IDAnnularFinal= IDAnnular       ! for output data

  1266. !endif

  1267. 

  1268. 

  1269.     end