1 |
! |
module cvthermo |
|
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/cvthermo.h,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $ |
|
|
! |
|
|
c Thermodynamical constants for convectL: |
|
2 |
|
|
3 |
real cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0 |
! From LMDZ4/libf/phylmd/cvthermo.h,v 1.1.1.1 2004/05/19 12:53:09 |
4 |
real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl |
! Thermodynamical constants for convectL |
|
real eps, epsi, epsim1 |
|
|
real ginv, hrd |
|
|
real grav |
|
5 |
|
|
6 |
COMMON /cvthermo/ cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0 |
implicit none |
|
: ,clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl |
|
|
: ,eps, epsi, epsim1, ginv, hrd, grav |
|
7 |
|
|
8 |
|
real cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0 |
9 |
|
real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl |
10 |
|
real eps, epsi, epsim1 |
11 |
|
real ginv, hrd |
12 |
|
real grav |
13 |
|
|
14 |
|
end module cvthermo |