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.
4 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: bc2206da2b
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'bc2206da2b'
${ noResults }
SimulationCore2/CSharp/Equipments/Tanks/CTanksVariables.f90

41 lines
860 B
Raw Blame History 

  1. module CTanksVariables

  2.     implicit none    

  3.     public   

  4.     

  5.     ! Input vars

  6.     real(8) :: WaterRate

  7.     real(8) :: CementTankVolume

  8.     real(8) :: CementTankDensity

  9.     real(8) :: TripTankVolume

  10.     real(8) :: TripTankDensity

  11.     logical :: ManualPumpPower

  12.     logical :: Valve1

  13.     logical :: Valve2

  14.     logical :: Valve3

  15.     logical :: Valve4

  16.     logical :: Valve5

  17.     

  18.     logical :: Valve6

  19.     logical :: Valve7

  20.     logical :: Valve8

  21.     logical :: Valve9

  22.     logical :: Valve10

  23.     logical :: Valve11

  24. 

  25.     ! Output vars

  26. 

  27. 

  28.     contains 

  29.     

  30.     subroutine Set_ManualPumpPower(v)

  31.         use CManifolds, only:ChangeValve

  32.         implicit none

  33.         logical, intent(in) :: v

  34.         ManualPumpPower = v

  35.         call ChangeValve(43, v)

  36. #ifdef deb

  37. 		print*, 'ManualPumpPower=', ManualPumpPower

  38. #endif

  39.     end subroutine

  40.     

  41. end module CTanksVariables