File |
Line number |
Procedure |
Code |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2130 |
SAGPOL |
function expmn(fin) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2136 |
SAGPOL |
_RL fin,expmn |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2143 |
SAGPOL |
if (fin .lt. expmin) fin = expmin |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2144 |
SAGPOL |
expmn = ((e4*fin + e3)*fin+e2)*fin+e1 |
./pkg/fizhi/fizhi_swrad.F |
2129 |
SAGPOL |
function expmn(fin) |
./pkg/fizhi/fizhi_swrad.F |
2135 |
SAGPOL |
_RL fin,expmn |
./pkg/fizhi/fizhi_swrad.F |
2142 |
SAGPOL |
if (fin .lt. expmin) fin = expmin |
./pkg/fizhi/fizhi_swrad.F |
2143 |
SAGPOL |
expmn = ((e4*fin + e3)*fin+e2)*fin+e1 |