| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
13 |
DO_FIZHI |
& iras,nlwcld,cldtotlwin,cldraslwin,cldlsplwin,nlwlz,lwlzin, |
|
./pkg/fizhi/do_fizhi.F |
262 |
DO_FIZHI |
& rainlsp,raincon,snowfall,iras(bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
71 |
DO_FIZHI |
INTEGER iras(nSxIn,nSyIn) |
|
./pkg/fizhi/fizhi_coms.h |
45 |
NO PROCEDURE |
& iras,nlwcld,nlwlz,nswcld,nswlz, |
|
./pkg/fizhi/fizhi_coms.h |
63 |
NO PROCEDURE |
INTEGER iras(nSx,nSy) |
|
./pkg/fizhi/fizhi_driver.F |
17 |
FIZHI_DRIVER |
& st4,dst4,dlwdtg,rainlsp,raincon,snowfall,iras,nlwcld, |
|
./pkg/fizhi/fizhi_driver.F |
248 |
FIZHI_DRIVER |
& moistu,moistv,moistt,moistq,cumfric,im,jm,lm,ptop,iras, |
|
./pkg/fizhi/fizhi_driver.F |
55 |
FIZHI_DRIVER |
INTEGER iras,nlwcld,nlwlz,nswcld,nswlz |
|
./pkg/fizhi/fizhi_init_vars.F |
255 |
FIZHI_INIT_VARS |
iras(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_moist.F |
10 |
MOISTIO |
. iras,rainlsp,rainconv,snowfall, |
|
./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 |
1410 |
RNDCLOUD |
mcheck = mod(iras-1,irm/nrnd) |
|
./pkg/fizhi/fizhi_moist.F |
1415 |
RNDCLOUD |
if ( iras.eq.iras0 ) then |
|
./pkg/fizhi/fizhi_moist.F |
1418 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1424 |
RNDCLOUD |
elseif ( first.and.(iras.gt.1) .or. mcheck.eq.0 ) then |
|
./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 |
1434 |
RNDCLOUD |
if( myid.eq.1 ) print *, 'IRAS: ',iras,' IRAS0: ',iras0, |
|
./pkg/fizhi/fizhi_moist.F |
1440 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1456 |
RNDCLOUD |
iras0 = iras |
|
./pkg/fizhi/fizhi_moist.F |
323 |
MOISTIO |
iras = iras + 1 |
|
./pkg/fizhi/fizhi_moist.F |
324 |
MOISTIO |
if( iras.ge.1e9 ) iras = 1 |
|
./pkg/fizhi/fizhi_moist.F |
328 |
MOISTIO |
call RNDCLOUD(iras,ncrnd,rnd,myid) |
|
./pkg/fizhi/fizhi_moist.F |
32 |
MOISTIO |
integer iras |
|
./pkg/fizhi/fizhi_read_pickup.F |
84 |
FIZHI_READ_PICKUP |
iras(bi,bj) = NINT(temp(1,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
271 |
FIZHI_WRAPPER |
& iras,nlwcld,cldtot_lw,cldras_lw,cldlsp_lw,nlwlz,lwlz, |
|
./pkg/fizhi/fizhi_write_pickup.F |
101 |
FIZHI_WRITE_PICKUP |
temp(1,1,4,bi,bj) = float(iras(bi,bj)) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
13 |
DO_FIZHI |
& iras,nlwcld,cldtotlwin,cldraslwin,cldlsplwin,nlwlz,lwlzin, |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
71 |
DO_FIZHI |
INTEGER iras(nSxin,nSyin) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
247 |
FIZHI_INIT_VARS |
iras(bi,bj) = 0 |