File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_solve4temp.F |
134 |
SEAICE_SOLVE4TEMP |
_RL dFia_dTs (1:sNx,1:sNy) |
./pkg/seaice/seaice_solve4temp.F |
419 |
SEAICE_SOLVE4TEMP |
dFia_dTs(I,J) = 4.0 _d 0*D3(I,J)*t3 + D1*UG(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 |
523 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = F_ia(I,J) + dFia_dTs(I,J)*delTsurf |