anchor.diff:  
      PRIVATE
   
  -   TYPE(ProgDesc), PARAMETER  :: IceD_Ver = ProgDesc( 'IceDyn', 'v1.01.01-by', '6-Apr-2015' )
  +   TYPE(ProgDesc), PARAMETER  :: IceD_Ver = ProgDesc( 'IceDyn', 'v1.01.01-by', '14-Apr-2015' )
   
      ! ..... Public Subroutines ...................................................................................................
   
  
positive.code: 
        ! local variables
     INTEGER(IntKi)                                 :: I                 ! loop counter
     REAL(ReKi)                                     :: StrRt             ! Strain rate (s^-1)
     REAL(ReKi)                                     :: SigCrp            ! Creep stress (Pa)
        ! Initialize error data
     ErrStat = ErrID_None
     ErrMsg  = ''
  
negative.code:    REAL(ReKi), allocatable                  :: rdmv(:)                      ! Random ice velocity time series (m/s)
     REAL(ReKi), allocatable                  :: rdmte(:)                     ! Random ice loading event time (s)
     REAL(ReKi), allocatable                  :: rdmsig(:)                    ! Random ice strength time series (Pa)
  !   REAL(ReKi), allocatable                  :: rdmTstr(:)                   ! Random ice strength of ice teeth (Pa)
     REAL(ReKi)                               :: t                            ! Time for generating random parameters time series (s)
     REAL(ReKi)                               :: rdmScrp                      ! Random ice creeping strength (MPa)
     INTEGER(IntKi)                           :: Nthmax                       ! Approximate maximum ice teeth number
  