Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
vgs | Module: | File: TRACERS.f |
Author : Gavin Schmidt/Reha Cakmur
Version:
Declaration:
real*8 function vgs(airden, rh1, tr_radius, tr_dens, visc, hydrate)
- by3 : used from constant
- pi : used from constant
- gasc : used from constant
- avog : used from constant
- rt2 : used from constant
- deltx : used from constant
- mair : used from constant
- grav : used from constant
- airden :
real*8, intent(in)
- rh1 :
real*8, intent(in)
- tr_radius :
real*8, intent(in)
- tr_dens :
real*8, intent(in)
- visc :
real*8, intent(in)
- hydrate :
logical, intent(in)
- wmf :
real*8
- frpath :
real*8
- dair :
real*8, parameter
- Initial Value
= 3.65d-10
- s1 :
real*8, parameter
- Initial Value
= 1.247d0
- s2 :
real*8, parameter
- Initial Value
= 0.4d0
- s3 :
real*8, parameter
- Initial Value
= 1.1d0
- c1 :
real*8, parameter
- Initial Value
= 0.7674d0
- c2 :
real*8, parameter
- Initial Value
= 3.079d0
- c3 :
real*8, parameter
- Initial Value
= 2.573d-11
- c4 :
real*8, parameter
- Initial Value
= -1.424d0
- dens :
real*8
- rad :
real*8
- rh :
real*8