c$Author: fredfox $
c$Date: 2001-08-15 21:53:24 $
c$Revision: 1.18.2.1 $
c$Source: /weru/cvs/weps/weps.src/crop/callcrop.for,v $
      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 'c1gen.inc'
      include 'd1glob.inc'
      include 'm1flag.inc'
      include 'm1dbug.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),
     &      acgrf(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,acthud(isr),
     &      acbaflg(isr), acbaf(isr), acyraf(isr),achyfg(isr),
     &      acthum(isr))

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

      end