Symbol Description Uses
nrnd 12


File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1326 RNDCLOUD 
      subroutine RNDCLOUD (iras,nrnd,rnd,myid)
./pkg/fizhi/fizhi_moist.F 1328 RNDCLOUD 
      integer n,iras,nrnd,myid
./pkg/fizhi/fizhi_moist.F 1342 RNDCLOUD 
      if(nrnd.eq.0)then
./pkg/fizhi/fizhi_moist.F 1343 RNDCLOUD 
       do i = 1,nrnd
./pkg/fizhi/fizhi_moist.F 1350 RNDCLOUD 
      mcheck = mod(iras-1,irm/nrnd)
./pkg/fizhi/fizhi_moist.F 1358 RNDCLOUD 
          indx = (iras-1)*nrnd
./pkg/fizhi/fizhi_moist.F 1365 RNDCLOUD 
       iseed = (iras-1-mcheck)*nrnd
./pkg/fizhi/fizhi_moist.F 1370 RNDCLOUD 
       indx = (iras-1)*nrnd
./pkg/fizhi/fizhi_moist.F 1380 RNDCLOUD 
          indx = (iras-1)*nrnd
./pkg/fizhi/fizhi_moist.F 1384 RNDCLOUD 
      if( indx+nrnd.gt.irm ) then
./pkg/fizhi/fizhi_moist.F 1387 RNDCLOUD 
        indx=irm-nrnd
./pkg/fizhi/fizhi_moist.F 1390 RNDCLOUD 
      do n = 1,nrnd