9       PARAMETER (n_avogadro=6.02E23)                  !--molec mol-1
 
!$Id mode_top_bound COMMON comconstr g
 
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
 
!$Id!INTEGER ih2o2 REAL masse_s
 
!$Id!INTEGER ih2o2 REAL masse_so4
 
!$Id!INTEGER ih2o2 REAL rho_water
 
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
 
!$Id!Valid and equivalent for either free source form or fixed source form INTEGER i1_fin INTEGER i2_fin!cc PARAMETER(i1_deb=21, i1_fin=40)!cc PARAMETER(i2_deb
 
!$Id!INTEGER ih2o2 REAL n_avogadro