| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_advdiff.F |
235 |
THSICE_ADVDIFF |
iceFrc(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
246 |
THSICE_ADVDIFF |
U iceVol, iceFrc, |
|
./pkg/thsice/thsice_advdiff.F |
294 |
THSICE_ADVDIFF |
tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
303 |
THSICE_ADVDIFF |
& iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
313 |
THSICE_ADVDIFF |
& 'ICE_ADV: area_b,a=', iceMask(i,j,bi,bj), iceFrc(i,j), |
|
./pkg/thsice/thsice_advdiff.F |
315 |
THSICE_ADVDIFF |
& iceHeight(i,j,bi,bj)*iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
405 |
THSICE_ADVDIFF |
& -iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
414 |
THSICE_ADVDIFF |
& iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
455 |
THSICE_ADVDIFF |
IF ( iceFrc(i,j) .GT. 1. _d 0 ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
458 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = iceHeight(i,j,bi,bj) *iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
459 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)*iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
460 |
THSICE_ADVDIFF |
ELSEIF ( iceFrc(i,j) .LT. iceMaskMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
464 |
THSICE_ADVDIFF |
& *iceFrc(i,j)*r_minArea |
|
./pkg/thsice/thsice_advdiff.F |
466 |
THSICE_ADVDIFF |
& *iceFrc(i,j)*r_minArea |
|
./pkg/thsice/thsice_advdiff.F |
468 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
89 |
THSICE_ADVDIFF |
_RL iceFrc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |