Symbol Description Uses
irm 9



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1392 RNDCLOUD
      integer irm
./pkg/fizhi/fizhi_moist.F 1393 RNDCLOUD
      parameter (irm = 1000)
./pkg/fizhi/fizhi_moist.F 1394 RNDCLOUD
      _RL random(irm)
./pkg/fizhi/fizhi_moist.F 1410 RNDCLOUD
      mcheck = mod(iras-1,irm/nrnd)
./pkg/fizhi/fizhi_moist.F 1427 RNDCLOUD
       do i = 1,irm
./pkg/fizhi/fizhi_moist.F 1435 RNDCLOUD
     &    ' indx: ', mod(indx,irm)
./pkg/fizhi/fizhi_moist.F 1443 RNDCLOUD
          indx = mod(indx,irm)
./pkg/fizhi/fizhi_moist.F 1444 RNDCLOUD
      if( indx+nrnd.gt.irm ) then
./pkg/fizhi/fizhi_moist.F 1447 RNDCLOUD
        indx=irm-nrnd