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


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 127 FLT_RUNGA2 
                uu = uu + uu*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 128 FLT_RUNGA2 
                vv = vv + vv*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 132 FLT_RUNGA2 
                  ww = ww + ww*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 174 FLT_RUNGA2 
                u1 = u1 + u1*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 175 FLT_RUNGA2 
                v1 = v1 + v1*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 179 FLT_RUNGA2 
                  w1 = w1 + w1*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 45 FLT_RUNGA2 
      INTEGER seed
./pkg/flt/flt_runga2.F 47 FLT_RUNGA2 
      Real*8 seed
./pkg/flt/flt_runga2.F 67 FLT_RUNGA2 
      seed = -1
./pkg/flt/flt_runga2.F 69 FLT_RUNGA2 
      seed = -1.d0
./pkg/flt/flt_runga4.F 129 FLT_RUNGA4 
                u1 = u1 + u1*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 130 FLT_RUNGA4 
                v1 = v1 + v1*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 134 FLT_RUNGA4 
                  w1 = w1 + w1*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 181 FLT_RUNGA4 
                u2 = u2 + u2*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 182 FLT_RUNGA4 
                v2 = v2 + v2*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 186 FLT_RUNGA4 
                  w2 = w2 + w2*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 231 FLT_RUNGA4 
                u3 = u3 + u3*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 232 FLT_RUNGA4 
                v3 = v3 + v3*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 236 FLT_RUNGA4 
                  w3 = w3 + w3*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 281 FLT_RUNGA4 
                u4 = u4 + u4*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 282 FLT_RUNGA4 
                v4 = v4 + v4*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 286 FLT_RUNGA4 
                  w4 = w4 + w4*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga4.F 45 FLT_RUNGA4 
      INTEGER seed
./pkg/flt/flt_runga4.F 47 FLT_RUNGA4 
      Real*8 seed
./pkg/flt/flt_runga4.F 67 FLT_RUNGA4 
      seed = -1
./pkg/flt/flt_runga4.F 69 FLT_RUNGA4 
      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 167 PORT_RANARR 
         x1=2.0*port_rand(seed)-1.0
./model/src/port_rand.F 168 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