| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice.F |
106 |
SEAICE_BUDGET_ICE |
TMELT=273.16 _d +00 |
|
./pkg/seaice/seaice_budget_ice.F |
231 |
SEAICE_BUDGET_ICE |
tsurfLoc(I,J)=MIN(tsurfLoc(I,J),TMELT) |
|
./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 |
66 |
SEAICE_BUDGET_ICE |
_RL TMELT, TMELTP, XKI, XKS, HCUT, ASNOW, XIO |
|
./pkg/seaice/seaice_budget_ice_if.F |
113 |
SEAICE_BUDGET_ICE_IF |
TMELT=273.15 _d +00 |
|
./pkg/seaice/seaice_budget_ice_if.F |
150 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = TMELT |
|
./pkg/seaice/seaice_budget_ice_if.F |
153 |
SEAICE_BUDGET_ICE_IF |
atempLoc (I,J) = MAX(TMELT + MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
168 |
SEAICE_BUDGET_ICE_IF |
IF (tsurfLoc(I,J) .GE. TMELT) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
182 |
SEAICE_BUDGET_ICE_IF |
IF (tsurfLoc(I,J) .GE. TMELT) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
265 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = TMELT |
|
./pkg/seaice/seaice_budget_ice_if.F |
278 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = MIN(tsurfLoc(I,J),TMELT) |
|
./pkg/seaice/seaice_budget_ice_if.F |
76 |
SEAICE_BUDGET_ICE_IF |
_RL TMELT, TMELTP, XKI, XKS, HCUT, ASNOW, XIO |
|
./pkg/seaice/seaice_budget_ocean.F |
111 |
SEAICE_BUDGET_OCEAN |
& *(tsurfLoc(I,J)-TMELT) |
|
./pkg/seaice/seaice_budget_ocean.F |
112 |
SEAICE_BUDGET_OCEAN |
& /(tsurfLoc(I,J)-TMELT+237.3 _d +00)) |
|
./pkg/seaice/seaice_budget_ocean.F |
55 |
SEAICE_BUDGET_OCEAN |
_RL QS1, D1, D1W, D3, TMELT |
|
./pkg/seaice/seaice_budget_ocean.F |
78 |
SEAICE_BUDGET_OCEAN |
TMELT=273.16 _d +00 |
|
./pkg/seaice/seaice_budget_ocean_if.F |
133 |
SEAICE_BUDGET_OCEAN_IF |
& *(tsurfLoc(I,J)-TMELT) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
134 |
SEAICE_BUDGET_OCEAN_IF |
& /(tsurfLoc(I,J)-TMELT+237.3 _d +00)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
57 |
SEAICE_BUDGET_OCEAN_IF |
_RL QS1, TB, D1, D1W, D3, TMELT |
|
./pkg/seaice/seaice_budget_ocean_if.F |
89 |
SEAICE_BUDGET_OCEAN_IF |
TMELT=273.16 _d +00 |
|
./pkg/seaice/seaice_growth_if.F |
1127 |
SEAICE_GROWTH_IF |
& TMIX(i,j,bi,bj)- TMELT, |
|
./pkg/seaice/seaice_growth_if.F |
1132 |
SEAICE_GROWTH_IF |
& TICE(i,j,bi,bj) - TMELT, |
|
./pkg/seaice/seaice_growth_if.F |
1133 |
SEAICE_GROWTH_IF |
& ATEMP(i,j,bi,bj) -TMELT, |
|
./pkg/seaice/seaice_growth_if.F |
178 |
SEAICE_GROWTH_IF |
TMELT = 273.15 |
|
./pkg/seaice/seaice_growth_if.F |
375 |
SEAICE_GROWTH_IF |
IF (TICE(I,J,bi,bj) .LT. TMELT) THEN |
|
./pkg/seaice/seaice_growth_if.F |
437 |
SEAICE_GROWTH_IF |
& theta(I,J,kSurface,bi,bj) + TMELT |
|
./pkg/seaice/seaice_growth_if.F |
51 |
SEAICE_GROWTH_IF |
_RL TBC, salinity_ice, SDF, ICE2SNOW,TMELT |