| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2329 |
RNEVP |
_RL watevap(irun),iceevap(irun) |
|
./pkg/fizhi/fizhi_moist.F |
2435 |
RNEVP |
watevap(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2448 |
RNEVP |
watevap(I) = EVP9(I,L)*AREARAT*fracwat |
|
./pkg/fizhi/fizhi_moist.F |
2449 |
RNEVP |
IF(watevap(I).GE.water(i)) watevap(I) = water(i) |
|
./pkg/fizhi/fizhi_moist.F |
2450 |
RNEVP |
EVP9(I,L)=EVP9(I,L)-watevap(I) |
|
./pkg/fizhi/fizhi_moist.F |
2451 |
RNEVP |
water(i) = water(i) - watevap(i) |
|
./pkg/fizhi/fizhi_moist.F |
2454 |
RNEVP |
QL(I,L) = QL(I,L)+(iceevap(i)+watevap(i))*TEMP3(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2455 |
RNEVP |
TL(I,L) = TL(I,L)-(iceevap(i)+watevap(i))*TEMP3(I,L)*ELOCP |