anchor.diff:     
      ! Internal variables
   
  +INTEGER                      :: UC              ! I/O unit for Coherence debugging file.
  +LOGICAL,    PARAMETER        :: COH_OUT = .FALSE.                       ! This parameter has been added to replace the NON-STANDARD compiler directive previously used
  +
   REAL(ReKi), ALLOCATABLE       :: Dist(:)        ! The distance between points
   REAL(ReKi), ALLOCATABLE       :: DistU(:)
   REAL(ReKi), ALLOCATABLE       :: DistZMExp(:)
  
positive.code: 
              ENDDO ! I
           ENDDO ! J
        
  
           ! -----------------------------------------------
           ! Now transform coherence to H matrix and then
  
negative.code:          SpecModel_WF_14D, &
           SpecModel_USRVKM, &
           SpecModel_TIDAL,  &
           SpecModel_RIVER,  &
           SpecModel_USER  ) ! Do reynolds stress for HYDRO also.
                 
     
        CALL TimeSeriesScaling_ReynoldsStress(p, V, ErrStat, ErrMsg)
  