Skip to content
Snippets Groups Projects
Commit 4b640737 authored by GUEZ Lionel's avatar GUEZ Lionel
Browse files

Always write shapefile `extr_proj`

Always write shapefile `extr_proj` in procedure
`save_snapshot`. `save_snapshot` is only used in tests. In these
tests, `read_snapshot` is called so `extr_proj` is computed. We want
to check as much as possible with `save_snapshot`.
parent f7f59733
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment