Symbol Description Uses
mcheck 4



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