Swap nx and ny at inquire dimension

COSIMA · Nov 5, 2024 · 2833aeb · 2833aeb
1 parent a33cbb4
commit 2833aeb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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))