Ini.f90

From CFD-Wiki

Subroutine Ini

include 'icomm_1.f90'

U(nx,ny) = 0.

V(nx,ny) = 0. 

PP(nx,ny) = 0.

F(nx,ny,10) = 0.

Xp(nx,ny) = 0.

Yp(nx,ny) = 0.

X(nx,ny) = 0.

Y(nx,ny) = 0.

Gam(nx,ny) = 0.

Ro(nx,ny) = 0.

X_xi(nx,ny) = 0.

Y_xi(nx,ny) = 0.  

X_et(nx,ny) = 0. 

Y_et(nx,ny) = 0.

Del_X_xi(nx,ny) = 0.

Del_Y_xi(nx,ny) = 0.

Del_X_et(nx,ny) = 0.

Del_Y_et(nx,ny) = 0.     

Ap(nx,ny) = 0.

As(nx,ny) = 0.

An(nx,ny) = 0.

Aw(nx,ny) = 0.

Ae(nx,ny) = 0.

Sp(nx,ny) = 0.

Return

End