MODULE stdlevvar_int

  IMPLICIT NONE 

  INTERFACE

    SUBROUTINE stdlevvar(klon, knon, nsrf, zxli, &
                         u1, v1, t1, q1, z1, &
                         ts1, qsurf, rugos, psol, pat1, &
                         t_2m, q_2m, u_10m)
      INTEGER, intent(in) :: klon, knon, nsrf
      LOGICAL, intent(in) :: zxli
      REAL, dimension(klon), intent(in) :: u1, v1, t1, q1, z1, ts1
      REAL, dimension(klon), intent(in) :: qsurf, rugos
      REAL, dimension(klon), intent(in) :: psol, pat1
      REAL, dimension(klon), intent(out) :: t_2m, q_2m, u_10m
    END SUBROUTINE stdlevvar

  END INTERFACE

END MODULE stdlevvar_int