source:
LMDZ5/tags/proto-testing-20131015/libf/phylmd/cvthermo.h
@
4109
Last change on this file since 4109 was 1864, checked in by , 11 years ago | |
---|---|
|
|
File size: 481 bytes |
Line | |
---|---|
1 | ! |
2 | ! $Header$ |
3 | ! |
4 | c Thermodynamical constants for convectL: |
5 | |
6 | real cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0 |
7 | real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl, clmci |
8 | real eps, epsi, epsim1 |
9 | real ginv, hrd |
10 | real grav |
11 | |
12 | COMMON /cvthermo/ cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl |
13 | : ,t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl |
14 | : ,clmci, eps, epsi, epsim1, ginv, hrd, grav |
15 | |
16 | c$OMP THREADPRIVATE(/cvthermo/) |
Note: See TracBrowser
for help on using the repository browser.