Removed unused variables.

Fixes ufs-community#736.
GeorgeGayno-NOAA · Dec 14, 2022 · 5e5f3ff · 5e5f3ff
1 parent 814332c
commit 5e5f3ff
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sorc/chgres_cube.fd/input_data.F90 b/sorc/chgres_cube.fd/input_data.F90
@@ -7549,7 +7549,7 @@ SUBROUTINE DINT2P(PPIN,XXIN,NPIN,PPOUT,XXOUT,NPOUT   &
       real*8 POUT(NPOUT),XOUT(NPOUT)
 
 ! local
-      INTEGER J1,NP,NL,NIN,NLMAX,NPLVL,NLSAVE,NP1,NO1,N1,N2,LOGLIN,   &
+      INTEGER NP,NL,NLMAX,NLSAVE,NP1,NO1,N1,N2,LOGLIN,   &
              NLSTRT
       real*8 SLOPE,PA,PB,PC