! NLTE parameters:

	integer nl		! actual # alt in NLTE module 
	parameter ( nl=20 )
	!real deltaz 
	!parameter ( deltaz=5.0 )   ! Good option for Mars
                                  ! Asegurarse que el conjunto de valores 
				  ! (zmin,nl,deltaz) no se salen de los 
				  ! límites del grid (zxmin,nz,deltazx)
	integer nl2		! = nl-2, needed for matrix inversion (mmh2)
	parameter ( nl2=nl-2 )	

	integer nzy
	parameter ( nzy = (nl-1)*4 + 1 )  ! Fine grid for mztud.f
	!real deltazy
	!parameter ( deltazy = deltaz*4.0 )

!  Other NLTE parameters:
	integer 	nisot		! number of isotopes considered
	integer 	nb 		! number of bands included
	integer 	nbmax_jt	! number of bands for solar heating
	parameter ( nisot=4, nb=41, nbmax_jt=47 )

	integer 	nhist			! # of temps in histogr.
	parameter 	( nhist = 36 )          ! (get it from histograms!)

	integer 	nmax_freq		! maximum number of points 
	parameter 	( nmax_freq = 40000 )   ! for overlap-freq integration
						! If dv (tcr_15um.drv) is very
                                                ! small this must be increased.

	integer         nbox_max
	parameter       ( nbox_max = 70 )       ! max.# boxes in histogram

!  Parameter for the composite vectors and matrixes of the compact-LU method
        integer         nl5
	parameter       ( nl5 = nl * 5 )

! NLTE parameters that were needed by solar10 and are still in use 
	integer 	ngroup                  ! normally we use 0 & 10 only
	parameter 	( ngroup=10 )
	integer  	nisos                   ! #isotps para los vectores jt
	parameter 	( nisos = 9 )
	integer  	nfile,nfile1    	! reminiscencia de cuando se 
	parameter 	( nfile=5, nfile1=4 )   ! leian las diff.hr desde
						! ficheros externos
! NLTE Parameters for JT calculations
	integer 	nsublayers		! subdivision para el fine grid
	parameter 	( nsublayers = 50 )     ! called jj in the fot_alljt it
                                                ! is usually 10 for vert. paths
                                                ! or if you wish, for smallSZA,
						! and 50 for oblique (SZA>90)