| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
583 |
OPTHK |
_RL dp, alf, fracls, fraccu |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
600 |
OPTHK |
fracls = ( cf(i,j,L)-cfm(i,j,L) )/cf(i,j,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
601 |
OPTHK |
fraccu = 1.0-fracls |
|
./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 |
582 |
OPTHK |
_RL dp, alf, fracls, fraccu |
|
./pkg/fizhi/fizhi_swrad.F |
599 |
OPTHK |
fracls = ( cf(i,j,L)-cfm(i,j,L) )/cf(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
600 |
OPTHK |
fraccu = 1.0-fracls |
|
./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 |