| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2679 |
CTEI |
_RL getcon,cp,alhl,elocp,cpoel,t,p,s,qs,dqsdt,dq |
|
./pkg/fizhi/fizhi_moist.F |
2689 |
CTEI |
dq = q(i,L)+cldwat(i,L)-q(i,L-1)-cldwat(i,L-1) |
|
./pkg/fizhi/fizhi_moist.F |
2690 |
CTEI |
if( dq.eq.0.0 ) dq = 1.0e-20 |
|
./pkg/fizhi/fizhi_moist.F |
2691 |
CTEI |
k = 1.0 + cpoel*plke(i,L)*( th(i,L)-th(i,L-1) ) / dq |
|
./pkg/cheapaml/cheapaml.F |
539 |
CHEAPAML |
dq=qr(i,j,bi,bj)-qair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
540 |
CHEAPAML |
qair(i,j,bi,bj)=qair(i,j,bi,bj)+dq*xrelf(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
71 |
CHEAPAML |
_RL dtemp,xflu,xfld,dq,dtr |