| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
66 |
LWRIO |
_RL SGMT4(ISTRIP),TSURF(ISTRIP),dsgmt4(ISTRIP) |
|
./pkg/seaice/seaice_budget_ice.F |
122 |
SEAICE_BUDGET_ICE |
tsurfLoc (I,J) = MIN(273.16 _d 0+MAX_TICE,TSURF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ice.F |
256 |
SEAICE_BUDGET_ICE |
TSURF(I,J,bi,bj)=MIN(tsurfLoc(I,J),TMELT) |
|
./pkg/seaice/seaice_budget_ice.F |
51 |
SEAICE_BUDGET_ICE |
_RL TSURF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_budget_ice.F |
9 |
SEAICE_BUDGET_ICE |
U TSURF, |
|
./pkg/seaice/seaice_budget_ice_if.F |
151 |
SEAICE_BUDGET_ICE_IF |
TSURF(I,J,bi,bj) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
279 |
SEAICE_BUDGET_ICE_IF |
TSURF(I,J,bi,bj) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
318 |
SEAICE_BUDGET_ICE_IF |
& TSURF(I,J,bi,bj), tsurfLoc(I,J),atempLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
47 |
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 |
96 |
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, |