CFD Online Logo CFD Online URL
www.cfd-online.com
[Sponsors]
Home > Wiki > Example code for solving Smith-Hutton test - Fortran 90

Example code for solving Smith-Hutton test - Fortran 90

From CFD-Wiki

(Difference between revisions)
Jump to: navigation, search
 
(3 intermediate revisions not shown)
Line 1: Line 1:
''Dear friends''
''Dear friends''
-
''It's jast a scrap. Later I'll correct it, although it's a complete working code''
+
''It's just a scrap. Later I'll correct it, although it's a complete working code''
-
''Developer''
+
'''This code have been developed completely by myself in my native Marijampole. Please use it without limitations. Also I ask to add here procedures, which implement other schemes of approximation'''
-
[[Bound_1.f90 - Set boundary conditions]]
+
'''Kirichkov Michail, Lithuania, Marijampole, 2005 09 19'''
-
[[Check_koeff.f90 - Performing checking of koefficients]]
+
 
-
[[Coeff_11.f90 - calculate the coefficients]]
+
*[[Bound_1.f90 - Set boundary conditions]]
-
[[Contr_gem1.f90]]
+
*[[Check_koeff.f90 - Performing checking of koefficients]]
-
[[COnvrg_sub.f90 - calculationg ]]
+
*[[Coeff_11.f90 - calculate the coefficients]]
-
[[Geom_1.f90]]
+
*[[Contr_gem1.f90]]
-
[[Grid_sub.f90]]
+
*[[COnvrg_sub.f90 - calculationg ]]
-
[[HLPA.f90]]
+
*[[Geom_1.f90]]
-
[[ini.f90]]
+
*[[Grid_sub.f90]]
-
[[input.f90]]
+
*[[HLPA.f90]]
-
[[Main.f90 - Main modul]]
+
*[[ini.f90]]
-
[[Out_array_1.f90]]
+
*[[input.f90]]
-
[[Output_aa.f90]]
+
*[[Main.f90 - Main modul]]
-
[[TDMA_11.f90 - Solution of system of linear equatrions by Thomas method]]
+
*[[Out_array_1.f90]]
-
[[icomm_1.f90 - include module]]
+
*[[Output_aa.f90]]
 +
*[[TDMA_11.f90 - Solution of system of linear equatrions by Thomas method]]
 +
*[[icomm_1.f90 - include module]]

Latest revision as of 05:53, 19 September 2005

Dear friends

It's just a scrap. Later I'll correct it, although it's a complete working code

This code have been developed completely by myself in my native Marijampole. Please use it without limitations. Also I ask to add here procedures, which implement other schemes of approximation

Kirichkov Michail, Lithuania, Marijampole, 2005 09 19

My wiki