Icomm 1.f90 - include module

Revision as of 02:32, 19 September 2005 by Michail (Talk | contribs)

parameter nx=500, ny=500

Common /var/ U(nx,ny),V(nx,ny),PP(nx,ny),F(nx,ny,10), &

Xp(nx,ny),Yp(nx,ny),X(nx,ny),Y(nx,ny),Gam(nx,ny),Ro(nx,ny)

Common /var_Geom/ X_xi(nx,ny), &

Y_xi(nx,ny), &

X_et(nx,ny), &

Y_et(nx,ny), &

Del_X_xi(nx,ny), &

Del_Y_xi(nx,ny), &

Del_X_et(nx,ny), &

Del_Y_et(nx,ny)

Common /koeff/ Ap(nx,ny), &

As(nx,ny), &

An(nx,ny), &

Aw(nx,ny), &

Ae(nx,ny), &

Sp(nx,ny)

Common /geomt/ NXmax,NYmax,NXmaxP,NYmaxP