Symbol Description Uses
uRel1 4


File Line number Procedure Code
./pkg/thsice/thsice_get_ocean.F 120 THSICE_GET_OCEAN 
           uRel1 = uVel( i, j,ks,bi,bj)-uIce( i, j,bi,bj)
./pkg/thsice/thsice_get_ocean.F 125 THSICE_GET_OCEAN 
     &              ( ( uRel1*uRel1 + uRel2*uRel2 )
./pkg/thsice/thsice_get_ocean.F 58 THSICE_GET_OCEAN 
      _RL uRel1, uRel2, vRel1, vRel2