c
c
      subroutine orient2
     i              (sr,
     i               dikeht,dikespac,depth,rdgflag)


*$noereference
      include 'p1werm.inc'
      include 's1sgeo.inc'
*$reference

c     + + + PURPOSE + + +
c
c     This subroutine performs an oriented roughness calculation
c     after a tillage operation.  Actually it performs a check of the
c     ridge flag (rdgflag) and does the coresponding manipulation
c     of the dike parameters.  The three valid values of the
c     ridge flag are
c     0 - operation has no effect on the dike
c     1 - set all oriented roughness parameters to the implement
c         values.
c
c
c
c     + + + KEYWORDS + + +
c     oriented roughness (OR), tillage (primary/secondary)
c
c     + + + ARGUMENT DECLARATIONS + + +
c
c
c     + + + ARGUMENT DEFINITIONS + + +
c
c
c     + + + ACCESSED COMMON BLOCK VARIABLE DEFINITIONS + + +
c
c
c     + + + PARAMETERS + + +
c
c     + + + LOCAL VARIABLES + + +
c
          real dikeht,dikespac
          real depth
          integer  rdgflag,i,sr
c
c     + + + LOCAL VARIABLE DEFINITIONS + + +
c
c     dikespac   - dike spacing (mm)
c     dikeht    - dike height (mm)
c     depth     - tillage depth (mm)
c     rdgflag   - flag (0-3) telling what need to be done
c     i         - interger used to increment subregion
c     sr        - subregion number used in current run

c     + + + END SPECIFICATIONS + + +
c
c  Perform the calculation of the oriented OR after a tillage
c     operation.
c
      if (rdgflag.eq.0) then
c      do not change the current values for the oriented roughness
      elseif (rdgflag.eq.1) then
c      set the oriented roughness values equal to those specified
c      for the tillage tool.

        do 100 i=1,sr
          asxdks(i)=dikespac
          asxdkh(i)=dikeht
100     continue
      elseif (rdgflag.eq.2) then
        if ((depth/2.0).le.dikeht) then
         do 200 i=1,sr
           asxdks(i)=dikespac
           asxdkh(i)=dikeht
200      continue
        endif
      else
            print *, 'The ridge flag (for oriented roughness)'
            print *, ' was not set correctly'
      endif
      end