integer ir,hh

          do  ii = ir-hh, ir+hh

      SUBROUTINE GAD_OSC_MUL_R(ir,hh,mask,ohat,scal)

          integer ix,hh

          do  ii = ix-hh, ix+hh

      SUBROUTINE GAD_OSC_MUL_X(ix,hh,mask,ohat,scal)

          integer iy,hh

          do  ii = iy-hh, iy+hh

      SUBROUTINE GAD_OSC_MUL_Y(iy,hh,mask,ohat,scal)

        hh = int(tmphhmmss(k))/10000

        IF ( hh.LT.hoursPerDay ) THEN

      integer hh, ProfNo_hh

      _RL hh(4*imax+1,4*imax,MAX_NO_THREADS)

      COMMON /SEAICE_FMRES_LOC_RL/ hh, c, s, rs, eps1

       hh(j,i,myThid) = t

      hh(i1,i,myThid) = t

        t = hh(k1,i,myThid)

        hh(k1,i,myThid) = c(k1,myThid)*t+s(k1,myThid)*hh(k,i,myThid)

        hh(k,i,myThid) = -s(k1,myThid)*t+c(k1,myThid)*hh(k,i,myThid)

      gam = sqrt(hh(i,i,myThid)**2 + hh(i1,i,myThid)**2)

      c(i,myThid)   = hh(i, i,myThid)/gam

      s(i,myThid)   = hh(i1,i,myThid)/gam

      hh(i,i,myThid) = c(i,myThid)*hh(i, i,myThid) 

     &     +           s(i,myThid)*hh(i1,i,myThid)

      rs(i,myThid) = rs(i,myThid)/hh(i,i,myThid)

        t = t-hh(k,j,myThid)*rs(j,myThid)

       rs(k,myThid) = t/hh(k,k,myThid)

        hh = hhmmss/10000

        IF ( hh.GE.hoursPerDay ) THEN

      INTEGER hh, mn, ss