| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2400 |
RNEVP |
_RL water(irun),crystal(irun) |
|
./pkg/fizhi/fizhi_moist.F |
2435 |
RNEVP |
crystal(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2496 |
RNEVP |
crystal(i) = crystal(i) + rain(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2510 |
RNEVP |
if( (evp9(i,L).gt.0.) .and. (crystal(i).gt.0.) ) then |
|
./pkg/fizhi/fizhi_moist.F |
2512 |
RNEVP |
IF(iceevap(i).GE.crystal(i)) iceevap(i) = crystal(i) |
|
./pkg/fizhi/fizhi_moist.F |
2514 |
RNEVP |
crystal(i) = crystal(i) - iceevap(i) |
|
./pkg/fizhi/fizhi_moist.F |
2535 |
RNEVP |
rcon(i) = water(i) + crystal(i) |