From c6f280e3c621d8b26257401153cd99b4d313a844 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ipsl.fr>
Date: Tue, 2 Jul 2024 16:33:38 +0200
Subject: [PATCH] Rename variable `hshp_cont_list` to hshp
---
Inst_eddies/Tests/test_get_1_outerm.f90 | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/Inst_eddies/Tests/test_get_1_outerm.f90 b/Inst_eddies/Tests/test_get_1_outerm.f90
index 9d285dfd..7d053c3c 100644
--- a/Inst_eddies/Tests/test_get_1_outerm.f90
+++ b/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."
--
GitLab