File |
Line number |
Procedure |
Code |
./pkg/dic/o2_surfforcing.F |
100 |
O2_SURFFORCING |
aTS = log(aTT/aTK) |
./pkg/dic/o2_surfforcing.F |
101 |
O2_SURFFORCING |
aTS2 = aTS*aTS |
./pkg/dic/o2_surfforcing.F |
102 |
O2_SURFFORCING |
aTS3 = aTS2*aTS |
./pkg/dic/o2_surfforcing.F |
103 |
O2_SURFFORCING |
aTS4 = aTS3*aTS |
./pkg/dic/o2_surfforcing.F |
104 |
O2_SURFFORCING |
aTS5 = aTS4*aTS |
./pkg/dic/o2_surfforcing.F |
106 |
O2_SURFFORCING |
oCnew = oA0 + oA1*aTS + oA2*aTS2 + oA3*aTS3 + |
./pkg/dic/o2_surfforcing.F |
108 |
O2_SURFFORCING |
& + stemp*(oB0 + oB1*aTS + oB2*aTS2 + oB3*aTS3) |
./pkg/dic/o2_surfforcing.F |
61 |
O2_SURFFORCING |
_RL aTS |