From 2833aeb03b4f1789e8a8d092ab7de4989e48cb58 Mon Sep 17 00:00:00 2001 From: ezhilsabareesh8 Date: Tue, 5 Nov 2024 14:25:11 +1100 Subject: [PATCH] Swap nx and ny at inquire dimension --- src/topography.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/topography.f90 b/src/topography.f90 index 76a08b6..82db473 100644 --- a/src/topography.f90 +++ b/src/topography.f90 @@ -481,8 +481,8 @@ subroutine topography_min_dy(this, hgrid, cutoff) call handle_error(nf90_open(trim(hgrid), nf90_nowrite, ncid_hgrid)) call handle_error(nf90_inq_varid(ncid_hgrid, 'dy', dy_id)) call handle_error(nf90_inquire_variable(ncid_hgrid, dy_id, dimids=dids_dy)) - call handle_error(nf90_inquire_dimension(ncid_hgrid, dids_dy(1), len=ny_len)) - call handle_error(nf90_inquire_dimension(ncid_hgrid, dids_dy(2), len=nxp_len)) + call handle_error(nf90_inquire_dimension(ncid_hgrid, dids_dy(1), len=nxp_len)) + call handle_error(nf90_inquire_dimension(ncid_hgrid, dids_dy(2), len=ny_len)) ! Allocate memory for dy based on its dimensions allocate(dy(nxp_len, ny_len))