# v3_solvermatch_list describes for a solver a fixed variable name and
# its name within a results file.  Each solver entry of form
#
# <solver name> <list of file extensions> {
# <fixed name 1> <variable in solver 1> <fixed name 2> <in solver 2> ...
# }
#
proc v3_solvermatch_list {} {
    global v3readers
    
    set cgns [list cgns cgns \
		  {{velocity_x VelocityX} \
		       {velocity_y VelocityY} \
		       {velocity_z VelocityZ} \
		       {momentum_x MomentumX} \
		       {momentum_y MomentumY} \
		       {momentum_z MomentumZ} \
		       {mach Mach} \
		       {pressure Pressure} \
		       {pressure_stagnation PressureStagnation} \
		       {density Density} \
		       {density_stagnation DensityStagnation} \
		       {mass_flow MassFlow} \
		       {energy_kinetic EnergyKinetic} \
		       {energy_internal EnergyInternal} \
		       {energy_stagnation EnergyStagnation} \
		       {temperature Temperature} \
		       {temperature_stagnation TemperatureStagnation} \
		       {enthalpy Enthalpy} \
		       {enthalpy_stagnation EnthalpyStagnation} \
		       {thermal_conductivity ThermalConductivity} \
		       {viscosity_eddy_kinematic ViscosityEddyKinematic} \
		       {viscosity_eddy ViscosityEddy} \
		       {turbulent_energy_kinetic TurbulentEnergyKinetic} \
		       {turbulent_dissipation TurbulentDissipation} \
		       {cp CoefPressure} \
		       {force_x ForceX} {force_y ForceY} {force_z ForceZ} \
		       {skinfriction_x SkinFrictionX} \
		       {skinfriction_y SkinFrictionY} \
		       {skinfriction_z SkinFrictionZ} \
		   }]
    
    set fluent [list fluent {cas msh} \
		    {{velocity_x velocity;x} \
			 {velocity_y velocity;y} \
			 {velocity_z velocity;z} \
			 {momentum_x momentum;x} \
			 {momentum_y momentum;y} \
			 {momentum_z momentum;z} \
			 {pressure pressure} \
			 {density density} \
			 {temperature temperature_1} \
			 {heat_flux boundary_heat_flux} \
			 {rad_heat_flux rad_hea*_flux} \
			 {enthalpy enthalpy} \
			 {mass_flow mass_flux} \
			 {y+ yplus} \
			 {viscosity_eddy mu_turb} \
			 {turbulent_energy_kinetic tke} \
			 {turbulent_dissipation ted} \
			 {force_x body_forces;x} \
			 {force_y body_forces;y} \
			 {force_z body_forces;z} \
			 {shear_x wall_shear;x} \
			 {shear_y wall_shear;y} \
			 {shear_z wall_shear;z} \
		     }]
    
    set starcd [list STAR-CD {uns domain} \
		    {{density Dens} \
			 {enthalpy ENTHAPY} \
			 {mass_flow "Mass Flux"} \
			 {y+ YPlus} \
			 {heat_flux "Heat Flux"} \
			 {viscosity_eddy VIS} \
			 {turbulent_dissipation ED} \
			 {turbulent_energy_kinetic TE} \
			 {velocity_x U} \
			 {velocity_y V} \
			 {velocity_z W} \
			 {pressure P} \
			 {temperature T} \
		     }]

    # append variables lists to varlist before appending
    # to domain
    
    set domain [list domain {uns domain}]
    set varlist [lindex $starcd 2]
    append varlist " [lindex $fluent 2]"
    lappend domain $varlist
		    
    set v3readers(solverlist) [list $cgns $domain $fluent $starcd]
    set v3readers(match_init) 1
}
