Variables
c ***************************************c Macros for the Visco plastic Model *c *************************************c	NOTE

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr	nuTd

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr	u0y

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr	u0z

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr	v0x

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr	v0y

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr	v0z

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr	w0x

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr	w0y

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr w0z are defined c Used in insdt bf	c

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr w0z are defined c Used in insdt bf	i2

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr w0z are defined c Used in insdt bf	nuT

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr w0z are defined c Used in insdt bf	nuTx

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr w0z are defined c Used in insdt bf	nuTy

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr w0z are defined c Used in insdt bf	nuTxx

c ***************************************c Macros for the Visco plastic Model *c ***************************************c esr w0z are defined c Used in insdt bf	nuTxy

Variable Documentation

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr w0z are defined c Used in insdt bf c

Initial value:

============================================================================
  u0xx = UXX(uc)
  u0xy = UXY(uc)
  u0yy = UYY(uc)
  v0xx = UXX(vc)
  v0xy = UXY(vc)
  v0yy = UYY(vc)
  eDotNorm = strainRate2d()
  getViscoPlasticViscosityAndFirstDerivative(eDotNorm)
  nuTx = nuTd*strainRate2dSqx()
  nuTy = nuTd*strainRate2dSqy()
  ! this needs to be finished
 nuT=nu
 nuTx=0. 
 nuTy=0. 
 nuTz=0. 
 stop 7744
!      write(*,9000) i1

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr w0z are defined c Used in insdt bf i2

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c** NOTE

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr w0z are defined c Used in insdt bf nuT

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr nuTd

Initial value:

= .5*( (-1./esr)*(1.-exp0) + exponentVP*exp0  )*(yieldStressVP/esr**2)
  getViscoPlasticViscosityAndFirstDerivative(esr)
!  nuTdd=  .25*( 3./(esr**2)*(1.-exp0) -2./(esr)*exponentVP*exp0 + exponentVP**2*exp0 )*(yieldStressVP/esr**2)
  nuTdd=  .25*( 3./(esr**2)*(1.-exp0) -3./(esr)*exponentVP*exp0 - exponentVP**2*exp0 )*(yieldStressVP/esr**3)
c =============================================================================
c Evaluate the coefficients of the visco-plastic model
c   This macro assumes u0x

Referenced by Cgins::addForcing(), and Cgins::addForcingToPressureEquation().

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr w0z are defined c Used in insdt bf nuTx

Referenced by Cgins::addForcing(), and Cgins::addForcingToPressureEquation().

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr w0z are defined c Used in insdt bf nuTxx

Referenced by Cgins::addForcingToPressureEquation().

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr w0z are defined c Used in insdt bf nuTxy

Referenced by Cgins::addForcingToPressureEquation().

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr w0z are defined c Used in insdt bf nuTy

Referenced by Cgins::addForcing(), and Cgins::addForcingToPressureEquation().

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr u0y

Referenced by Cgins::addForcing(), Cgasf::addForcing(), Cgcns::addForcing(), Cgins::addForcingToPressureEquation(), Cgasf::getUt(), and InsParameters::getViscoPlasticVariables().

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr u0z

Referenced by Cgins::addForcing(), Cgasf::addForcing(), Cgcns::addForcing(), Cgins::addForcingToPressureEquation(), Cgasf::getUt(), and InsParameters::getViscoPlasticVariables().

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr v0x

Referenced by Cgins::addForcing(), Cgasf::addForcing(), Cgcns::addForcing(), Cgins::addForcingToPressureEquation(), Cgasf::getUt(), and InsParameters::getViscoPlasticVariables().

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr v0y

Referenced by Cgasf::addAllSpeedImplicitForcing(), Cgins::addForcing(), Cgasf::addForcing(), Cgcns::addForcing(), Cgins::addForcingToPressureEquation(), Cgins::computeAxisymmetricDivergence(), Cgasf::getUt(), and InsParameters::getViscoPlasticVariables().

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr v0z

Referenced by Cgins::addForcing(), Cgasf::addForcing(), Cgcns::addForcing(), Cgins::addForcingToPressureEquation(), Cgasf::getUt(), and InsParameters::getViscoPlasticVariables().

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr w0x

Referenced by Cgins::addForcing(), Cgasf::addForcing(), Cgcns::addForcing(), Cgins::addForcingToPressureEquation(), Cgasf::getUt(), and InsParameters::getViscoPlasticVariables().

c***************************************** c** Macros for the Visco plastic Model*** c***************************************** c esr w0y

Referenced by Cgins::addForcing(), Cgasf::addForcing(), Cgcns::addForcing(), Cgins::addForcingToPressureEquation(), Cgasf::getUt(), and InsParameters::getViscoPlasticVariables().