| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1326 |
RNDCLOUD |
subroutine RNDCLOUD (iras,nrnd,rnd,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1328 |
RNDCLOUD |
integer n,iras,nrnd,myid |
|
./pkg/fizhi/fizhi_moist.F |
1342 |
RNDCLOUD |
if(nrnd.eq.0)then |
|
./pkg/fizhi/fizhi_moist.F |
1343 |
RNDCLOUD |
do i = 1,nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1350 |
RNDCLOUD |
mcheck = mod(iras-1,irm/nrnd) |
|
./pkg/fizhi/fizhi_moist.F |
1358 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1365 |
RNDCLOUD |
iseed = (iras-1-mcheck)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1370 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1380 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1384 |
RNDCLOUD |
if( indx+nrnd.gt.irm ) then |
|
./pkg/fizhi/fizhi_moist.F |
1387 |
RNDCLOUD |
indx=irm-nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1390 |
RNDCLOUD |
do n = 1,nrnd |