fix: type mismatch error in coupler test (#1599)

NOAA-GFDL · Oct 24, 2024 · 45a275e · 45a275e
1 parent 5e3ba23
commit 45a275e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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 ***"