File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_solve4temp.F |
225 |
SEAICE_SOLVE4TEMP |
F_ia (I,J) = 0. _d 0 |
./pkg/seaice/seaice_solve4temp.F |
22 |
SEAICE_SOLVE4TEMP |
O F_ia, IcePenetSW, |
./pkg/seaice/seaice_solve4temp.F |
416 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = -lwdownLoc(I,J) -absorbedSW(I,J) + F_lwu(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 |
516 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = -lwdownLoc(I,J) -absorbedSW(I,J) + F_lwu(I,J) |
./pkg/seaice/seaice_solve4temp.F |
523 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = F_ia(I,J) + dFia_dTs(I,J)*delTsurf |
./pkg/seaice/seaice_solve4temp.F |
544 |
SEAICE_SOLVE4TEMP |
F_ia_net = F_ia(I,J) |
./pkg/seaice/seaice_solve4temp.F |
584 |
SEAICE_SOLVE4TEMP |
& F_ia(I,J), F_ia_net, F_c(I,J) |
./pkg/seaice/seaice_solve4temp.F |
82 |
SEAICE_SOLVE4TEMP |
_RL F_ia (1:sNx,1:sNy) |