Symbol Description Uses
SPEED_SQ 5


File Line number Procedure Code
./pkg/seaice/seaice_growth.F 159 SEAICE_GROWTH 
      _RL SPEED_SQ
./pkg/seaice/seaice_growth.F 534 SEAICE_GROWTH 
           SPEED_SQ =
./pkg/seaice/seaice_growth.F 543 SEAICE_GROWTH 
           IF ( SPEED_SQ .LE. SEAICE_EPS_SQ ) THEN
./pkg/seaice/seaice_growth.F 546 SEAICE_GROWTH 
             UG(I,J)=SQRT(SPEED_SQ)
./pkg/seaice/seaice_growth_if.F 83 SEAICE_GROWTH_IF 
      _RL SPEED_SQ