c****************************************************************************
c
c       tcr_15um.cmn
c 
c       Common blocks of coefficients and constants for NLTE CR 
c       (for the NLTE driver table)
c     
c       JAN 98  MALV            Based on SOLAR10s mztv1.cmn
c       MAR 2010 FGG            Adaptation to GCM
c****************************************************************************
c
      integer   irw_mztf,imu,ioverlap,nw,itt_cza,icls_mztf,nan
c
      parameter (irw_mztf     = 2)
      parameter (imu          = 1)
      parameter (ioverlap     = 0)
      parameter (nw           = 3)
      parameter (itt_cza      = 13)
      parameter (icls_mztf    = 5)
      parameter (nan          = 0)
c
c 
      integer iopt3, iopt19,iopt20, iopt21,iopt27,iopt26
c
      parameter (iopt3        = 1)
      parameter (iopt19       = 2)
      parameter (iopt20       = 2)
      parameter (iopt21       = 1)
      parameter (iopt27       = 1)
      parameter (iopt26       = 2)
c
c
      integer	iopt41,iopt43, iopt6
c
      parameter (iopt6        = 2)
      parameter (iopt41       = 2)
      parameter (iopt43       = 2)
c
c
      real   tsurf_excess,Pbottom_atm,Ptop_atm
c
      parameter (tsurf_excess = 0.)
      parameter (Pbottom_atm  = 2.e-5)
      parameter (Ptop_atm     = 5.e-12)
c
c
      real*8 rf1,rf2desac,rf2iso,rf3,rf6
c
      parameter (rf1          = 1.d0)
      parameter (rf2desac     = 1.d0)
      parameter (rf2iso       = 1.d0)
      parameter (rf3          = 1.d0)
      parameter (rf6          = 1.d0)  
c
c
      real*8 rf7,rf19,rf20,rf21a,rf21b,rf21c 
c
      parameter (rf7          = 1.d0)
      parameter (rf19         = 1.d0)
      parameter (rf20         = 1.d0)
      parameter (rf21a        = 1.d0)
      parameter (rf21b        = 1.d0)
      parameter (rf21c        = 1.d0)
c
c
      real*8 rf26,rf27f,rf27s,rf28,rf31,rf32,rf33a,rf33bc
c
      parameter (rf26         = 1.d0)
      parameter (rf27f        = 1.d0)
      parameter (rf27s        = 1.d0)
      parameter (rf28         = 1.d0)
      parameter (rf31         = 1.d0)
      parameter (rf32         = 1.d0)
      parameter (rf33a        = 1.d0)
      parameter (rf33bc       = 1.d0)
c
c
      real*8 rf41,rf42,rf43,rf_hcl,rf44
c
      parameter (rf41         = 1.d0)
      parameter (rf42         = 1.d0)
      parameter (rf43         = 1.d0)
      parameter (rf_hcl       = 1.d0)
      parameter (rf44         = 1.d0)
c
c                  
      real*8 frac6,frac21,frac33
c
      parameter (frac6        = 1.d0)
      parameter (frac21       = 1.d0)
      parameter (frac33       = 1.d0)