Removed unused variables

Author: zbeekman

src/json_example.f90

@@ -333,7 +333,6 @@ subroutine add_variables_to_input(me, variable, units, frame, center, rdata)
     real(wp),dimension(:),intent(in) :: rdata
 
     type(json_value),pointer :: var        !a variable in the trajectory:
-    integer :: i
 
     !initialize:
     nullify(var)
@@ -617,4 +616,4 @@ end subroutine print_error_message
 
 !*******************************************************************************************************
     end program json_test
-!*******************************************************************************************************
+!*******************************************************************************************************

src/json_module.f90

@@ -2577,7 +2577,6 @@ subroutine json_get_chars(this, path, value, found)
 
     type(json_value), pointer :: p
     character(len=:),allocatable :: s,pre,post
-    integer :: irep
     integer :: j,jprev,n
     character(len=1) :: c
 
@@ -2856,7 +2855,6 @@ subroutine json_parse(file, p)
     character(len=*),intent(in) :: file
     type(json_value),pointer    :: p
 
-    logical :: unit_available
     integer :: iunit
     integer :: istat