! $Header$

! Thermodynamical constants for convectL:

      REAL cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0
      REAL clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl, clmci
      REAL eps, epsi, epsim1
      REAL ginv, hrd
      REAL grav

      COMMON /cvthermo/ cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl &
                       ,t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
                       ,clmci, eps, epsi, epsim1, ginv, hrd, grav

!$OMP THREADPRIVATE(/cvthermo/)