| 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 |
2684 |
CTEI |
cpoel = cp/alhl |
|
./pkg/fizhi/fizhi_moist.F |
2691 |
CTEI |
k = 1.0 + cpoel*plke(i,L)*( th(i,L)-th(i,L-1) ) / dq |
|
./pkg/fizhi/fizhi_moist.F |
2697 |
CTEI |
krd = ( cpoel*t*(1+elocp*dqsdt) )/( 1 + 1.608*dqsdt*t ) |
|
./pkg/fizhi/fizhi_moist.F |
2699 |
CTEI |
kmm = ( 1+elocp*dqsdt )*( 1 + 0.392*cpoel*t ) |
|
./pkg/fizhi/fizhi_moist.F |
2700 |
CTEI |
. / ( 2+(1+1.608*cpoel*t)*elocp*dqsdt ) |