anchor.diff:     INTEGER(IntKi)                               :: K           ! Loops through blades
      INTEGER(IntKi)                               :: NodeNum     ! Node number for blade/node on mesh
      INTEGER(IntKi)                               :: NumBl
  -   INTEGER(IntKi)                               :: NNodes
      INTEGER(IntKi)                               :: node
      INTEGER(IntKi)                               :: ErrStat2
      CHARACTER(ErrMsgLen)                         :: ErrMsg2 
  
positive.code:       
        InitInData_BD%RootName     = p_FAST%OutFileRoot     
        InitInData_BD%gravity      = (/ 0.0_ReKi, 0.0_ReKi, -InitOutData_ED%Gravity /)       ! "Gravitational acceleration" m/s^2
                       
           ! now initialize IceD for additional legs (if necessary)
        dt_BD = p_FAST%dt_module( MODULE_BD )
                          
  
negative.code:       ! blades
     IF (p_FAST%CompElast == Module_ED ) THEN
        
  !debug_print2 = .true.
        DO k=1,size(y_ED%BladeLn2Mesh)
           CALL Transfer_Line2_to_Line2( y_ED%BladeLn2Mesh(k), u_AD%BladeMotion(k), MeshMapData%ED_L_2_AD_L_B(k), ErrStat2, ErrMsg2 )
              CALL SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName//':u_AD%BladeMotion('//trim(num2lstr(k))//')' )   
  !debug_print2 = .false.            
        END DO
        
     ELSEIF (p_FAST%CompElast == Module_BD ) THEN
  