| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
1319 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,2) = HEFFpreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1589 |
SEAICE_GROWTH |
tmpscal4 = HEFFpreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1785 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFFITDpreTH(I,J,1) |
|
./pkg/seaice/seaice_growth.F |
181 |
SEAICE_GROWTH |
_RL HEFFpreTH (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_growth.F |
1937 |
SEAICE_GROWTH |
& ( HEFF(I,J,bi,bj) - HEFFpreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
513 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
594 |
SEAICE_GROWTH |
HEFFpreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
660 |
SEAICE_GROWTH |
IF (HEFFpreTH(I,J) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
664 |
SEAICE_GROWTH |
tmpscal2 = HEFFpreTH(I,J) / tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
671 |
SEAICE_GROWTH |
& sqrt(HEFFpreTH(I,J)*HEFFpreTH(I,J) + hice_reg_sq) |
|
./pkg/seaice/seaice_growth.F |
712 |
SEAICE_GROWTH |
IF (HEFFpreTH(I,J) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
714 |
SEAICE_GROWTH |
& (HEFFpreTH(I,J) * SEAICE_rhoIce + |