C***********************************************************************
C     NSS- PHOTODISSOCIATION REACTIONS NUMBER
C     NSC- NUMBER OF LINES IN PHOT-DISOC. REACTION FILE
C***********************************************************************
      character*32 GAS,A_GAS
      integer Num_beg,Len_X,aerosol,K_T,n_abs
      PARAMETER(NSS=46,NSC=55)
      parameter ( MNabs = 2,
     *            Ngas = NSS,
     *            MNL = 78,
     *            NSRB = 16, 
     *            Len_tm=MNL
     $           ,NGWV=37
     *      )
      COMMON/SPPH/S(NSS,L),KS(1,NSS),KSC(1,NSC),KSS(2,NSC)
      COMMON/VDPH/CONC(L,2),EPOT(L,MNL),EGR(L,MNL),
     *WLT(Len_tm),SIG(Mnabs,L,Len_tm),QFCL(MNL,L),TAS(L),
     $O3S(L),AMDS(L),O2S(L),ALT(L),F88(Len_tm,12,NGWV), 
     *WBD(Len_tm),we(Len_tm),YCOL(L,Mnabs),ASCWV(Len_tm), 
     *E0(L,MNL),HH(Mnabs),EXT(L,MNL),SSAM(L,MNL),GM(L,MNL),
     *xs_all(Len_tm,L,Ngas),Num_beg(Ngas),Len_X(Ngas),aerosol, 
     *K_T (Ngas),n_abs(MNabs),GAS(Ngas),A_GAS (MNabs)
      COMMON/PHNUM/N_O3,N_O2,ALB,N_H2O