!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_ANEMOMETER_INIT
   INTERFACE
      subroutine anemometer_init
      use i_p1const
      implicit none
      END SUBROUTINE ANEMOMETER_INIT
   END INTERFACE
END MODULE S_ANEMOMETER_INIT
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_CALCWU
   INTERFACE
      subroutine calcwu
      use i_p1unconv
      use i_p1const
      use i_p1werm
      use i_wpath
      use i_m1sim
      use i_m1flag
      use i_w1wind
      use i_file
      use i_main
      implicit none
      END SUBROUTINE CALCWU
   END INTERFACE
END MODULE S_CALCWU
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_DAILY_ERODOUT
   INTERFACE
      subroutine daily_erodout(o_unit,o_e_unit)
      use i_p1werm
      use i_m1geo
      use i_m1flag
      use i_e2erod
      use i_m2geo
      use c_datetime
      implicit none
      integer :: o_e_unit,o_unit
      intent (in) o_e_unit,o_unit
      END SUBROUTINE DAILY_ERODOUT
   END INTERFACE
END MODULE S_DAILY_ERODOUT
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_ERODINIT
   INTERFACE
      subroutine erodinit
      use i_p1werm
      use i_m1flag
      use i_m1geo
      use i_m1subr
      use i_m2geo
      use i_e2grid
      use i_threshold
      use i_s1surf
      implicit none
      END SUBROUTINE ERODINIT
   END INTERFACE
END MODULE S_ERODINIT
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SAEINP
   INTERFACE
      subroutine saeinp
      use i_p1werm
      use i_p1const
      use i_b1glob
      use i_c1glob
      use i_d1glob
      use i_m1geo
      use i_w1wind
      use i_w1pavg
      use i_s1dbh
      use i_s1layr
      use i_s1phys
      use i_s1agg
      use i_s1surf
      use i_s1sgeo
      use i_h1db1
      use i_m1flag
      use i_m1sim
      use i_m1subr
      use i_wpath
      use i_c1gen
      use i_e2grid
      use i_e3grid
      use i_m2geo
      use i_s2sgeo
      use i_s2agg
      use i_s2surf
      implicit none
      END SUBROUTINE SAEINP
   END INTERFACE
END MODULE S_SAEINP
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SB1OUT
   INTERFACE
      subroutine sb1out(jj,nn,hr,ws,wdir,o_unit)
      use i_p1werm
      use i_h1db1
      use i_b1glob
      use i_c1gen
      use i_s1surf
      use i_w1clig
      use i_p1const
      use i_m1sim
      use i_s1dbh
      use i_m1geo
      use i_s2agg
      use i_s2surf
      use i_s2sgeo
      use i_w2wind
      use i_m2geo
      use i_e2erod
      use i_e3grid
      use c_datetime
      implicit none
      real :: hr,wdir,ws
      integer :: jj,nn,o_unit
      intent (in) hr,jj,nn,o_unit,wdir,ws
      END SUBROUTINE SB1OUT
   END INTERFACE
END MODULE S_SB1OUT
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SB2OUT
   INTERFACE
      subroutine sb2out(jj,nn,hr,ws,wdir,o_unit)
      use i_p1werm
      use i_h1db1
      use i_p1const
      use i_m1sim
      use i_s2agg
      use i_s2surf
      use i_s2sgeo
      use i_w2wind
      use i_m2geo
      use i_e2erod
      use i_e3grid
      implicit none
      real :: hr,wdir,ws
      integer :: jj,nn,o_unit
      intent (in) hr,jj,nn,o_unit
      END SUBROUTINE SB2OUT
   END INTERFACE
END MODULE S_SB2OUT
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBAGLOS
   INTERFACE
      subroutine sbaglos(wus,wust,wusto,sf84ic,asvroc,&smaglosmx,       &
                       & smaglos,sf84mn,sf84)
      implicit none
      real :: asvroc,sf84,sf84ic,sf84mn,smaglos,smaglosmx,wus,wust,wusto
      intent (in) asvroc,sf84,sf84ic,wus,wust,wusto
      intent (inout) sf84mn,smaglos,smaglosmx
      END SUBROUTINE SBAGLOS
   END INTERFACE
END MODULE S_SBAGLOS
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBBR
   INTERFACE
      subroutine sbbr
      use i_p1werm
      use i_m1geo
      use i_p1const
      use i_e2grid
      use i_e3grid
      use i_m2geo
      implicit none
      END SUBROUTINE SBBR
   END INTERFACE
