Rename variable `hshp_cont_list` to hshp

Inst_eddies/Tests/test_get_1_outerm.f90

@@ -68,7 +68,7 @@ program test_get_1_outerm
   ! specified.
 
   integer n_cont ! number of good contours found and stored in cont_list
-  TYPE(shpfileobject) hshp_cont_list
+  TYPE(shpfileobject) hshp
   namelist /main_nml/ ind_targ_extr, innermost_level, cyclone, date, &
        grid_lon_lat
   logical exist
@@ -110,18 +110,18 @@ program test_get_1_outerm
 
      ! cont_list shapefile:
 
-     call shp_create_03("cont_list", shpt_polygon, hshp_cont_list)
-     call dbf_add_field_03(ifield, hshp_cont_list, 'ssh', ftdouble, &
+     call shp_create_03("cont_list", shpt_polygon, hshp)
+     call dbf_add_field_03(ifield, hshp, 'ssh', ftdouble, &
           nwidth = 13, ndecimals = 6)
 
      do i = 1, n_cont
-        call shp_append_object_03(ishape, hshp_cont_list, shpt_polygon, &
+        call shp_append_object_03(ishape, hshp, shpt_polygon, &
              cont_list(i)%points * rad_to_deg)
-        call dbf_write_attribute_03(hshp_cont_list, ishape, ifield, &
+        call dbf_write_attribute_03(hshp, ishape, ifield, &
              cont_list_proj(i)%ssh)
      end do
 
-     CALL shpclose(hshp_cont_list)
+     CALL shpclose(hshp)
      print *, 'test_get_1_outerm: Created shapefile "cont_list".'
   else
      print *, "test_get_1_outerm: Could not find an outermost contour."