c
c
      subroutine orient2
     o              (dh,ds,
     i              impl_dh,impl_ds)


c     + + + PURPOSE + + +
c
c     This subroutine performs an oriented roughness calculation
c     after a tillage operation.  It creates dikes, regardless
c     whether ridges already exist (it assumes they do).
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     dh,ds
          real     impl_dh,impl_ds
c
c     + + + LOCAL VARIABLE DEFINITIONS + + +
c
c     dh      - current dike height (mm)
c     ds      - current dike spacing (mm)
c     impl_ds - implement dike spacing (mm)
c     impl_dh - implement dike height (mm)

c     + + + END SPECIFICATIONS + + +
c
c  Perform the calculation of the oriented OR after a tillage
c     operation.
c
      ds = impl_ds
      dh = impl_dh

      return
      end