fix: type mismatch error in tracer_manager test (#1602)

NOAA-GFDL · Oct 24, 2024 · 7ad9053 · 7ad9053
1 parent 0aa5ee6
commit 7ad9053
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/test_fms/tracer_manager/test_tracer_manager.F90 b/test_fms/tracer_manager/test_tracer_manager.F90
@@ -45,7 +45,8 @@ subroutine test_set_tracer_profile
   integer, parameter :: numlevels=10
   integer, parameter :: npoints=5
 
-  integer :: tracer_index, success, i, j, k
+  integer :: tracer_index, i, j, k
+  logical :: success
   real(TEST_TM_KIND_) :: top_value, bottom_value, surf_value, multiplier
   real(TEST_TM_KIND_) :: tracer_out1(1,1,1), tracer_out2(npoints,npoints,numlevels)
   real(TEST_TM_KIND_) :: answer1(1,1,1), answer2(npoints,npoints,numlevels)