cgnslib.f90

国外大名顶顶的“台风”并行计算流体力学CFD软件的早期版本的源代码

  integer, parameter :: OneEquation_BaldwinBarth    = 14
  integer, parameter :: OneEquation_SpalartAllmaras = 15
  integer, parameter :: TwoEquation_JonesLaunder    = 16
  integer, parameter :: TwoEquation_MenterSST       = 17
  integer, parameter :: TwoEquation_Wilcox          = 18
  character(len=cgnslen), parameter :: ModelTypeName(0:18) = &
    (/'Null                            ','UserDefined                     ',&
      'Ideal                           ','VanderWaals                     ',&
      'Constant                        ','PowerLaw                        ',&
      'SutherlandLaw                   ','ConstantPrandtl                 ',&
      'EddyViscosity                   ','ReynoldsStress                  ',&
      'ReynoldsStressAlgebraic         ','Algebraic_BaldwinLomax          ',&
      'Algebraic_CebeciSmith           ','HalfEquation_JohnsonKing        ',&
      'OneEquation_BaldwinBarth        ','OneEquation_SpalartAllmaras     ',&
      'TwoEquation_JonesLaunder        ','TwoEquation_MenterSST           ',&
      'TwoEquation_Wilcox              '/)

!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *\
!*      Boundary Condition Types                                         *
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

  character(len=cgnslen), parameter :: BCTypeName(0:25) = &
    (/'Null                            ','UserDefined                     ',&
      'BCAxisymmetricWedge             ','BCDegenerateLine                ',&
      'BCDegeneratePoint               ','BCDirichlet                     ',&
      'BCExtrapolate                   ','BCFarfield                      ',&
      'BCGeneral                       ','BCInflow                        ',&
      'BCInflowSubsonic                ','BCInflowSupersonic              ',&
      'BCNeumann                       ','BCOutflow                       ',&
      'BCOutflowSubsonic               ','BCOutflowSupersonic             ',&
      'BCSymmetryPlane                 ','BCSymmetryPolar                 ',&
      'BCTunnelInflow                  ','BCTunnelOutflow                 ',&
      'BCWall                          ','BCWallInviscid                  ',&
      'BCWallViscous                   ','BCWallViscousHeatFlux           ',&
      'BCWallViscousIsothermal         ','FamilySpecified                 ' /)
  integer, parameter :: BCAxisymmetricWedge     = 2
  integer, parameter :: BCDegenerateLine        = 3
  integer, parameter :: BCDegeneratePoint       = 4
  integer, parameter :: BCDirichlet             = 5
  integer, parameter :: BCExtrapolate           = 6
  integer, parameter :: BCFarfield              = 7
  integer, parameter :: BCGeneral               = 8
  integer, parameter :: BCInflow                = 9
  integer, parameter :: BCInflowSubsonic        = 10
  integer, parameter :: BCInflowSupersonic      = 11
  integer, parameter :: BCNeumann               = 12
  integer, parameter :: BCOutflow               = 13
  integer, parameter :: BCOutflowSubsonic       = 14
  integer, parameter :: BCOutflowSupersonic     = 15
  integer, parameter :: BCSymmetryPlane         = 16
  integer, parameter :: BCSymmetryPolar         = 17
  integer, parameter :: BCTunnelInflow          = 18
  integer, parameter :: BCTunnelOutflow         = 19
  integer, parameter :: BCWall                  = 20
  integer, parameter :: BCWallInviscid          = 21
  integer, parameter :: BCWallViscous           = 22
  integer, parameter :: BCWallViscousHeatFlux   = 23
  integer, parameter :: BCWallViscousIsothermal = 24
  integer, parameter :: FamilySpecified         = 25

!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *\
!*      Data types                                                       *
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

  character(len=cgnslen), parameter :: DataTypeName(0:5) = &
    (/'Null                            ','UserDefined                     ',&
      'Integer                         ','RealSingle                      ',&
      'RealDouble                      ','Character                       ' /)
  integer, parameter :: Integer    = 2
  integer, parameter :: RealSingle = 3
  integer, parameter :: RealDouble = 4
  integer, parameter :: Character  = 5


!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *\
!*      BCData_t types                                                   *
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

  character(len=cgnslen), parameter :: BCDataTypeName(0:3) = &
    (/'Null                            ','UserDefined                     ',&
      'Dirichlet                       ','Neumann                         ' /)
  integer, parameter :: Dirichlet = 2
  integer, parameter :: Neumann   = 3

!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *\
!*      Element types                                                    *
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

  character(len=cgnslen), parameter :: ElementTypeName(0:21) = &
    (/'Null                            ','UserDefined                     ',&
      'NODE                            ','BAR_2                           ',&
      'BAR_3                           ','TRI_3                           ',&
      'TRI_6                           ','QUAD_4                          ',&
      'QUAD_8                          ','QUAD_9                          ',&
      'TETRA_4                         ','TETRA_10                        ',&
      'PYRA_5                          ','PYRA_14                         ',&
      'PENTA_6                         ','PENTA_15                        ',&
      'PENTA_18                        ','HEXA_8                          ',&
      'HEXA_20                         ','HEXA_27                         ',&
      'MIXED                           ','NGON_n                          ' /)
  integer, parameter :: NODE     =  2
  integer, parameter :: BAR_2    =  3
  integer, parameter :: BAR_3    =  4
  integer, parameter :: TRI_3    =  5
  integer, parameter :: TRI_6    =  6
  integer, parameter :: QUAD_4   =  7
  integer, parameter :: QUAD_8   =  8
  integer, parameter :: QUAD_9   =  9
  integer, parameter :: TETRA_4  = 10
  integer, parameter :: TETRA_10 = 11
  integer, parameter :: PYRA_5   = 12
  integer, parameter :: PYRA_14  = 13
  integer, parameter :: PENTA_6  = 14
  integer, parameter :: PENTA_15 = 15
  integer, parameter :: PENTA_18 = 16
  integer, parameter :: HEXA_8   = 17
  integer, parameter :: HEXA_20  = 18
  integer, parameter :: HEXA_27  = 19
  integer, parameter :: MIXED    = 20
  integer, parameter :: NGON_n  = 21

!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *\
!*      Zone types                                                       *
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

  character(len=cgnslen), parameter :: ZoneTypeName(0:3) = &
    (/'Null                            ','UserDefined                     ',&
      'Structured                      ','Unstructured                    ' /)
  integer, parameter :: Structured   =  2
  integer, parameter :: Unstructured =  3

!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *\
!*      Rigid Grid Motion types						 *
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

  character(len=cgnslen), parameter :: RigidGridMotionTypeName(0:3) = &
    (/'Null                            ','UserDefined                     ',&
      'ConstantRate                    ','VariableRate                    ' /)
  integer, parameter :: ConstantRate = 2
  integer, parameter :: VariableRate = 3

!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *\
!*      Arbitrary Grid Motion types                                      *
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

  character(len=cgnslen), parameter :: ArbitraryGridMotionTypeName(0:3) = &
    (/'Null                            ','UserDefined                     ',&
      'NonDeformingGrid                ','DeformingGrid                   ' /)
  integer, parameter :: NonDeformingGrid = 2
  integer, parameter :: DeformingGrid = 3

!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *\
!*      Simulation type							 *
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

  character(len=cgnslen), parameter :: SimulationTypeName(0:3) = &
    (/'Null                            ','UserDefined                     ',&
      'TimeAccurate                    ','NonTimeAccurate                 ' /)
  integer, parameter :: TimeAccurate = 2
  integer, parameter :: NonTimeAccurate = 3


endmodule CGNSLIB