/[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 196 by guez, Mon May 23 13:50:39 2016 UTC revision 201 by guez, Mon Jun 6 17:42:15 2016 UTC
# Line 3  module cv_thermo_m Line 3  module cv_thermo_m
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 cv_driver    ! Thermodynamical constants for cv_driver
5    
6    implicit none    use SUPHEC_M, only: rd, rg, rcpd, rcpv, rcw, rv
   
   real cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0  
   real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  
   real eps, epsi, epsim1  
   real ginv, hrd  
   real grav  
   
 contains  
   
   SUBROUTINE cv_thermo  
7    
8      ! Set thermodynamical constants for cv_driver    implicit none
   
     use SUPHEC_M, only: rcpd, rcpv, rcw, rd, rg, rlvtt, rv  
   
     !-----------------------------------------------------  
   
     cpd = RCPD  
     cpv = RCPV  
     cl  = RCW  
     rrv = RV  
     rrd = RD  
     lv0 = RLVTT  
     g   = RG  
     t0  = 273.15  
     grav= g  
9    
10      rowl=1000. ! (\`A quelle variable de SUPHEC_M cela correspond-il ?)    real, parameter:: rowl = 1000., t0 = 273.15
11      clmcpv=cl-cpv    real, parameter:: clmcpv = rcw - rcpv, clmcpd = rcw - rcpd
12      clmcpd=cl-cpd    real, parameter:: cpdmcp = rcpd - rcpv
13      cpdmcp=cpd-cpv    real, parameter:: cpvmcpd = rcpv - rcpd, cpvmcl = rcw - rcpv
14      cpvmcpd=cpv-cpd    real, parameter:: eps = rd / rv, epsi = 1. / eps, epsim1 = epsi - 1.
15      cpvmcl=cl-cpv    real, parameter:: ginv = 1. / rg, hrd = 0.5 * rd
     eps=rrd/rrv  
     epsi=1.0/eps  
     epsim1=epsi-1.0  
     ginv=1.0/grav  
     hrd=0.5*rrd  
16    
17    end SUBROUTINE cv_thermo    private rd, rg, rcpd, rcpv, rcw, rv
18    
19  end module cv_thermo_m  end module cv_thermo_m
Legend:
Removed from v.196  
changed lines
  Added in v.201
  ViewVC Help
Powered by ViewVC 1.1.21