Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:15 EDT 2024 |
qsat | Module: BIOPHYSICS | File: canopyspitters.f |
Author : Gary Russell
Version:
Declaration:
function qsat (tm, lh, pr)
- physical :
- constants from GISS GCM CONST.f
- mwat :
real*8, parameter
- Initial Value
= 18.015d0
- mair :
real*8, parameter
- Initial Value
= 28.9655d0
- mrat :
real*8, parameter
- Initial Value
= MWAT/MAIR
- c :
real*8, parameter
- expansion coefficients for QSAT
Initial Value= 1./RVAP
- b :
real*8, parameter
- expansion coefficients for QSAT
Initial Value= 1./(RVAP*TFRZ)
- a :
real*8, parameter
- expansion coefficients for QSAT
Initial Value= 6.108d0*MRAT
- rvap :
real*8, parameter
- Initial Value
= 1d3 * GASC/MWAT
- tm :
real*8, intent(in)
- temperature (K)
- pr :
real*8, intent(in)
- air pressure (mb)
- lh :
real*8, intent(in)
- lat. heat of vap./sub. (J/kg)
- qsat :
real*8
- sat. vapour mixing ratio