program PROG8_CFD1 ! Escoamento Bidimensional Isotérmico e ! Permanente de Fluido Incompressível ! Versão original 1.0 (25 Mar 99) ! Versão atual 1.1 (30 Abr 99) STOKES ! última alteração = 03 Nov 03 ! Autor: Carlos Henrique Marchi ! DEMEC/UFPR, Curitiba, PR ! Outubro de 2003 ! MODELO NUMÉRICO (resumo): ! incógnitas: u, v, p ! condição de contorno de Dirichlet para u e v ! método numérico: volumes finitos ! funções de interpolação para u e v: ! CDS para os termos difusivos ! UDS ou CDS (com correção adiada) para os termos advectivos ! malha uniforme em cada direção ! método de acoplamento pressão-velocidade: SIMPLEC ! solução segregada das equações diferenciais ! solvers: Jacobi, Gauss-Seidel, SOR, ADI e MSI-5 ! precisão: dupla ! volumes fictícios ! tempo é usado para avanço do processo iterativo ! arranjo co-localizado de variáveis ! ARQUIVOS envolvidos no programa: ! prog8_cfd1.f90 = programa principal ! coef.f90 = calcula coeficientes dos sistemas lineares ! dados.f90 = lê e lista os dados do programa ! result.f90 = resolve equações e gera listagem dos resultados ! solvers.f90 = solvers disponíveis ! varia.f90 = define todas as variáveis globais do programa ! prog8_cfd1.ent = arquivo de dados do programa ! *.lis = listagem dos resultados ! *.ana = arquivo de resultados da solução exata (REX) ! *.itn = arquivo de resultados da solução numérica (ICE) ! *.num = arquivo de resultados da solução numérica (REX) ! ucex.dat = perfil de u em x=1/2 (exato) ! vcex.dat = perfil de v em y=1/2 (exato). ! u.dat = perfil de u em x=1/2 (numérico) ! v.dat = perfil de v em y=1/2 (numérico) ! u.gnu = dados para gerar gráfico dos perfis de u ! v.gnu = dados para gerar gráfico dos perfis de v ! notepad.exe = editor dos arquivos ! Wgnuplot.exe = programa para gerar gráficos ! ----------------------------------------------- Seqüência para compilação dos módulos pela primeira vez após criar o projeto: 1) VARIA.f90 2) SOLVERS.f90 3) DADOS.f90 4) COEF.f90 5) RESULT.f90 6) PROG8_CFD1.f90