| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2329 |
RNEVP |
_RL watevap(irun),iceevap(irun) |
|
./pkg/fizhi/fizhi_moist.F |
2434 |
RNEVP |
iceevap(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2438 |
RNEVP |
iceevap(I) = EVP9(I,L)*fracice |
|
./pkg/fizhi/fizhi_moist.F |
2439 |
RNEVP |
IF(iceevap(i).GE.crystal(i)) iceevap(i) = crystal(i) |
|
./pkg/fizhi/fizhi_moist.F |
2440 |
RNEVP |
EVP9(I,L)=EVP9(I,L)-iceevap(I) |
|
./pkg/fizhi/fizhi_moist.F |
2441 |
RNEVP |
crystal(i) = crystal(i) - iceevap(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 |