Symbol Description Uses
nrnd 12


File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1386 RNDCLOUD 
      subroutine RNDCLOUD (iras,nrnd,rnd,myid)
./pkg/fizhi/fizhi_moist.F 1388 RNDCLOUD 
      integer n,iras,nrnd,myid
./pkg/fizhi/fizhi_moist.F 1402 RNDCLOUD 
      if(nrnd.eq.0)then
./pkg/fizhi/fizhi_moist.F 1403 RNDCLOUD 
       do i = 1,nrnd
./pkg/fizhi/fizhi_moist.F 1410 RNDCLOUD 
      mcheck = mod(iras-1,irm/nrnd)
./pkg/fizhi/fizhi_moist.F 1418 RNDCLOUD 
          indx = (iras-1)*nrnd
./pkg/fizhi/fizhi_moist.F 1425 RNDCLOUD 
       iseed = (iras-1-mcheck)*nrnd
./pkg/fizhi/fizhi_moist.F 1430 RNDCLOUD 
       indx = (iras-1)*nrnd
./pkg/fizhi/fizhi_moist.F 1440 RNDCLOUD 
          indx = (iras-1)*nrnd
./pkg/fizhi/fizhi_moist.F 1444 RNDCLOUD 
      if( indx+nrnd.gt.irm ) then
./pkg/fizhi/fizhi_moist.F 1447 RNDCLOUD 
        indx=irm-nrnd
./pkg/fizhi/fizhi_moist.F 1450 RNDCLOUD 
      do n = 1,nrnd