| 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 |
2014 |
DELEDD |
gm2 = -(one - 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 |
2025 |
DELEDD |
alf2 = gm2 + gm3 * xx |
|
./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 |
2013 |
DELEDD |
gm2 = -(one - 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 |
2024 |
DELEDD |
alf2 = gm2 + gm3 * xx |