!
 REAL(KIND=dp) :: RO2
 INTEGER, INTENT(in) :: nvar
 REAL(KIND=dp), DIMENSION(nvar), INTENT(IN)  :: var 
 INTEGER, INTENT(in) ::  &
           ind_ru14o2,ind_no,ind_oh,ind_rtn23o2,ind_rtn26o2,ind_ho2, &
           ind_rtx28o2,ind_rn19o2,ind_nrn12ooh,ind_hoch2co3,ind_no2 

