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 |