File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_growth.F |
1136 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
./pkg/seaice/seaice_growth.F |
1137 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) * HEFF(I,J,bi,bj) |
./pkg/seaice/seaice_growth.F |
1196 |
SEAICE_GROWTH |
tmpscal4 = 4. _d 0 * SItracer(I,J,bi,bj,iTrGrease) * tmpscal3 |
./pkg/seaice/seaice_growth.F |
155 |
SEAICE_GROWTH |
INTEGER iTrGrease |
./pkg/seaice/seaice_growth.F |
1621 |
SEAICE_GROWTH |
tmpscal3 = tmpscal3 + SItracer(I,J,bi,bj,iTrGrease) |
./pkg/seaice/seaice_growth.F |
1622 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0 |
./pkg/seaice/seaice_growth.F |
1636 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) |
./pkg/seaice/seaice_growth.F |
1639 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
./pkg/seaice/seaice_growth.F |
1640 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) * tmpscal1 |
./pkg/seaice/seaice_growth.F |
1642 |
SEAICE_GROWTH |
SItrBucket(I,J,bi,bj,iTrGrease) = |
./pkg/seaice/seaice_growth.F |
1643 |
SEAICE_GROWTH |
& SItrBucket(I,J,bi,bj,iTrGrease) |
./pkg/seaice/seaice_growth.F |
1648 |
SEAICE_GROWTH |
SItracer(i,j,bi,bj,iTrGrease) = |
./pkg/seaice/seaice_growth.F |
1649 |
SEAICE_GROWTH |
& SItracer(i,j,bi,bj,iTrGrease) + greaseNewFrazil |
./pkg/seaice/seaice_growth.F |
1652 |
SEAICE_GROWTH |
tmpscal3=tmpscal3+SItrBucket(I,J,bi,bj,iTrGrease) |
./pkg/seaice/seaice_growth.F |
1654 |
SEAICE_GROWTH |
SItrBucket(I,J,bi,bj,iTrGrease)=0. _d 0 |
./pkg/seaice/seaice_growth.F |
1959 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
./pkg/seaice/seaice_growth.F |
1960 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) / HEFF(I,J,bi,bj) |
./pkg/seaice/seaice_growth.F |
1962 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0 |
./pkg/seaice/seaice_growth.F |
415 |
SEAICE_GROWTH |
iTrGrease=-1 |
./pkg/seaice/seaice_growth.F |
417 |
SEAICE_GROWTH |
if (SItrName(iTr).EQ.'grease') iTrGrease=iTr |