C*********************************************************************
C  1999/10/26
C  
C*********************************************************************
C
      SUBROUTINE FXSURF
     I   ( TPOT0 , CDRAGV, VSFC0,
     O     FHEAT, 
     B     DENS0, PPAI0,
     C     CPDRY, GRAV, 
     S     TSFC , 
     D     NX   , NXB  , NZ   , NZB )
C
C*********************************************************************
      IMPLICIT REAL*8 ( A-H, O-Z )
C*********************************************************************
C
      DIMENSION
     \   TPOT0( -2:NZB )

      DIMENSION
     \   CDRAGV( -2:NXB )
C
      DIMENSION
     \   FHEAT ( 2 )
C
      DIMENSION
     \   TSFC ( -2:NXB )
C
      DIMENSION
     \   PPAI0( -2:NZB ),
     \   DENS0( -2:NZB )
C
C====================================================================
C
      DO 11 IX = 1, 1
         FHEAT(2) = 0.0d0
         FHEAT(1) = - DENS0(0) * CPDRY * CDRAGV(IX) * VSFC0
     \       * ( TPOT0(0) * PPAI0(0) - TSFC(IX) )
   11 CONTINUE
C
C====================================================================
C
      RETURN
      E N D
