subroutine callsoil(daysim, isr)
C ***************************************************************** wjr
C Wrapper to call soil
C
C Arguments
      integer daysim
      integer isr                   
C
C Includes
      include 'p1werm.inc'
      include 'b1glob.inc'
      include 'm1subr.inc'
      include 's1agg.inc'
      include 's1layd.inc'
      include 's1layr.inc'
      include 's1dbc.inc'
      include 's1dbh.inc'
      include 's1phys.inc'
      include 's1sgeo.inc'
      include 's1surf.inc'
      include 'h1hydro.inc'
      include 'h1temp.inc'
      include 'h1db1.inc'
C
            call soil (daysim, am0irr(isr), ahzirr(isr), ahzsmt(isr),
     &                 ahtsmx(1,isr), ahtsmn(1,isr),
     &                 ahrwc(1,isr), ahrwca(1,isr), ahrwcw(1,isr),
     &                 asfom(1,isr), aszlyt(1,isr), nslay(isr),
     &                 asfsan(1,isr), asfsil(1,isr), asfcla(1,isr),
     &                 asvroc(1,isr),
     &                 asxrgs(isr), aszrgh(isr), aslrr(isr),
     &                 aszcr(isr), asfcr(isr), asecr(isr),
     &                 asdcr(isr), asmlos(isr), asflos(isr),
C     &                 asdsbk(1,isr),
     &                 asdblk(0,isr), asdagd(0,isr),
     &                 aslagm(0,isr), aslagn(0,isr),
     &                 as0ags(0,isr), aslagx(0,isr), aseags(0,isr),
     &                 abffcv(isr), abfscv(isr),
     &                 asfcce(1,isr), asfcec(1,isr)
     &                )
C
      end