anchor.diff:     INTEGER                    :: mode
      
      INTEGER                                   :: ErrStatLcL        ! Error status returned by called routines.
  -   CHARACTER(LEN(ErrMess))                   :: ErrMessLcl          ! Error message returned by called routines.
  +   CHARACTER(ErrMsgLen)                      :: ErrMessLcl          ! Error message returned by called routines.
   
   
   ErrStat = ErrID_None
  
positive.code:    REAL(ReKi)                 :: WindPsi
  
     INTEGER                                   :: ErrStatLcL        ! Error status returned by called routines.
     CHARACTER(LEN(ErrMess))                   :: ErrMessLcl          ! Error message returned by called routines.
     
     
     INTEGER                    :: mode
  
negative.code:    CHARACTER(  3)                         :: Vel_Unit
                                            
     CHARACTER(1),PARAMETER                 :: Delim = ' '  ! bjj: made this a parameter because I don't think tabs work very well in a summary file
     CHARACTER(ErrMsgLen)                   :: ErrMessLcl
  
  
     ErrStat = ErrID_None
  