MODULE coefcdrag_int

  IMPLICIT NONE 

  INTERFACE
 
    SUBROUTINE coefcdrag (klon, knon, nsrf, zxli, &
                          speed, t, q, zgeop, psol, &
                          ts, qsurf, rugos, okri, ri1, &
                          cdram, cdrah, cdran, zri1, pref)
      INTEGER, intent(in) :: klon, knon, nsrf
      LOGICAL, intent(in) :: zxli
      REAL, dimension(klon), intent(in) :: speed, t, q, zgeop, psol
      REAL, dimension(klon), intent(in) :: ts, qsurf, rugos, ri1
      LOGICAL, intent(in) :: okri
      REAL, dimension(klon), intent(out) :: cdram, cdrah, cdran, zri1, pref

    END SUBROUTINE coefcdrag

  END INTERFACE

END MODULE coefcdrag_int