Symbol Description Uses
port_rand 12



File Line number Procedure Code
./model/src/port_rand.F 107 PORT_RANARR
       arr(i)=port_rand(seed)
./model/src/port_rand.F 12 NO PROCEDURE
      real*8 function port_rand(seed)
./model/src/port_rand.F 133 PORT_RANARR
      real*8 port_rand
./model/src/port_rand.F 148 PORT_RANARR
         x1=2.0*port_rand(seed)-1.0
./model/src/port_rand.F 149 PORT_RANARR
         x2=2.0*port_rand(seed)-1.0
./model/src/port_rand.F 78 NO PROCEDURE
        port_rand=0.d0
./model/src/port_rand.F 85 NO PROCEDURE
        port_rand=mj*fac
./model/src/port_rand.F 97 PORT_RANARR
      real*8 port_rand
./pkg/fizhi/fizhi_moist.F 1403 RNDCLOUD
      real *8 seed,port_rand
./pkg/fizhi/fizhi_moist.F 1414 RNDCLOUD
      random_numbx = port_rand(seed)
./pkg/fizhi/fizhi_moist.F 1422 RANDOM_SEEDX
      real *8 port_rand
./pkg/fizhi/fizhi_moist.F 1434 RANDOM_SEEDX
      tmpRdN = port_rand(seed)