anchor.diff:     
      CALL HDOUT_ChkOutLst( InitInp%OutList(1:p%NumOuts), y, p, ErrStat, ErrMsg )
      IF ( ErrStat /= 0 ) RETURN
  -   
  -   
  -  !IF ( ALLOCATED( p%OutParam ) .AND. p%NumOuts > 0 ) THEN           ! Output has been requested so let's open an output file            
  -  !    
  -  !    ALLOCATE( y%WriteOutput( p%NumOuts ),  STAT = ErrStat )
  -  !    IF ( ErrStat /= ErrID_None ) THEN
  -  !       ErrMsg  = ' Error allocating space for WriteOutput array.'
  -  !       ErrStat = ErrID_Fatal
  -  !       RETURN
  -  !    END IF
  -  !    y%WriteOutput = 0.0_ReKi
  -  !    
  -  !      ALLOCATE ( InitOut%WriteOutputHdr(p%NumOuts), STAT = ErrStat )
  -  !    IF ( ErrStat /= ErrID_None ) THEN
  -  !       ErrMsg  = ' Error allocating space for WriteOutputHdr array.'
  -  !       ErrStat = ErrID_Fatal
  -  !       RETURN
  -  !    END IF
  -  !    
  -  !    ALLOCATE ( InitOut%WriteOutputUnt(p%NumOuts), STAT = ErrStat )
  -  !    IF ( ErrStat /= ErrID_None ) THEN
  -  !       ErrMsg  = ' Error allocating space for WriteOutputHdr array.'
  -  !       ErrStat = ErrID_Fatal
  -  !       RETURN
  -  !    END IF   
  -  !
  -  !    DO I = 1,p%NumOuts
  -  !       
  -  !       InitOut%WriteOutputHdr(I) = TRIM( p%OutParam(I)%Name  )
  -  !       InitOut%WriteOutputUnt(I) = TRIM( p%OutParam(I)%Units )      
  -  !    
  -  !    END DO   
  -  !    
  -  ! END IF   ! there are any requested outputs   
  -
  -      
  -     
  +
            ! Aggregate the sub-module initialization outputs for the glue code
  -      !IF ( p%OutSwtch == 2 .OR. p%OutSwtch == 3 ) THEN
  -         
  -         !hasWAMITOuts   = .FALSE.
  +
            hasWAMIT2Outs  = .FALSE.
            hasWaves2Outs  = .FALSE.
            hasMorisonOuts = .FALSE.
  
positive.code:          m%LastOutTime  = 0.0_DbKi
           m%Decimate     = 0
           p%OutDec       = 1             !TODO: Remove this once the parameter has been added to the HD input file GJH 7/8/2014
           
           !IF (ALLOCATED( p%WAMIT(1)%OutParam ) .AND. p%WAMIT(1)%NumOuts > 0) THEN
           !   hasWAMITOuts = .TRUE.
           !   p%NumTotalOuts = p%NumTotalOuts + p%WAMIT(1)%NumOuts  * p%nWAMITObj     
           !END IF
           IF (ALLOCATED( p%WAMIT2%OutParam ) .AND. p%WAMIT2%NumOuts > 0) THEN
              hasWAMIT2Outs = .TRUE.
              p%NumTotalOuts = p%NumTotalOuts + p%WAMIT2%NumOuts       
  
negative.code:                J = J + 1
              END DO
           END IF
  
        IF ( p%OutSwtch == 1 .OR. p%OutSwtch == 3 ) THEN
           CALL HDOut_OpenOutput( HydroDyn_ProgDesc, InitInp%OutRootName, p, InitOut, ErrStat, ErrMsg )
           IF (ErrStat >= AbortErrLev ) RETURN
  