MODULE screenpc_int

  IMPLICIT NONE 

  INTERFACE

    SUBROUTINE screenp(klon, knon, nsrf, &
     &                 speed, tair, qair, &
     &                 ts, qsurf, rugos, lmon, &
     &                 ustar, testar, qstar, zref, &
     &                 delu, delte, delq) 
      INTEGER, intent(in) :: klon, knon, nsrf
      REAL, dimension(klon), intent(in) :: speed, tair, qair
      REAL, dimension(klon), intent(in) :: ts, qsurf, rugos
      DOUBLE PRECISION, dimension(klon), intent(in) :: lmon
      REAL, dimension(klon), intent(in) :: ustar, testar, qstar
      REAL, intent(in) :: zref
      REAL, dimension(klon), intent(out) :: delu, delte, delq
    END SUBROUTINE screenp

    SUBROUTINE screenc(klon, knon, nsrf, zxli, &
     &                 speed, temp, q_zref, zref, &
     &                 ts, qsurf, rugos, psol, &
     &                 ustar, testar, qstar, okri, ri1, &
     &                 pref, delu, delte, delq)
      INTEGER, intent(in) :: klon, knon, nsrf
      LOGICAL, intent(in) :: zxli, okri
      REAL, dimension(klon), intent(in) :: speed, temp, q_zref
      REAL, intent(in) :: zref
      REAL, dimension(klon), intent(in) :: ts, qsurf, rugos, psol
      REAL, dimension(klon), intent(in) :: ustar, testar, qstar, ri1
      REAL, dimension(klon), intent(out) :: pref, delu, delte, delq

    END SUBROUTINE screenc

  END INTERFACE

END MODULE screenpc_int