From 816ba3f2ab5c86a1524eba9de2c20f76086a2dbe Mon Sep 17 00:00:00 2001 From: Dustin Swales Date: Wed, 16 Oct 2019 22:30:12 +0000 Subject: [PATCH] Fixed a bug --- physics/GFS_rrtmgp_setup.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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, &