diff --git a/physics/GFS_rrtmgp_setup.F90 b/physics/GFS_rrtmgp_setup.F90
index 01a4420d0..42ce8662c 100644
--- a/physics/GFS_rrtmgp_setup.F90
+++ b/physics/GFS_rrtmgp_setup.F90
@@ -49,7 +49,7 @@ subroutine GFS_rrtmgp_setup_init (Model, si, levr, ictm, isol, ico2,  &
      ! Inputs
      type(GFS_control_type), intent(in) :: &
           Model      ! DDT containing model control parameters
-     real(kind_phys), dimension(levr+1, intent(in) :: &
+     real(kind_phys), dimension(levr+1), intent(in) :: &
           si
      integer, intent(in) :: levr, ictm, isol, ico2, iaer, ialb, iems,   & 
           ntcw, num_p3d, ntoz, iovr_sw, iovr_lw, isubc_sw, isubc_lw,    &