From f4a77df39b687d659b9aeafdc9f6398bb160a2ae Mon Sep 17 00:00:00 2001 From: Jesse Lentz Date: Tue, 22 Oct 2024 13:04:49 -0400 Subject: [PATCH] Fix type mismatch error in tracer_manager test --- test_fms/tracer_manager/test_tracer_manager.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/test_fms/tracer_manager/test_tracer_manager.F90 b/test_fms/tracer_manager/test_tracer_manager.F90 index dbab8a5e2e..f8697f7c04 100644 --- 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)