diff --git a/sorc/chgres_cube.fd/model_grid.F90 b/sorc/chgres_cube.fd/model_grid.F90
index cdd91336b..f0630e5c0 100644
--- a/sorc/chgres_cube.fd/model_grid.F90
+++ b/sorc/chgres_cube.fd/model_grid.F90
@@ -124,9 +124,9 @@ subroutine define_input_grid(localpet, npets)
      trim(input_type) == "gfs_gaussian_nemsio" .or. &
      trim(input_type) == "gfs_sigio" .or. &
      trim(input_type) == "gaussian_netcdf") then
-   call define_input_grid_gaussian(localpet, npets)
+   call define_input_grid_gaussian(npets)
  elseif (trim(input_type) == "grib2") then
-   call define_input_grid_grib2(localpet,npets)
+   call define_input_grid_grib2(npets)
  else
    call define_input_grid_mosaic(localpet, npets)
  endif
@@ -141,10 +141,9 @@ end subroutine define_input_grid
 !!  - spectral gfs sigio  (prior to July 19, 2017)
 !!  - spectral gfs sfcio  (prior to July 19, 2017)
 !!
-!! @param [in] localpet ESMF local persistent execution thread 
 !! @param [in] npets  Number of  persistent execution threads.
 !! @author George Gayno NCEP/EMC   
- subroutine define_input_grid_gaussian(localpet, npets)
+ subroutine define_input_grid_gaussian(npets)
 
  use nemsio_module
 
@@ -160,7 +159,7 @@ subroutine define_input_grid_gaussian(localpet, npets)
 
  implicit none
 
- integer, intent(in)              :: localpet, npets
+ integer, intent(in)              :: npets
 
  character(len=250)               :: the_file
 
@@ -607,12 +606,11 @@ end subroutine define_input_grid_mosaic
 
 !> Define input grid object for grib2 input data.
 !!
-!! @param [in] localpet ESMF local persistent execution thread 
 !! @param [in] npets  Number of persistent execution threads
 !! @author Larissa Reames
 !! @author Jeff Beck
 !! @author George Gayno
- subroutine define_input_grid_grib2(localpet,npets)
+ subroutine define_input_grid_grib2(npets)
 
  use grib_mod
  use gdswzd_mod
@@ -620,7 +618,7 @@ subroutine define_input_grid_grib2(localpet,npets)
 
  implicit none
 
- integer, intent(in)              :: localpet, npets
+ integer, intent(in)              :: npets
 
  character(len=500)               :: the_file