removing unused var in k_module_cali.f90

Author: Yujin Zeng

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/preproc/routing_model/k_module_cali.f90

@@ -28,16 +28,13 @@ subroutine read_usgs_data(file_vel, file_dis, nl, data)
     integer, intent(in)            :: nl
     real, allocatable, intent(out) :: data(:,:)
 
-    character(len=100)             :: var(2)
     character(len=900)             :: filename
     character(len=100)             :: line
     character(len=100)             :: x(100)
 
     integer                        :: i, j, l, io, k
     integer, allocatable           :: nv(:)
 
-    ! Define the variable names for the two data files
-    var = (/ "velocity", "discharge" /)
 
     ! Allocate the data array with nl rows and 2 columns
     allocate(data(nl, 2))