| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
114 |
SEAICE_BUDGET_ICE_IF |
TMELT=273.15 _d +00 |
|
./pkg/seaice/seaice_budget_ice_if.F |
151 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = TMELT |
|
./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 |
169 |
SEAICE_BUDGET_ICE_IF |
IF (tsurfLoc(I,J) .GE. TMELT) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
183 |
SEAICE_BUDGET_ICE_IF |
IF (tsurfLoc(I,J) .GE. TMELT) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
266 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = TMELT |
|
./pkg/seaice/seaice_budget_ice_if.F |
279 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = MIN(tsurfLoc(I,J),TMELT) |
|
./pkg/seaice/seaice_budget_ice_if.F |
77 |
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 |
135 |
SEAICE_BUDGET_OCEAN_IF |
& *(tsurfLoc(I,J)-TMELT) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
136 |
SEAICE_BUDGET_OCEAN_IF |
& /(tsurfLoc(I,J)-TMELT+237.3 _d +00)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
59 |
SEAICE_BUDGET_OCEAN_IF |
_RL QS1, TB, D1, D1W, D3, TMELT |
|
./pkg/seaice/seaice_budget_ocean_if.F |
91 |
SEAICE_BUDGET_OCEAN_IF |
TMELT=273.16 _d +00 |
|
./pkg/seaice/seaice_growth_if.F |
1129 |
SEAICE_GROWTH_IF |
& TMIX(i,j,bi,bj)- TMELT, |
|
./pkg/seaice/seaice_growth_if.F |
1134 |
SEAICE_GROWTH_IF |
& TICE(i,j,bi,bj) - TMELT, |
|
./pkg/seaice/seaice_growth_if.F |
1135 |
SEAICE_GROWTH_IF |
& ATEMP(i,j,bi,bj) -TMELT, |
|
./pkg/seaice/seaice_growth_if.F |
180 |
SEAICE_GROWTH_IF |
TMELT = 273.15 |
|
./pkg/seaice/seaice_growth_if.F |
377 |
SEAICE_GROWTH_IF |
IF (TICE(I,J,bi,bj) .LT. TMELT) THEN |
|
./pkg/seaice/seaice_growth_if.F |
439 |
SEAICE_GROWTH_IF |
& theta(I,J,kSurface,bi,bj) + TMELT |
|
./pkg/seaice/seaice_growth_if.F |
53 |
SEAICE_GROWTH_IF |
_RL TBC, salinity_ice, SDF, ICE2SNOW,TMELT |
|
./pkg/seaice/seaice_solve4temp.F |
118 |
SEAICE_SOLVE4TEMP |
_RL TMELT, XKI, XKS, HCUT, XIO |
|
./pkg/seaice/seaice_solve4temp.F |
184 |
SEAICE_SOLVE4TEMP |
TMELT = 273.16 _d +00 |
|
./pkg/seaice/seaice_solve4temp.F |
188 |
SEAICE_SOLVE4TEMP |
TMELT = celsius2K |
|
./pkg/seaice/seaice_solve4temp.F |
189 |
SEAICE_SOLVE4TEMP |
SurfMeltTemp = TMELT |
|
./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 |
383 |
SEAICE_SOLVE4TEMP |
& 'ibi iter, TMELT ',myIter,TMELT |
|
./pkg/seaice/seaice_solve4temp.F |
498 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) =MIN(tsurfLoc(I,J),TMELT) |
|
./pkg/seaice/seaice_solve4temp.F |
510 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = TMELT |
|
./pkg/seaice/seaice_solve4temp.F |
512 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) =MIN(tsurfLoc(I,J),TMELT) |
|
./pkg/seaice/seaice_solve4temp.F |
538 |
SEAICE_SOLVE4TEMP |
TSURF(I,J,bi,bj)=MIN(tsurfLoc(I,J),TMELT) |