anchor.diff:           
            ! note: MAP_InputSolve must be called before setting ED loads inputs (so that motions are known for loads [moment] mapping)      
            CALL MAP_InputSolve( u_map, y_ED2, MeshMapData, ErrStat2, ErrMsg2 )
  -            CALL CheckError(ErrStat2,ErrMsg2)
  -            IF (ErrStat >= AbortErrLev) RETURN       
  +            CALL SetErrStat(ErrStat2,ErrMsg2, ErrStat, ErrMsg, RoutineName)
                                    
         ELSEIF ( p_FAST%CompMooring == Module_FEAM ) THEN
            
            ! note: FEAM_InputSolve must be called before setting ED loads inputs (so that motions are known for loads [moment] mapping)      
            CALL FEAM_InputSolve( u_FEAM, y_ED2, MeshMapData, ErrStat2, ErrMsg2 )
  -            CALL CheckError(ErrStat2,ErrMsg2)
  -            IF (ErrStat >= AbortErrLev) RETURN       
  +            CALL SetErrStat(ErrStat2,ErrMsg2, ErrStat, ErrMsg, RoutineName)       
                           
         END IF     
      
  
positive.code:    ! Check to see if we should output data this time step:
     !----------------------------------------------------------------------------------------
  
     CALL WriteOutputToFile(m_FAST%t_global, p_FAST, y_FAST, ED, AD, IfW, HD, SD, SrvD, MAPp, FEAM, IceF, IceD, ErrStat, ErrMsg)
        
     !----------------------------------------------------------------------------------------
     ! Display simulation status every SttsTime-seconds (i.e., n_SttsTime steps):
     !----------------------------------------------------------------------------------------   
  
negative.code:             ! Loads (outputs) from HD meshes transfered to SD LMesh (zero them out first because they get summed in Transfer_HD_to_SD)
           
              CALL Transfer_HD_to_SD( MeshMapData%u_SD_LMesh_2, MeshMapData%u_SD_LMesh, y_SD2%Y2Mesh, y_HD2, MeshMapData%u_HD_M_LumpedMesh, MeshMapData%u_HD_M_DistribMesh, MeshMapData, ErrStat2, ErrMsg2 )
                 CALL SetErrStat(ErrStat2,ErrMsg2, ErrStat, ErrMsg, RoutineName)               
           
  
              IF ( p_FAST%CompIce == Module_IceF ) THEN
  