anchor.diff:     CALL SrvD_DestroyInitInput(  InitInData_SrvD, ErrStat, ErrMsg )
      CALL SrvD_DestroyInitOutput( InitOutData_SrvD, ErrStat, ErrMsg )
   
  +
  +   !CALL HD_DestroyInitOutput( InitOutData_HD, ErrStat, ErrMsg )
  +   !
      !...............................................................................................................................
      ! loose coupling
      !...............................................................................................................................
  
positive.code: 
     ! Set up output for glue code (must be done after all modules are initialized so we have their WriteOutput information)
  
     CALL FAST_InitOutput( p_FAST, y_FAST, InitOutData_ED, InitOutData_SrvD, AD_Prog, ErrStat, ErrMsg )
     CALL CheckError( ErrStat, 'Message from FAST_InitOutput: '//NewLine//ErrMsg )
      
     
  
negative.code: 
        CALL HD_Terminate( HydroDyn_data, ErrStat2 )
        IF ( ErrStat2 /= ErrID_None ) CALL WrScr( TRIM(ErrMsg2) )
        
        
        ! in case we didn't get these destroyed earlier....
        
  