source:
trunk/libf/phylmd/cvthermo.h
@
86
Last change on this file since 86 was 1, checked in by , 15 years ago | |
---|---|
File size: 450 bytes |
Rev | Line | |
---|---|---|
[1] | 1 | ! |
2 | ! $Header$ | |
3 | ! | |
4 | c 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 | c$OMP THREADPRIVATE(/cvthermo/) |
Note: See TracBrowser
for help on using the repository browser.