| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_solve4temp.F |
128 |
SEAICE_SOLVE4TEMP |
_RL F_c (1:sNx,1:sNy) |
|
./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)) |
|
./pkg/seaice/seaice_solve4temp.F |
539 |
SEAICE_SOLVE4TEMP |
IF (F_c(I,J) .GT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
540 |
SEAICE_SOLVE4TEMP |
F_io_net = F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
567 |
SEAICE_SOLVE4TEMP |
& F_c(I,J), F_lh(I,J), F_sens(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
584 |
SEAICE_SOLVE4TEMP |
& F_ia(I,J), F_ia_net, F_c(I,J) |