source: lmdz_wrf/WRFV3/lmdz/cvthermo.h @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 494 bytes
Line 
1!
2! $Header$
3!
4! Thermodynamical constants for convectL:
5
6      real cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0
7      real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl
8      real eps, epsi, epsim1
9      real ginv, hrd
10      real grav
11
12      COMMON /cvthermo/ cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0                     &
13     &                 ,clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl                      &
14     &                 ,eps, epsi, epsim1, ginv, hrd, grav
15
16!$OMP THREADPRIVATE(/cvthermo/)
Note: See TracBrowser for help on using the repository browser.