| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1395 |
RNDCLOUD |
integer i,mcheck,iseed,indx |
|
./pkg/fizhi/fizhi_moist.F |
1425 |
RNDCLOUD |
iseed = (iras-1-mcheck)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1426 |
RNDCLOUD |
call RANDOM_SEEDX(iseed) |
|
./pkg/fizhi/fizhi_moist.F |
1428 |
RNDCLOUD |
random(i) = random_numbx(iseed) |
|
./pkg/fizhi/fizhi_moist.F |
1433 |
RNDCLOUD |
& ,', iseed=', iseed |
|
./pkg/fizhi/fizhi_moist.F |
1460 |
RNDCLOUD |
function random_numbx(iseed) |
|
./pkg/fizhi/fizhi_moist.F |
1462 |
RNDCLOUD |
integer iseed |
|
./pkg/fizhi/fizhi_moist.F |
1479 |
RANDOM_SEEDX |
subroutine RANDOM_SEEDX (iseed) |
|
./pkg/fizhi/fizhi_moist.F |
1481 |
RANDOM_SEEDX |
integer iseed |
|
./pkg/fizhi/fizhi_moist.F |
1484 |
RANDOM_SEEDX |
call RANSET (iseed) |
|
./pkg/fizhi/fizhi_moist.F |
1488 |
RANDOM_SEEDX |
seed = iseed |
|
./pkg/fizhi/fizhi_moist.F |
1493 |
RANDOM_SEEDX |
seed = iseed |