/[lmdze]/trunk/phylmd/CV30_routines/cv_thermo.f90
ViewVC logotype

Diff of /trunk/phylmd/CV30_routines/cv_thermo.f90

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

trunk/Sources/phylmd/cv_thermo.f revision 190 by guez, Thu Apr 14 15:15:56 2016 UTC trunk/phylmd/CV30_routines/cv_thermo.f revision 322 by guez, Thu Jan 24 16:17:39 2019 UTC
# Line 1  Line 1 
1  module cv_thermo_m  module cv_thermo
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      use SUPHEC_M, only: rd, rg, rcpv, rcw, rv
7    
8    implicit none    implicit none
9    
10    real cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0    real, parameter:: rowl = 1000.
11    real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl    real, parameter:: clmcpv = rcw - rcpv
12    real eps, epsi, epsim1    real, parameter:: eps = rd / rv
13    real ginv, hrd    real, parameter:: ginv = 1. / rg
   real grav  
   
 contains  
   
   SUBROUTINE cv_thermo  
   
     ! Set thermodynamical constants for convectL  
   
     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  
   
     rowl=1000. ! (\`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  
14    
15    end SUBROUTINE cv_thermo    private rd, rg, rcpv, rcw, rv
16    
17  end module cv_thermo_m  end module cv_thermo
Legend:
Removed from v.190  
changed lines
  Added in v.322
  ViewVC Help
Powered by ViewVC 1.1.21