Symbol Description Uses
SPEED_SQ 4



File Line number Procedure Code
./pkg/seaice/seaice_growth.F 121 SEAICE_GROWTH
      _RL SPEED_SQ
./pkg/seaice/seaice_growth.F 742 SEAICE_GROWTH
           SPEED_SQ =
./pkg/seaice/seaice_growth.F 751 SEAICE_GROWTH
           IF ( SPEED_SQ .LE. SEAICE_EPS_SQ ) THEN
./pkg/seaice/seaice_growth.F 754 SEAICE_GROWTH
             UG(I,J)=SQRT(SPEED_SQ)