| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
431 |
SWRIO |
alf = min( max((tzl(i,l)-253.15)/20.,0. _d 0) ,1. _d 0) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
434 |
SWRIO |
if( alf.ne.0.0 .and. alf.ne.1.0 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
435 |
SWRIO |
tauc(i,L,1) = taul(i,L)/(1.+alf/(1-alf) * (reffi/reffw*0.80) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
436 |
SWRIO |
tauc(i,L,2) = taul(i,L)/(1.+(1-alf)/alf * (reffw/reffi*1.25) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
439 |
SWRIO |
if( alf.eq.0.0 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
444 |
SWRIO |
if( alf.eq.1.0 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
45 |
SWRIO |
_RL ra,alf,reffw,reffi,tminv |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
466 |
SWRIO |
alf = grav*(ple(i,Lm+1)-ptop)/(cp*dpstrip(i,L)*100) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
467 |
SWRIO |
dtsw (i,L) = alf*( flux (i,L)-flux (i,L+1) )/pk(i,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
468 |
SWRIO |
dtswc(i,L) = alf*( fluxclr(i,L)-fluxclr(i,L+1) )/pk(i,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
583 |
OPTHK |
_RL dp, alf, fracls, fraccu |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
591 |
OPTHK |
alf = min( max(( tl(i,j,L)-233.15)/20.,0. _d 0) , 1. _d 0) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
613 |
OPTHK |
tau(i,j,L,1) = fracls*(1-alf)*tauice*dp |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
621 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
626 |
OPTHK |
tau(i,j,L,2) = fracls*alf*tauh2o*dp |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
631 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
430 |
SWRIO |
alf = min( max((tzl(i,l)-253.15)/20.,0. _d 0) ,1. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
433 |
SWRIO |
if( alf.ne.0.0 .and. alf.ne.1.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
434 |
SWRIO |
tauc(i,L,1) = taul(i,L)/(1.+alf/(1-alf) * (reffi/reffw*0.80) ) |
|
./pkg/fizhi/fizhi_swrad.F |
435 |
SWRIO |
tauc(i,L,2) = taul(i,L)/(1.+(1-alf)/alf * (reffw/reffi*1.25) ) |
|
./pkg/fizhi/fizhi_swrad.F |
438 |
SWRIO |
if( alf.eq.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
443 |
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 |
465 |
SWRIO |
alf = grav*(ple(i,Lm+1)-ptop)/(cp*dpstrip(i,L)*100) |
|
./pkg/fizhi/fizhi_swrad.F |
466 |
SWRIO |
dtsw (i,L) = alf*( flux (i,L)-flux (i,L+1) )/pk(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
467 |
SWRIO |
dtswc(i,L) = alf*( fluxclr(i,L)-fluxclr(i,L+1) )/pk(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
582 |
OPTHK |
_RL dp, alf, fracls, fraccu |
|
./pkg/fizhi/fizhi_swrad.F |
590 |
OPTHK |
alf = min( max(( tl(i,j,L)-233.15)/20.,0. _d 0), 1. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
612 |
OPTHK |
tau(i,j,L,1) = fracls*(1-alf)*tauice*dp |
|
./pkg/fizhi/fizhi_swrad.F |
620 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
625 |
OPTHK |
tau(i,j,L,2) = fracls*alf*tauh2o*dp |
|
./pkg/fizhi/fizhi_swrad.F |
630 |
OPTHK |
tau(i,j,L,3) = fracls*alf*tauh2o*dp |