Symbol Description Uses
uRel2 4


File Line number Procedure Code
./pkg/thsice/thsice_get_ocean.F 121 THSICE_GET_OCEAN 
           uRel2 = uVel(i+1,j,ks,bi,bj)-uIce(i+1,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