| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2401 |
RNEVP |
_RL watevap(irun),iceevap(irun) |
|
./pkg/fizhi/fizhi_moist.F |
2507 |
RNEVP |
iceevap(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2511 |
RNEVP |
iceevap(I) = EVP9(I,L)*fracice |
|
./pkg/fizhi/fizhi_moist.F |
2512 |
RNEVP |
IF(iceevap(i).GE.crystal(i)) iceevap(i) = crystal(i) |
|
./pkg/fizhi/fizhi_moist.F |
2513 |
RNEVP |
EVP9(I,L)=EVP9(I,L)-iceevap(I) |
|
./pkg/fizhi/fizhi_moist.F |
2514 |
RNEVP |
crystal(i) = crystal(i) - iceevap(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 |