program PROG1_CFD1 ! Condução de Calor Linear Unidimensional Permanente Numa Parede Plana ! Versão original 1.0 (12 Jun 03) ! Versão atual 1.0 (12 Jun 03) ! última alteração = 6 Out 04 ! autor: Carlos Henrique Marchi (Curitiba, DEMEC/UFPR) ! MODELO MATEMÁTICO (equação diferencial): ! ! d2T/dx2 + qg/k = 0 ! ! T = incógnita ! x = coordenada espacial ! qg = taxa de geracao de calor ! k = condutividade termica ! condições de contorno (C.C.) de Dirichlet ! MODELO NUMÉRICO (resumo) ! método numérico: volumes finitos ! malha uniforme unidimensional ! solver: TDMA ! precisão: dupla ! Linguagem Fortran ! Aplicativo usado: Microsoft Developer Studio, Fortran PowerStation 4.0 ! Tipo de projeto: QuickWin Application ! os coeficientes dos contornos incorporam as C.C. ! CDS para a variável primária nas faces internas ! UDS ou DDS para a variável primária nas faces dos contornos ! UDS ou DDS para a taxa de transferência de calor nos contornos ! temperatura média calculada pela regra do retângulo ! propriedades constantes: k, qg ! Tipo do sistema de equação: ap(i)*T(i) = aw(i)*T(i-1) + ae(i)*T(i+1) + bp(i) ! ARQUIVOS envolvidos no programa: ! prog1_cfd1.f90 = programa principal ! coef.f90 = calcula coeficientes e fontes do sistema linear ! dados.f90 = lê e lista os dados do programa ! result.f90 = resolve equações e gera listagens dos resultados ! solvers.f90 = solver ! varia.f90 = define todas as variáveis globais do programa ! dados.txt = arquivo de dados do programa ! *.txt = listagem dos resultados ! T.dat = arquivo de dados para fazer gráfico ! T.gnu = arquivo de comandos para gerar gráfico ! notepad.exe = editor dos arquivos ! Wgnuplot.exe = visualizador do gráfico ! ----------------------------------------------- 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) PROG1_CFD1.f90