!-----------------------------------------------------------------------
!   INCLUDE 'bands.h'
!
!   bands.h contains the visible & infrared bands in the model
!
!   NBinfrared = L_NSPECTI in the model
!   NBvisible  = L_NSPECTV in the model
!-----------------------------------------------------------------------

      INTEGER, parameter :: NBinfrared=20
      INTEGER, parameter :: NBvisible=30


!-----------------------------------------------------------------------