anchor.diff:        p_FAST%ModuleInitialized(Module_IceF) = .TRUE.
            CALL CheckError( ErrStat, 'Message from IceF_Init: '//NewLine//ErrMsg )
   
  -      CALL SetModuleSubstepTime(Module_IceF)
  +      CALL SetModuleSubstepTime(Module_IceF, p_FAST, y_FAST, ErrStat, ErrMsg)
  +         CALL CheckError(ErrStat, ErrMsg)
                           
      ! ........................
      ! initialize IceDyn 
  
positive.code:       p_FAST%ModuleInitialized(Module_MAP) = .TRUE.
           CALL CheckError( ErrStat, 'Message from MAP_Init: '//NewLine//ErrMsg )
  
        CALL SetModuleSubstepTime(Module_MAP)
                     
     ! ........................
     ! initialize FEAM 
  
negative.code:       END IF
              
     END SUBROUTINE WriteOutputToFile      
     !...............................................................................................................................
     SUBROUTINE CalcOutputs_And_SolveForInputs( this_time &
                                              , x_ED_this  , xd_ED_this  , z_ED_this   &
  