From cbb8bfa8b14ea83be1aabb2cd3391df48b6ce962 Mon Sep 17 00:00:00 2001 From: Robert Hallberg Date: Fri, 31 Jan 2025 08:29:35 -0500 Subject: [PATCH] Switched the placeholder element of file_OBC_CS Replaced the unused real tide_flow element of the file_OBC_CS type with the logical OBC_file_used element to more clearly reflect that this placeholder element is only here to avoid having a completely empty type. The actual value of this element is irrelevant, but some compilers require that all Fortran types have at least one element. This change eliminates a meaningless hard-coded real variable with undefined units and a misleading name and replaces it with a logical variable named to reflect its actual purpose. All answers are bitwise identical. --- src/core/MOM_open_boundary.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/core/MOM_open_boundary.F90 b/src/core/MOM_open_boundary.F90 index 797f60bd9b..8a47ea03ce 100644 --- a/src/core/MOM_open_boundary.F90 +++ b/src/core/MOM_open_boundary.F90 @@ -398,7 +398,7 @@ module MOM_open_boundary !> Control structure for open boundaries that read from files. !! Probably lots to update here. type, public :: file_OBC_CS ; private - real :: tide_flow = 3.0e6 !< Placeholder for now..., perhaps in [m3 s-1]? + logical :: OBC_file_used = .false. !< Placeholder for now to avoid an empty type. end type file_OBC_CS !> Type to carry something (what??) for the OBC registry.