Simulation Core
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.

CLostProblemsVariables.f90 373 B

1 år sedan
1234567891011121314151617
  1. module CLostProblemsVariables
  2. use CProblemDifinition
  3. implicit none
  4. public
  5. ! Input vars
  6. type::LostProblemsType
  7. type(CProblem) :: LostCirculation
  8. real(8) :: FlowRate
  9. end type LostProblemsType
  10. ! procedure (ActionInteger), pointer :: LostCirculationPtr
  11. contains
  12. end module CLostProblemsVariables