| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1990 |
DELEDD |
* all1,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2052 |
DELEDD |
st1 = sscp / ((akk+gm1 + (akk-gm1)*st4) * st3) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2057 |
DELEDD |
rr = ( cll-dll*st4 -all1*st2)*st1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2058 |
DELEDD |
tt = - ((fll-ell*st4)*td-bll*st2)*st1 |
|
./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 |
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 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2123 |
SAGPOL |
tll = uuu*four*emt *st1 |
|
./pkg/fizhi/fizhi_swrad.F |
1989 |
DELEDD |
* all1,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4 |
|
./pkg/fizhi/fizhi_swrad.F |
2051 |
DELEDD |
st1 = sscp / ((akk+gm1 + (akk-gm1)*st4) * st3) |
|
./pkg/fizhi/fizhi_swrad.F |
2056 |
DELEDD |
rr = ( cll-dll*st4 -all1*st2)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2057 |
DELEDD |
tt = - ((fll-ell*st4)*td-bll*st2)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2111 |
SAGPOL |
_RL xx,uuu,ttt,emt,up1,um1,st1 |
|
./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 |
|
./pkg/fizhi/fizhi_swrad.F |
2122 |
SAGPOL |
tll = uuu*four*emt *st1 |