| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
1114 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1115 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) * HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1174 |
SEAICE_GROWTH |
tmpscal4 = 4. _d 0 * SItracer(I,J,bi,bj,iTrGrease) * tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
150 |
SEAICE_GROWTH |
INTEGER iTrGrease |
|
./pkg/seaice/seaice_growth.F |
1599 |
SEAICE_GROWTH |
tmpscal3 = tmpscal3 + SItracer(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1600 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1614 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1617 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1618 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) * tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
1620 |
SEAICE_GROWTH |
SItrBucket(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1621 |
SEAICE_GROWTH |
& SItrBucket(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1626 |
SEAICE_GROWTH |
SItracer(i,j,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1627 |
SEAICE_GROWTH |
& SItracer(i,j,bi,bj,iTrGrease) + greaseNewFrazil |
|
./pkg/seaice/seaice_growth.F |
1630 |
SEAICE_GROWTH |
tmpscal3=tmpscal3+SItrBucket(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1632 |
SEAICE_GROWTH |
SItrBucket(I,J,bi,bj,iTrGrease)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1921 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1922 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) / HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1924 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
397 |
SEAICE_GROWTH |
iTrGrease=-1 |
|
./pkg/seaice/seaice_growth.F |
399 |
SEAICE_GROWTH |
if (SItrName(iTr).EQ.'grease') iTrGrease=iTr |