constants.f90

Go to the documentation of this file.

module constants
    use,intrinsic :: iso_fortran_env, only: dp => real64
    implicit none
    real(dp), parameter :: &
        pi=3.1415926535897932384626433832795028841971693993751058209749445923&
            &078164062862089986280348253421170679_dp,&  !<pi
        sigmab=5.67037321e-8_dp,&       
        kb=1.380648813e-23_dp,&         
        rg=8.31446218_dp,&              
        na=rg/kb,&                      
        eulergamma=0.5772156649015328606&
            &065120900824024310421_dp,& 
        c0=299792458e0_dp,&             
        hpc=6.6260695729e-34_dp,&       
        c2=0.014387752_dp,&             
        struttol=1e-3_dp                
    complex(dp), parameter :: iu=(0.0e0_dp,1.0e0_dp)       
    logical  :: &
        wdist,&               !<use wall thickness distribution
        testmode,&            !<true disables calculation of radiation
        numcond
    character(len=80) :: &
        structurename
    integer  :: &
        mfi,&                 !<main file index
        nrays,&               !<number of testing rays
        nz,&                  !<spatial discretization
        nbox,&                !<number of gray boxes
        morph_input
    real(dp) :: lambda,&      !<wavelength
        temp1,&               !<temperature at boundary 1
        temp2,&               !<temperature at boundary 2
        kappa2,&              !<absorption coefficient of solid
        cond1,&               !<conductivity of gas
        cond2,&               !<conductivity of polymer
        n1,&                  !<real part of refractive indice of gas
        n2,&                  !<real part of refractive indice of polymer
        k1,&                  !<imaginary part of refractive indice of gas
        k2,&                  !<imaginary part of refractive indice of polymer
        rhog,&                !<density of gas
        rhos,&                !<density of solid
        emi1,&                !<wall emittances at boundary 1
        emi2,&                !<wall emittances at boundary 2
        tmean,&               !<mean temperature
        eqc,&                 !<equivalent conductivity
        eqc_ross,&            !<Rosseland equivalent conductivity
        effc,&                !<effective conductivity (only conduction)
        effc_num,&            !<effective conductivity from numerical simulation
        kgas,&                !<gas conductivity
        ksol,&                !<solid conductivity
        krad,&                !<radiative conductivity
        gcontr,&              !<contribution of gas
        scontr,&              !<contribution of solid
        rcontr,&              !<contribution of radiation
        planckextcoeff,&      !<Planck extinction coefficient
        rossextcoeff,&        !<Rosseland extinction coefficient
        albedo,&              !<scattering albedo
        effn,&                !<effective index of refraction (real part)
        por,&                 !<porosity
        rhof,&                !<foam density
        dcell,&               !<cell size
        dwall,&               !<wall thickness
        fs,&                  !<strut content
        dstrut,&              !<strut diameter
        dfoam,&               !<foam thickness
        wsdev,&               !<wall thickness standard deviation
        tm(10)
    real(dp), dimension(:), allocatable :: &
        lambdan,&           !<wavelength of real part of refractive index
        nwl,&               !<real part of refractive index
        lambdak,&           !<wavelength of imaginary part of refractive index
        kwl,&               !<imaginary part of refractive index
        lambdagas,&         !<wavelength of absorption coefficient of gas
        acgas,&             !<absorption coefficient of gas
        lambdabox,&         !<boundaries of gray boxes
        trextcoeffbox,&     !<transport extinction coefficients of gray boxes
        albedobox,&         !<scattering albedos of gray boxes
        abscoeffbox,&       !<absorption coefficients of gray boxes
        scattcoeffbox,&     !<scatering coefficients of gray boxes
        fbepbox
end module constants