From 0fdc5c43816c716509a97b2ecaa9506375fffcca Mon Sep 17 00:00:00 2001 From: Robert Hallberg Date: Thu, 18 Mar 2021 18:27:08 -0400 Subject: [PATCH] Correct warnings from categorize_axis Corrected the logic of a warning message in categorize_axis by adding parentheses. All answers are bitwise identical, and spurious warnings are no longer being issued. --- config_src/infra/FMS2/MOM_read_data_fms2.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/config_src/infra/FMS2/MOM_read_data_fms2.F90 b/config_src/infra/FMS2/MOM_read_data_fms2.F90 index 83a10e7e30..4732c019f4 100644 --- a/config_src/infra/FMS2/MOM_read_data_fms2.F90 +++ b/config_src/infra/FMS2/MOM_read_data_fms2.F90 @@ -233,7 +233,7 @@ subroutine categorize_axes(fileObj, filename, ndims, dim_names, is_x, is_y, is_t endif ; enddo endif - if (.not.(x_found .and. y_found) .and. (ndims>2) .or. ((ndims==2) .and. .not.is_t(ndims))) then + if (.not.(x_found .and. y_found) .and. ((ndims>2) .or. ((ndims==2) .and. .not.is_t(ndims)))) then ! This is a case where one would expect to find x-and y-dimensions, but none have been found. if (is_root_pe()) then dim_list = trim(dim_names(1))//", "//trim(dim_names(2))