Symbol Description Uses
SPEED_SQ 5


File Line number Procedure Code
./pkg/seaice/seaice_growth.F 283 SEAICE_GROWTH 
           SPEED_SQ =
./pkg/seaice/seaice_growth.F 292 SEAICE_GROWTH 
           IF ( SPEED_SQ .LE. SEAICE_EPS_SQ ) THEN
./pkg/seaice/seaice_growth.F 295 SEAICE_GROWTH 
             UG(I,J)=SQRT(SPEED_SQ)
./pkg/seaice/seaice_growth.F 98 SEAICE_GROWTH 
      _RL SPEED_SQ
./pkg/seaice/seaice_growth_if.F 81 SEAICE_GROWTH_IF 
      _RL SPEED_SQ