cgnsNames.f90

Go to the documentation of this file.

module cgnsnames
!
!       Parametrized cgns names of the variables used in this code.
!
    use constants, only: maxcgnsnamelen
    implicit none
    save
!
!       Time history values.
!
    character(len=maxCGNSNameLen), parameter :: &
        cgnstimevalue = "TimeValues"
!
!       coordinate names.
!
    character(len=maxCGNSNameLen), parameter :: &
        cgnscoorx = "CoordinateX"
    character(len=maxCGNSNameLen), parameter :: &
        cgnscoory = "CoordinateY"
    character(len=maxCGNSNameLen), parameter :: &
        cgnscoorz = "CoordinateZ"
    character(len=maxCGNSNameLen), parameter :: &
        cgnscoorr = "CoordinateR"
!
!       Variable names.
!
    character(len=maxCGNSNameLen), parameter :: &
        cgnsdensity = "Density"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsmomx = "MomentumX"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsmomy = "MomentumY"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsmomz = "MomentumZ"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsenergy = "EnergyStagnationDensity"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsturbsanu = "TurbulentSANuTilde"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsturbk = "TurbulentEnergyKinetic"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsturbomega = "TurbulentDissipationRate"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsturbtau = "TurbulentInvDissipationRate"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsturbepsilon = "TurbulentDissipation"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsturbv2 = "TurbulentScalarV2"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsturbf = "TurbulentScalarF"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvelx = "VelocityX"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvely = "VelocityY"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvelz = "VelocityZ"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsrelvelx = "RelativeVelocityX"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsrelvely = "RelativeVelocityY"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsrelvelz = "RelativeVelocityZ"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvelr = "VelocityR"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsveltheta = "VelocityTheta"
    character(len=maxCGNSNameLen), parameter :: &
        cgnspressure = "Pressure"
    character(len=maxCGNSNameLen), parameter :: &
        cgnstemp = "Temperature"
    character(len=maxCGNSNameLen), parameter :: &
        cgnscp = "CoefPressure"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsmach = "Mach"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsrelmach = "RelativeMach"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsmachturb = "MachTurbulent"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsviscmol = "ViscosityMolecular"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvisckin = "ViscosityKinematic"
    character(len=maxCGNSNameLen), parameter :: &
        cgnseddy = "ViscosityEddy"
    character(len=maxCGNSNameLen), parameter :: &
        cgnseddyratio = "ViscosityEddyRatio"
    character(len=maxCGNSNameLen), parameter :: &
        cgnswalldist = "TurbulentDistance"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvortmagn = "VorticityMagnitude"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvortx = "VorticityX"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvorty = "VorticityY"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvortz = "VorticityZ"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsptotloss = "RelativePressureStagnationLoss"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnsrhotot = "DensityStagnation"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsptot = "PressureStagnation"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsttot = "TemperatureStagnation"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnsskinfmag = "SkinFrictionMagnitude"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsskinfx = "SkinFrictionX"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsskinfy = "SkinFrictionY"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsskinfz = "SkinFrictionZ"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsforceindragdir = "ForceInDragDir"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsforceinliftdir = "ForceInLiftDir"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsstanton = "StantonNumber"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsyplus = "YPlus"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvelocity = "Mach_Velocity"
    character(len=maxCGNSNameLen), parameter :: &
        cgnssoundspeed = "Mach_VelocitySound"
    character(len=maxCGNSNameLen), parameter :: &
        cgnslength = "LengthReference"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsreyn = "Reynolds"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsreynlen = "Reynolds_Length"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsheatratio = "SpecificHeatRatio"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsprandtl = "Prandtl"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsprandtlturb = "PrandtlTurbulent"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvelanglex = "VelocityAngleX"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvelangley = "VelocityAngleY"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvelanglez = "VelocityAngleZ"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvelvecx = "VelocityUnitVectorX"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvelvecy = "VelocityUnitVectorY"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvelvecz = "VelocityUnitVectorZ"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvelvecr = "VelocityUnitVectorR"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsvelvectheta = "VelocityUnitVectorTheta"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnsmassflow = "MassFlow"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnsshock = "Shock"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnsfilteredshock = "FilteredShock"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnsgc = "globalCell"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnsstatus = "status"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnsintermittency = "Intermittency"
 
