| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_mnc_init.F |
38 |
FIZHI_MNC_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/fizhi/fizhi_mnc_init.F |
69 |
FIZHI_MNC_INIT |
DO ih = 1,2 |
|
./pkg/fizhi/fizhi_mnc_init.F |
73 |
FIZHI_MNC_INIT |
ihalo = ih |
|
./pkg/fizhi/fizhi_mnc_init.F |
75 |
FIZHI_MNC_INIT |
IF ((is .EQ. 1) .AND. (ih .EQ. 1)) THEN |
|
./pkg/fizhi/fizhi_swrad.F |
2204 |
CLDFLX |
integer i,j,k,ih,im,is |
|
./pkg/fizhi/fizhi_swrad.F |
2245 |
CLDFLX |
do 10 ih=1,2 |
|
./pkg/fizhi/fizhi_swrad.F |
2249 |
CLDFLX |
tda(i,j,1,ih,1)=td(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2250 |
CLDFLX |
tta(i,j,1,ih,1)=tt(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2251 |
CLDFLX |
rsa(i,j,1,ih,1)=rs(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2252 |
CLDFLX |
tda(i,j,1,ih,2)=td(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2253 |
CLDFLX |
tta(i,j,1,ih,2)=tt(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2254 |
CLDFLX |
rsa(i,j,1,ih,2)=rs(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2261 |
CLDFLX |
denm = ts(i,j,k,ih)/( 1.-rsa(i,j,k-1,ih,1)*rs(i,j,k,ih)) |
|
./pkg/fizhi/fizhi_swrad.F |
2262 |
CLDFLX |
tda(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*td(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2263 |
CLDFLX |
tta(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*tt(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2264 |
CLDFLX |
* +(tda(i,j,k-1,ih,1)*rr(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2265 |
CLDFLX |
* *rsa(i,j,k-1,ih,1)+tta(i,j,k-1,ih,1))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2266 |
CLDFLX |
rsa(i,j,k,ih,1)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2267 |
CLDFLX |
* *rsa(i,j,k-1,ih,1)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2268 |
CLDFLX |
tda(i,j,k,ih,2)= tda(i,j,k,ih,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2269 |
CLDFLX |
tta(i,j,k,ih,2)= tta(i,j,k,ih,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2270 |
CLDFLX |
rsa(i,j,k,ih,2)= rsa(i,j,k,ih,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2282 |
CLDFLX |
denm = ts(i,j,k,im)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,im)) |
|
./pkg/fizhi/fizhi_swrad.F |
2283 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2284 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2285 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2286 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2287 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2288 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2349 |
CLDFLX |
do 100 ih=1,2 |
|
./pkg/fizhi/fizhi_swrad.F |
2353 |
CLDFLX |
if(ih.eq.1) then |
|
./pkg/fizhi/fizhi_swrad.F |
2425 |
CLDFLX |
denm = ts(i,j,k,is)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2426 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2427 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2428 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2429 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2430 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2431 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2441 |
CLDFLX |
denm =ts(i,j,k,ih)/(1.-rs(i,j,k,ih)*rxa(i,j,k+1,im,is)) |
|
./pkg/fizhi/fizhi_swrad.F |
2442 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,ih)+(td(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2443 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,ih)*rxa(i,j,k+1,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2444 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2459 |
CLDFLX |
denm= 1./(1.- rxa(i,j,k,im,is)*rsa(i,j,k-1,ih,im)) |
|
./pkg/fizhi/fizhi_swrad.F |
2460 |
CLDFLX |
fdndir(i,j)= tda(i,j,k-1,ih,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2461 |
CLDFLX |
xx = tda(i,j,k-1,ih,im)*rra(i,j,k,im,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2462 |
CLDFLX |
fdndif(i,j)= (xx*rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2463 |
CLDFLX |
fupdif= (xx+tta(i,j,k-1,ih,im)*rxa(i,j,k,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2480 |
CLDFLX |
if(ih.eq.1 .and. im.eq.1 .and. is.eq.1) then |
|
./pkg/land/land_mnc_init.F |
57 |
LAND_MNC_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/land/land_mnc_init.F |
86 |
LAND_MNC_INIT |
DO ih = 1,2 |
|
./pkg/land/land_mnc_init.F |
90 |
LAND_MNC_INIT |
ihalo = ih |
|
./pkg/land/land_mnc_init.F |
92 |
LAND_MNC_INIT |
IF ((is .EQ. 1) .AND. (ih .EQ. 1)) THEN |
|
./pkg/mnc/mnc_cw_init.F |
53 |
MNC_CW_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/mnc/mnc_cw_init.F |
82 |
MNC_CW_INIT |
DO ih = 1,2 |
|
./pkg/mnc/mnc_cw_init.F |
86 |
MNC_CW_INIT |
ihalo = ih |
|
./pkg/mnc/mnc_cw_init.F |
88 |
MNC_CW_INIT |
IF ((is .EQ. 1) .AND. (ih .EQ. 1)) THEN |