| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_solve4temp.F |
125 |
SEAICE_SOLVE4TEMP |
_RL F_c (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
400 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J)*(tempFrz(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
426 |
SEAICE_SOLVE4TEMP |
& dFia_dTs(I,J)+effConduct(I,J), F_ia(I,J)-F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
432 |
SEAICE_SOLVE4TEMP |
& + ( F_c(I,J)-F_ia(I,J) ) / ( effConduct(I,J)+dFia_dTs(I,J) ) |
|
./pkg/seaice/seaice_solve4temp.F |
503 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J) * (tempFrz(I,J) - t1) |
|
./pkg/seaice/seaice_solve4temp.F |
519 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J)*(tempFrz(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
536 |
SEAICE_SOLVE4TEMP |
IF (F_c(I,J) .GT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
537 |
SEAICE_SOLVE4TEMP |
F_io_net = F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
564 |
SEAICE_SOLVE4TEMP |
& F_c(I,J), F_lh(I,J), F_sens(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
581 |
SEAICE_SOLVE4TEMP |
& F_ia(I,J), F_ia_net, F_c(I,J) |