| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
175 |
LWRIO |
call OPTHK ( tzl,pl,ple,cldlz,clro,clmo,lwi,istrip,1,lm,tauc ) |
|
./pkg/fizhi/fizhi_lwrad.F |
180 |
LWRIO |
tauc(i,L,n) = tauc(i,L,n)*0.75 |
|
./pkg/fizhi/fizhi_lwrad.F |
215 |
LWRIO |
. cldwater,cwc,tauc,reff,clro,mid_level,low_level, |
|
./pkg/fizhi/fizhi_lwrad.F |
64 |
LWRIO |
_RL tauc(istrip,lm,3) |
|
./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 |
447 |
SWRIO |
tauc(i,L,1) = taul(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
448 |
SWRIO |
tauc(i,L,2) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
452 |
SWRIO |
tauc(i,L,1) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
453 |
SWRIO |
tauc(i,L,2) = taul(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
462 |
SWRIO |
. tauc,reff,clro,mid_level,low_level,taua, |
|
./pkg/fizhi/fizhi_swrad.F |
89 |
SWRIO |
_RL tauc (istrip,lm,2) |