| Symbol | Description | Uses |
| SPEED_SQ | 4 |
| File | Line number | Procedure | Code |
| ./pkg/seaice/groatb.F | 113 | GROATB |
SPEED_SQ = UWIND(I,J,bi,bj)**2 + VWIND(I,J,bi,bj)**2 |
| ./pkg/seaice/groatb.F | 114 | GROATB |
IF ( SPEED_SQ .LE. SEAICE_EPS_SQ ) THEN |
| ./pkg/seaice/groatb.F | 117 | GROATB |
UG(I,J)=SQRT(SPEED_SQ) |
| ./pkg/seaice/groatb.F | 45 | GROATB |
_RL SPEED_SQ |