c=======================================================================

      subroutine disdb( nlyr, dtauc, ssalb, pmom, temper, wvnmlo,
     &                    wvnmhi, usrtau, ntau, utau, nstr, usrang,
     &                    numu, umu, nphi, phi, ibcnd, fbeam, umu0,
     &                    phi0, fisot, lamber, albedo, hl, btemp,
     &                    ttemp, temis, deltam, plnk, onlyfl,
     &                    accur, prnt, header, maxcly, maxulv,
     &                    maxumu, maxcmu, maxphi, rfldir, rfldn,
     &                    flup, dfdt, uavg, uu, u0u, albmed, trnmed,
     &                    dpth, upth, ipth, icnt, nbaeca )

      character*127  header
      logical  deltam, lamber, plnk, onlyfl, prnt(7), usrang, usrtau
      integer  ibcnd, maxcly, maxumu, maxulv, maxcmu, maxphi, nlyr,
     &         numu, nstr, nphi, ntau, nbaeca
      real     accur, albedo, btemp, dtauc( maxcly ), fbeam, fisot,
     &         hl( 0:maxcmu ), phi( maxphi ), pmom( 0:maxcmu, maxcly ),
     &         phi0, ssalb( maxcly ), temper( 0:maxcly ), temis, ttemp,
     &         wvnmlo, wvnmhi, umu( maxumu ), umu0, utau( maxulv )
      real     rfldir( maxulv ), rfldn( maxulv ), flup( maxulv ),
     &         uavg( maxulv ), dfdt( maxulv ), u0u( maxumu, maxulv ),
     &         uu( maxumu, maxulv, maxphi ), albmed( maxumu ),
     &         trnmed( maxumu )

      real     dpth( maxcly ), upth(maxulv,maxumu)
	write(*,*) 'icnt = ',icnt
      write(*,*) 'nlyr: '
      write(*,*) nlyr
      write(*,*) 'header:'
      write(*,*) header
      write(*,*) 'deltam: '
      write(*,*) deltam
      write(*,*) 'lamber: '
      write(*,*) lamber
      write(*,*) 'plnk: '
      write(*,*) plnk
      write(*,*) 'onlyfl: '
      write(*,*) onlyfl
      write(*,*) 'prnt(7): '
      write(*,*) prnt
      write(*,*) 'usrang: '
      write(*,*) usrang
      write(*,*) 'usrtau: '
      write(*,*) usrtau
      write(*,*) 'ibcnd: '
      write(*,*) ibcnd
      write(*,*) 'maxcly: '
      write(*,*) maxcly
      write(*,*) 'maxumu: '
      write(*,*) maxumu
      write(*,*) 'maxulv: '
      write(*,*) maxulv
      write(*,*) 'maxcmu: '
      write(*,*) maxcmu
      write(*,*) 'maxphi: '
      write(*,*) maxphi
      write(*,*) 'numu: '
      write(*,*) numu
      write(*,*) 'nstr: '
      write(*,*) nstr
      write(*,*) 'nphi: '
      write(*,*) nphi
      write(*,*) 'ntau: '
      write(*,*) ntau
      write(*,*) 'nbaeca: '
      write(*,*) nbaeca
      write(*,*) 'accur: '
      write(*,*) accur
      write(*,*) 'albedo: '
      write(*,*) albedo
      write(*,*) 'btemp: '
      write(*,*) btemp
      write(*,*) 'fbeam: '
      write(*,*) fbeam
      write(*,*) 'fisot: '
      write(*,*) fisot
      write(*,*) 'dtauc(maxcly): '
      write(*,*) dtauc
      write(*,*) 'ssalb( maxcly ): '
      write(*,*) ssalb
      write(*,*) 'hl( 0:maxcmu):'
      write(*,*) hl
      write(*,*) 'phi( maxphi ): '
      write(*,*) phi
      write(*,*) 'pmom( 0:maxcmu,maxcly)'
      write(*,*) pmom
      write(*,*) 'phi0: '
      write(*,*) phi0
      write(*,*) 'temper( 0:maxcly): '
      write(*,*) temper
      write(*,*) 'temis: '
      write(*,*) temis
      write(*,*) 'ttemp: '
      write(*,*) ttemp
      write(*,*) 'wvnmlo: '
      write(*,*) wvnmlo
      write(*,*) 'wvnmhi: '
      write(*,*) wvnmhi
      write(*,*) 'umu( maxumu ): '
      write(*,*) umu
      write(*,*) 'umu0: '
      write(*,*) umu0
      write(*,*) 'utau( maxulv: '
      write(*,*) utau
      write(*,*) 'rfldir( maxulv ): '
      write(*,*) rfldir
      write(*,*) 'rfldn( maxulv ): '
      write(*,*) rfldn
      write(*,*) 'flup( maxulv : '
      write(*,*) flup
      write(*,*) 'uavg( maxulv ): '
      write(*,*) uavg
      write(*,*) 'dfdt( maxulv ): '
      write(*,*) dfdt
      write(*,*) 'u0u( maxumu, maxulv : '
      write(*,*) u0u
      write(*,*) 'uu( maxumu, maxulv, maxphi ): '
      write(*,*) uu
      write(*,*) 'albmed(maxumu) : '
      write(*,*) albmed
      write(*,*) 'trnmed(maxumu): '
      write(*,*) trnmed
	write(*,*) 'ipth '
	write(*,*) ipth
      write(*,*) 'dpth(maxulv) '
      write(*,*) dpth
      write(*,*) 'upth(maxulv,maxumu): '
      write(*,*) upth
      return
      end