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

457 lines
18 KiB
Raw Blame History 

  1. 

  2.  SUBROUTINE DEALLOCATE_ARRAYS_CHOKE()

  3.     

  4. USE CHOKEVARIABLES

  5. implicit none

  6. write(*,*) 'deallocateeeeeeeeeeeee'

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

  8. !                   	AIR PUMP LOSSES INPUT

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

  10. !if(allocated(PIPINGS_AIRPUMP)) deallocate(PIPINGS_AIRPUMP)  

  11. 

  12. DEALLOCATE (AirPumpLine%PIPINGS_AIRPUMP,AirPumpLine%DIAM_AIR_INCH,  &

  13.             AirPumpLine%Re_air,AirPumpLine%AREA_AIR,AirPumpLine%LENGT_AIR,AirPumpLine%ROUGHNESS_AIRPLINE,AirPumpLine%REL_ROUGHAIR,  &

  14.            AirPumpLine%fric_air,AirPumpLine%fricloss_air)

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

  16. DEALLOCATE (AirPumpLine%MINORS_AIRPUMP,AirPumpLine%MINORDIAM_AIR_INCH,  &

  17.             AirPumpLine%MINORAREA_AIR,AirPumpLine%LF_AIR,AirPumpLine%CV_AIR,AirPumpLine%NOTE_AIR &

  18.             ,AirPumpLine%minlosspa_air,AirPumpLine%minloss_air)   

  19. 

  20.     END       

  21.     

  22.     

  23.     

  24.     

  25.     

  26.     

  27.  SUBROUTINE LOSS_INPUTS_CHOKE()

  28. USE CHOKEVARIABLES

  29. implicit none

  30.     Integer I

  31. 

  32. 

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

  34. !                   	AIR PUMP LOSSES INPUT

  35. !===========================================================================  

  36. AirPumpLine%NO_PIPINGS_AIRPLINE=1

  37. 

  38. ALLOCATE (AirPumpLine%PIPINGS_AIRPUMP(AirPumpLine%NO_PIPINGS_AIRPLINE,3))

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

  40. AirPumpLine%PIPINGS_AIRPUMP(1,1:3)=		 (/0.5,      60960.,   0.03/)            !Avg.acc.distance

  41.  

  42. !60960= 200 ft

  43. 

  44.   

  45.   ALLOCATE (AirPumpLine%DIAM_AIR_INCH(AirPumpLine%NO_PIPINGS_AIRPLINE),AirPumpLine%Re_air(AirPumpLine%NO_PIPINGS_AIRPLINE),AirPumpLine%AREA_AIR(AirPumpLine%NO_PIPINGS_AIRPLINE),  &

  46.             AirPumpLine%LENGT_AIR(AirPumpLine%NO_PIPINGS_AIRPLINE),AirPumpLine%ROUGHNESS_AIRPLINE(AirPumpLine%NO_PIPINGS_AIRPLINE),AirPumpLine%REL_ROUGHAIR(AirPumpLine%NO_PIPINGS_AIRPLINE),  &

  47.            AirPumpLine%fric_air(AirPumpLine%NO_PIPINGS_AIRPLINE),AirPumpLine%fricloss_air(AirPumpLine%NO_PIPINGS_AIRPLINE))

  48. 

  49. 

  50. 

  51. DO I=1,AirPumpLine%NO_PIPINGS_AIRPLINE

  52.     AirPumpLine%DIAM_AIR_INCH(I)=AirPumpLine%PIPINGS_AIRPUMP(I,1)

  53.     AirPumpLine%LENGT_AIR(I)=AirPumpLine%PIPINGS_AIRPUMP(I,2)

  54.     AirPumpLine%ROUGHNESS_AIRPLINE(I)=AirPumpLine%PIPINGS_AIRPUMP(I,3)

  55.     

  56.     

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

  58.     AirPumpLine%REL_ROUGHAIR(I)=AirPumpLine%ROUGHNESS_AIRPLINE(I)/(AirPumpLine%DIAM_AIR_INCH(I)*25.4)

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

  60.     AirPumpLine%LENGT_AIR(I)=AirPumpLine%LENGT_AIR(I)*.001      !  (m) 

  61.     ENDDO

  62. 

  63.     

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

  65. AirPumpLine%NO_MINORS_AIRPLINE=6

  66. 

  67. ALLOCATE (AirPumpLine%MINORS_AIRPUMP(AirPumpLine%NO_MINORS_AIRPLINE,4))

  68. 

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

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

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

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

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

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

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

  76.   

  77. 

  78.     

  79.   ALLOCATE (AirPumpLine%MINORDIAM_AIR_INCH(AirPumpLine%NO_MINORS_AIRPLINE),AirPumpLine%MINORAREA_AIR(AirPumpLine%NO_MINORS_AIRPLINE),  &

  80.             AirPumpLine%LF_AIR(AirPumpLine%NO_MINORS_AIRPLINE),AirPumpLine%CV_AIR(AirPumpLine%NO_MINORS_AIRPLINE),AirPumpLine%NOTE_AIR(AirPumpLine%NO_MINORS_AIRPLINE) &

  81.             ,AirPumpLine%minlosspa_air(AirPumpLine%NO_MINORS_AIRPLINE),AirPumpLine%minloss_air(AirPumpLine%NO_MINORS_AIRPLINE))   

  82.  

  83. 

  84.  

  85. DO I=1,AirPumpLine%NO_MINORS_AIRPLINE

  86.     AirPumpLine%MINORDIAM_AIR_INCH(I)=AirPumpLine%MINORS_AIRPUMP(I,1)

  87.     AirPumpLine%LF_AIR(I)=AirPumpLine%MINORS_AIRPUMP(I,2)

  88.     AirPumpLine%CV_AIR(I)=AirPumpLine%MINORS_AIRPUMP(I,3)

  89.     AirPumpLine%NOTE_AIR(I)=AirPumpLine%MINORS_AIRPUMP(I,4)

  90.     

  91.     

  92.     AirPumpLine%MINORAREA_AIR(I)=PI*(AirPumpLine%MINORDIAM_AIR_INCH(I)*0.0254)**2/4.   !D(in), AREA(m)

  93. ENDDO    

  94.     

  95.  

  96.     END   

  97.     

  98.     

  99.     

  100. 

  101. 

  102. SUBROUTINE PIPE_RAMS_CHOKE(CHNUMBER)

  103.     USE CHOKEVARIABLES

  104.     Use CSimulationVariables

  105.     implicit none

  106.     INTEGER CHNUMBER

  107.     Integer I

  108.     

  109. 

  110.     loop3: do while (ABS(ChokeControlPanel%ChokeControlLever)==1.0 .AND. ChokeControlPanel%ChokePanelRigAirSwitch == 1 .AND. CHOOKE(CHNUMBER)%FailMalf==0 .AND. AirDrivenPump%ChokeAirFail==0)

  111.            if (ChokeControlPanel%ChokeControlLever == 1.0) then

  112.             CHOOKE(CHNUMBER)%ChokeIsClosing = .true.

  113.             CHOOKE(CHNUMBER)%ChokeIsOpening = .false.

  114.         endif

  115.         

  116.         if (ChokeControlPanel%ChokeControlLever == -1.0) then 

  117.             CHOOKE(CHNUMBER)%ChokeIsOpening = .true.

  118.             CHOOKE(CHNUMBER)%ChokeIsClosing = .false.

  119.         endif

  120. 

  121.  

  122.  

  123.      AirPumpLine%TIME=AirPumpLine%TIME+AirPumpLine%DeltaT_Choke  !overal time (s)

  124. 

  125. 

  126. 

  127. !====================================================

  128. !       ********************************

  129.             call airpump_code_CHOKE(CHNUMBER)

  130. !           *************************

  131. !====================================================

  132. 

  133.           call sleepqq(100)

  134.     

  135.           

  136.           if (IsStopped == .true.) return

  137.           

  138.     end do  loop3   !while finished_Choke==0

  139.     

  140.     end

  141.     

  142.  

  143.     

  144.     

  145.     

  146.     

  147.     SUBROUTINE airpump_code_CHOKE(CHNUMBER)    

  148. USE CHOKEVARIABLES

  149. USE CChokeManifoldVariables

  150. use CSounds

  151. USE CChokeProblemsVariables

  152. implicit none

  153.     Integer I

  154. 

  155. INTEGER CHNUMBER

  156. 

  157. 

  158. AirDrivenPump%QAIR_PUMP=AirPumpLine%QITER+.1   !(gpm)  maximum flow for the start

  159. AirPumpLine%diffp_air=-10

  160. AirPumpLine%losses_air=10

  161. 

  162. !===================================================================

  163. !                       AIR OPERATED PUMP

  164. !                       MODEL 10-6000W030 RATIO 55:1   

  165. !=================for air consumption at 100 psig=================== 

  166. do while (AirPumpLine%diffp_air<0)

  167.  AirDrivenPump%QAIR_PUMP=AirDrivenPump%QAIR_PUMP-.1

  168. ! Qup=AirDrivenPump%QAIR_PUMP;

  169.  !cc1 = 1354; cc2 = -2066; cc3 = -2109; cc4 = -513.6; cc5 = 5935     FOR OUTPUT IN GPM

  170.  AirPumpLine%P_AIRP=AirDrivenPump%cc1*(AirDrivenPump%QAIR_PUMP**4) + AirDrivenPump%cc2*(AirDrivenPump%QAIR_PUMP**3) + AirDrivenPump%cc3*(AirDrivenPump%QAIR_PUMP**2) + AirDrivenPump%cc4*AirDrivenPump%QAIR_PUMP + AirDrivenPump%cc5 !(psig)

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

  172. 

  173.  AirPumpLine%diffp_air= AirPumpLine%P_AIRP - AirPumpLine%Pdownstrem

  174. 

  175. end do    !returns Qup

  176. 

  177. 

  178. 

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

  180. 

  181. if (AirPumpLine%diffp_air-AirPumpLine%losses_air>0) then

  182.     AirDrivenPump%QAIR_PUMP=AirDrivenPump%QAIR_PUMP+.005

  183. else

  184.     AirDrivenPump%QAIR_PUMP=AirDrivenPump%QAIR_PUMP-.005

  185. endif

  186. 

  187. !===================================================================

  188. !                       AIR OPERATED PUMP

  189. !                       MODEL 10-6000W030 RATIO 55:1   

  190. !=================for air consumption at 100 psig=================== 

  191. 

  192.  AirPumpLine%P_AIRP=AirDrivenPump%cc1*(AirDrivenPump%QAIR_PUMP**4) + AirDrivenPump%cc2*(AirDrivenPump%QAIR_PUMP**3) + AirDrivenPump%cc3*(AirDrivenPump%QAIR_PUMP**2) + AirDrivenPump%cc4*AirDrivenPump%QAIR_PUMP + AirDrivenPump%cc5 !(psig)

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

  194. 

  195.  AirPumpLine%diffp_air= AirPumpLine%P_AIRP - AirPumpLine%Pdownstrem

  196. 

  197. 

  198. !===========================LOSSES====================================

  199.  do i=1,AirPumpLine%NO_PIPINGS_AIRPLINE

  200. AirPumpLine%Re_air(i)=AirDrivenPump%QAIR_PUMP*6.30902e-005*AirPumpLine%DIAM_AIR_INCH(I)*0.0254/(AirPumpLine%AREA_AIR(i)*nu)

  201. enddo

  202. 

  203. 

  204. do i=1,AirPumpLine%NO_PIPINGS_AIRPLINE

  205.      if (AirPumpLine%Re_air(i)<Re_cr) then

  206.          AirPumpLine%fric_air(i)=64/AirPumpLine%Re_air(i)

  207.      else

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

  209.      endif

  210.      

  211. AirPumpLine%fricloss_air(i)=((AirPumpLine%fric_air(i)*(wdens*sg*AirPumpLine%LENGT_AIR(i)*(AirDrivenPump%QAIR_PUMP*6.30902e-005/AirPumpLine%AREA_AIR(i))**2))/(2*AirPumpLine%DIAM_AIR_INCH(I)*0.0254))/6895

  212. 

  213.  enddo

  214. 

  215. 

  216. 

  217. 

  218. AirPumpLine%pipe_loss1air=sum(AirPumpLine%fricloss_air)  !loss before regulator(psi)

  219. 

  220. do i=1,AirPumpLine%NO_MINORS_AIRPLINE

  221.     if (AirPumpLine%LF_AIR(i)/=0) then

  222.         AirPumpLine%minlosspa_air(i)=AirPumpLine%LF_AIR(i)*wdens*sg*(AirDrivenPump%QAIR_PUMP*6.30902e-005/AirPumpLine%MINORAREA_AIR(i))**2/2  !(Pa)

  223.         AirPumpLine%minloss_air(i)=AirPumpLine%minlosspa_air(i)/6895 !(psi)

  224.     elseif (AirPumpLine%CV_AIR(i)/=0) then

  225.         AirPumpLine%minlosspa_air(i)=1000*sg*((11.7*AirDrivenPump%QAIR_PUMP*6.30902e-005*3600)/(AirPumpLine%CV_AIR(i)))**2 !(pa)

  226.         AirPumpLine%minloss_air(i)=AirPumpLine%minlosspa_air(i)/6895 !(psi)

  227.     else

  228.         AirPumpLine%minlosspa_air(i)=AirPumpLine%NOTE_AIR(i)*1e5 !(pa)

  229.         AirPumpLine%minloss_air(i)=AirPumpLine%minlosspa_air(i)/6895 !(psi)

  230.     endif

  231. enddo

  232. 

  233.         

  234. AirPumpLine%minor_loss1air=sum(AirPumpLine%minloss_air)  !loss before regulator(psi)

  235. 

  236. AirPumpLine%static_loss1air=0

  237. 

  238. AirPumpLine%losses_air=AirPumpLine%pipe_loss1air+AirPumpLine%minor_loss1air+AirPumpLine%static_loss1air !(psi)

  239. !=========================================================================

  240. 

  241. 

  242.  end do  !returns correct QAIR_PUMP for 1 counter

  243.  

  244. 

  245. 

  246. 

  247.    AirPumpLine%QITER=AirDrivenPump%QAIR_PUMP

  248.    AirDrivenPump%QAIR_PUMP=AirDrivenPump%QAIR_PUMP*(ChokeControlPanel%ChokeRateControlKnob/10.)       ! final Q (gpm)

  249.    

  250.    Choke%Cumulative_AirVolume_Choke= Choke%Cumulative_AirVolume_Choke + ((AirDrivenPump%QAIR_PUMP * AirPumpLine%DeltaT_Choke / 60.0 ) / (1.5*0.004329004) )        ! =strokes

  251. 

  252.    

  253.    if ( Choke%Cumulative_AirVolume_Choke > 1.0 ) then

  254.        Choke%SoundChokePump= 60

  255.        Choke%Cumulative_AirVolume_Choke= Choke%Cumulative_AirVolume_Choke - 1.0

  256.    else

  257.        Choke%SoundChokePump= 0.0

  258.    endif   

  259.    

  260.    !SoundChokePump= int (QAIR_PUMP/ (1.5*0.004329004)*DeltaT_Choke/60.0)   !  1.5: Volume per stroke (in^3)  , 0.004329004: in^3 to gal ,  60:seconds

  261.    

  262.    

  263. 

  264. AirPumpLine%DELTAV_AIR=AirDrivenPump%QAIR_PUMP*AirPumpLine%DeltaT_Choke/60  !(galon) delta_t=1sec , Q(gpm)

  265. 

  266. if (CHOOKE(CHNUMBER)%ChokeIsClosing)  CHOOKE(CHNUMBER)%PassedCourse=CHOOKE(CHNUMBER)%PassedCourse + (AirPumpLine%DELTAV_AIR*3785.412/AirPumpLine%Acylinder)!*(ChokeRateControlKnob/10.)        ! 3785.412 : GALON TO CM^3

  267.     

  268.     

  269. if (CHOOKE(CHNUMBER)%ChokeIsOpening)  CHOOKE(CHNUMBER)%PassedCourse=CHOOKE(CHNUMBER)%PassedCourse - (AirPumpLine%DELTAV_AIR*3785.412/AirPumpLine%Acylinder)!*(ChokeRateControlKnob/10.)

  270. 

  271.     

  272. 

  273. !DeltaT_Choke= 1sec or 2sec

  274. 

  275. 

  276. !((((((((IN OUTER LOOP))))))

  277. 

  278. !===============AIR PUMP OUTPUTS=========================

  279. AirPumpLine%alpha_timeair=AirPumpLine%TIME  ! overal time (s)

  280. AirPumpLine%alpha_Pdownstrem=AirPumpLine%Pdownstrem

  281. AirPumpLine%alpha_pairp=AirPumpLine%P_AIRP

  282. AirPumpLine%alpha_Qair=AirDrivenPump%QAIR_PUMP

  283. !write(*,*) 'diffp_air=',diffp_air

  284. !pause

  285. AirPumpLine%alpha_diffpair=AirPumpLine%diffp_air

  286. 

  287. AirPumpLine%alpha_lossesair=AirPumpLine%losses_air

  288. !========================================================

  289. !OPEN(150,FILE='CHOKE_AIRPUMP_OUTPUTS.DAT')

  290. 

  291. 

  292.        if (CHOOKE(CHNUMBER)%ChokeIsClosing .AND. CHOOKE(CHNUMBER)%PassedCourse>AirPumpLine%CourseBase) then

  293.         CHOOKE(CHNUMBER)%PassedCourse=AirPumpLine%CourseBase

  294.         Choke%SoundChokePump= 0.0

  295.      endif

  296.      

  297.      if (CHOOKE(CHNUMBER)%ChokeIsOpening .AND. CHOOKE(CHNUMBER)%PassedCourse<0.) then

  298.         CHOOKE(CHNUMBER)%PassedCourse=0.

  299.         Choke%SoundChokePump= 0.0

  300.      endif

  301.      

  302.      

  303.      call SetSoundChokePump(Choke%SoundChokePump)

  304. 

  305.      CHOOKE(CHNUMBER)%PercentClose= CHOOKE(CHNUMBER)%PassedCourse/AirPumpLine%CourseBase

  306.      

  307.      

  308.      IF (ChokeControlPanel%Choke1LED==1) THEN

  309.          ChokeControlPanel%ChokePosition= (1 - Choke%GaugeChokePositionMailf) * CHOOKE(1)%PercentClose*10

  310.      ELSE       ! Choke2LED==1

  311.          ChokeControlPanel%ChokePosition= (1 - Choke%GaugeChokePositionMailf) * CHOOKE(2)%PercentClose*10

  312.      ENDIF

  313.      

  314.     !CALL SetHydraulicChock1(nint(MIN(CHOOKE(1)%PercentClose / 0.91 , 1.0)*100))     

  315.     ! CALL SetHydraulicChock2(nint(MIN(CHOOKE(2)%PercentClose / 0.91 , 1.0)*100)) 

  316. 

  317.      ! .91 >> 9 percent clearance

  318.      

  319. ! =================== calculating Area     

  320.      

  321.       ! AreaChoke=0.5

  322.      ! .91 >> 9 percent clearance

  323. 

  324.    CHOOKE(1)%AreaChoke=0.01334635-(0.01334635* MIN(CHOOKE(1)%PercentClose / 0.91 , 1.0)) !ft^2     0.01334635 is ChokeAreaFullyOpen (ft^2)

  325.    CHOOKE(2)%AreaChoke=0.01334635-(0.01334635* MIN(CHOOKE(2)%PercentClose/ 0.91 , 1.0)) !ft^2

  326.    

  327.    !write(*,*) 'CHOOKE(1)%AreaChoke= ' , CHOOKE(1)%AreaChoke

  328.    

  329.    

  330. 

  331.     

  332.     Choke%HydraulicChoke1WashoutCoef= Choke%HydraulicChoke1WashoutCoef * CHOOKE(1)%WashoutMalf    

  333.     Choke%HydraulicChoke1WashoutCoef= MIN( 0.5 , Choke%HydraulicChoke1WashoutCoef+ CHOOKE(1)%WashoutMalf*(0.5/(60.0/AirPumpLine%DeltaT_Choke)) ) ! 0.5=maximum washout coef , 60.0 sec= 1min duration time

  334.             

  335.     Choke%HydraulicChoke2WashoutCoef= Choke%HydraulicChoke2WashoutCoef * CHOOKE(2)%WashoutMalf    

  336.     Choke%HydraulicChoke2WashoutCoef= MIN( 0.5 , Choke%HydraulicChoke2WashoutCoef+ CHOOKE(2)%WashoutMalf*(0.5/(60.0/AirPumpLine%DeltaT_Choke)) ) ! 0.5=maximum washout coef , 60.0 sec= 1min duration time

  337.     

  338. 

  339.     !write(*,*) 'HydraulicChoke1WashoutCoef=' , HydraulicChoke1WashoutCoef

  340.     

  341.     IF (CHOOKE(1)%PlugMalf == 1) THEN

  342.         

  343.             Choke%Present_HydraulicChoke1Plug= Choke%Present_HydraulicChoke1Plug * CHOOKE(1)%PlugMalf 

  344.             ! integer: HydraulicChoke1PluggedPercent,HydraulicChoke1PluggedPercent_Old,PlugTimeCounter,ChokePlugTimeDelay

  345.             ! real: Present_HydraulicChoke1Plug,DeltaPlug1Percent

  346.     

  347.             !write(*,*) 'HydraulicChoke1PluggedPercent=' , HydraulicChoke1PluggedPercent

  348.     

  349.             if ( (ChokeProblems%HydraulicChoke1PluggedPercent - Choke%HydraulicChoke1PluggedPercent_Old) /= 0) then

  350.                 Choke%DeltaPlug1Percent = (REAL(ChokeProblems%HydraulicChoke1PluggedPercent)/100.) - Choke%Present_HydraulicChoke1Plug

  351.                 Choke%Plug1TimeCounter = 0

  352.                 !write(*,*) 'DeltaPlug1Percent, Present_HydraulicChoke1Plug  =  ' ,DeltaPlug1Percent , Present_HydraulicChoke1Plug 

  353.             endif

  354.     

  355.     

  356.             Choke%Plug1TimeCounter= Choke%Plug1TimeCounter + 1

  357. 

  358.             Choke%HydraulicChoke1PluggedPercent_Old= ChokeProblems%HydraulicChoke1PluggedPercent

  359.     

  360.             if (Choke%Plug1TimeCounter <= Choke%ChokePlugTimeDelay) then    !ChokePlugTimeDelay=600

  361.         

  362.                 Choke%Present_HydraulicChoke1Plug = Choke%Present_HydraulicChoke1Plug + CHOOKE(1)%PlugMalf* ((Choke%DeltaPlug1Percent / real(Choke%ChokePlugTimeDelay)))     ! real(ChokePlugTimeDelay)= 600.0

  363.         

  364.             endif

  365.   

  366.             !write(*,*) 'Present_HydraulicChoke1Plug=' , Present_HydraulicChoke1Plug

  367.     

  368.     ENDIF

  369.     

  370.     

  371.     

  372.     

  373.     

  374.     

  375.     IF (CHOOKE(2)%PlugMalf == 1) THEN 

  376. 

  377.             Choke%Present_HydraulicChoke2Plug= Choke%Present_HydraulicChoke2Plug * CHOOKE(2)%PlugMalf 

  378.             ! integer: HydraulicChoke2PluggedPercent,HydraulicChoke2PluggedPercent_Old,PlugTimeCounter,ChokePlugTimeDelay

  379.             ! real: Present_HydraulicChoke2Plug,DeltaPlug2Percent

  380.     

  381.     

  382.             if ( (ChokeProblems%HydraulicChoke2PluggedPercent - Choke%HydraulicChoke2PluggedPercent_Old) /= 0 ) then

  383.                 Choke%DeltaPlug2Percent = (REAL(ChokeProblems%HydraulicChoke2PluggedPercent)/100.) - Choke%Present_HydraulicChoke2Plug

  384.                 Choke%Plug2TimeCounter = 0

  385.             endif

  386.     

  387.             Choke%Plug2TimeCounter= Choke%Plug2TimeCounter + 1

  388. 

  389.             Choke%HydraulicChoke2PluggedPercent_Old= ChokeProblems%HydraulicChoke2PluggedPercent

  390.     

  391.             if (Choke%Plug2TimeCounter <= Choke%ChokePlugTimeDelay) then    !ChokePlugTimeDelay=600

  392.         

  393.                 Choke%Present_HydraulicChoke2Plug = Choke%Present_HydraulicChoke2Plug + CHOOKE(2)%PlugMalf *((Choke%DeltaPlug2Percent / real(Choke%ChokePlugTimeDelay)))     ! real(ChokePlugTimeDelay)= 600.0

  394.         

  395.             endif 

  396.     

  397.     ENDIF

  398.     

  399. 

  400.     

  401.     

  402.     

  403.     

  404.    

  405.    ! fully open area is 123/64 in^2 = 0.01334635 ft^2

  406.    CHOOKE(1)%AreaChoke=CHOOKE(1)%AreaChoke+(CHOOKE(1)%WashoutMalf*Choke%HydraulicChoke1WashoutCoef*Choke%ChokeAreaFullyOpen/144.0)      ! Initialised in Choke Startup

  407.    

  408.    !write(*,*) 'CHOOKE(1)%WashoutMalf , CHOOKE(1)%AreaChoke='  ,CHOOKE(1)%WashoutMalf , CHOOKE(1)%AreaChoke

  409.    

  410.    CHOOKE(1)%AreaChoke=CHOOKE(1)%AreaChoke-(CHOOKE(1)%PlugMalf* Choke%Present_HydraulicChoke1Plug *CHOOKE(1)%AreaChoke)         ! Initialised in Choke Startup

  411.    

  412.    CHOOKE(2)%AreaChoke=CHOOKE(2)%AreaChoke+(CHOOKE(2)%WashoutMalf*Choke%HydraulicChoke2WashoutCoef*Choke%ChokeAreaFullyOpen/144.0)      ! Initialised in Choke Startup

  413.    CHOOKE(2)%AreaChoke=CHOOKE(2)%AreaChoke-(CHOOKE(2)%PlugMalf* Choke%Present_HydraulicChoke2Plug *CHOOKE(2)%AreaChoke)         ! Initialised in Choke Startup

  414.    !write(*,*) 'CHOOKE(2)%WashoutMalf , CHOOKE(2)%AreaChoke='  ,CHOOKE(2)%WashoutMalf , CHOOKE(2)%AreaChoke

  415.    

  416.    

  417.    CHOOKE(1)%AreaChokeFinal= CHOOKE(1)%AreaChoke

  418.    CHOOKE(2)%AreaChokeFinal= CHOOKE(2)%AreaChoke 

  419.    

  420.    !    144: ft^2 to in^2

  421.     CALL SetHydraulicChock1(100 - nint((CHOOKE(1)%AreaChokeFinal/(Choke%ChokeAreaFullyOpen/144.))*100))     ! for manifold valve    

  422.     CALL SetHydraulicChock2(100 - nint((CHOOKE(2)%AreaChokeFinal/(Choke%ChokeAreaFullyOpen/144.))*100))     ! for manifold valve     

  423.    

  424.    

  425.     !write(*,*) 'CHOOKE(1)%PercentClose=' , CHOOKE(1)%PercentClose     ! close percent 0 to 100

  426.     !write(*,*) 'ChokePosition=' , ChokePosition     ! close position 0 to 10 for display

  427.     !write(*,*) 'CHOOKE(1)%AreaChokeFinal=' , CHOOKE(1)%AreaChokeFinal       ! Open Area (in^2) with clearance

  428.     !write(*,*) '(ChokeAreaFullyOpen/144.)=' , (ChokeAreaFullyOpen/144.)

  429.     !write(*,*) 'valve value=' , 100 - nint((CHOOKE(1)%AreaChokeFinal/(ChokeAreaFullyOpen/144.))*100)        ! percent close 0 to 100 with clearance

  430.     !write(*,*) 'Valve(33)%Status=' , Valve(33)%Status       ! T : open , F: close

  431. 

  432.     

  433.     

  434.     

  435.     

  436. ! =================== calculating Area   

  437.    

  438.    

  439.    

  440.    !write(*,*) 'CHOOKE(1)%AreaChoke= ' , CHOOKE(1)%AreaChoke

  441.    

  442.    

  443. 

  444. !         WRITE(150,50) alpha_timeair,alpha_Qair,alpha_pairp, &

  445. !             alpha_Pdownstrem,alpha_diffpair,alpha_lossesair,CHOOKE(CHNUMBER)%PassedCourse

  446. !50           FORMAT(7(f15.5))

  447. 

  448.   

  449. !========================================================================================            

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

  451.     

  452.            !  write(*,*) PassedCourse

  453.              

  454.      

  455.     

  456.     end