calc_varcons_ns.f90

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

!------------------------------------------------------------------------------!
! Procedure : calc_varcons_ns             Auteur : J. Gressier
!                                         Date   : Octobre 2003
! Fonction                                Modif  : (cf historique)
!   Calcul des variables conservatives a partir des variables primitives
!
! Defauts/Limitations/Divers :
!
!------------------------------------------------------------------------------!
subroutine calc_varcons_ns(defns, field)

use TYPHMAKE
use OUTPUT
use VARCOM
use MENU_SOLVER
use DEFFIELD

implicit none

! -- Declaration des entrees --
type(mnu_ns) :: defns       ! definition des parametres du solveur

! -- Declaration des entrees/sorties --
type(st_field)   :: field       ! champ primitives->conservatives

! -- Declaration des variables internes --
integer   :: i
integer   :: ncell
real(krp) :: rho
real(krp) :: ig1
type(v3d) :: vel

! -- Debut de la procedure --

ncell = field%ncell
ig1   = 1._krp/(defns%properties(1)%gamma - 1._krp)

do i = 1, ncell
  rho = field%etatprim%tabscal(1)%scal(i)
  vel = field%etatprim%tabvect(1)%vect(i) 
  field%etatcons%tabscal(1)%scal(i) = rho
  field%etatcons%tabscal(2)%scal(i) = ig1*field%etatprim%tabscal(2)%scal(i) + &
                                      .5_krp*rho*sqrabs(vel)
  field%etatcons%tabvect(1)%vect(i) = rho*vel
enddo

!-----------------------------
endsubroutine calc_varcons_ns

!------------------------------------------------------------------------------!
! Historique des modifications
!
! oct  2003 : creation de la procedure
! july 2004 : actual computations
!------------------------------------------------------------------------------!