File |
Line number |
Procedure |
Code |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
584 |
OPTHK |
_RL tauice, tauh2o, tauras |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
638 |
OPTHK |
tauras = .16 |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
639 |
OPTHK |
tau(i,j,L,3) = tau(i,j,L,3) + fraccu*tauras*dp |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
641 |
OPTHK |
tauras = tauice |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
642 |
OPTHK |
tau(i,j,L,1) = tau(i,j,L,1) + fraccu*tauras*dp |
./pkg/fizhi/fizhi_swrad.F |
583 |
OPTHK |
_RL tauice, tauh2o, tauras |
./pkg/fizhi/fizhi_swrad.F |
637 |
OPTHK |
tauras = .16 |
./pkg/fizhi/fizhi_swrad.F |
638 |
OPTHK |
tau(i,j,L,3) = tau(i,j,L,3) + fraccu*tauras*dp |
./pkg/fizhi/fizhi_swrad.F |
640 |
OPTHK |
tauras = tauice |
./pkg/fizhi/fizhi_swrad.F |
641 |
OPTHK |
tau(i,j,L,1) = tau(i,j,L,1) + fraccu*tauras*dp |