| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
175 |
SEAICE_GROWTH |
RESID_HEAT(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
400 |
SEAICE_GROWTH |
RESID_HEAT(I,J) = availHeat(I,J) - YNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
613 |
SEAICE_GROWTH |
IF( RESID_HEAT(I,J) .GT. ZERO .AND. |
|
./pkg/seaice/seaice_growth.F |
616 |
SEAICE_GROWTH |
& RESID_HEAT(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
630 |
SEAICE_GROWTH |
IF( RESID_HEAT(I,J) .GT. ZERO .AND. |
|
./pkg/seaice/seaice_growth.F |
69 |
SEAICE_GROWTH |
_RL RESID_HEAT (1:sNx,1:sNy) |