| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
151 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = TMELT |
|
./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 |
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 |
225 |
SEAICE_BUDGET_ICE_IF |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
257 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = tsurfLoc(I,J) - F_ia(I,J) / dFiDTs1 |
|
./pkg/seaice/seaice_budget_ice_if.F |
265 |
SEAICE_BUDGET_ICE_IF |
IF (tsurfLoc(I,J) .LT. 50.0 ) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
266 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = TMELT |
|
./pkg/seaice/seaice_budget_ice_if.F |
273 |
SEAICE_BUDGET_ICE_IF |
print *,'ice-iter tsurfLc,|dif|', I,J, ITER,tsurfLoc(I,J), |
|
./pkg/seaice/seaice_budget_ice_if.F |
274 |
SEAICE_BUDGET_ICE_IF |
& log10(abs(tsurfLoc(I,J) - tsurfLocOld)) |
|
./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 |
280 |
SEAICE_BUDGET_ICE_IF |
TSURF(I,J,bi,bj) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
282 |
SEAICE_BUDGET_ICE_IF |
t1 = 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 |
87 |
SEAICE_BUDGET_ICE_IF |
_RL tsurfLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./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 |
113 |
SEAICE_BUDGET_OCEAN |
A2(I,J)=-D1*UG(I,J)*tsurfLoc(I,J)-D1W*UG(I,J)*B(I,J) |
|
./pkg/seaice/seaice_budget_ocean.F |
114 |
SEAICE_BUDGET_OCEAN |
& -D3*(tsurfLoc(I,J)**4) |
|
./pkg/seaice/seaice_budget_ocean.F |
58 |
SEAICE_BUDGET_OCEAN |
_RL tsurfLoc (1:sNx,1:sNy) |
|
./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_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 |
137 |
SEAICE_BUDGET_OCEAN_IF |
A2(I,J)=-D1*UG(I,J)*tsurfLoc(I,J)-D1W*UG(I,J)*B(I,J) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
138 |
SEAICE_BUDGET_OCEAN_IF |
& -D3*(tsurfLoc(I,J)**4) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
68 |
SEAICE_BUDGET_OCEAN_IF |
_RL tsurfLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./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_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 |
267 |
SEAICE_SOLVE4TEMP |
IF (tsurfLoc(I,J) .GE. SurfMeltTemp) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
275 |
SEAICE_SOLVE4TEMP |
IF (tsurfLoc(I,J) .GE. SurfMeltTemp) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
380 |
SEAICE_SOLVE4TEMP |
& tsurfLoc(I,J), TSURF(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
414 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
441 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = -effConduct(I,J)*(TB(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
494 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J)=tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
497 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) =MAX(273.16 _d 0+MIN_TICE,tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
498 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) =MIN(tsurfLoc(I,J),TMELT) |
|
./pkg/seaice/seaice_solve4temp.F |
501 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = tsurfLoc(I,J) - F_ia(I,J) / dFiDTs1 |
|
./pkg/seaice/seaice_solve4temp.F |
509 |
SEAICE_SOLVE4TEMP |
IF (tsurfLoc(I,J) .LT. 50.0 _d 0 ) THEN |
|
./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 |
521 |
SEAICE_SOLVE4TEMP |
& tsurfLoc(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
522 |
SEAICE_SOLVE4TEMP |
& log10(abs(tsurfLoc(I,J) - t1)) |
|
./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 |
556 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
624 |
SEAICE_SOLVE4TEMP |
& TSURF(I,J,bi,bj), tsurfLoc(I,J),atempLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
96 |
SEAICE_SOLVE4TEMP |
_RL tsurfLoc (1:sNx,1:sNy) |