Symbol Description Uses
iras0 6


File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1398 RNDCLOUD 
      integer iras0
./pkg/fizhi/fizhi_moist.F 1399 RNDCLOUD 
      data    iras0 /0/
./pkg/fizhi/fizhi_moist.F 1400 RNDCLOUD 
      save random, iras0
./pkg/fizhi/fizhi_moist.F 1415 RNDCLOUD 
      if ( iras.eq.iras0 ) then
./pkg/fizhi/fizhi_moist.F 1434 RNDCLOUD 
       if( myid.eq.1 ) print *, 'IRAS: ',iras,'  IRAS0: ',iras0,
./pkg/fizhi/fizhi_moist.F 1456 RNDCLOUD 
      iras0 = iras