819 |
& tCylIn, tCylOut, |
& tCylIn, tCylOut, |
820 |
& phiEuler, thetaEuler, psiEuler |
& phiEuler, thetaEuler, psiEuler |
821 |
#ifdef ALLOW_PRESSURE_RELEASE_CODE |
#ifdef ALLOW_PRESSURE_RELEASE_CODE |
822 |
& ,cg2dMinColumnEps, pReleaseVisc |
& ,cg2dMinColumnEps, pReleaseVisc, pReleaseDamp |
823 |
#endif |
#endif |
824 |
|
|
825 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
958 |
_RL tCylIn, tCylOut |
_RL tCylIn, tCylOut |
959 |
_RL phiEuler, thetaEuler, psiEuler |
_RL phiEuler, thetaEuler, psiEuler |
960 |
#ifdef ALLOW_PRESSURE_RELEASE_CODE |
#ifdef ALLOW_PRESSURE_RELEASE_CODE |
961 |
_RL cg2dMinColumnEps, pReleaseVisc |
_RL cg2dMinColumnEps, pReleaseVisc, pReleaseDamp |
962 |
#endif |
#endif |
963 |
|
|
964 |
C-- COMMON /PARM_A/ Thermodynamics constants ? |
C-- COMMON /PARM_A/ Thermodynamics constants ? |