| 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 |
140 |
SEAICE_SOLVE4TEMP |
_RL tsurfLoc (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
239 |
SEAICE_SOLVE4TEMP |
tsurfLoc (I,J) = TSURFin(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
279 |
SEAICE_SOLVE4TEMP |
IF (tsurfLoc(I,J) .GE. SurfMeltTemp) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
287 |
SEAICE_SOLVE4TEMP |
IF (tsurfLoc(I,J) .GE. SurfMeltTemp) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
338 |
SEAICE_SOLVE4TEMP |
& tsurfLoc(I,J), TSURFin(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
367 |
SEAICE_SOLVE4TEMP |
tsurfPrev(I,J) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
370 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
403 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J)*(tempFrz(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
434 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
442 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = MAX( celsius2K+MIN_TICE, tsurfLoc(I,J) ) |
|
./pkg/seaice/seaice_solve4temp.F |
450 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = MIN( tsurfLoc(I,J), TMELT ) |
|
./pkg/seaice/seaice_solve4temp.F |
457 |
SEAICE_SOLVE4TEMP |
& tsurfLoc(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
458 |
SEAICE_SOLVE4TEMP |
& LOG10(ABS(tsurfLoc(I,J) - t1)) |
|
./pkg/seaice/seaice_solve4temp.F |
473 |
SEAICE_SOLVE4TEMP |
TSURFout(I,J) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
488 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
521 |
SEAICE_SOLVE4TEMP |
delTsurf = tsurfLoc(I,J)-tsurfPrev(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
522 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J)*(tempFrz(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
553 |
SEAICE_SOLVE4TEMP |
& TSURFout(I,J), tsurfLoc(I,J),atempLoc(I,J) |