Sample code for solving Lid-Driven cavity test (Re=1000) - Fortran 90 - Revision history

Michail: added some explanation about icomm_1.f90

2012-04-24T05:17:06Z

added some explanation about icomm_1.f90

← Older revision		Revision as of 05:17, 24 April 2012
Line 40:		Line 40:

	*[[Main_Cavity.f90 - Main modul]]		*[[Main_Cavity.f90 - Main modul]]
-	*[[Common_incld.f90 - include module - the same as icomm_1.f90]]	+	*[[Common_incld.f90 - include module]] - the same as icomm_1.f90
	*[[Init_all.f90 - Initiation of arrays]]		*[[Init_all.f90 - Initiation of arrays]]
	*[[Grid_rectangular.f90 - Calculation of grid]]		*[[Grid_rectangular.f90 - Calculation of grid]]

Michail at 05:15, 24 April 2012

2012-04-24T05:15:44Z

← Older revision		Revision as of 05:15, 24 April 2012
Line 40:		Line 40:

	*[[Main_Cavity.f90 - Main modul]]		*[[Main_Cavity.f90 - Main modul]]
-	*[[Common_incld.f90 - include module]]	+	*[[Common_incld.f90 - include module - the same as icomm_1.f90]]
	*[[Init_all.f90 - Initiation of arrays]]		*[[Init_all.f90 - Initiation of arrays]]
	*[[Grid_rectangular.f90 - Calculation of grid]]		*[[Grid_rectangular.f90 - Calculation of grid]]

Michail at 19:01, 3 May 2010

2010-05-03T19:01:42Z

← Older revision		Revision as of 19:01, 3 May 2010
Line 31:		Line 31:
	Structured orthogonal uniform grid is used (now). All variables are saved in array '''F(1:nx,1:ny,10)''' which mean that 2D array for 10 variables.		Structured orthogonal uniform grid is used (now). All variables are saved in array '''F(1:nx,1:ny,10)''' which mean that 2D array for 10 variables.

-	Variables '''F(:,:,1)''' and '''F(:,:,2)''' represented U and V velocity components, and '''F(:,:,4)'''represented pressure. '''F(:,:,3)''' represents pressure correction.	+	Variables '''F(:,:,1)''' and '''F(:,:,2)''' represented U and V velocity components, and '''F(:,:,4)'''represented pressure.
		+
		+	'''F(:,:,3)''' represents pressure correction.

	Arrays '''Xc''' and '''Yc''' represents the coordinates of the CV centres, and '''X''' and '''Y''' - coordinates of grids nodes		Arrays '''Xc''' and '''Yc''' represents the coordinates of the CV centres, and '''X''' and '''Y''' - coordinates of grids nodes

Michail at 18:48, 3 May 2010

2010-05-03T18:48:20Z

← Older revision		Revision as of 18:48, 3 May 2010
Line 24:		Line 24:
	'''Short description'''		'''Short description'''

-	In this program ~~general transport equation for scalar transport~~ is ~~solved~~.	+	In this program SIMPLE algorithm on colocated, regular and orthogonal grid is implemented.
		+
		+	Rhie-Chow interpolation is used.
		+
	Because it was primarily developing program for learning, there was implemented an output for all variables in the txt format as well as for TECPLOT format.		Because it was primarily developing program for learning, there was implemented an output for all variables in the txt format as well as for TECPLOT format.
	Structured orthogonal uniform grid is used (now). All variables are saved in array '''F(1:nx,1:ny,10)''' which mean that 2D array for 10 variables.		Structured orthogonal uniform grid is used (now). All variables are saved in array '''F(1:nx,1:ny,10)''' which mean that 2D array for 10 variables.

-	Variables '''F(:,:,1)''' and '''F(:,:,2)''' represented U and V velocity components, and '''F(:,:,4)'''represented pressure.	+	Variables '''F(:,:,1)''' and '''F(:,:,2)''' represented U and V velocity components, and '''F(:,:,4)'''represented pressure. '''F(:,:,3)''' represents pressure correction.

	Arrays '''Xc''' and '''Yc''' represents the coordinates of the CV centres, and '''X''' and '''Y''' - coordinates of grids nodes		Arrays '''Xc''' and '''Yc''' represents the coordinates of the CV centres, and '''X''' and '''Y''' - coordinates of grids nodes
Line 52:		Line 55:
	[[Image:Faces_annumeration_01.jpg]]		[[Image:Faces_annumeration_01.jpg]]
	[[Image:Faces_annumeration_02.jpg]]		[[Image:Faces_annumeration_02.jpg]]
		+	[[Image:Faces_annumeration_03.jpg]]

	[[Image:CavityRe1000.jpg]]		[[Image:CavityRe1000.jpg]]

Michail at 18:32, 3 May 2010

2010-05-03T18:32:52Z

← Older revision		Revision as of 18:32, 3 May 2010
Line 51:		Line 51:

	[[Image:Faces_annumeration_01.jpg]]		[[Image:Faces_annumeration_01.jpg]]
		+	[[Image:Faces_annumeration_02.jpg]]

	[[Image:CavityRe1000.jpg]]		[[Image:CavityRe1000.jpg]]

Michail at 18:17, 3 May 2010

2010-05-03T18:17:59Z

← Older revision		Revision as of 18:17, 3 May 2010
Line 49:		Line 49:
	-----------------------------------------------------------------		-----------------------------------------------------------------
	[[Image:Grid_annumeration_for_cavity.jpg]]		[[Image:Grid_annumeration_for_cavity.jpg]]
		+
		+	[[Image:Faces_annumeration_01.jpg]]

	[[Image:CavityRe1000.jpg]]		[[Image:CavityRe1000.jpg]]

Michail at 16:22, 3 May 2010

2010-05-03T16:22:18Z

← Older revision		Revision as of 16:22, 3 May 2010
Line 48:		Line 48:

	-----------------------------------------------------------------		-----------------------------------------------------------------
-		+	[[Image:Grid_annumeration_for_cavity.jpg]]

	[[Image:CavityRe1000.jpg]]		[[Image:CavityRe1000.jpg]]

Michail at 14:50, 3 May 2010

2010-05-03T14:50:14Z

← Older revision		Revision as of 14:50, 3 May 2010
Line 54:		Line 54:
	V - velocity distribution along X=0.5		V - velocity distribution along X=0.5
	[[Image:Profiles_V.jpg]]		[[Image:Profiles_V.jpg]]
		+
		+	U - velocity distribution along Y=0.5
		+	[[Image:Profiles U.jpg]]

Michail at 14:19, 3 May 2010

2010-05-03T14:19:49Z

← Older revision		Revision as of 14:19, 3 May 2010
Line 51:		Line 51:

	[[Image:CavityRe1000.jpg]]		[[Image:CavityRe1000.jpg]]
		+
		+	V - velocity distribution along X=0.5
		+	[[Image:Profiles_V.jpg]]

Michail at 14:11, 3 May 2010

2010-05-03T14:11:36Z

← Older revision		Revision as of 14:11, 3 May 2010
Line 46:		Line 46:
	*[[Convergence_Criteria.f90 - Calculation of convergence]]		*[[Convergence_Criteria.f90 - Calculation of convergence]]
	*[[Out_array.f90 - Output into the .txt file]]		*[[Out_array.f90 - Output into the .txt file]]
		+
		+	-----------------------------------------------------------------
		+
		+
		+	[[Image:CavityRe1000.jpg]]