diff --git a/Inst_eddies/get_var.f90 b/Inst_eddies/get_var.f90 index daec1a71749377924cae6f0a756ef6a920756d54..7dc690b39fabb8e2371499d8b5e11c06c1597733 100644 --- a/Inst_eddies/get_var.f90 +++ b/Inst_eddies/get_var.f90 @@ -17,13 +17,12 @@ contains use netcdf95, only: nf95_inq_varid, nf95_gunp_var 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 - real, intent(out):: values(1 - merge(max_radius(1), 0, periodic):, :) - ! (1 - merge(max_radius(1), 0, periodic):nlon + merge(max_radius(1), - ! 0, periodic), nlat) + real, intent(out):: values(1 - copy_max_radius:, :) + ! (1 - copy_max_radius:nlon + copy_max_radius, nlat) ! ssh, u or v. We cannot place this argument first because the ! declaration references periodic.