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

Diff of /trunk/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 192 by guez, Thu May 12 13:00:07 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
# Line 257  contains Line 257  contains
257    
258         ! Unsaturated (precipitating) downdrafts         ! Unsaturated (precipitating) downdrafts
259         CALL cv30_unsat(icb(:ncum), inb(:ncum), t, q, qs, gz, u, v, p, ph, th, &         CALL cv30_unsat(icb(:ncum), inb(:ncum), t, q, qs, gz, u, v, p, ph, th, &
260              tv, lv, cpn, ep, sigp, clw, m, ment, elij, delt, plcl, mp, &              tv, lv, cpn, ep(:ncum, :), sigp(:ncum, :), clw(:ncum, :), &
261              qp(:ncum, :nl), up(:ncum, :nl), vp(:ncum, :nl), wt, water, evap, b)              m(:ncum, :), ment(:ncum, :, :), elij(:ncum, :, :), delt, plcl, &
262                mp, qp(:ncum, :nl), up(:ncum, :nl), vp(:ncum, :nl), wt, water, &
263                evap, b)
264    
265         ! Yield (tendencies, precipitation, variables of interface with         ! Yield (tendencies, precipitation, variables of interface with
266         ! other processes, etc)         ! other processes, etc)
Legend:
Removed from v.189  
changed lines
  Added in v.192
  ViewVC Help
Powered by ViewVC 1.1.21