Parent Directory | Revision Log | Patch
trunk/libf/phylmd/cv_thermo.f90 revision 49 by guez, Wed Aug 24 11:43:14 2011 UTC | trunk/phylmd/cv_thermo.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | SUBROUTINE cv_thermo(iflag_con) | SUBROUTINE cv_thermo |
2 | ||
3 | ! Set thermodynamical constants for convectL | ! Set thermodynamical constants for convectL |
4 | ||
5 | use clesphys2, only: iflag_con | |
6 | use SUPHEC_M | use SUPHEC_M |
7 | use cvthermo | use cvthermo |
8 | ||
9 | implicit none | implicit none |
10 | ||
integer, intent(in):: iflag_con | ||
11 | !----------------------------------------------------- | !----------------------------------------------------- |
12 | ||
13 | ! original set from convect: | ! original set from convect: |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |