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

Use `copy_max_radius` instead of re-computing it

parent 7b8b02e8
No related branches found
No related tags found
No related merge requests found
...@@ -17,13 +17,12 @@ contains ...@@ -17,13 +17,12 @@ contains
use netcdf95, only: nf95_inq_varid, nf95_gunp_var use netcdf95, only: nf95_inq_varid, nf95_gunp_var
use config_m, only: max_radius use config_m, only: max_radius
use read_grid_inst_eddies_m, only: nlon use read_grid_inst_eddies_m, only: nlon, copy_max_radius
logical, intent(in):: periodic ! grid is periodic in longitude logical, intent(in):: periodic ! grid is periodic in longitude
real, intent(out):: values(1 - merge(max_radius(1), 0, periodic):, :) real, intent(out):: values(1 - copy_max_radius:, :)
! (1 - merge(max_radius(1), 0, periodic):nlon + merge(max_radius(1), ! (1 - copy_max_radius:nlon + copy_max_radius, nlat)
! 0, periodic), nlat)
! ssh, u or v. We cannot place this argument first because the ! ssh, u or v. We cannot place this argument first because the
! declaration references periodic. ! declaration references periodic.
......
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