| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
1297 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,2) = HEFFpreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1567 |
SEAICE_GROWTH |
tmpscal4 = HEFFpreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1763 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFFITDpreTH(I,J,1) |
|
./pkg/seaice/seaice_growth.F |
176 |
SEAICE_GROWTH |
_RL HEFFpreTH (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_growth.F |
1902 |
SEAICE_GROWTH |
& ( HEFF(I,J,bi,bj) - HEFFpreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
495 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
576 |
SEAICE_GROWTH |
HEFFpreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
642 |
SEAICE_GROWTH |
IF (HEFFpreTH(I,J) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
646 |
SEAICE_GROWTH |
tmpscal2 = HEFFpreTH(I,J) / tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
653 |
SEAICE_GROWTH |
& sqrt(HEFFpreTH(I,J)*HEFFpreTH(I,J) + hice_reg_sq) |
|
./pkg/seaice/seaice_growth.F |
694 |
SEAICE_GROWTH |
IF (HEFFpreTH(I,J) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
696 |
SEAICE_GROWTH |
& (HEFFpreTH(I,J) * SEAICE_rhoIce + |