From 45a275e88fa2f2d37f6c3141ae42afd94198a1bd Mon Sep 17 00:00:00 2001
From: Jesse Lentz <42011922+J-Lentz@users.noreply.github.com>
Date: Thu, 24 Oct 2024 11:06:37 -0400
Subject: [PATCH] fix: type mismatch error in coupler test (#1599)

---
 test_fms/coupler/test_atmos_ocean_fluxes.F90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/test_fms/coupler/test_atmos_ocean_fluxes.F90 b/test_fms/coupler/test_atmos_ocean_fluxes.F90
index 742ac4c50..7eb50880d 100644
--- a/test_fms/coupler/test_atmos_ocean_fluxes.F90
+++ b/test_fms/coupler/test_atmos_ocean_fluxes.F90
@@ -106,7 +106,8 @@ subroutine test_aof_set_coupler_flux
 
     character(100) :: cresults, thelist
     real(FMS_CP_TEST_KIND_) :: rresults, rresults2(num_bcs)
-    integer :: i, success, n
+    integer :: i, n
+    logical :: success
 
     write(*,*) "*** TEST_AOF_SET_COUPLER_FLUX ***"