anchor.diff:        INTEGER(IntKi)                                    :: I             ! Loop count
         REAL(ReKi)                                        :: Del2          ! Deflection of the current ice tooth, for model 2,3
         REAL(ReKi)                                        :: Del(p%Zn)     ! Deflection of ice tooth in each zone, for model 4
  -      REAL(ReKi)                                        :: StrRt         ! Strain rate (s^-1)
  -      REAL(ReKi)                                        :: SigCrp        ! Creep stress (Pa)
  +!      REAL(ReKi)                                        :: StrRt         ! Strain rate (s^-1)
  +!      REAL(ReKi)                                        :: SigCrp        ! Creep stress (Pa)
         
         INTEGER(IntKi)                                    :: nt            ! Current time step
         INTEGER(IntKi)                                    :: Nc            ! Current ice tooth number
  
positive.code: 
     PRIVATE
  
     TYPE(ProgDesc), PARAMETER  :: IceD_Ver = ProgDesc( 'IceDyn', 'v1.01.01-by', '6-Apr-2015' )
  
     ! ..... Public Subroutines ...................................................................................................
  
  
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
  