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 |
|
|
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 |