| File |
Line number |
Procedure |
Code |
|
./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 |
63 |
SEAICE_BUDGET_OCEAN |
_RL atempLoc (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ocean.F |
95 |
SEAICE_BUDGET_OCEAN |
atempLoc (I,J) = MAX(celsius2K+MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
142 |
SEAICE_SOLVE4TEMP |
_RL atempLoc (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
242 |
SEAICE_SOLVE4TEMP |
atempLoc (I,J) = MAX( celsius2K+MIN_ATEMP, ATEMP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_solve4temp.F |
415 |
SEAICE_SOLVE4TEMP |
F_sens(I,J)= D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
514 |
SEAICE_SOLVE4TEMP |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
553 |
SEAICE_SOLVE4TEMP |
& TSURFout(I,J), tsurfLoc(I,J),atempLoc(I,J) |