| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
154 |
SEAICE_BUDGET_ICE_IF |
atempLoc (I,J) = MAX(TMELT + MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
252 |
SEAICE_BUDGET_ICE_IF |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
297 |
SEAICE_BUDGET_ICE_IF |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
319 |
SEAICE_BUDGET_ICE_IF |
& TSURF(I,J,bi,bj), tsurfLoc(I,J),atempLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
88 |
SEAICE_BUDGET_ICE_IF |
_RL atempLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_budget_ocean.F |
109 |
SEAICE_BUDGET_OCEAN |
& +D1*UG(I,J)*atempLoc(I,J)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
59 |
SEAICE_BUDGET_OCEAN |
_RL atempLoc (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ocean.F |
88 |
SEAICE_BUDGET_OCEAN |
atempLoc (I,J) = MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
100 |
SEAICE_BUDGET_OCEAN_IF |
atempLoc (I,J) = MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
133 |
SEAICE_BUDGET_OCEAN_IF |
& +D1*UG(I,J)*atempLoc(I,J)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
69 |
SEAICE_BUDGET_OCEAN_IF |
_RL atempLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_solve4temp.F |
227 |
SEAICE_SOLVE4TEMP |
atempLoc (I,J) = MAX(273.16 _d 0 + MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
240 |
SEAICE_SOLVE4TEMP |
atempLoc (I,J) = MAX(TMELT + MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
314 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
320 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
461 |
SEAICE_SOLVE4TEMP |
F_sens(I,J)= D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
575 |
SEAICE_SOLVE4TEMP |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
594 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
624 |
SEAICE_SOLVE4TEMP |
& TSURF(I,J,bi,bj), tsurfLoc(I,J),atempLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
97 |
SEAICE_SOLVE4TEMP |
_RL atempLoc (1:sNx,1:sNy) |