/[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/phylmd/CV30_routines/cv_thermo.f revision 311 by guez, Mon Dec 3 17:52:21 2018 UTC trunk/phylmd/CV30_routines/cv_thermo.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC
# Line 3  module cv_thermo Line 3  module cv_thermo
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    use SUPHEC_M, only: rd, rg, rcpd, rcpv, rcw, rv    use SUPHEC_M, only: rd, rg, rcpv, rcw, rv
7    
8    implicit none    implicit none
9    
10    real, parameter:: rowl = 1000., t0 = 273.15    real, parameter:: rowl = 1000.
11    real, parameter:: clmcpv = rcw - rcpv, clmcpd = rcw - rcpd    real, parameter:: clmcpv = rcw - rcpv
12    real, parameter:: cpdmcp = rcpd - rcpv    real, parameter:: eps = rd / rv
13    real, parameter:: cpvmcpd = rcpv - rcpd, cpvmcl = rcw - rcpv    real, parameter:: ginv = 1. / rg
   real, parameter:: eps = rd / rv, epsi = 1. / eps, epsim1 = epsi - 1.  
   real, parameter:: ginv = 1. / rg, hrd = 0.5 * rd  
14    
15    private rd, rg, rcpd, rcpv, rcw, rv    private rd, rg, rcpv, rcw, rv
16    
17  end module cv_thermo  end module cv_thermo
Legend:
Removed from v.311  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21