| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
418 |
SWRIO |
CALL STRIP ( tau , taul ,im*jm,ISTRIP,lm ,NN) |
|
./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 |
440 |
SWRIO |
tauc(i,L,1) = taul(i,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
446 |
SWRIO |
tauc(i,L,2) = taul(i,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
87 |
SWRIO |
_RL taul (istrip,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
417 |
SWRIO |
CALL STRIP ( tau , taul ,im*jm,ISTRIP,lm ,NN) |
|
./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 |
439 |
SWRIO |
tauc(i,L,1) = taul(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
445 |
SWRIO |
tauc(i,L,2) = taul(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
87 |
SWRIO |
_RL taul (istrip,lm) |