/[lmdze]/trunk/Sources/phylmd/cv_thermo.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/cv_thermo.f

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

revision 182 by guez, Wed Mar 16 11:11:27 2016 UTC revision 201 by guez, Mon Jun 6 17:42:15 2016 UTC
# Line 1  Line 1 
1  SUBROUTINE cv_thermo  module cv_thermo_m
2    
3    ! Set thermodynamical constants for convectL    ! From LMDZ4/libf/phylmd/cvthermo.h, version 1.1.1.1 2004/05/19 12:53:09
4      ! Thermodynamical constants for cv_driver
5    
6    use SUPHEC_M    use SUPHEC_M, only: rd, rg, rcpd, rcpv, rcw, rv
   use cvthermo  
7    
8    implicit none    implicit none
9    
10    !-----------------------------------------------------    real, parameter:: rowl = 1000., t0 = 273.15
11      real, parameter:: clmcpv = rcw - rcpv, clmcpd = rcw - rcpd
12      real, parameter:: cpdmcp = rcpd - rcpv
13      real, parameter:: cpvmcpd = rcpv - rcpd, cpvmcl = rcw - rcpv
14      real, parameter:: eps = rd / rv, epsi = 1. / eps, epsim1 = epsi - 1.
15      real, parameter:: ginv = 1. / rg, hrd = 0.5 * rd
16    
17    cpd = RCPD    private rd, rg, rcpd, rcpv, rcw, rv
   cpv = RCPV  
   cl  = RCW  
   rrv = RV  
   rrd = RD  
   lv0 = RLVTT  
   g   = RG  
   t0  = 273.15  
   grav= g  
   
   rowl=1000.0 !(a quelle variable de SUPHEC_M cela correspond-il?)  
   clmcpv=cl-cpv  
   clmcpd=cl-cpd  
   cpdmcp=cpd-cpv  
   cpvmcpd=cpv-cpd  
   cpvmcl=cl-cpv  
   eps=rrd/rrv  
   epsi=1.0/eps  
   epsim1=epsi-1.0  
   ginv=1.0/grav  
   hrd=0.5*rrd  
18    
19  end SUBROUTINE cv_thermo  end module cv_thermo_m
Legend:
Removed from v.182  
changed lines
  Added in v.201
  ViewVC Help
Powered by ViewVC 1.1.21