| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_advdiff.F |
201 |
THSICE_ADVDIFF |
iceFrc(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
212 |
THSICE_ADVDIFF |
U iceVol, iceFrc, |
|
./pkg/thsice/thsice_advdiff.F |
260 |
THSICE_ADVDIFF |
tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
269 |
THSICE_ADVDIFF |
& iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
279 |
THSICE_ADVDIFF |
& 'ICE_ADV: area_b,a=', iceMask(i,j,bi,bj), iceFrc(i,j), |
|
./pkg/thsice/thsice_advdiff.F |
281 |
THSICE_ADVDIFF |
& iceHeight(i,j,bi,bj)*iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
371 |
THSICE_ADVDIFF |
& -iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
380 |
THSICE_ADVDIFF |
& iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
421 |
THSICE_ADVDIFF |
IF ( iceFrc(i,j) .GT. 1. _d 0 ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
424 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = iceHeight(i,j,bi,bj) *iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
425 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)*iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
426 |
THSICE_ADVDIFF |
ELSEIF ( iceFrc(i,j) .LT. iceMaskMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
430 |
THSICE_ADVDIFF |
& *iceFrc(i,j)*r_minArea |
|
./pkg/thsice/thsice_advdiff.F |
432 |
THSICE_ADVDIFF |
& *iceFrc(i,j)*r_minArea |
|
./pkg/thsice/thsice_advdiff.F |
434 |
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) |