Symbol Description Uses
PORT_RAND 8



File Line number Procedure Code
./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 54 FLT_RUNGA2
      Real*8 PORT_RAND
./model/src/port_rand.F 16 NO PROCEDURE
      real*8 FUNCTION PORT_RAND(seed)