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

Test `uniform_lon_lat`

Rather than the value of `s%list(1)%extr%coord_proj(1)`.
parent 24c9eac0
No related branches found
No related tags found
No related merge requests found
...@@ -12,7 +12,7 @@ contains ...@@ -12,7 +12,7 @@ contains
use derived_types, only: snapshot, eddy, shpc_slice_handler, shpc_slice_meta use derived_types, only: snapshot, eddy, shpc_slice_handler, shpc_slice_meta
use read_eddy_m, only: read_eddy use read_eddy_m, only: read_eddy
use read_grid_m, only: nlon, nlat, corner, step use read_grid_m, only: nlon, nlat, corner, step, uniform_lon_lat
type(snapshot), intent(out):: s type(snapshot), intent(out):: s
! completely defined except s%list%innermost_level ! completely defined except s%list%innermost_level
...@@ -65,11 +65,9 @@ contains ...@@ -65,11 +65,9 @@ contains
! If coord_proj for all eddies were not read from a shapefile then ! If coord_proj for all eddies were not read from a shapefile then
! we define them here: ! we define them here:
if (s%number_extr /= 0) then if (s%number_extr /= 0 .and. uniform_lon_lat) &
if (s%list(1)%extr%coord_proj(1) == huge(0)) & forall (eddy_i = 1:s%number_extr) s%list(eddy_i)%extr%coord_proj &
forall (eddy_i = 1:s%number_extr) s%list(eddy_i)%extr%coord_proj & = nint((s%list(eddy_i)%extr%coord - corner) / step + 1.)
= nint((s%list(eddy_i)%extr%coord - corner) / step + 1.)
end if
! Define s%extr_map from s%list%extr%coord_proj: ! Define s%extr_map from s%list%extr%coord_proj:
......
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