| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
13 |
DO_FIZHI |
. iras,nlwcld,cldtotlwin,cldraslwin,cldlsplwin,nlwlz,lwlzin, |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
257 |
DO_FIZHI |
. rainlsp,raincon,snowfall,iras(bi,bj), |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
70 |
DO_FIZHI |
integer iras(Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
246 |
FIZHI_INIT_VARS |
iras(bi,bj) = 0 |
|
./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 |
70 |
DO_FIZHI |
integer iras(Nsxin,Nsyin) |
|
./pkg/fizhi/fizhi_moist.F |
10 |
MOISTIO |
. iras,rainlsp,rainconv,snowfall, |
|
./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 |
1350 |
RNDCLOUD |
mcheck = mod(iras-1,irm/nrnd) |
|
./pkg/fizhi/fizhi_moist.F |
1355 |
RNDCLOUD |
if ( iras.eq.iras0 ) then |
|
./pkg/fizhi/fizhi_moist.F |
1358 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1364 |
RNDCLOUD |
elseif ( first.and.(iras.gt.1) .or. mcheck.eq.0 ) then |
|
./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 |
1374 |
RNDCLOUD |
if( myid.eq.1 ) print *, 'IRAS: ',iras,' IRAS0: ',iras0, |
|
./pkg/fizhi/fizhi_moist.F |
1380 |
RNDCLOUD |
indx = (iras-1)*nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1396 |
RNDCLOUD |
iras0 = iras |
|
./pkg/fizhi/fizhi_moist.F |
299 |
MOISTIO |
iras = iras + 1 |
|
./pkg/fizhi/fizhi_moist.F |
300 |
MOISTIO |
if( iras.ge.1e9 ) iras = 1 |
|
./pkg/fizhi/fizhi_moist.F |
304 |
MOISTIO |
call RNDCLOUD(iras,ncrnd,rnd,myid) |
|
./pkg/fizhi/fizhi_moist.F |
32 |
MOISTIO |
integer iras |
|
./pkg/fizhi/fizhi_driver.F |
17 |
FIZHI_DRIVER |
. st4,dst4,dlwdtg,rainlsp,raincon,snowfall,iras,nlwcld, |
|
./pkg/fizhi/fizhi_driver.F |
243 |
FIZHI_DRIVER |
. moistu,moistv,moistt,moistq,cumfric,im,jm,lm,ptop,iras, |
|
./pkg/fizhi/fizhi_driver.F |
53 |
FIZHI_DRIVER |
integer iras,nlwcld,nlwlz,nswcld,nswlz |
|
./pkg/fizhi/fizhi_coms.h |
46 |
NO PROCEDURE |
. iras,nlwcld,nlwlz,nswcld,nswlz, |
|
./pkg/fizhi/fizhi_coms.h |
64 |
NO PROCEDURE |
integer iras(Nsx,Nsy) |
|
./pkg/fizhi/fizhi_read_pickup.F |
85 |
FIZHI_READ_PICKUP |
iras(bi,bj) = nint(temp(1,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_init_vars.F |
234 |
FIZHI_INIT_VARS |
iras(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_write_pickup.F |
113 |
FIZHI_WRITE_PICKUP |
temp(1,1,4,bi,bj) = float(iras(bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
146 |
FIZHI_WRAPPER |
. iras,nlwcld,cldtot_lw,cldras_lw,cldlsp_lw,nlwlz,lwlz, |
|
./pkg/fizhi/do_fizhi.F |
13 |
DO_FIZHI |
. iras,nlwcld,cldtotlwin,cldraslwin,cldlsplwin,nlwlz,lwlzin, |
|
./pkg/fizhi/do_fizhi.F |
256 |
DO_FIZHI |
. rainlsp,raincon,snowfall,iras(bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
70 |
DO_FIZHI |
integer iras(Nsxin,Nsyin) |