anchor.diff:     
      NumBl = SIZE(ED%Output(1)%BladeRootMotion,1) 
      
  -   p_FAST%VTK_Surface%NumSectors = 18   
  +   p_FAST%VTK_Surface%NumSectors = 25   
      p_FAST%VTK_Surface%HubRad     = InitOutData_ED%HubRad
   
      ! NOTE: we set p_FAST%VTK_Surface%GroundRad in SetVTKParameters_B4HD
  
positive.code:                                           
     INTEGER(IntKi)                          :: ErrStat2            ! Error status
     CHARACTER(1024)                         :: ErrMsg2             ! Error message
     CHARACTER(1224)                         :: SimMsg              ! optional message to print about where the error took place in the simulation
     
     CHARACTER(*), PARAMETER                 :: RoutineName = 'ExitThisProgram'       
     CHARACTER( LEN(p_FAST%OutFileRoot) )    :: TmpOutFileRoot
  
negative.code: END SUBROUTINE WriteOutputToFile     
  !----------------------------------------------------------------------------------------------------------------------------------
  !> This routine writes the module output to the primary output file(s).
  SUBROUTINE WrOutputLine( t, p_FAST, y_FAST, IfWOutput, OpFMOutput, EDOutput, ADOutput, SrvDOutput, HDOutput, SDOutput, MAPOutput, FEAMOutput, &
                          MDOutput, OrcaOutput, IceFOutput, y_IceD, y_BD, ErrStat, ErrMsg)
  
     IMPLICIT                        NONE
     
  