anchor.diff:        p_FAST%ModuleInitialized(Module_FEAM) = .TRUE.
            CALL CheckError( ErrStat, 'Message from FEAM_Init: '//NewLine//ErrMsg )
   
  -      CALL SetModuleSubstepTime(Module_FEAM)
  +      CALL SetModuleSubstepTime(Module_FEAM, p_FAST, y_FAST, ErrStat, ErrMsg)
  +         CALL CheckError(ErrStat, ErrMsg)
         
      END IF
   
  
positive.code:       ! Reset each mesh's RemapFlag (after calling all InputSolve routines):
        !.....................................................................              
           
        CALL ResetRemapFlags()         
           
                          
     END SUBROUTINE CalcOutputs_And_SolveForInputs  
  
negative.code:       END IF
              
     END SUBROUTINE WriteOutputToFile      
     !...............................................................................................................................
     SUBROUTINE CalcOutputs_And_SolveForInputs( this_time &
                                              , x_ED_this  , xd_ED_this  , z_ED_this   &
  