| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
250 |
SEAICE_BUDGET_ICE_IF |
F_c(I,J) = -effConduct * (TB - t1) |
|
./pkg/seaice/seaice_budget_ice_if.F |
255 |
SEAICE_BUDGET_ICE_IF |
& F_c(I,J) + F_sens(I,J) + F_lh(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
295 |
SEAICE_BUDGET_ICE_IF |
F_c(I,J) = -effConduct * (TB - t1) |
|
./pkg/seaice/seaice_budget_ice_if.F |
303 |
SEAICE_BUDGET_ICE_IF |
IF (F_c(I,J) .LT. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
304 |
SEAICE_BUDGET_ICE_IF |
F_io_net(I,J) = -F_c(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
340 |
SEAICE_BUDGET_ICE_IF |
& F_c(I,J), F_lh(I,J), F_sens(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
63 |
SEAICE_BUDGET_ICE_IF |
_RL F_c (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_solve4temp.F |
441 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = -effConduct(I,J)*(TB(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
464 |
SEAICE_SOLVE4TEMP |
& F_c(I,J) + F_sens(I,J) + F_lh(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
477 |
SEAICE_SOLVE4TEMP |
& -F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
495 |
SEAICE_SOLVE4TEMP |
& +(A1(I,J)+A2(I,J)-F_c(I,J))/A3(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
573 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = -effConduct(I,J) * (TB(I,J) - t1) |
|
./pkg/seaice/seaice_solve4temp.F |
603 |
SEAICE_SOLVE4TEMP |
IF (F_c(I,J) .LT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
604 |
SEAICE_SOLVE4TEMP |
F_io_net(I,J) = -F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
649 |
SEAICE_SOLVE4TEMP |
& -(A1(I,J)+A2(I,J)-F_c(I,J)), |
|
./pkg/seaice/seaice_solve4temp.F |
650 |
SEAICE_SOLVE4TEMP |
& F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
654 |
SEAICE_SOLVE4TEMP |
& F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
89 |
SEAICE_SOLVE4TEMP |
_RL F_c (1:sNx,1:sNy) |