From 9ac68fb19f8aa9a871e35e11cde12e791b58aa7c Mon Sep 17 00:00:00 2001 From: Matthew Thompson Date: Mon, 29 Nov 2021 14:08:50 -0500 Subject: [PATCH] Add missing parentheses that matter to GNU --- .../GEOS_RadiationShared/cloud_condensate_inhomogeneity.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/cloud_condensate_inhomogeneity.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/cloud_condensate_inhomogeneity.F90 index bbaba44db..785536570 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/cloud_condensate_inhomogeneity.F90 +++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/cloud_condensate_inhomogeneity.F90 @@ -68,7 +68,7 @@ subroutine release_inhomogeneity inhm = 0 end subroutine release_inhomogeneity - function condensate_inhomogeneous result (inhomo) + function condensate_inhomogeneous() result (inhomo) logical :: inhomo if (.not. initialized) then write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__