Change variables(iuv,ndynvario3d,ntracerio3d) to i_kind and clear code.

NOAA-EMC · Jan 24, 2023 · 08b212f · 08b212f
1 parent b6ab52a
commit 08b212f
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git 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
@@ -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