!
!       Residual names.
!
    character(len=maxCGNSNameLen), parameter :: &
        cgnsresrho = "ResDensity"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsresmomx = "ResMomentumX"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsresmomy = "ResMomentumY"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsresmomz = "ResMomentumZ"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsresrhoe = "ResEnergyStagnationDensity"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsresnu = "ResTurbulentSANuTilde"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsresk = "ResTurbulentEnergyKinetic"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsresomega = "ResTurbulentDissipationRate"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsrestau = "ResTurbulentInvDissipationRate"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsresepsilon = "ResTurbulentDissipation"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsresv2 = "ResTurbulentScalarV2"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsresf = "ResTurbulentScalarF"
!
!       Residual L2 norm names.
!
    character(len=maxCGNSNameLen), parameter :: &
        cgnsl2resrho = "RSDMassRMS"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsl2resmomx = "RSDMomentumXRMS"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsl2resmomy = "RSDMomentumYRMS"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsl2resmomz = "RSDMomentumZRMS"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsl2resrhoe = "RSDEnergyStagnationDensityRMS"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsl2resnu = "RSDTurbulentSANuTildeRMS"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsl2resk = "RSDTurbulentEnergyKineticRMS"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsl2resomega = "RSDTurbulentDissRateRMS"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsl2restau = "RSDTurbulentInvDissRateRMS"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsl2resepsilon = "RSDTurbulentDissRMS"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsl2resv2 = "RSDTurbulentScalarV2RMS"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsl2resf = "RSDTurbulentScalarFRMS"
!
!       Force and moment coefficients names.
!
    character(len=maxCGNSNameLen), parameter :: &
        cgnscl = "CoefLift"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsclp = "CoefPressureLift"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsclv = "CoefViscousLift"
    character(len=maxCGNSNameLen), parameter :: &
        cgnscd = "CoefDrag"
    character(len=maxCGNSNameLen), parameter :: &
        cgnscdp = "CoefPressureDrag"
    character(len=maxCGNSNameLen), parameter :: &
        cgnscdv = "CoefViscousDrag"
 
    character(len=maxCGNSNameLen), parameter :: &
        cgnscfx = "CoefForceX"
    character(len=maxCGNSNameLen), parameter :: &
        cgnscfy = "CoefForceY"
    character(len=maxCGNSNameLen), parameter :: &
        cgnscfz = "CoefForceZ"
    character(len=maxCGNSNameLen), parameter :: &
        cgnscmx = "CoefMomentX"
    character(len=maxCGNSNameLen), parameter :: &
        cgnscmy = "CoefMomentY"
    character(len=maxCGNSNameLen), parameter :: &
        cgnscmz = "CoefMomentZ"
!
!       Names of the "maximum" variables.
!
    character(len=maxCGNSNameLen), parameter :: &
        cgnshdiffmax = "MaxDiffHAndHinf"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsmachmax = "MaxMach"
    character(len=maxCGNSNameLen), parameter :: &
        cgnsyplusmax = "MaxYplus"
    character(len=maxCGNSNameLen), parameter :: &
        cgnseddymax = "MaxRatioEddyAndLaminarViscosity"
!
!       Names of the blanking paramter.
!
    character(len=maxCGNSNameLen), parameter :: cgnsblank = "Iblank"
!
!       Names of the "lift" force, separation sensor and cavitation
!
    character(len=maxCGNSNameLen), parameter :: cgnssepsensor = "SepSensor"
    character(len=maxCGNSNameLen), parameter :: cgnssepsensorks = "SepSensorKs"
    character(len=maxCGNSNameLen), parameter :: cgnssepsensorksarea = "SepSensorKsArea"
    character(len=maxCGNSNameLen), parameter :: cgnscavitation = "Cavitation"
    character(len=maxCGNSNameLen), parameter :: cgnsaxismoment = "AxisMoment"
!
!       Names for the convergence history and time history.
!
    character(len=maxCGNSNameLen), parameter :: &
        convhistory = "ConvergenceHistory"
    character(len=maxCGNSNameLen), parameter :: &
        timehistory = "TimeHistory"
 
end module cgnsnames