anchor.diff:  
               ENDDO ! I
            ENDDO ! J
  -      
  +   !.................
  +   ! DEBUGGING
  +   !.................
  +         IF (COH_OUT) THEN
  +   !        IF (IFreq == 1 .OR. IFreq == p%grid%NumFreq) THEN
  +               WRITE( UC, '(I3,2X,F15.5,1X,'//Num2LSTR(p%grid%NPacked)//'(G10.4,1X))' ) IVec, p%grid%Freq(IFreq), TRH(1:p%grid%NPacked)
  +   !        ENDIF
  +         ENDIF 
   
            ! -----------------------------------------------
            ! Now transform coherence to H matrix and then
  
positive.code:          SpecModel_WF_14D, &
           SpecModel_USRVKM, &
           SpecModel_TIDAL,  &
           SpecModel_RIVER   ) ! Do reynolds stress for HYDRO also.
                 
     
        CALL TimeSeriesScaling_ReynoldsStress(p, V, ErrStat, ErrMsg)
  
negative.code: !............................................
  CONTAINS
     SUBROUTINE Cleanup()
  
        IF (COH_OUT .AND. UC > 0)  CLOSE( UC )
  
        IF ( ALLOCATED( Dist      ) ) DEALLOCATE( Dist      )
        IF ( ALLOCATED( DistU     ) ) DEALLOCATE( DistU     )
  