From 7ced1d3b0ed8abcd864cb4d9c04d9cb5764c3a55 Mon Sep 17 00:00:00 2001
From: Jim Edwards <jedwards@ucar.edu>
Date: Tue, 10 Dec 2024 09:57:23 -0700
Subject: [PATCH] another unused variable

---
 mediator/med.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mediator/med.F90 b/mediator/med.F90
index aa4438f9..2632c502 100644
--- a/mediator/med.F90
+++ b/mediator/med.F90
@@ -2603,7 +2603,7 @@ subroutine med_dststatus_write (gcomp, rc)
     type(ESMF_Array)     :: maskarray
     integer(I4), pointer :: meshmask(:)
     real(R8), pointer    :: r8ptr(:)
-    integer              :: m,n1,n2
+    integer              :: m,n2
     character(CL)        :: case_name, dststatusfile
     logical              :: elementMaskIsPresent
     logical              :: whead(2) = (/.true. , .false./)