| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
245 |
SEAICE_BUDGET_ICE_IF |
dFiDTs1 = 4.0 * D3*t3 + effConduct + D1*UG(I,J) + |
|
./pkg/seaice/seaice_budget_ice_if.F |
257 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = tsurfLoc(I,J) - F_ia(I,J) / dFiDTs1 |
|
./pkg/seaice/seaice_budget_ice_if.F |
94 |
SEAICE_BUDGET_ICE_IF |
_RL aa1,aa2,bb1,bb2,Ppascals,cc0,cc1,cc2,cc3t,dFiDTs1 |
|
./pkg/seaice/seaice_solve4temp.F |
131 |
SEAICE_SOLVE4TEMP |
_RL dFiDTs1 |
|
./pkg/seaice/seaice_solve4temp.F |
456 |
SEAICE_SOLVE4TEMP |
dFiDTs1 = 4.0 _d 0 * D3*t3 + effConduct(I,J) + D1*UG(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
485 |
SEAICE_SOLVE4TEMP |
& 'ice-iter dFiDTs1 F_ia ', ITER, dFiDTs1, |
|
./pkg/seaice/seaice_solve4temp.F |
501 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = tsurfLoc(I,J) - F_ia(I,J) / dFiDTs1 |