END MODULE S_SBBR
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SLEN
   INTERFACE
      function slen(x1,y1,x2,y2)
      implicit none
      real :: x1,x2,y1,y2
      real :: slen
      intent (in) x1,x2,y1,y2
      END FUNCTION SLEN
   END INTERFACE
END MODULE S_SLEN
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_ANG
   INTERFACE
      function ang(xbr,ybr,xp,yp)
      implicit none
      real :: xbr,xp,ybr,yp
      real :: ang
      intent (in) xbr,xp,ybr,yp
      END FUNCTION ANG
   END INTERFACE
END MODULE S_ANG
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_FU
   INTERFACE
      function fu(xh,zbr,pbr,xbrw)
      implicit none
      real :: pbr,xbrw,xh,zbr
      real :: fu
      intent (in) pbr,xbrw,xh,zbr
      END FUNCTION FU
   END INTERFACE
END MODULE S_FU
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBDIRINI
   INTERFACE
      subroutine sbdirini(wind_dir,prev_dir)
      use i_p1werm
      use i_m1geo
      use i_m1subr
      use i_s1sgeo
      use i_w1wind
      use i_m2geo
      use i_e3grid
      use i_s2sgeo
      implicit none
!
! PARAMETER definitions
!
      real,parameter :: pid180 = 3.14159/180.
      real :: prev_dir,wind_dir
      intent (in) wind_dir
      intent (inout) prev_dir
      END SUBROUTINE SBDIRINI
   END INTERFACE
END MODULE S_SBDIRINI
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBEMIT
   INTERFACE
      subroutine sbemit(ounit,ws,hhr)
      use i_p1werm
      use i_m1sim
      use i_m1flag
      use i_file
      use i_m2geo
      use i_e2erod
      use c_datetime
      implicit none
      real :: hhr,ws
      integer :: ounit
      intent (in) hhr,ounit,ws
      END SUBROUTINE SBEMIT
   END INTERFACE
END MODULE S_SBEMIT
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBGRID
   INTERFACE
      subroutine sbgrid
      use i_p1werm
      use i_m1geo
      use i_m1subr
      use i_m2geo
      use i_e2grid
      implicit none
      END SUBROUTINE SBGRID
   END INTERFACE
END MODULE S_SBGRID
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBIGRD
   INTERFACE
      subroutine sbigrd
      use i_p1werm
      use i_m2geo
      use i_e2erod
      implicit none
      END SUBROUTINE SBIGRD
   END INTERFACE
END MODULE S_SBIGRD
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBINIT
   INTERFACE
      subroutine sbinit
      use i_p1werm
      use i_m1subr
      use i_s1phys
      use i_s1agg
      use i_s1dbh
      use i_s1surf
      use i_s1sgeo
      use i_b1glob
      use i_w1clig
      use i_p1erode
      use i_m2geo
      use i_e2grid
      use i_s2agg
      use i_s2surf
      use i_s2sgeo
      use i_e2erod
      implicit none
      END SUBROUTINE SBINIT
   END INTERFACE
END MODULE S_SBINIT
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBPM10
   INTERFACE
      subroutine sbpm10(seags,secr,sfcla,sfsan,awzypt,&canag,cancr,     &
                      & sf10an,sf10en,sf10bk)
      implicit none
      real :: awzypt,canag,cancr,seags,secr,sf10an,sf10bk,sf10en,sfcla, &
            & sfsan
      intent (in) awzypt,seags,secr,sfcla,sfsan
      intent (out) cancr,sf10an,sf10bk,sf10en
      intent (inout) canag
      END SUBROUTINE SBPM10
   END INTERFACE
END MODULE S_SBPM10
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBQOUT
   INTERFACE
      subroutine sbqout(flg,wus,wust,wusp,sf10,sf84,&sf200,szcr,sfcr,   &
                      & sflos,smlos,&szrgh,sxrgs,sxprg,slrr,&sfcla,     &
                      & sfsan,&sfvfs,svroc,brsai,bzht,&bffcv,time,      &
                      & &canag,cancr,sf10an,sf10en,sf10bk,&lx,qi,qssi,  &
                      & q10i,i,j,imax,jmax,&smaglos,dmlos,sf84mn,sf84ic,&
                      & sf10ic,asvroc,smaglosmx,&qo,qsso,q10o)
      use i_p1erode
      implicit none
