REAL(KIND=dp) :: roltho,rolto3,roltno3,roliho,rolio3,rolino3,rtolho,rxylho,    &
                 rcslho,rcslno3,rhc5ho,rhc8ho,risoho,risoo3,risono3,           &
                 rapiho,rapio3,rapino3,rlimho,rlimo3,rlimno3,                  &
                 rsesqho,rsesqo3,rsesqno3,                                     &
                 risopno,risopho2,risopmo2,risopaco3,risopisop

REAL(KIND=dp) , DIMENSION(ldrog_vbs)  :: PRDROG
REAL(KIND=dp) :: ro2loss 

! for nrc_2o5
REAL :: es, qvs, rh
REAL( KIND = dp ) :: rc_n2o5
