SUBROUTINE MHUAESVHR 3
#if defined (DOC)
***   S/R MHUAES  -  CALCULATE ES=T-TD FROM T AND Q
*
*Author
*          N. Brunet  (Jan91)
*
*Revision
* 001      B. Bilodeau  (August 1991)- Adaptation to UNIX
*
* 002      C.CHOUINARD  (August 1998)- ADAPTATION TO 3DVAR
*
* 002      C.CHARETTE  (March 1999)- Added llprint and print diagnostics
*          S.Pellerin  (SEPT. 2000)- Exclude reference to commvo1
* 003      Y.J. Rochon and Cecilien Charette - SMC - Sept 2004
*            - Use of new function FOTW8 FOEFQ8(in fintern8.cdk)
*              Follow WMO convention on T-Td vs HU relationship)
*
*Object
*          to calculate the dew point depression from specific
*          humidity, temperature and pressure.  No ice phase
*          is permitted and the pressure vector is given.
*
#endif
      IMPLICIT NONE
*IMPLICITS
*         --------------------------------------------------------------------------
#include "comlun.cdk"
#include "pardim.cdk"
#include "comdim.cdk"
#include "comdimo.cdk"
#include "comgem.cdk"
#include "commvo.cdk"
#include "commvohr.cdk"
#include "comcst.cdk"
*
      INTEGER JOBS,JLEV
      REAL*8 ZE, ZTD, ZHU
      LOGICAL LLPRINT
*
#include "comphy.cdk"
#include "dintern8.cdk"
#include "fintern8.cdk"
*
c
*
      LLPRINT = .FALSE.
*
      DO JLEV=1,NLEVTRL
*
        DO JOBS=1,NOBTOT
*
*        Get the saturated vapor pressure from q (specific humidity)
*
         ZHU = exp(gomqhr(jlev,jobs))
         ZE = FOEFQ8(ZHU, RPPOBSHR(JLEV,JOBS))
*
*        Now the dewpoint temperature
*
         ZTD=FOTW8(ZE)
*
*        Finally the dewpoint depression
*
         GOMESHR(JLEV,JOBS) = min(GOMTHR(JLEV,JOBS) - ZTD,rmaxes)
********************************************************************
c         IF(LLPRINT) THEN
c           write(nulout,*)'MHUAESVHR:JOBS,JLEV,pobshr,GMESH,GMTH,TD,HU '
c     &           ,JOBS,JLEV,RPPOBSHR(JLEV,JOBS),GOMESHR(JLEV,JOBS)
c     &           ,GOMTHR(JLEV,JOBS),ZTD,ZHU
c         ENDIF
*******************************************************************
*
        ENDDO
*
      ENDDO
*
      RETURN
      END