Merge f8d215a into b075794

NOAA-GFDL · Jun 12, 2023 · b4f1f0a · b4f1f0a
2 parents b075794 + f8d215a
commit b4f1f0a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/config_src/infra/FMS2/MOM_io_infra.F90 b/config_src/infra/FMS2/MOM_io_infra.F90
@@ -1524,9 +1524,9 @@ subroutine categorize_axes(fileObj, filename, ndims, dim_names, is_x, is_y, is_t
       if (variable_exists(fileobj, trim(dim_names(i)))) then
         cartesian = ""
         if (variable_att_exists(fileobj, trim(dim_names(i)), "cartesian_axis")) then
-          call get_variable_attribute(fileobj, trim(dim_names(i)), "cartesian_axis", cartesian)
+          call get_variable_attribute(fileobj, trim(dim_names(i)), "cartesian_axis", cartesian(1:1))
         elseif (variable_att_exists(fileobj, trim(dim_names(i)), "axis")) then
-          call get_variable_attribute(fileobj, trim(dim_names(i)), "axis", cartesian)
+          call get_variable_attribute(fileobj, trim(dim_names(i)), "axis", cartesian(1:1))
         endif
         cartesian = adjustl(cartesian)
         if ((index(cartesian, "X") == 1) .or. (index(cartesian, "x") == 1)) is_x(i) = .true.