| File |
Line number |
Procedure |
Code |
|
./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 |
138 |
SEAICE_BUDGET_ICE |
IF(tsurfLoc(I,J).GT.TMELTP) ALB(I,J)=SEAICE_wetIceAlb_south |
|
./pkg/seaice/seaice_budget_ice.F |
140 |
SEAICE_BUDGET_ICE |
IF(tsurfLoc(I,J).GT.TMELTP) ASNOW=SEAICE_wetSnowAlb_south |
|
./pkg/seaice/seaice_budget_ice.F |
143 |
SEAICE_BUDGET_ICE |
IF(tsurfLoc(I,J).GT.TMELTP) ALB(I,J)=SEAICE_wetIceAlb |
|
./pkg/seaice/seaice_budget_ice.F |
145 |
SEAICE_BUDGET_ICE |
IF(tsurfLoc(I,J).GT.TMELTP) ASNOW=SEAICE_wetSnowAlb |
|
./pkg/seaice/seaice_budget_ice.F |
194 |
SEAICE_BUDGET_ICE |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice.F |
211 |
SEAICE_BUDGET_ICE |
B(I,J)=effConduct*(TB-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ice.F |
223 |
SEAICE_BUDGET_ICE |
tsurfLoc(I,J)=tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice.F |
225 |
SEAICE_BUDGET_ICE |
tsurfLoc(I,J)=MAX(273.16 _d 0+MIN_TICE,tsurfLoc(I,J)) |
|
./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 |
75 |
SEAICE_BUDGET_ICE |
_RL tsurfLoc (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_budget_ice_if.F |
150 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = TMELT |
|
./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 |
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 |
224 |
SEAICE_BUDGET_ICE_IF |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
256 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = tsurfLoc(I,J) - F_ia(I,J) / dFiDTs1 |
|
./pkg/seaice/seaice_budget_ice_if.F |
264 |
SEAICE_BUDGET_ICE_IF |
IF (tsurfLoc(I,J) .LT. 50.0 ) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
265 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = TMELT |
|
./pkg/seaice/seaice_budget_ice_if.F |
272 |
SEAICE_BUDGET_ICE_IF |
print *,'ice-iter tsurfLc,|dif|', I,J, ITER,tsurfLoc(I,J), |
|
./pkg/seaice/seaice_budget_ice_if.F |
273 |
SEAICE_BUDGET_ICE_IF |
& log10(abs(tsurfLoc(I,J) - tsurfLocOld)) |
|
./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 |
279 |
SEAICE_BUDGET_ICE_IF |
TSURF(I,J,bi,bj) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
281 |
SEAICE_BUDGET_ICE_IF |
t1 = 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 |
86 |
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 |
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 |
135 |
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 |
136 |
SEAICE_BUDGET_OCEAN_IF |
& -D3*(tsurfLoc(I,J)**4) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
66 |
SEAICE_BUDGET_OCEAN_IF |
_RL tsurfLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./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)) |