diff --git a/Inst_eddies/Tests/examine_eddy.f90 b/Inst_eddies/Tests/examine_eddy.f90
index 08e469a457020706f72fb6396a12c57b2738804e..526a29096852d1ca033eb44d8c9c34d623560f99 100644
--- a/Inst_eddies/Tests/examine_eddy.f90
+++ b/Inst_eddies/Tests/examine_eddy.f90
@@ -218,7 +218,7 @@ program examine_eddy
outside_points)
call close_cont_list
call shpc_create(hshpc, shpc_dir = "SHPC", cyclone = cyclone, slice = 0, &
- with_proj = .false.)
+ with_proj = .not. uniform_lon_lat)
call write_eddy(e, hshpc, date, 1)
write(hshpc%unit, fmt = *) 0
CALL shpc_close(hshpc)
diff --git a/Inst_eddies/Tests/short_tests.json b/Inst_eddies/Tests/short_tests.json
index 21e1258dadba898a93167c9345b6f28b2c290bbc..756ac6d653720dbc3663308b5caae6f9d2893fe7 100644
--- a/Inst_eddies/Tests/short_tests.json
+++ b/Inst_eddies/Tests/short_tests.json
@@ -360,7 +360,7 @@
"Extr_proj": {
"description": "Create shapefile extr_proj.",
"input":
- "&main_nml date = 20454, grid_lon_lat = f/\n&config_nml /\n&input_ssh_nml /\n",
+ "&main_nml date = 20454/\n&config_nml /\n&input_ssh_nml uniform_lon_lat=f/\n",
"symlink":
["$tests_old_dir/Region_1_20454_cyclone_3/outside_points.csv"],
"commands": [
diff --git a/Inst_eddies/Tests/test_get_1_outerm.f90 b/Inst_eddies/Tests/test_get_1_outerm.f90
index fae7918b62f2fc2d29a1c7dcaa587c5ec45e7eaf..64151470620849d9a81904f4826124898dd694cc 100644
--- a/Inst_eddies/Tests/test_get_1_outerm.f90
+++ b/Inst_eddies/Tests/test_get_1_outerm.f90
@@ -16,7 +16,7 @@ program test_get_1_outerm
use derived_types, only: eddy, shpc_slice_handler, null_ssh_contour, &
missing_speed, ssh_contour
use get_1_outerm_m, only: get_1_outerm
- use input_ssh_m, only: input_ssh, corner_whole, step
+ use input_ssh_m, only: input_ssh, corner_whole, step, uniform_lon_lat
use shpc_close_m, only: shpc_close
use shpc_create_m, only: shpc_create
use write_eddy_m, only: write_eddy
@@ -48,7 +48,6 @@ program test_get_1_outerm
! coordinates in projection space of all the significant extrema,
! except the target extremum
- logical:: grid_lon_lat = .true.
integer, parameter:: n_max_cont = 31
type(polyline) cont_list(n_max_cont)
@@ -71,8 +70,7 @@ program test_get_1_outerm
real cont_list_ssh(n_max_cont)
integer n_cont ! number of good contours found and stored in cont_list
TYPE(shpfileobject) hshp
- namelist /main_nml/ ind_targ_extr, innermost_level, cyclone, date, &
- grid_lon_lat
+ namelist /main_nml/ ind_targ_extr, innermost_level, cyclone, date
logical exist
character(len = :), allocatable:: ssh_fname, uv_fname ! file names
@@ -108,7 +106,7 @@ program test_get_1_outerm
e%speed_cont = null_ssh_contour()
e%max_speed = missing_speed
call shpc_create(hshpc, shpc_dir = "SHPC", cyclone = cyclone, slice = 0, &
- with_proj = .not. grid_lon_lat)
+ with_proj = .not. uniform_lon_lat)
call write_eddy(e, hshpc, date, i = 1)
write(hshpc%unit, fmt = *) 0
CALL shpc_close(hshpc)
diff --git a/Inst_eddies/Tests/test_set_max_speed.f90 b/Inst_eddies/Tests/test_set_max_speed.f90
index 9ad94f8843f7507f01e123e6bc96a28dca90da32..b3512d21c604de77616326b592224ee44e7cdcc5 100644
--- a/Inst_eddies/Tests/test_set_max_speed.f90
+++ b/Inst_eddies/Tests/test_set_max_speed.f90
@@ -137,7 +137,7 @@ program test_set_max_speed
v(llc(1):urc(1), llc(2):urc(2)), real(llc))
call close_cont_list
call shpc_create(hshpc, shpc_dir = "SHPC", cyclone = cyclone, slice = 0, &
- with_proj = .false.)
+ with_proj = .not. uniform_lon_lat)
call write_eddy(e, hshpc, d, eddy_index)
write(hshpc%unit, fmt = *) 0
CALL shpc_close(hshpc)
diff --git a/Inst_eddies/inst_eddies.f90 b/Inst_eddies/inst_eddies.f90
index dffcf5f2be070db24f29b538921a209f0fdf1c59..747790a30ce45ddd5b95aab8ba1aaf6d4ba83051 100644
--- a/Inst_eddies/inst_eddies.f90
+++ b/Inst_eddies/inst_eddies.f90
@@ -137,9 +137,9 @@ program inst_eddies
else
print *, "inst_eddies: Opening failed so we will create a slice..."
call shpc_create(hshpc_cyclo, shpc_dir, cyclone = .true., slice = slice, &
- with_proj = .false.)
+ with_proj = .not. uniform_lon_lat)
call shpc_create(hshpc_anti, shpc_dir, cyclone = .false., slice = slice, &
- with_proj = .false.)
+ with_proj = .not. uniform_lon_lat)
end if
call cpu_time(t1)
diff --git a/Overlap/Tests/save_snapshot.f90 b/Overlap/Tests/save_snapshot.f90
index 17be84b86cf7d94b64821eb64da424c84f5a8fe8..a054520d1c451ae92b5a60be871f99225e49baac 100644
--- a/Overlap/Tests/save_snapshot.f90
+++ b/Overlap/Tests/save_snapshot.f90
@@ -9,7 +9,7 @@ contains
! Libraries:
use jumble, only: arth, rad_to_deg
- use read_grid_m, only: corner, step, nlon, nlat
+ use read_grid_m, only: corner, step, nlon, nlat, uniform_lon_lat
use derived_types, only: snapshot, shpc_slice_handler
use shpc_close_m, only: shpc_close
use shpc_create_m, only: shpc_create
@@ -26,9 +26,9 @@ contains
!-----------------------------------------------------------------
call shpc_create(hshpc_cyclo, shpc_dir = "SHPC", cyclone = .true., &
- slice = 0, with_proj = .false.)
+ slice = 0, with_proj = .not. uniform_lon_lat)
call shpc_create(hshpc_anti, shpc_dir = "SHPC", cyclone = .false., &
- slice = 0, with_proj = .false.)
+ slice = 0, with_proj = .not. uniform_lon_lat)
call write_snapshot(s%list, hshpc_cyclo, hshpc_anti, d)
CALL shpc_close(hshpc_cyclo)
CALL shpc_close(hshpc_anti)
diff --git a/Overlap/Tests/short_tests.json b/Overlap/Tests/short_tests.json
index 31c037043e2a2382b82b1ce79a4c5e31b4d799ad..8c8efdd219e1382cc679bdfb101fe75af44d0b01 100644
--- a/Overlap/Tests/short_tests.json
+++ b/Overlap/Tests/short_tests.json
@@ -577,6 +577,6 @@
"$tests_old_dir/Extr_proj/SHPC"
]
],
- "input": "&main_nml cyclone = t, grid_lon_lat = f/\n"
+ "input": "&main_nml cyclone = t/\n"
}
}
diff --git a/Overlap/Tests/test_read_eddy.f90 b/Overlap/Tests/test_read_eddy.f90
index 19f5fac7b2894fe29a885dd5b4d9886206a3cd85..538984a77490aff4f0a563dd5ae0884d8ed86472 100644
--- a/Overlap/Tests/test_read_eddy.f90
+++ b/Overlap/Tests/test_read_eddy.f90
@@ -18,8 +18,8 @@ program test_read_eddy
integer:: ishape = 0
TYPE(shpc_slice_handler) hshp_in, hshp_out
character(len = :), allocatable:: shpc_dir
- logical:: cyclone = .false., grid_lon_lat = .true.
- namelist /main_nml/ ishape, cyclone, grid_lon_lat
+ logical:: cyclone = .false.
+ namelist /main_nml/ ishape, cyclone
!-------------------------------------------------------------------------
@@ -31,7 +31,7 @@ program test_read_eddy
with_proj = .not. uniform_lon_lat, pszaccess = "rb")
call read_eddy(e, k, eddy_i, hshp_in, ishape)
call shpc_create(hshp_out, shpc_dir = "SHPC", cyclone = hshp_in%cyclone, &
- slice = 0, with_proj = .not. grid_lon_lat)
+ slice = 0, with_proj = .not. uniform_lon_lat)
CALL shpc_close(hshp_in)
call write_eddy(e, hshp_out, k, eddy_i)
write(hshp_out%unit, fmt = *) 0