
! $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/)
