/[lmdze]/trunk/Sources/phylmd/CV30_routines/cv30_undilute2.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/CV30_routines/cv30_undilute2.f

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

revision 150 by guez, Thu Jun 18 13:49:26 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 44  Line 44 
44    
45  ! local variables:  ! local variables:
46        integer i, k        integer i, k
47        real tg,qg,ahg,alv,s,tc,es,denom,rg        real tg,qg,ahg,alv,s,tc,es,denom
48        real pden        real pden
49        real ah0(nloc)        real ah0(nloc)
50    
# Line 141  Line 141 
141    
142                 clw(i,k)=qnk(i)-qg                 clw(i,k)=qnk(i)-qg
143                 clw(i,k)=max(0.0,clw(i,k))                 clw(i,k)=max(0.0,clw(i,k))
                rg=qg/(1.-qnk(i))  
 ! ori               tvp(i,k)=tp(i,k)*(1.+rg*epsi)  
144  ! convect3: (qg utilise au lieu du vrai mixing ratio rg):  ! convect3: (qg utilise au lieu du vrai mixing ratio rg):
145                 tvp(i,k)=tp(i,k)*(1.+qg/eps-qnk(i)) ! whole thing                 tvp(i,k)=tp(i,k)*(1.+qg/eps-qnk(i)) ! whole thing
146              endif              endif
Legend:
Removed from v.150  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21