c     file name : cpout.for
      subroutine cpout
c     Author : A. Retta - 11/19/96
c     + + + PURPOSE + + +
c     Prints output files from the CROP submodel
c
*$noreference
       include 'm1flag.inc'
       include 'm1dbug.inc'
*$reference

c     + + + OUTPUT FORMATS + + +
 2032 format ('                          area index   ------------------
     &- masses --------------------------     root    plant        water
     & use            ')
 2132 format ('day mo year sbr crop     leaf     stem abground     leaf
     &   stem   rprdctv    yield     root    depth   height   transp pre
     &ciptn  hui   doy  daye')
 2133 format ('              #    #                       t/ha     t/ha
     &   t/ha      t/ha     t/ha     t/ha      (m)      (m)     (mm)
     & (mm)           ')
 2053 format('                 plant    ------------- masses -----------
     &  ----- water use --------')
 2054 format(' day    mo year height   leaf   stem rprdct  yield abgmas
     &transp  evtrn precip p_trns')
 2055 format('                   (m)   t/ha          t/ha   t/ha   t/ha
     &  (mm)   (mm)   (mm)   (mm)')
 2034 format(' year    leaf  stem rprdct  yield abgmas transp evptrn pre
     &cip p_trnsp lai_max sai_max')
 2035 format('         t/ha  t/ha   t/ha   t/ha   t/ha   (mm)   (mm)   (
     &mm)    (mm)')
c2065 format(' doy   lfwt   stwt   rpwt    lfa    sta  clfwt  cstwt')
 2065 format(' doy   year  clfwt  cstwt  crpwt    yld    bms  plf  pst
     &prp   ws   ts   lai  daye')
 2066 format(' doy, shu, hrlt, am0drmfl')


      open (unit = 17, file = 'crop.out', status = 'unknown')
c     output specialized output files
      if (am0cdb.eq.2) then
         open (unit = 57, file = 'part.out', status = 'unknown')
         open (unit = 58, file = 'prnl.out', status = 'unknown')
         open (unit = 59, file = 'annl.out', status = 'unknown')
         open (unit = 60, file = 'inpt.out', status = 'unknown')
         open (unit = 61, file = 'junk.out', status = 'unknown')         
      endif
c     write titles
         write (17, 2032)
         write (17, 2132)
         write (17, 2133)
      if (am0cdb.eq.2) then
         write (58, 2053)
         write (58, 2054)
         write (58, 2055)
         write (59, 2034)
         write (59, 2035)
         write (57, 2065)
         write (61, 2066)
      endif
         return
         end