!
! PARAMETER definitions
!
      real,parameter :: cs = 0.3,cmp = 0.0001,ctf = 1.2,cdp = 0.02
      real :: asvroc,bffcv,brsai,bzht,canag,cancr,dmlos,lx,q10i,q10o,qi,&
            & qo,qssi,qsso,sf10,sf10an,sf10bk,sf10en,sf10ic,sf200,sf84, &
            & sf84ic,sf84mn,sfcla,sfcr,sflos,sfsan,sfvfs,slrr,smaglos,  &
            & smaglosmx,smlos,svroc,sxprg,sxrgs,szcr,szrgh,time,wus,    &
            & wusp,wust
      integer :: flg,i,imax,j,jmax
      intent (in) asvroc,bffcv,brsai,bzht,canag,cancr,flg,lx,q10i,qssi, &
                & sf10an,sf10bk,sf10en,sf10ic,sf84ic,sf84mn,sfcla,sfsan,&
                & sfvfs,smaglosmx,sxprg,sxrgs,time,wus,wusp,wust
      intent (out) q10o
      intent (inout) dmlos,qi,qo,qsso,sf10,sf200,sf84,sfcr,sflos,slrr,  &
                   & smlos,svroc,szcr,szrgh
      END SUBROUTINE SBQOUT
   END INTERFACE
END MODULE S_SBQOUT
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBSFDI
   INTERFACE
      subroutine sbsfdi(slagm,s0ags,slagn,slagx,sldi,sfdi)
      implicit none
      real :: s0ags,sfdi,slagm,slagn,slagx,sldi
      intent (in) s0ags,slagm,slagn,slagx,sldi
      intent (out) sfdi
      END SUBROUTINE SBSFDI
   END INTERFACE
END MODULE S_SBSFDI
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBWIND
   INTERFACE
      subroutine sbwind(wustfl,awu,wind_dir,ntstep,intstep,rusust)
      use i_p1werm
      use i_c1gen
      use i_m1geo
      use i_b1glob
      use i_c1glob
      use i_d1glob
      use i_h1db1
      use i_p1const
      use i_s1agg
      use i_s1dbh
      use i_s1sgeo
      use i_m2geo
      use i_w2wind
      use i_e2grid
      use i_e3grid
      use i_s2agg
      use i_s2sgeo
      use i_s2surf
      implicit none
      real :: awu,rusust,wind_dir
      integer :: intstep,ntstep,wustfl
      intent (in) intstep,ntstep,wustfl
      intent (inout) rusust
      END SUBROUTINE SBWIND
   END INTERFACE
END MODULE S_SBWIND
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBWUS
   INTERFACE
      subroutine sbwus(anemht,awzzo,awu,wzzov,brcd,wus)
      implicit none
      real :: anemht,awu,awzzo,brcd,wus,wzzov
      intent (in) anemht,awu,awzzo,brcd,wzzov
      intent (inout) wus
      END SUBROUTINE SBWUS
   END INTERFACE
END MODULE S_SBWUS
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBZDISP
   INTERFACE
      subroutine sbzdisp(szrgh,bcxrow,bc0rg,wzoflg,&bdrlai,bdrsai,bbzht,&
                       & bcrlai,bcrsai,bczht,&awzdisp,wzdisp)
      use i_p1unconv
      implicit none
      real :: awzdisp,bbzht,bcrlai,bcrsai,bcxrow,bczht,bdrlai,bdrsai,   &
            & szrgh,wzdisp
      integer :: bc0rg,wzoflg
      intent (in) bbzht,wzoflg
      intent (out) awzdisp
      intent (inout) wzdisp
      END SUBROUTINE SBZDISP
   END INTERFACE
END MODULE S_SBZDISP
!*==intfaces.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
MODULE S_SBZO
   INTERFACE
      subroutine sbzo(sxprg,szrgh,slrr,&wzoflg,bdrlai,bdrsai,bbzht,     &
                    & &bcrlai,bcrsai,bczht,&bcxrow,bc0rg,wzorg,wzorr,   &
                    & &wzzo,wzzov,awzzo,brcd)
      use i_p1erode
      use i_p1unconv
      implicit none
      real :: awzzo,bbzht,bcrlai,bcrsai,bcxrow,bczht,bdrlai,bdrsai,brcd,&
            & slrr,sxprg,szrgh,wzorg,wzorr,wzzo,wzzov
      integer :: bc0rg,wzoflg
      intent (in) bbzht,slrr,sxprg,wzoflg
      intent (out) awzzo
      intent (inout) brcd,wzorg,wzorr,wzzo,wzzov
      END SUBROUTINE SBZO
   END INTERFACE
END MODULE S_SBZO