c $Author: fredfox $
c $Date: 2000-12-11 21:19:34 $
c $Revision: 1.4 $
c $Source: /weru/cvs/weps/weps.src/decomp/decopen.for,v $
c     file: decopen.for

      subroutine decopen

c + + + Purpose  + + +
c     opens the files for decomp output


*$noereference
      include 'p1werm.inc'
      include 'wpath.inc'
      include 'm1flag.inc'
      include 'd1gen.inc'
      include 'h1temp.inc'
*$reference

c + + + LOCAL VARIABLES + + +
      character out1*80, out2*80
c     character out1*80, out2*80, out3*80, out4*80
      integer lentrm

c + + + FORMATS + + +

c 2020 format (///////////)
c 2210 format (/,' warning, the output file -  ',a80,/,' already exists -
c     & press enter to overwrite this file or control break to stop')
 2030 format( 29x,'Standing',9x,'Flat',9x,'Surface Cover    Silhouett '
     &'Area     Total Residue Amounts')
 2035 format (14x,'Pool',1x,'Stem',1x,2(2x,'decomp',3x,'bio-',1x),2x,
     &       15('-'),3x,14('-'),4x,24('-'))
 2040 format ('sr day/mo/yr   no.  no.    days    mass    days    mass',
     &        '   Stems      Flat    Total      /5     Stand    Flat  '
     &,'  Buried    ')

c    + + + DATA + + +

c    + + + END SPECIFICATIONS + + +

c     open output file  for root residues
c     open output file  for cover estiamtes

c   Write headers for output files
c       dabove.out
c       dbelow.out

c     write headers for above ground residues file if requested
      if ((am0dfl .eq. 1) .or. (am0dfl .eq. 3)) then
         write (218,*) 'Above Ground Residue Decomposition Output File'
         write (218,*) 'Standing and Surface Residues'
         write (218,*) '  '
         write (218,2030)
         write (218,2035)
         write (218,2040)
         write (218,*) '  '
      end if

c     write headers for below ground residues file if requested
      if ((am0dfl .eq. 2) .or. (am0dfl .eq. 3)) then
         write (19,*) 'Below Ground Residue Decomposition Output File'
         write (19,*) 'Data by soil layer for age pools 1 and 2'
         write (19,*) '  '
         write (19,*) '     day/mo/year '
      end if

      return
      end