diff --git a/src/gsi/gsi_rfv3io_mod.f90 b/src/gsi/gsi_rfv3io_mod.f90
index 27efb265ca..eb7a86160f 100644
--- a/src/gsi/gsi_rfv3io_mod.f90
+++ b/src/gsi/gsi_rfv3io_mod.f90
@@ -891,7 +891,7 @@ subroutine read_fv3_netcdf_guess(fv3filenamegin)
     integer(i_kind),dimension(:,:),allocatable:: uvlnames
     integer(i_kind):: inner_vars,numfields
     integer(i_kind):: ndynvario2d,ntracerio2d,ilev,jdynvar,jtracer
-    integer(r_kind):: iuv,ndynvario3d,ntracerio3d
+    integer(i_kind):: iuv,ndynvario3d,ntracerio3d
     integer(i_kind):: ntracerchemio3d,ntracersmokeio3d
     integer(i_kind):: loc_id,ncfmt
 
diff --git a/src/gsi/intpm2_5.f90 b/src/gsi/intpm2_5.f90
index d1f3b87c62..42c05ad3ff 100644
--- a/src/gsi/intpm2_5.f90
+++ b/src/gsi/intpm2_5.f90
@@ -90,7 +90,6 @@ subroutine intpm2_5_(pm2_5head,rval,sval)
 ! declare local variables  
     integer(i_kind) j1,j2,j3,j4,j5,j6,j7,j8,ier,istatus
     real(r_kind) w1,w2,w3,w4,w5,w6,w7,w8
-! real(r_kind) penalty
     real(r_kind) cg_pm2_5,val,p0,grad,wnotgross,wgross,pm2_5_pg
     real(r_kind),pointer,dimension(:) :: spm2_5,sdust
     real(r_kind),pointer,dimension(:) :: rpm2_5,rdust