1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233
|
!-------------------------------------------------------------------------------
! This file is part of Code_Saturne, a general-purpose CFD tool.
!
! Copyright (C) 1998-2016 EDF S.A.
!
! This program is free software; you can redistribute it and/or modify it under
! the terms of the GNU General Public License as published by the Free Software
! Foundation; either version 2 of the License, or (at your option) any later
! version.
!
! This program is distributed in the hope that it will be useful, but WITHOUT
! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
! FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
! details.
!
! You should have received a copy of the GNU General Public License along with
! this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
! Street, Fifth Floor, Boston, MA 02110-1301, USA.
!-------------------------------------------------------------------------------
!> \file ppthch.f90
!> Module for specific physics thermophysical data
module ppthch
!===========================================================================
use, intrinsic :: iso_c_binding
use cstphy
implicit none
!===========================================================================
!> \defgroup thermophysical Module for specific physics thermophysical data
!> \addtogroup thermophysical
!> \{
!> reference temperature for the specific physics, in K
double precision trefth
!> reference pressure for the specific physics, in Pa
double precision prefth
!> molar volume under normal pressure and temperature conditions
!> (1 atmosphere, 0 \f$\text{\degresC}\f$) in \f$m^{-3}\f$
double precision volmol
parameter ( trefth = 25.d0 + tkelvi , &
prefth = 1.01325d5 , &
volmol = 22.41d-3 )
!--> DONNEES
!> maximal number of global species
integer ngazgm
!> maximal number of elementary gas components
integer ngazem
!> maximal number of tabulation points
integer npot
!> maximal number of atomic species
integer natom
!> maximal number of global reactions in gas phase
integer nrgazm
parameter( ngazgm = 25 , ngazem = 20 , &
npot = 500 , natom = 5 , nrgazm = 1 )
integer iatc, iath, iato, iatn , iats
parameter( iatc = 1, iath = 2, iato = 3, iatn = 4 , iats = 5 )
!> name of global species
character(len=150) :: nomcog(ngazgm)
!> name of elementary species
character(len=12) :: nomcoe(ngazem)
!> number of tabulation points
integer, save :: npo
!> number of elementary gas components
integer, save :: ngaze
!> number of global species
integer, save :: ngazg
!> number of atomic species
integer, save :: nato
!> number of global reactions in gas phase
integer, save :: nrgaz
!> rank of H2O in gas composition
integer, save :: iih2o
!> rank of CO2 in gas composition
integer, save :: iico2
!> rank of CO in gas composition
integer, save :: iico
!> rank of C in gas composition
integer, pointer, save :: iic
!> rank of fuel in the r-th reaction
integer, save :: igfuel(nrgazm)
!> rank of oxydiser in the r-th reaction
integer, save :: igoxy(nrgazm)
!> rank of products in the r-th reaction
integer, save :: igprod(nrgazm)
!> stoechiometric coefficient of global species
double precision, save :: nreact(ngazgm)
!> temperature (in K)
double precision, save :: th(npot)
!> engaze(ij) is the massic enthalpy (J/kg) of the i-th elementary gas component
!> at temperature th(j)
double precision, save :: ehgaze(ngazem,npot)
!> engazg(ij) is the massic enthalpy (J/kg) of the i-th global secies
!> at temperature th(j)
double precision, save :: ehgazg(ngazgm,npot)
!> cpgazg(ij) is the massic calorific capacity (J/kg/K) of the i-th global secies
!> at temperature th(j)
double precision, save :: cpgazg(ngazgm,npot)
!> molar mass of an elementary gas component
real(c_double), pointer, save :: wmole(:)
!> molar mass of a global species
real(c_double), pointer, save :: wmolg(:)
!> molar mass of atoms
double precision, save :: wmolat(natom)
!> Stoichiometry in reaction global species. Negative for the reactants,
!> and positive for the products
double precision, save :: stoeg(ngazgm,nrgazm)
!> Mixing rate at the stoichiometry
double precision, save :: fs(nrgazm)
!> Absorption coefficient of global species
double precision, save :: ckabsg(ngazgm)
!> Absorption coefficient of gas mixture
real(c_double), pointer, save :: ckabs1
!> molecular diffusivity for the enthalpy (\f$kg.m^{-1}.s^{-1}\f$)
!> for gas or coal combustion (the code then automatically sets
!> \ref optcal::visls0 "visls0" to \ref diftl0 for the scalar
!> representing the enthalpy).
!>
!> Always useful for gas or coal combustion.
double precision, save :: diftl0
!> Molar coefficient of CO2
real(c_double), pointer, save :: xco2
!> Molar coefficient of H2O
real(c_double), pointer, save :: xh2o
!=============================================================================
!> \}
!=============================================================================
interface
!---------------------------------------------------------------------------
!> \cond DOXYGEN_SHOULD_SKIP_THIS
!---------------------------------------------------------------------------
! Interface to C function retrieving pointers to members of the
! global physical model flags
subroutine cs_f_ppthch_get_pointers(p_iic, &
p_wmole, p_wmolg, &
p_xco2, p_xh2o, p_ckabs1) &
bind(C, name='cs_f_ppthch_get_pointers')
use, intrinsic :: iso_c_binding
implicit none
type(c_ptr), intent(out) :: p_iic, &
p_wmolg, p_wmole, p_xco2, p_xh2o, p_ckabs1
end subroutine cs_f_ppthch_get_pointers
!---------------------------------------------------------------------------
!> (DOXYGEN_SHOULD_SKIP_THIS) \endcond
!---------------------------------------------------------------------------
end interface
!=============================================================================
contains
!=============================================================================
!> \brief Initialize Fortran combustion models properties API.
!> This maps Fortran pointers to global C variables.
subroutine thch_models_init
use, intrinsic :: iso_c_binding
implicit none
! Local variables
type(c_ptr) :: p_iic, p_wmole, p_wmolg, p_xco2, p_xh2o, p_ckabs1
call cs_f_ppthch_get_pointers(p_iic, &
p_wmole, p_wmolg, &
p_xco2, p_xh2o, p_ckabs1)
call c_f_pointer(p_iic, iic)
call c_f_pointer(p_wmole, wmole, [ngazem])
call c_f_pointer(p_wmolg, wmolg, [ngazgm])
call c_f_pointer(p_xco2, xco2)
call c_f_pointer(p_xh2o, xh2o)
call c_f_pointer(p_ckabs1, ckabs1)
end subroutine thch_models_init
!=============================================================================
end module ppthch
|