c$Author: fredfox $
c$Date: 2001-11-21 22:45:31 $
c$Revision: 1.4 $
c$Source: /weru/cvs/weps/weps.src/inc/manage/oper.inc,v $

c     This common block contains the variables used in the MANAGEMENT
c     process subprograms.

c     Parameter include files required:  p1werm.inc

c     + + + VARIABLE DECLARATIONS + + +

      integer          opcode
      integer          opskip
      character*50     opname
      character*50     impl

      character*50     grname
      integer          grcode

      real             cutht
      real             calpha, cbeta

      common / oper1 / opcode, opskip
      common / oper2 / opname, impl

      common / proc1 / grcode
      common / proc2 / grname

      common / harvp / cutht

c     + + + VARIABLE DEFINITIONS + + +
c     opcode   - code indicating operation type
c            0 - indicates an operation that will be run only mcount times
c                (normally used for initialzation)
c            1 - triggers a read of tillage related operation parameters
c                (speed and direction)
c     opskip   - used to skip all groups and processes in an operation that
c                has already completed mcount invocations
c            0 - do not skip
c            1 - skip
c     opname   - name of current operation read from management file
c     impl     - ??

c     grname   - name of group read from management file
c     grcode   - group code designating which parameters will follow name
c            1 - soil distrubance parameters
c            2 - biomass manipulation
c            3 - crop growth
c            4 - ammendments
c     cutht    - read from process as fraction or distance (flag controlled).
c                Converted to distance from ground up in meters by cut.for