Symbol Description Uses
seed initialise using this seed ; and return 0 37


File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1463 RNDCLOUD 
      real *8 seed,port_rand
./pkg/fizhi/fizhi_moist.F 1473 RNDCLOUD 
      seed = -1.d0
./pkg/fizhi/fizhi_moist.F 1474 RNDCLOUD 
      random_numbx = port_rand(seed)
./pkg/fizhi/fizhi_moist.F 1487 RANDOM_SEEDX 
      integer*4   seed
./pkg/fizhi/fizhi_moist.F 1488 RANDOM_SEEDX 
                  seed = iseed
./pkg/fizhi/fizhi_moist.F 1489 RANDOM_SEEDX 
      call SRAND (seed)
./pkg/fizhi/fizhi_moist.F 1492 RANDOM_SEEDX 
      real*8 seed
./pkg/fizhi/fizhi_moist.F 1493 RANDOM_SEEDX 
      seed = iseed
./pkg/fizhi/fizhi_moist.F 1494 RANDOM_SEEDX 
      tmpRdN = port_rand(seed)
./pkg/flt/flt_runga2.F 121 FLT_RUNGA2 
                uu = uu + uu*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 122 FLT_RUNGA2 
                vv = vv + vv*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 126 FLT_RUNGA2 
                  ww = ww + ww*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 168 FLT_RUNGA2 
                u1 = u1 + u1*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 169 FLT_RUNGA2 
                v1 = v1 + v1*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 173 FLT_RUNGA2 
                  w1 = w1 + w1*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 57 FLT_RUNGA2 
      INTEGER seed
./pkg/flt/flt_runga2.F 58 FLT_RUNGA2 
      seed = -1
./pkg/flt/flt_runga2.F 60 FLT_RUNGA2 
      Real*8 seed
./pkg/flt/flt_runga2.F 61 FLT_RUNGA2 
      seed = -1.d0
./model/src/port_rand.F 118 PORT_RANARR 
      INTEGER seed
./model/src/port_rand.F 119 PORT_RANARR 
      seed=-1
./model/src/port_rand.F 121 PORT_RANARR 
      real*8  seed
./model/src/port_rand.F 122 PORT_RANARR 
      seed=-1.d0
./model/src/port_rand.F 126 PORT_RANARR 
       arr(i)=port_rand(seed)
./model/src/port_rand.F 156 PORT_RANARR 
      INTEGER seed
./model/src/port_rand.F 157 PORT_RANARR 
      seed=-1
./model/src/port_rand.F 159 PORT_RANARR 
      real*8  seed
./model/src/port_rand.F 160 PORT_RANARR 
      seed=-1.d0
./model/src/port_rand.F 166 PORT_RANARR 
         x1=2.0*port_rand(seed)-1.0
./model/src/port_rand.F 167 PORT_RANARR 
         x2=2.0*port_rand(seed)-1.0
./model/src/port_rand.F 16 NO PROCEDURE 
      real*8 FUNCTION PORT_RAND(seed)
./model/src/port_rand.F 29 NO PROCEDURE 
      INTEGER seed
./model/src/port_rand.F 31 NO PROCEDURE 
      real*8  seed
./model/src/port_rand.F 57 NO PROCEDURE 
      IF (firstCall .OR. seed.GE.mz) THEN
./model/src/port_rand.F 58 NO PROCEDURE 
        IF (seed.GE.mz) mseed = seed
./model/src/port_rand.F 82 NO PROCEDURE 
      IF (seed.GE.mz) THEN