| subroutine noahmp_glacier_routines::esat | ( | real (kind=kind_phys), intent(in) | t, | 
| real (kind=kind_phys), intent(out) | esw, | ||
| real (kind=kind_phys), intent(out) | esi, | ||
| real (kind=kind_phys), intent(out) | desw, | ||
| real (kind=kind_phys), intent(out) | desi ) | 
| [in] | t | use polynomials to calculate saturation vapor pressure and derivative with respect to temperature: over water when t > 0 c and over ice when t <= 0 c | 
| [in] | t | temperature | 
| [out] | esw | saturation vapor pressure over water (pa) | 
| [out] | esi | saturation vapor pressure over ice (pa) | 
| [out] | desw | d(esat)/dt over water (pa/k) | 
| [out] | desi | d(esat)/dt over ice (pa/k) | 
Referenced by glacier_flux().