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.
69 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Branch: master
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'master'
${ noResults }
SimulationCore2/CSharp/Problems/CChokeProblemsVariables.i90

33 lines
1.1 KiB
Raw Permalink Blame History 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/Problems/CChokeProblemsVariables.f90"

  2. module CChokeProblemsVariables

  3.     use CProblemDifinition

  4.     

  5. 	implicit none    

  6. 	public 

  7.     

  8. ! Input vars

  9.     type:: ChokeProblemsType

  10.         type(CProblem) :: HydraulicChoke1Plugged

  11.         type(CProblem) :: HydraulicChoke1Fail

  12.         type(CProblem) :: HydraulicChoke1Washout

  13.         type(CProblem) :: HydraulicChoke2Plugged

  14.         type(CProblem) :: HydraulicChoke2Fail

  15.         type(CProblem) :: HydraulicChoke2Washout

  16.         type(CProblem) :: ManualChoke1Plugged

  17.         type(CProblem) :: ManualChoke1Fail

  18.         type(CProblem) :: ManualChoke1Washout

  19.         type(CProblem) :: ManualChoke2Plugged

  20.         type(CProblem) :: ManualChoke2Fail

  21.         type(CProblem) :: ManualChoke2Washout

  22.         type(CProblem) :: ChokePanelAirFail

  23. 

  24.         integer :: ManualChoke1PluggedPercent

  25.         integer :: HydraulicChoke2PluggedPercent

  26.         integer :: HydraulicChoke1PluggedPercent

  27.         integer :: ManualChoke2PluggedPercent

  28.     end type ChokeProblemsType

  29.     

  30.     contains

  31. 

  32. end module CChokeProblemsVariables