anchor.diff:     CHARACTER(*),                 INTENT(OUT)    :: ErrMsg            ! Error message   
   
         ! local variables
  -   INTEGER(IntKi)                               :: I                 ! loop counter
  +!   INTEGER(IntKi)                               :: I                 ! loop counter
      REAL(ReKi)                                   :: SigLogh           ! sigma_log(h), standard deviation of log(h)
      REAL(ReKi)                                   :: MiuLogh           ! miu_log(h), mean value of log(h)
      REAL(ReKi)                                   :: VelSig            ! parameter for a Rayleigh distribution
  
positive.code: 
     PRIVATE
  
     TYPE(ProgDesc), PARAMETER  :: IceD_Ver = ProgDesc( 'IceDyn', 'v1.01.01-by', '6-Apr-2015' )
  
     ! ..... Public Subroutines ...................................................................................................
  
  
negative.code:       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)
        
        INTEGER(IntKi)                                    :: nt            ! Current time step
        INTEGER(IntKi)                                    :: Nc            ! Current ice tooth number
  