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

Common icomm 1.f90 - include module

From CFD-Wiki

Revision as of 14:30, 19 May 2016 by Michail (Talk | contribs)
Jump to: navigation, search

!Sample program for solving Lid-driven cavity flow test using SIMPLE-algorithm
! include modul
!Copyright (C) 2010  Michail Kiričkov

!This program is free software; you can redistribute it and/or
!modify it under the terms of the GNU General Public License
!as published by the Free Software Foundation; either version 2
!of the License, or (at your option) any later version.

!This program is distributed in the hope that it will be useful,
!but WITHOUT ANY WARRANTY; without even the implied warranty of
!MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!GNU General Public License for more details.

!You should have received a copy of the GNU General Public License
!along with this program; if not, write to the Free Software
!Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

!**********************************************************************
parameter nx=300, ny=300
 DOUBLE PRECISION  U(nx,ny),V(nx,ny),F(nx,ny,10), &
			Xc(nx,ny),Yc(nx,ny),X(nx,ny),Y(nx,ny),Gam(nx,ny),Ro(nx,ny)
 DOUBLE PRECISION  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),    &
				  Dx_c(nx,ny),    &
				  Dy_c(nx,ny) 
 DOUBLE PRECISION  DPx_c(nx,ny),  &
	           DPy_c(nx,ny),  &
            Con_e(nx,ny),  &              
		   Con_w(nx,ny),  &              
		   Con_n(nx,ny),  &   		 
		   Con_s(nx,ny),  &   		 
		   Con_we(nx,ny),  &              
		   Con_ns(nx,ny),  &   		 
		   Check_Flux(nx,ny),  &
				 DpU(nx,ny),   &
				 DpV(nx,ny),   &
			      Ap(nx,ny,5),   &
			      As(nx,ny),   &
			      An(nx,ny),   &
			      Aw(nx,ny),   &
			      Ae(nx,ny),   &
			      Sp(nx,ny,5)
DOUBLE PRECISION  Istoch_nar_abs,Istoch_nar_whole 
 integer N_centr,N_golbal_iter
 real max_V,min_V,max_U
!-----------------------------------------------
Common /var/  U,V,F, &
			Xc,Yc,X,Y,Gam,Ro,&
			N_centr,N_golbal_iter, &
            Istoch_nar_abs,Istoch_nar_whole, &
			max_V,min_V,max_U
Common /var_Geom/  X_xi,    &
		   Y_xi,    &
		   X_et,    &
		   Y_et,    &
          Del_X_xi,    &
 	      Del_Y_xi,    &
	      Del_X_et,    &
	      Del_Y_et,    &
		  Dx_c,    &
		  Dy_c 
Common /koeff/ Con_e,  &              
		   Con_w,  &              
		   Con_n,  &   		 
		   Con_s,  &   		 
		   Con_we,  &              
		   Con_ns,  &   		 
	       DPx_c,  &
	       DPy_c,  &
		   Check_Flux,  &
				 DpU,   &
				 DpV,   &
			      Ap,   &
			      As,   &
			      An,   &
			      Aw,   &
			      Ae,   &
			      Sp
Common /geomt/ NXmax,NYmax,NXmaxC,NYmaxC  

My wiki