CFD Online Logo CFD Online URL
www.cfd-online.com
[Sponsors]
Home > Wiki > Icomm 1.f90 - include module

Icomm 1.f90 - include module

From CFD-Wiki

Revision as of 02:32, 19 September 2005 by Michail (Talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

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

My wiki