File |
Line number |
Procedure |
Code |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2516 |
FLXCO2 |
_RL xx,clog1,wlog,dc,dw,x1,x2,y2 |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2534 |
FLXCO2 |
wlog=log10(swh(i,j,k)*csm(i,j)) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2536 |
FLXCO2 |
iw=int( (wlog+4.15)*xx+1.) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2542 |
FLXCO2 |
dw=wlog-float(iw-2)*.3+4. |
./pkg/fizhi/fizhi_swrad.F |
2515 |
FLXCO2 |
_RL xx,clog1,wlog,dc,dw,x1,x2,y2 |
./pkg/fizhi/fizhi_swrad.F |
2533 |
FLXCO2 |
wlog=log10(swh(i,j,k)*csm(i,j)) |
./pkg/fizhi/fizhi_swrad.F |
2535 |
FLXCO2 |
iw=int( (wlog+4.15)*xx+1.) |
./pkg/fizhi/fizhi_swrad.F |
2541 |
FLXCO2 |
dw=wlog-float(iw-2)*.3+4. |