anchor.diff:              p%MnDriftDims(4)     =  .FALSE.              ! the .8 files don't contain this dimension
               p%MnDriftDims(5)     =  .FALSE.              ! the .8 files don't contain this dimension
               p%MnDriftDims(6)     =  .TRUE.
  -!FIXME: do I want to include these warnings anymore?
  -!               !> Now warn me that we changed the calculations in this case...
  -!            CALL SetErrStat( ErrID_Warn, ' WARNING: the .8 WAMIT output file does not contain information for second order forces '//&
  -!               'in the heave direction.  No second order heave forces will be calculated within the mean drift calculations.'//NewLine, &
  -!               ErrStat, ErrMsg, 'CheckInitInput')
  -!            CALL SetErrStat( ErrID_Warn, ' WARNING: the .8 WAMIT output file does not contain information for second order forces '//&
  -!               'for platform roll.  No second order roll forces will be calculated within the mean drift calculations.'//NewLine, &
  -!               ErrStat, ErrMsg, 'CheckInitInput')
  -!            CALL SetErrStat( ErrID_Warn, ' WARNING: the .8 WAMIT output file does not contain information for second order forces '//&
  -!               'for platform pitch. No second order pitching forces will be calculated within the mean drift calculations.'//NewLine, &
  -!               ErrStat, ErrMsg, 'CheckInitInput')
            ELSE
               p%MnDriftDims        = .TRUE.
            ENDIF
  
positive.code:          ! Now loop through all the dimensions and perform the calculation
        DO I=1,6
  
              ! Only on the dimensions we requested
           IF ( p%SumQTFDims(I) ) THEN
  
  
                 ! To make things run slightly quicker, copy the data we will be interpolating over into the temporary arrays
  
negative.code:                ! Check the dimensions used.  The LoadComponents(I) flag will be set to .TRUE. if data was found in the file
              DO I=1,6
                 IF ( p%MnDriftDims(I) .AND. ( .NOT. MnDriftData%Data3D%LoadComponents(I) ) ) &
                    CALL SetErrStat( ErrID_Warn, ' '//TRIM(MnDriftData%Filename)//' does not contain information for the '// &
                          TRIM(Num2LStr(I))//' force component for the MnDrift method.  Setting this component to zero.',    &
                          ErrStat,ErrMsg,'WAMIT2_Init')
              ENDDO
           ELSE IF ( MnDriftData%DataIs4D ) THEN
                 ! Check the dimensions used.  The LoadComponents(I) flag will be set to .TRUE. if data was found in the file
              DO I=1,6
                 IF ( p%MnDriftDims(I) .AND. ( .NOT. MnDriftData%Data4D%LoadComponents(I) )  )&
                    CALL SetErrStat( ErrID_Warn, ' '//TRIM(MnDriftData%Filename)//' does not contain information for the '// &
                          TRIM(Num2LStr(I))//' force component for the MnDrift method.  Setting this component to zero.',    &
                          ErrStat,ErrMsg,'WAMIT2_Init')
              ENDDO
           ELSE  ! We didn't find any data to use...
              CALL SetErrStat( ErrID_Fatal, ' Programming error.  MnDrift flag is set, but no data has been read in.',ErrStat,ErrMsg, 'WAMIT2_Init')
  