| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
136 |
FLT_RUNGA2 |
uu = uu + uu*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
137 |
FLT_RUNGA2 |
vv = vv + vv*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
141 |
FLT_RUNGA2 |
ww = ww + ww*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
183 |
FLT_RUNGA2 |
u1 = u1 + u1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
184 |
FLT_RUNGA2 |
v1 = v1 + v1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
188 |
FLT_RUNGA2 |
w1 = w1 + w1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
64 |
FLT_RUNGA2 |
integer seed |
|
./pkg/flt/flt_runga2.F |
65 |
FLT_RUNGA2 |
seed = -1 |
|
./pkg/flt/flt_runga2.F |
67 |
FLT_RUNGA2 |
Real*8 seed |
|
./pkg/flt/flt_runga2.F |
68 |
FLT_RUNGA2 |
seed = -1.d0 |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
45 |
INI_THETA |
real*8 seed |
|
./verification/hs94.1x64x5/code/ini_theta.F |
45 |
INI_THETA |
real*8 seed |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
45 |
INI_THETA |
real*8 seed |
|
./model/src/port_rand.F |
100 |
PORT_RANARR |
seed=-1 |
|
./model/src/port_rand.F |
102 |
PORT_RANARR |
real*8 seed |
|
./model/src/port_rand.F |
103 |
PORT_RANARR |
seed=-1.d0 |
|
./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 |
138 |
PORT_RANARR |
integer seed |
|
./model/src/port_rand.F |
139 |
PORT_RANARR |
seed=-1 |
|
./model/src/port_rand.F |
141 |
PORT_RANARR |
real*8 seed |
|
./model/src/port_rand.F |
142 |
PORT_RANARR |
seed=-1.d0 |
|
./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 |
24 |
NO PROCEDURE |
integer seed |
|
./model/src/port_rand.F |
26 |
NO PROCEDURE |
real*8 seed |
|
./model/src/port_rand.F |
52 |
NO PROCEDURE |
if(firstCall .OR. seed.GE.mz)then |
|
./model/src/port_rand.F |
53 |
NO PROCEDURE |
if (seed.GE.mz) mseed = seed |
|
./model/src/port_rand.F |
77 |
NO PROCEDURE |
if(seed.GE.mz)then |
|
./model/src/port_rand.F |
99 |
PORT_RANARR |
integer seed |
|
./pkg/fizhi/fizhi_moist.F |
1403 |
RNDCLOUD |
real *8 seed,port_rand |
|
./pkg/fizhi/fizhi_moist.F |
1413 |
RNDCLOUD |
seed = -1.d0 |
|
./pkg/fizhi/fizhi_moist.F |
1414 |
RNDCLOUD |
random_numbx = port_rand(seed) |
|
./pkg/fizhi/fizhi_moist.F |
1427 |
RANDOM_SEEDX |
integer*4 seed |
|
./pkg/fizhi/fizhi_moist.F |
1428 |
RANDOM_SEEDX |
seed = iseed |
|
./pkg/fizhi/fizhi_moist.F |
1429 |
RANDOM_SEEDX |
call SRAND (seed) |
|
./pkg/fizhi/fizhi_moist.F |
1432 |
RANDOM_SEEDX |
real*8 seed |
|
./pkg/fizhi/fizhi_moist.F |
1433 |
RANDOM_SEEDX |
seed = iseed |
|
./pkg/fizhi/fizhi_moist.F |
1434 |
RANDOM_SEEDX |
tmpRdN = port_rand(seed) |