diff --git a/Overlap/Tests/save_snapshot.f90 b/Overlap/Tests/save_snapshot.f90 index a054520d1c451ae92b5a60be871f99225e49baac..ffd8f7bb3d3f0f50a69c287d68b45ec0e793ee62 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, uniform_lon_lat + use read_grid_m, only: corner, step, nlon, nlat 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 = .not. uniform_lon_lat) + slice = 0, with_proj = .true.) call shpc_create(hshpc_anti, shpc_dir = "SHPC", cyclone = .false., & - slice = 0, with_proj = .not. uniform_lon_lat) + slice = 0, with_proj = .true.) call write_snapshot(s%list, hshpc_cyclo, hshpc_anti, d) CALL shpc_close(hshpc_cyclo) CALL shpc_close(hshpc_anti)