bleedFlows.f90

Go to the documentation of this file.

module bleedflows
!
!       Module which contains the derived data types as well as the
!       corresponding arrays to store the information needed to model
!       the bleed flows. Both inflow bleeds and outflow bleeds are
!       possible.
!
    use constants, only: inttype, realtype
    implicit none
    save
!
!       The definition of the derived data type for the flow bleeds.
!
    type bleedflowtype
 
        ! familyID:    Corresponding family ID.
        ! massFlux:    Prescribed mass flux,
        ! curMassFlux: Current mass flux. When converged this should
        !              be equal to massFlux.
 
        integer(kind=intType) :: familyid
        real(kind=realtype) :: massflux, curmassflux
 
    end type bleedflowtype
!
!       Variables stored in this module.
!
    ! nInflowBleeds:    Number of inflow bleeds present.
    ! nOutflowBleeds:   Number of outflow bleeds present.
    ! inflowBleeds(:):  Array with the information for the inflow
    !                   bleeds.
    ! outflowBleeds(:): Array with the information for the outflow
    !                   bleeds.
 
    integer(kind=intType) :: ninflowbleeds
    integer(kind=intType) :: noutflowbleeds
    integer(kind=intType) :: noutflowsubsonic, ninflowsubsonic ! eran-massf
 
    type(bleedflowtype), dimension(:), allocatable :: inflowbleeds
    type(bleedflowtype), dimension(:), allocatable :: outflowbleeds
 
end module bleedflows