/[lmdze]/trunk/libf/phylmd/cvthermo.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/cvthermo.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/phylmd/cvthermo.h revision 46 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/libf/phylmd/cvthermo.f90 revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC
# Line 1  Line 1 
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
Legend:
Removed from v.46  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.21