| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1386 |
RNDCLOUD |
subroutine RNDCLOUD (iras,nrnd,rnd,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1388 |
RNDCLOUD |
integer n,iras,nrnd,myid |
|
./pkg/fizhi/fizhi_moist.F |
1402 |
RNDCLOUD |
if(nrnd.eq.0)then |
|
./pkg/fizhi/fizhi_moist.F |
1403 |
RNDCLOUD |
do i = 1,nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1410 |
RNDCLOUD |
mcheck = mod(iras-1,irm/nrnd) |
|
./pkg/fizhi/fizhi_moist.F |
1418 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1425 |
RNDCLOUD |
iseed = (iras-1-mcheck)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1430 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1440 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1444 |
RNDCLOUD |
if( indx+nrnd.gt.irm ) then |
|
./pkg/fizhi/fizhi_moist.F |
1447 |
RNDCLOUD |
indx=irm-nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1450 |
RNDCLOUD |
do n = 1,nrnd |