! Replaces cvthermo.h MODULE cvthermo_mod_h IMPLICIT NONE; PRIVATE PUBLIC cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & , clmci, eps, epsi, epsim1, ginv, hrd, grav ! 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 !$OMP THREADPRIVATE(cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & !$OMP , clmci, eps, epsi, epsim1, ginv, hrd, grav) END MODULE cvthermo_mod_h