| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2399 |
RNEVP |
_RL EVP9(IRUN,NLAY) |
|
./pkg/fizhi/fizhi_moist.F |
2440 |
RNEVP |
EVP9(i,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2490 |
RNEVP |
EVP9(I,L) = (TEMP1(I,4) - QL(I,L))/TEMP3(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2511 |
RNEVP |
iceevap(I) = EVP9(I,L)*fracice |
|
./pkg/fizhi/fizhi_moist.F |
2513 |
RNEVP |
EVP9(I,L)=EVP9(I,L)-iceevap(I) |
|
./pkg/fizhi/fizhi_moist.F |
2521 |
RNEVP |
watevap(I) = EVP9(I,L)*AREARAT*fracwat |
|
./pkg/fizhi/fizhi_moist.F |
2523 |
RNEVP |
EVP9(I,L)=EVP9(I,L)-watevap(I) |