!
!  Make reverse angulation correction to TSF
!  Make reverse orography correction to TG3
!
        ZTSFC=1.
        CALL TSFCOR(TG3FCS,OROG,SLMASK,ZTSFC,LEN,-RLAPSE)
        ZTSFC=0.
        CALL TSFCOR(TSFFCS,OROG,SLMASK,ZTSFC,LEN,-RLAPSE)




      SUBROUTINE TSFCOR(TSFC,OROG,SLMASK,UMASK,LEN,RLAPSE)
!
      USE MACHINE , ONLY : kind_io8,kind_io4
      implicit none
      integer i,len
      REAL (KIND=KIND_IO8) rlapse,umask
      REAL (KIND=KIND_IO8) TSFC(LEN), OROG(LEN), SLMASK(LEN)
!
      DO I=1,LEN
        IF(SLMASK(I).EQ.UMASK) THEN
          TSFC(I) = TSFC(I) - OROG(I)*RLAPSE
        ENDIF
      ENDDO
      RETURN
      END