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 |
2049 |
DELEDD |
st2 = expmn(-akk*taup) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2050 |
DELEDD |
st4 = st2 * st2 |
./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 |
./pkg/fizhi/fizhi_swrad.F |
1989 |
DELEDD |
* all1,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4 |
./pkg/fizhi/fizhi_swrad.F |
2048 |
DELEDD |
st2 = expmn(-akk*taup) |
./pkg/fizhi/fizhi_swrad.F |
2049 |
DELEDD |
st4 = st2 * st2 |
./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 |