| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
438 |
SWRIO |
alf = min( max((tzl(i,l)-253.15)/20.,0. _d 0) ,1. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
441 |
SWRIO |
if( alf.ne.0.0 .and. alf.ne.1.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
442 |
SWRIO |
tauc(i,L,1) = taul(i,L)/(1.+alf/(1-alf) * (reffi/reffw*0.80) ) |
|
./pkg/fizhi/fizhi_swrad.F |
443 |
SWRIO |
tauc(i,L,2) = taul(i,L)/(1.+(1-alf)/alf * (reffw/reffi*1.25) ) |
|
./pkg/fizhi/fizhi_swrad.F |
446 |
SWRIO |
if( alf.eq.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
451 |
SWRIO |
if( alf.eq.1.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
45 |
SWRIO |
_RL ra,alf,reffw,reffi,tminv |
|
./pkg/fizhi/fizhi_swrad.F |
473 |
SWRIO |
alf = grav*(ple(i,Lm+1)-ptop)/(cp*dpstrip(i,L)*100) |
|
./pkg/fizhi/fizhi_swrad.F |
474 |
SWRIO |
dtsw (i,L) = alf*( flux (i,L)-flux (i,L+1) )/pk(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
475 |
SWRIO |
dtswc(i,L) = alf*( fluxclr(i,L)-fluxclr(i,L+1) )/pk(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
590 |
OPTHK |
_RL dp, alf, fracls, fraccu |
|
./pkg/fizhi/fizhi_swrad.F |
598 |
OPTHK |
alf = min( max(( tl(i,j,L)-233.15)/20.,0. _d 0), 1. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
620 |
OPTHK |
tau(i,j,L,1) = fracls*(1-alf)*tauice*dp |
|
./pkg/fizhi/fizhi_swrad.F |
628 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
633 |
OPTHK |
tau(i,j,L,2) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
638 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |