| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
66 |
LWRIO |
_RL SGMT4(ISTRIP),TSURF(ISTRIP),dsgmt4(ISTRIP) |
|
./pkg/seaice/seaice_budget_ice_if.F |
152 |
SEAICE_BUDGET_ICE_IF |
TSURF(I,J,bi,bj) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
280 |
SEAICE_BUDGET_ICE_IF |
TSURF(I,J,bi,bj) = tsurfLoc(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 |
49 |
SEAICE_BUDGET_ICE_IF |
_RL TSURF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_budget_ice_if.F |
9 |
SEAICE_BUDGET_ICE_IF |
U TSURF, |
|
./pkg/seaice/seaice_budget_ocean.F |
44 |
SEAICE_BUDGET_OCEAN |
_RL TSURF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_budget_ocean.F |
85 |
SEAICE_BUDGET_OCEAN |
tsurfLoc (I,J) = MIN(273.16 _d 0+MAX_TICE,TSURF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean.F |
9 |
SEAICE_BUDGET_OCEAN |
U TSURF, |
|
./pkg/seaice/seaice_budget_ocean_if.F |
46 |
SEAICE_BUDGET_OCEAN_IF |
_RL TSURF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
98 |
SEAICE_BUDGET_OCEAN_IF |
tsurfLoc (I,J) = MIN(273.16 _d 0+MAX_TICE,TSURF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
9 |
SEAICE_BUDGET_OCEAN_IF |
U TSURF, |
|
./pkg/seaice/seaice_solve4temp.F |
11 |
SEAICE_SOLVE4TEMP |
U TSURF, |
|
./pkg/seaice/seaice_solve4temp.F |
226 |
SEAICE_SOLVE4TEMP |
tsurfLoc (I,J) = MIN(273.16 _d 0 + MAX_TICE,TSURF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
239 |
SEAICE_SOLVE4TEMP |
tsurfLoc (I,J) = TSURF(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
380 |
SEAICE_SOLVE4TEMP |
& tsurfLoc(I,J), TSURF(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
538 |
SEAICE_SOLVE4TEMP |
TSURF(I,J,bi,bj)=MIN(tsurfLoc(I,J),TMELT) |
|
./pkg/seaice/seaice_solve4temp.F |
553 |
SEAICE_SOLVE4TEMP |
TSURF(I,J,bi,bj) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
586 |
SEAICE_SOLVE4TEMP |
CALL ZERO_ADJ_1D( 1, TSURF(I,J,bi,bj), myThid) |
|
./pkg/seaice/seaice_solve4temp.F |
587 |
SEAICE_SOLVE4TEMP |
t1 = TSURF(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 |
69 |
SEAICE_SOLVE4TEMP |
_RL TSURF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |