| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1989 |
DELEDD |
_RL zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2013 |
DELEDD |
gm1 = (seven - sscp*(four+xx))*fourth |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2019 |
DELEDD |
xx = gm1-gm2 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2020 |
DELEDD |
akk = sqrt((gm1+gm2)*xx) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2024 |
DELEDD |
alf1 = gm1 - gm3 * xx |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2052 |
DELEDD |
st1 = sscp / ((akk+gm1 + (akk-gm1)*st4) * st3) |
|
./pkg/fizhi/fizhi_swrad.F |
1988 |
DELEDD |
_RL zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2, |
|
./pkg/fizhi/fizhi_swrad.F |
2012 |
DELEDD |
gm1 = (seven - sscp*(four+xx))*fourth |
|
./pkg/fizhi/fizhi_swrad.F |
2018 |
DELEDD |
xx = gm1-gm2 |
|
./pkg/fizhi/fizhi_swrad.F |
2019 |
DELEDD |
akk = sqrt((gm1+gm2)*xx) |
|
./pkg/fizhi/fizhi_swrad.F |
2023 |
DELEDD |
alf1 = gm1 - gm3 * xx |
|
./pkg/fizhi/fizhi_swrad.F |
2051 |
DELEDD |
st1 = sscp / ((akk+gm1 + (akk-gm1)*st4) * st3) |