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

40 lines
989 B
Raw Blame History 

  1. module CTanksVariables

  2.     implicit none    

  3.     public   

  4.     Type :: TankType

  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.     End Type TankType

  25.     Type(TankType)::Tank

  26. 

  27.     contains 

  28.     

  29.     subroutine Set_ManualPumpPower(v)

  30.         use CManifolds, only:ChangeValve

  31.         implicit none

  32.         logical, intent(in) :: v

  33.         Tank%ManualPumpPower = v

  34.         call ChangeValve(43, v)

  35. #ifdef deb

  36. 		print*, 'ManualPumpPower=', Tank%ManualPumpPower

  37. #endif

  38.     end subroutine

  39.     

  40. end module CTanksVariables