Symbol Description Uses
SPEED_SQ 4



File Line number Procedure Code
./pkg/seaice/seaice_growth.F 124 SEAICE_GROWTH
      _RL SPEED_SQ
./pkg/seaice/seaice_growth.F 760 SEAICE_GROWTH
           SPEED_SQ =
./pkg/seaice/seaice_growth.F 769 SEAICE_GROWTH
           IF ( SPEED_SQ .LE. SEAICE_EPS_SQ ) THEN
./pkg/seaice/seaice_growth.F 772 SEAICE_GROWTH
             UG(I,J)=SQRT(SPEED_SQ)