subroutine callcrop(isr)
C ***************************************************************** wjr
C Wrapper to call crop
C
C Arguments
      integer isr
C
C Includes
      include 'p1werm.inc'
      include 'c1db1.inc'
      include 'c1db2.inc'
      include 'c1db3.inc'
      include 'c1db4.inc'
      include 'c1db5.inc'
      include 'c1info.inc'
      include 'c1glob.inc'
      include 'd1glob.inc'
      include 'm1flag.inc'
      include 'm1dbug.inc'
C ***      include 'm1sim.inc'
      include 's1layd.inc'
      include 's1layr.inc'
      include 's1dbc.inc'
      include 's1dbh.inc'
      include 's1phys.inc'
      include 'h1hydro.inc'
      include 'h1et.inc'
      include 'w1clig.inc'
      include 'timer.fi'

      call timer(TIMCROP,TIMSTART)      

C
c Note that crop "may" really require (admbgz + admrtz) in place of admbgz
c because crop wants to know the amount of biomass in each soil layer
c for nutrient cycling.  However, since the nutrient cycling is supposed
c to be disabled, we won't worry about it right now.  LEW - 04/23/99

               if (am0cdb.eq.1) call cdbug(isr, nslay(isr))

               call crop  (nslay(isr), aszlyt(1,isr),
     &      aszlyd(1,isr), asdblk(1,isr),
     &      asfcce(1,isr), asfom(1,isr), asfcec(1,isr), asfsmb(1,isr),
     &      asfcla(1,isr), as0ph(1,isr), asftan(1,isr), asftap(1,isr),
     &      aczrtd(isr), acmrtz(1,isr),asmno3(isr),
     &      ac0bn1(isr), ac0bn2(isr), ac0bn3(isr),
     &      ac0bp1(isr), ac0bp2(isr), ac0bp3(isr), ac0ck(isr),
     &      acrhi(isr), acehu0(isr), aczmxc(isr), ac0idc(isr),
     &      actdtm(isr), aczmrt(isr), actmin(isr), actopt(isr),
     &      ac0fd1(1,isr), ac0fd2(1,isr), ac0fd1(2,isr), ac0fd2(2,isr),
     &      ac0be1(1,isr), ac0be2(1,isr), ac0be1(2,isr),ac0be2(2,isr),
     &      admbgz(1,1,isr), ac0alf(isr), ac0blf(isr), ac0clf(isr),
     &      ac0dlf(isr), ac0arp(isr), ac0brp(isr), ac0crp(isr),
     &      ac0drp(isr), ac0aht(isr), ac0bht(isr), ac0ssa(isr),
     &      ac0ssb(isr), ac0sla(isr), ac0hue(isr), ac0lfe(isr),
     *      aweirr, awtdav,awtdmn, awzdpt,
     *      ahzpta, ahzeta, ahzptp, ahfwsf(isr),
     *      am0cif, am0hrvfl, am0cdb, am0drmfl)

               if (am0cdb.eq.1) call cdbug(isr, nslay(isr))
      call timer(TIMCROP,TIMSTOP)      

      end