Symbol Description Uses
crystal 10



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)