From d9bdbc3431abdc2fe36d75071fd9ef0ec43c2a06 Mon Sep 17 00:00:00 2001
From: Keith Lindsay <klindsay@ucar.edu>
Date: Fri, 9 Jul 2021 12:45:06 -0600
Subject: [PATCH] fix dim_names assignment in MOM_io:read_var_sizes

fixes #1439
---
 src/framework/MOM_io.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/framework/MOM_io.F90 b/src/framework/MOM_io.F90
index 3ad2c92f41..f8cfb09382 100644
--- a/src/framework/MOM_io.F90
+++ b/src/framework/MOM_io.F90
@@ -714,7 +714,7 @@ subroutine read_var_sizes(filename, varname, ndims, sizes, match_case, caller, d
     if (status /= NF90_NOERR) call MOM_error(WARNING, trim(hdr) // trim(NF90_STRERROR(status)) //&
         " Getting dimension length for "//trim(varname)//" in "//trim(filename))
     if (present(dim_names)) then
-      if (n <= size(dim_names)) dim_names = trim(dimname)
+      if (n <= size(dim_names)) dim_names(n) = trim(dimname)
     endif
   enddo
   deallocate(dimids)