| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_solve4temp.F |
106 |
SEAICE_SOLVE4TEMP |
_RL effConduct(1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
328 |
SEAICE_SOLVE4TEMP |
effConduct(I,J) = XKI * XKS / |
|
./pkg/seaice/seaice_solve4temp.F |
343 |
SEAICE_SOLVE4TEMP |
& HICE_ACTUAL(I,J), effConduct(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
403 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J)*(tempFrz(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
429 |
SEAICE_SOLVE4TEMP |
& dFia_dTs(I,J)+effConduct(I,J), F_ia(I,J)-F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
435 |
SEAICE_SOLVE4TEMP |
& + ( F_c(I,J)-F_ia(I,J) ) / ( effConduct(I,J)+dFia_dTs(I,J) ) |
|
./pkg/seaice/seaice_solve4temp.F |
506 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J) * (tempFrz(I,J) - t1) |
|
./pkg/seaice/seaice_solve4temp.F |
522 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J)*(tempFrz(I,J)-tsurfLoc(I,J)) |