Skip to content

Commit

Permalink
fix array sizes so test passes with intel
Browse files Browse the repository at this point in the history
  • Loading branch information
rem1776 authored and rem1776 committed Aug 28, 2024
1 parent a1b3d74 commit a94b140
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions test_fms/horiz_interp/test_horiz_interp.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1101,8 +1101,8 @@ subroutine test_assignment()
call horiz_interp_del(Interp_cp)
! test deletion after direct calls
! this set up is usually done within horiz_interp_new
nlon_in = size(lon_in_1d(:)); nlat_in = size(lat_in_1d(:))
nlon_out = size(lon_out_1d(:)); nlat_out = size(lat_out_1d(:))
nlon_in = size(lon_in_1d(:))-1; nlat_in = size(lat_in_1d(:))-1
nlon_out = size(lon_out_1d(:))-1; nlat_out = size(lat_out_1d(:))-1
allocate(lon_src_1d(nlon_in), lat_src_1d(nlat_in))
allocate(lon_dst_1d(nlon_out), lat_dst_1d(nlat_out))
do i = 1, nlon_in-1
Expand Down

0 comments on commit a94b140

Please sign in to comment.