| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_solve4temp.F |
109 |
THSICE_SOLVE4TEMP |
_RL k12, k32 ! thermal conductivity terms |
|
./pkg/thsice/thsice_solve4temp.F |
149 |
THSICE_SOLVE4TEMP |
k32 = 2. _d 0*kice / hi |
|
./pkg/thsice/thsice_solve4temp.F |
167 |
THSICE_SOLVE4TEMP |
& k32 * (4. _d 0*dt*k32 + rhoi*cpice *hi) |
|
./pkg/thsice/thsice_solve4temp.F |
168 |
THSICE_SOLVE4TEMP |
& / (6. _d 0*dt*k32 + rhoi*cpice *hi) |
|
./pkg/thsice/thsice_solve4temp.F |
172 |
THSICE_SOLVE4TEMP |
& - k32 * (4. _d 0*dt*k32*Tf+rhoi*cpice *hi*Tice(2)) |
|
./pkg/thsice/thsice_solve4temp.F |
173 |
THSICE_SOLVE4TEMP |
& / (6. _d 0*dt*k32 + rhoi*cpice *hi) - fswint |
|
./pkg/thsice/thsice_solve4temp.F |
274 |
THSICE_SOLVE4TEMP |
Tice(2) = (2. _d 0*dt*k32*(Tice(1)+2. _d 0*Tf) |
|
./pkg/thsice/thsice_solve4temp.F |
276 |
THSICE_SOLVE4TEMP |
& /(6. _d 0*dt*k32 + rhoi*cpice *hi) |