Parent Directory | Revision Log | Patch
revision 190 by guez, Thu Apr 14 15:15:56 2016 UTC | revision 196 by guez, Mon May 23 13:50:39 2016 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | module cv_thermo_m | module cv_thermo_m |
2 | ||
3 | ! From LMDZ4/libf/phylmd/cvthermo.h, version 1.1.1.1 2004/05/19 12:53:09 | ! From LMDZ4/libf/phylmd/cvthermo.h, version 1.1.1.1 2004/05/19 12:53:09 |
4 | ! Thermodynamical constants for convectL | ! Thermodynamical constants for cv_driver |
5 | ||
6 | implicit none | implicit none |
7 | ||
# | Line 15 contains | Line 15 contains |
15 | ||
16 | SUBROUTINE cv_thermo | SUBROUTINE cv_thermo |
17 | ||
18 | ! Set thermodynamical constants for convectL | ! Set thermodynamical constants for cv_driver |
19 | ||
20 | use SUPHEC_M, only: rcpd, rcpv, rcw, rd, rg, rlvtt, rv | use SUPHEC_M, only: rcpd, rcpv, rcw, rd, rg, rlvtt, rv |
21 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |