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

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

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

revision 189 by guez, Tue Mar 29 15:20:23 2016 UTC revision 190 by guez, Thu Apr 14 15:15:56 2016 UTC
# Line 26  contains Line 26  contains
26      use cv30_undilute2_m, only: cv30_undilute2      use cv30_undilute2_m, only: cv30_undilute2
27      use cv30_unsat_m, only: cv30_unsat      use cv30_unsat_m, only: cv30_unsat
28      use cv30_yield_m, only: cv30_yield      use cv30_yield_m, only: cv30_yield
29        use cv_thermo_m, only: cv_thermo
30      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
31    
32      real, intent(in):: t1(klon, klev) ! temperature (K)      real, intent(in):: t1(klon, klev) ! temperature (K)
# Line 167  contains Line 168  contains
168      ! SET CONSTANTS AND PARAMETERS      ! SET CONSTANTS AND PARAMETERS
169    
170      ! set thermodynamical constants:      ! set thermodynamical constants:
     ! (common cvthermo)  
171      CALL cv_thermo      CALL cv_thermo
172    
173      ! set convect parameters      ! set convect parameters
Legend:
Removed from v.189  
changed lines
  Added in v.190
  ViewVC Help
Powered by ViewVC 1.1.21