Fixed a bug

climbfuji · Oct 16, 2019 · 816ba3f · 816ba3f
1 parent 8bb1e85
commit 816ba3f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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,    &