| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2112 |
SAGPOL |
_RL xx,uuu,ttt,emt,up1,um1,st1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2118 |
SAGPOL |
up1 = uuu + one |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2121 |
SAGPOL |
st1 = one / ((up1+xx) * (up1-xx)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2122 |
SAGPOL |
rll = up1*um1*(one-emt*emt)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2111 |
SAGPOL |
_RL xx,uuu,ttt,emt,up1,um1,st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2117 |
SAGPOL |
up1 = uuu + one |
|
./pkg/fizhi/fizhi_swrad.F |
2120 |
SAGPOL |
st1 = one / ((up1+xx) * (up1-xx)) |
|
./pkg/fizhi/fizhi_swrad.F |
2121 |
SAGPOL |
rll = up1*um1*(one-emt*emt)*st1 |