Index | Rundeck: E6TomaF40 | Created: Sat May 18 03:30:40 EDT 2024 |
diffg | Module: | File: TRDRYDEP.f |
Author : ? HARVARD CTM
Version:
Declaration:
real*8 function diffg(tk, xm)
- bygasc : used from constant
- gasc : used from constant
- pi : used from constant
- mair : used from constant
- avog : used from constant
- xmair :
real*8, parameter
- air molecular weight (KG/mole)
Initial Value= mair * 1.D-3
- radx :
real*8, parameter
- hard-sphere molecular radius of the diffusing gas
Initial Value= 1.5D-10
- radair :
real*8, parameter
- hard-sphere molecular radius of air
Initial Value= 1.2D-10
- press :
real*8, parameter
- pressure (kg/s2/m) used to calculate molec. diffusivities
Initial Value= 1.0d5
- tk :
real*8, intent(in)
- passed local temperature in Kelvin
- xm :
real*8, intent(in)
- molecular weight of diffusing gas (KG/mole)
- diam :
real*8
- ?
- z :
real*8
- ?
- frpath :
real*8
- mean free path of the gas
- speen :
- average speed of the gas molecules
- airden :
real*8
- local air density
- speed :
real*8