IF (model_config_rec%irr_opt(idomain)==1)THEN
   IF ( irr_diag_index_table( PARAM_r001_irr , idomain ) .lt. 1 ) THEN
     irr_diag_num_table(idomain) = irr_diag_num_table(idomain) + 1
     P_r001_irr = irr_diag_num_table(idomain)
     irr_diag_index_table( PARAM_r001_irr , idomain ) = P_r001_irr
   ELSE
     P_r001_irr = irr_diag_index_table( PARAM_r001_irr , idomain )
   END IF
   irr_diag_boundary_table( idomain, P_r001_irr ) = .FALSE.
   irr_diag_dname_table( idomain, P_r001_irr ) = 'ROO1_IRR'
   irr_diag_desc_table( idomain, P_r001_irr ) = 'R001 Integrated Reaction Rate'
   irr_diag_units_table( idomain, P_r001_irr ) = 'ppm/s'
   irr_diag_streams_table( idomain, P_r001_irr )%stream(1) = 1 
   irr_diag_streams_table( idomain, P_r001_irr )%stream(2) = 2097152 
   F_r001_irr = .TRUE.
   IF ( irr_diag_index_table( PARAM_j001_irr , idomain ) .lt. 1 ) THEN
     irr_diag_num_table(idomain) = irr_diag_num_table(idomain) + 1
     P_j001_irr = irr_diag_num_table(idomain)
     irr_diag_index_table( PARAM_j001_irr , idomain ) = P_j001_irr
   ELSE
     P_j001_irr = irr_diag_index_table( PARAM_j001_irr , idomain )
   END IF
   irr_diag_boundary_table( idomain, P_j001_irr ) = .FALSE.
   irr_diag_dname_table( idomain, P_j001_irr ) = 'JOO1_IRR'
   irr_diag_desc_table( idomain, P_j001_irr ) = 'J001 Integrated Reaction Rate'
   irr_diag_units_table( idomain, P_j001_irr ) = 'ppm/s'
   irr_diag_streams_table( idomain, P_j001_irr )%stream(1) = 1 
   irr_diag_streams_table( idomain, P_j001_irr )%stream(2) = 2097152 
   F_j001_irr = .TRUE.
  END IF
  IF (model_config_rec%irr_opt(idomain)==2)THEN
   IF ( irr_diag_index_table( PARAM_r001_irr , idomain ) .lt. 1 ) THEN
     irr_diag_num_table(idomain) = irr_diag_num_table(idomain) + 1
     P_r001_irr = irr_diag_num_table(idomain)
     irr_diag_index_table( PARAM_r001_irr , idomain ) = P_r001_irr
   ELSE
     P_r001_irr = irr_diag_index_table( PARAM_r001_irr , idomain )
   END IF
   irr_diag_boundary_table( idomain, P_r001_irr ) = .FALSE.
   irr_diag_dname_table( idomain, P_r001_irr ) = 'ROO1_IRR'
   irr_diag_desc_table( idomain, P_r001_irr ) = 'R001 Integrated Reaction Rate'
   irr_diag_units_table( idomain, P_r001_irr ) = 'ppm/s'
   irr_diag_streams_table( idomain, P_r001_irr )%stream(1) = 1 
   irr_diag_streams_table( idomain, P_r001_irr )%stream(2) = 2097152 
   F_r001_irr = .TRUE.
   IF ( irr_diag_index_table( PARAM_j001_irr , idomain ) .lt. 1 ) THEN
     irr_diag_num_table(idomain) = irr_diag_num_table(idomain) + 1
     P_j001_irr = irr_diag_num_table(idomain)
     irr_diag_index_table( PARAM_j001_irr , idomain ) = P_j001_irr
   ELSE
     P_j001_irr = irr_diag_index_table( PARAM_j001_irr , idomain )
   END IF
   irr_diag_boundary_table( idomain, P_j001_irr ) = .FALSE.
   irr_diag_dname_table( idomain, P_j001_irr ) = 'JOO1_IRR'
   irr_diag_desc_table( idomain, P_j001_irr ) = 'J001 Integrated Reaction Rate'
   irr_diag_units_table( idomain, P_j001_irr ) = 'ppm/s'
   irr_diag_streams_table( idomain, P_j001_irr )%stream(1) = 1 
   irr_diag_streams_table( idomain, P_j001_irr )%stream(2) = 2097152 
   F_j001_irr = .TRUE.
  END IF