anchor.diff:  CHARACTER(1024)              :: LINE
   
      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.
   
   
   
  
positive.code: !   INTEGER                          :: Sttus
  
  !   INTEGER                          :: TmpErrStat
  !   CHARACTER(LEN(ErrMsg))           :: TmpErrMsg
  
  
     ErrStat = ErrID_None
  
negative.code:    REAL(ReKi)                 :: WindPsi
  
     INTEGER                                   :: ErrStatLcL        ! Error status returned by called routines.
     CHARACTER(ErrMsgLen)                      :: ErrMessLcl          ! Error message returned by called routines.
     
     
     INTEGER                    :: mode
  