materiau.f90

来自「国外大名顶顶的“台风”并行计算流体力学CFD软件的早期版本的源代码」· F90 代码 · 共 58 行

!------------------------------------------------------------------------------!
! MODULE : MATERIAU                       Auteur : J. Gressier
!                                         Date   : Mai 2002
! Fonction                                Modif  :
!   Structures pour les parametres MATERIAU du solveur de thermique
!
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!
module MATERIAU

use TYPHMAKE      ! definition de la precision des reels
use MATER_LOI    ! definition generale d'une loi de variation des parametres

implicit none

! -- Variables globales du module -------------------------------------------

character, parameter :: mat_LIN  = 'L'   ! materiau a proprietes constantes
character, parameter :: mat_KNL  = 'K'   ! materiau a cp constant et conductivite non lineaire
character, parameter :: mat_XMAT = 'X'   ! materiau a proprietes specifiques

!------------------------------------------------------------------------------!
!    DECLARATIONS
!------------------------------------------------------------------------------!

!------------------------------------------------------------------------------!
! ST_MATERIAU : structure pour la definition des equations
!------------------------------------------------------------------------------!
type st_materiau
  character(len=30) :: nom       ! nom du materiau
  character         :: type      ! cf constantes
  real(krp)         :: Cp        ! Capacite calorifique
  type(st_loi)      :: Energie   ! Energie (fct de temperature)
  type(st_loi)      :: Kd        ! conductivite thermique 
endtype st_materiau


! -- INTERFACES -------------------------------------------------------------


! -- Procedures, Fonctions et Operateurs ------------------------------------

!------------------------------------------------------------------------------!
!    IMPLEMENTATION 
!------------------------------------------------------------------------------!
!contains


endmodule MATERIAU

!------------------------------------------------------------------------------!
! Historique des modifications
!
! mai   2002 (v0.0.1b): creation du module
! avril 2003          : specification des types de materiaux (LIN, KNL, XMAT)
!------------------------------------------------------------------------------!