| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ocean.F |
126 |
SEAICE_BUDGET_OCEAN |
& + D3*tsurfLoc(I,J)**4 |
|
./pkg/seaice/seaice_budget_ocean.F |
127 |
SEAICE_BUDGET_OCEAN |
sstdegC = tsurfLoc(I,J) - TMELT |
|
./pkg/seaice/seaice_budget_ocean.F |
129 |
SEAICE_BUDGET_OCEAN |
hs(I,J,bi,bj) = D1*UG(I,J)*(atempLoc(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ocean.F |
62 |
SEAICE_BUDGET_OCEAN |
_RL tsurfLoc (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ocean.F |
92 |
SEAICE_BUDGET_OCEAN |
tsurfLoc (I,J) = TSURF(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
137 |
SEAICE_SOLVE4TEMP |
_RL tsurfLoc (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
236 |
SEAICE_SOLVE4TEMP |
tsurfLoc (I,J) = TSURFin(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
276 |
SEAICE_SOLVE4TEMP |
IF (tsurfLoc(I,J) .GE. SurfMeltTemp) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
284 |
SEAICE_SOLVE4TEMP |
IF (tsurfLoc(I,J) .GE. SurfMeltTemp) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
335 |
SEAICE_SOLVE4TEMP |
& tsurfLoc(I,J), TSURFin(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
364 |
SEAICE_SOLVE4TEMP |
tsurfPrev(I,J) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
367 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
400 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J)*(tempFrz(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
431 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
439 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = MAX( celsius2K+MIN_TICE, tsurfLoc(I,J) ) |
|
./pkg/seaice/seaice_solve4temp.F |
447 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = MIN( tsurfLoc(I,J), TMELT ) |
|
./pkg/seaice/seaice_solve4temp.F |
454 |
SEAICE_SOLVE4TEMP |
& tsurfLoc(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
455 |
SEAICE_SOLVE4TEMP |
& LOG10(ABS(tsurfLoc(I,J) - t1)) |
|
./pkg/seaice/seaice_solve4temp.F |
470 |
SEAICE_SOLVE4TEMP |
TSURFout(I,J) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
485 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
518 |
SEAICE_SOLVE4TEMP |
delTsurf = tsurfLoc(I,J)-tsurfPrev(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
519 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J)*(tempFrz(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
550 |
SEAICE_SOLVE4TEMP |
& TSURFout(I,J), tsurfLoc(I,J),atempLoc(I,J) |