| 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 |