| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2401 |
RNEVP |
_RL watevap(irun),iceevap(irun) |
|
./pkg/fizhi/fizhi_moist.F |
2508 |
RNEVP |
watevap(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2521 |
RNEVP |
watevap(I) = EVP9(I,L)*AREARAT*fracwat |
|
./pkg/fizhi/fizhi_moist.F |
2522 |
RNEVP |
IF(watevap(I).GE.water(i)) watevap(I) = water(i) |
|
./pkg/fizhi/fizhi_moist.F |
2523 |
RNEVP |
EVP9(I,L)=EVP9(I,L)-watevap(I) |
|
./pkg/fizhi/fizhi_moist.F |
2524 |
RNEVP |
water(i) = water(i) - watevap(i) |
|
./pkg/fizhi/fizhi_moist.F |
2527 |
RNEVP |
QL(I,L) = QL(I,L)+(iceevap(i)+watevap(i))*TEMP3(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2528 |
RNEVP |
TL(I,L) = TL(I,L)-(iceevap(i)+watevap(i))*TEMP3(I,L)*ELOCP |