remove unused variable

Author: jedwards4b

share/shr_abort_mod.F90

@@ -44,9 +44,6 @@ subroutine shr_abort_abort(string,rc, line, file)
     integer(shr_kind_in), intent(in), optional :: line
     character(len=*), intent(in), optional :: file
 
-    !----- local -----
-    logical :: flag
-
     ! Local version of the string.
     ! (Gets a default value if string is not present.)
     character(len=shr_kind_cx) :: local_string