subroutine decoinit(isr)
C ***************************************************************** wjr
C Contains init code from main
C
C       Edit History
C       04-Mar-99       wjr     created
C
      include 'p1werm.inc'
      include 's1layr.inc'
      include 'd1glob.inc'
C
      integer isr
      integer idx
C      
c   temporarily initialize residue to bypass an error in crop-jt 7/22/94
c   remove when problem is solved in crop
      do 10  idx = 1, nslay(isr)
        admbgz(idx,1,isr) = 0.001
   10 continue
      end