Skip to content

Commit

Permalink
Correct warnings from categorize_axis
Browse files Browse the repository at this point in the history
 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.
  • Loading branch information
Hallberg-NOAA committed Mar 18, 2021
1 parent f89ddea commit 0fdc5c4
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion config_src/infra/FMS2/MOM_read_data_fms2.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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))
Expand Down

0 comments on commit 0fdc5c4

Please sign in to comment.