/[lmdze]/trunk/phylmd/CV30_routines/cv30_undilute1.f
ViewVC logotype

Diff of /trunk/phylmd/CV30_routines/cv30_undilute1.f

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

revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC revision 311 by guez, Mon Dec 3 17:52:21 2018 UTC
# Line 22  contains Line 22  contains
22      ! - if icbs1=icb1, compute also tp1(icb1+1), tvp1(icb1+1) & clw1(icb1+1)      ! - if icbs1=icb1, compute also tp1(icb1+1), tvp1(icb1+1) & clw1(icb1+1)
23    
24      use cv30_param_m, only: minorig, nl      use cv30_param_m, only: minorig, nl
25      use cv_thermo_m, only: clmcpv, eps      use cv_thermo, only: clmcpv, eps
26      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
27      use SUPHEC_M, only: rcw, rlvtt, rcpd, rcpv, rv      use SUPHEC_M, only: rcw, rlvtt, rcpd, rcpv, rv
28    
Legend:
Removed from v.254  
changed lines
  Added in v.311
  ViewVC Help
Powered by ViewVC 1.1.21