| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1335 |
RNDCLOUD |
integer i,mcheck,iseed,indx |
|
./pkg/fizhi/fizhi_moist.F |
1365 |
RNDCLOUD |
iseed = (iras-1-mcheck)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1366 |
RNDCLOUD |
call RANDOM_SEEDX(iseed) |
|
./pkg/fizhi/fizhi_moist.F |
1368 |
RNDCLOUD |
random(i) = random_numbx(iseed) |
|
./pkg/fizhi/fizhi_moist.F |
1373 |
RNDCLOUD |
& ,', iseed=', iseed |
|
./pkg/fizhi/fizhi_moist.F |
1400 |
RNDCLOUD |
function random_numbx(iseed) |
|
./pkg/fizhi/fizhi_moist.F |
1402 |
RNDCLOUD |
integer iseed |
|
./pkg/fizhi/fizhi_moist.F |
1419 |
RANDOM_SEEDX |
subroutine RANDOM_SEEDX (iseed) |
|
./pkg/fizhi/fizhi_moist.F |
1421 |
RANDOM_SEEDX |
integer iseed |
|
./pkg/fizhi/fizhi_moist.F |
1424 |
RANDOM_SEEDX |
call RANSET (iseed) |
|
./pkg/fizhi/fizhi_moist.F |
1428 |
RANDOM_SEEDX |
seed = iseed |
|
./pkg/fizhi/fizhi_moist.F |
1433 |
RANDOM_SEEDX |
seed = iseed |