| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2328 |
RNEVP |
_RL water(irun),crystal(irun) |
|
./pkg/fizhi/fizhi_moist.F |
2362 |
RNEVP |
crystal(i) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2423 |
RNEVP |
crystal(i) = crystal(i) + rain(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2437 |
RNEVP |
if( (evp9(i,L).gt.0.) .and. (crystal(i).gt.0.) ) then |
|
./pkg/fizhi/fizhi_moist.F |
2439 |
RNEVP |
IF(iceevap(i).GE.crystal(i)) iceevap(i) = crystal(i) |
|
./pkg/fizhi/fizhi_moist.F |
2441 |
RNEVP |
crystal(i) = crystal(i) - iceevap(i) |
|
./pkg/fizhi/fizhi_moist.F |
2462 |
RNEVP |
rcon(i) = water(i) + crystal(i) |