anchor.diff:        WRITE (y_FAST%UnSum, Fmt ) "FAST output files", p_FAST%DT_out, NINT( p_FAST%DT_out / p_FAST%DT ),"^-1"
      END IF
   
  -   IF (p_FAST%WrVTK /= VTK_None) THEN
  -      
  -      TmpRate = p_FAST%DT_out*p_FAST%n_VTKTime
  +   IF (p_FAST%WrVTK == VTK_Animate) THEN
  +      
  +      TmpRate = p_FAST%DT*p_FAST%n_VTKTime
         
         IF ( p_FAST%n_VTKTime == 1_IntKi ) THEN
  -         WRITE (y_FAST%UnSum, Fmt ) "VTK output files ", p_FAST%DT_out, 1_IntKi   ! we'll write "1" instead of "1^-1"
  +         WRITE (y_FAST%UnSum, Fmt ) "VTK output files ", p_FAST%DT, 1_IntKi   ! we'll write "1" instead of "1^-1"
         ELSE
            WRITE (y_FAST%UnSum, Fmt ) "VTK output files ", TmpRate, p_FAST%n_VTKTime,"^-1"
         END IF
  
positive.code:    DO i_turb = 1,NumTurbines
        CALL FAST_CreateCheckpoint_T(t_initial, n_t_global, NumTurbines, Turbine(i_turb), CheckpointRoot, ErrStat2, ErrMsg2, Unit )
           CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
           IF (ErrStat >= AbortErrLev ) RETURN
     END DO
                 
     
  
negative.code:       CALL GetNewUnit( unOut, ErrStat2, ErrMsg2 )      
        CALL OpenBOutFile ( unOut, FileName, ErrStat2, ErrMsg2)
           CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
           if (ErrStat >= AbortErrLev ) then
              call cleanup()
              IF (.NOT. PRESENT(Unit)) THEN
                 CLOSE(unOut)
                 unOut = -1
              END IF
                          
              RETURN
           end if
    
           ! checkpoint file header:
        WRITE (unOut, IOSTAT=ErrStat2)   INT(ReKi              ,B4Ki)     ! let's make sure we've got the correct number of bytes for reals on restart.
  