| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1997 |
DELEDD |
* all1,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4 |
|
./pkg/fizhi/fizhi_swrad.F |
2059 |
DELEDD |
st1 = sscp / ((akk+gm1 + (akk-gm1)*st4) * st3) |
|
./pkg/fizhi/fizhi_swrad.F |
2064 |
DELEDD |
rr = ( cll-dll*st4 -all1*st2)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2065 |
DELEDD |
tt = - ((fll-ell*st4)*td-bll*st2)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2119 |
SAGPOL |
_RL xx,uuu,ttt,emt,up1,um1,st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2128 |
SAGPOL |
st1 = one / ((up1+xx) * (up1-xx)) |
|
./pkg/fizhi/fizhi_swrad.F |
2129 |
SAGPOL |
rll = up1*um1*(one-emt*emt)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2130 |
SAGPOL |
tll = uuu*four*emt *st1 |