| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_solve4temp.F |
175 |
THSICE_SOLVE4TEMP |
_RL k32 |
|
./pkg/thsice/thsice_solve4temp.F |
296 |
THSICE_SOLVE4TEMP |
k32 = 2. _d 0*kIce / hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
325 |
THSICE_SOLVE4TEMP |
& k32*( 4. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
326 |
THSICE_SOLVE4TEMP |
& / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
330 |
THSICE_SOLVE4TEMP |
& - k32*( 4. _d 0*dt*k32*tFrz(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
332 |
THSICE_SOLVE4TEMP |
& / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
575 |
THSICE_SOLVE4TEMP |
k32 = 2. _d 0*kIce / hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
576 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = ( 2. _d 0*dt*k32*(tIc1(i,j)+2. _d 0*tFrz(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
578 |
THSICE_SOLVE4TEMP |
& /(6. _d 0*dt*k32 + rhoi*cpIce*hIce(i,j)) |