Symbol Description Uses
mcheck 4



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1335 RNDCLOUD
      integer i,mcheck,iseed,indx
./pkg/fizhi/fizhi_moist.F 1350 RNDCLOUD
      mcheck = mod(iras-1,irm/nrnd)
./pkg/fizhi/fizhi_moist.F 1364 RNDCLOUD
      elseif ( first.and.(iras.gt.1) .or. mcheck.eq.0 ) then
./pkg/fizhi/fizhi_moist.F 1365 RNDCLOUD
       iseed = (iras-1-mcheck)*nrnd