c begin include file cchero.inc c + + + COMMON BLOCK DESCRIPTION + + + c + + + INSERT DESCRIPTION HERE + + + common /chero/ phi(mxpart),dl(mxpart),dtcdx(mxpart), 1 dlat(mxpart),du(mxpart),tcl(mxpart),tcu(mxpart), 1 gsl(mxpart),gsu(mxpart),gstl(mxpart),gstu(mxpart), 1 potld(mxpart),gstde(mxpart),dde(mxpart),xde(mxpart), 1 xdbeg(mxpart),exdet(mxpart),gsde(mxpart),df(mxpart) c + + + VARIABLE DECLARATIONS + + + real phi,dl,dtcdx,dlat,du,tcl,tcu,gsl,gsu,gstl,gstu,potld, 1 gstde,dde,xde,xdbeg,exdet,gsde,df c + + + VARIABLE DEFINITIONS + + + c phi(mxpart) : c dl(mxpart) : c dtcdx(mxpart) : c dlat(mxpart) : c du(mxpart) : c tcl(mxpart) : c tcu(mxpart) : c gsl(mxpart) : c gsu(mxpart) : c gstl(mxpart) : c gstu(mxpart) : c potld(mxpart) : c gstde(mxpart) : c dde(mxpart) : c xde(mxpart) : c xdbeg(mxpart) : c exdet(mxpart) : c gsde(mxpart) : c df(mxpart) : c end include file cchero.inc