Fixed indexing error for output fluxes.

grantfirl · Jun 13, 2019 · 9e5405c · 9e5405c
1 parent c9a357a
commit 9e5405c
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 3 deletions.
diff --git a/physics/GFS_rrtmgp_sw_post.F90 b/physics/GFS_rrtmgp_sw_post.F90
@@ -182,6 +182,7 @@ subroutine GFS_rrtmgp_sw_post_run (Model, Grid, Diag, Radtend, Coupling,       &
        ! Mandatory outputs
        topflx_sw%upfxc = fluxswUP_allsky(:,iTOA)
        topflx_sw%upfx0 = fluxswUP_clrsky(:,iTOA)
+       topflx_sw%dnfxc = fluxswDOWN_allsky(:,iTOA)
        sfcflx_sw%upfxc = fluxswUP_allsky(:,iSFC)
        sfcflx_sw%upfx0 = fluxswUP_clrsky(:,iSFC)
        sfcflx_sw%dnfxc = fluxswDOWN_allsky(:,iSFC)

diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90
@@ -512,7 +512,6 @@ subroutine rrtmgp_lw_gas_optics_run(Model, Radtend, lw_gas_props, ncol, p_lay, p
          sources_LW,           & ! OUT -
          tlev=t_lev))            ! IN  -
 
-    print*,'END LW_GAS_OPTICS:'
   end subroutine rrtmgp_lw_gas_optics_run
 
   ! #########################################################################################

diff --git a/physics/rrtmgp_lw_rte.F90 b/physics/rrtmgp_lw_rte.F90
@@ -87,7 +87,7 @@ subroutine rrtmgp_lw_rte_run(Model, Statein, Radtend, ncol, lw_gas_props, p_lay,
          errmsg                  ! CCPP error message
     integer, intent(out) :: & 
          errflg                  ! CCPP error flag
-    real(kind_phys), dimension(ncol,model%levs), intent(out) :: &
+    real(kind_phys), dimension(ncol,model%levs+1), intent(out) :: &
          fluxUP_allsky,        & ! All-sky flux                    (W/m2)
          fluxDOWN_allsky,      & ! All-sky flux                    (W/m2)
          fluxUP_clrsky,        & ! Clear-sky flux                  (W/m2)

diff --git a/physics/rrtmgp_sw_rte.F90 b/physics/rrtmgp_sw_rte.F90
@@ -94,7 +94,7 @@ subroutine rrtmgp_sw_rte_run(Model, Radtend, Statein, ncol, sw_gas_props, p_lay,
     ! Outputs
     character(len=*), intent(out) :: errmsg
     integer, intent(out) :: errflg
-    real(kind_phys), dimension(ncol,Model%levs), intent(out) :: &
+    real(kind_phys), dimension(ncol,Model%levs+1), intent(out) :: &
          fluxUP_allsky,   & ! All-sky flux                    (W/m2)
          fluxDOWN_allsky, & ! All-sky flux                    (W/m2)
          fluxUP_clrsky,   & ! Clear-sky flux                  (W/m2)