Modified calls to radiaiton routines.

climbfuji · Oct 17, 2019 · 04bdd4f · 04bdd4f
1 parent 816ba3f
commit 04bdd4f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/physics/GFS_rrtmgp_lw_pre.F90 b/physics/GFS_rrtmgp_lw_pre.F90
@@ -94,7 +94,7 @@ subroutine GFS_rrtmgp_lw_pre_run (Model, Grid,  Sfcprop, Statein, ncol,  p_lay,
     ! Call module_radiation_surface::setemis(),to setup surface emissivity for LW radiation.
     ! #######################################################################################
     call setemis (Grid%xlon, Grid%xlat, Sfcprop%slmsk, Sfcprop%snowd, Sfcprop%sncovr,    &
-         Sfcprop%zorl, Sfcprop%tsfc,Sfcprop%tsfc, Sfcprop%hprim, NCOL,   &
+         Sfcprop%zorl, Sfcprop%tsfc,Sfcprop%tsfc, Sfcprop%hprime(:,1), NCOL,   &
          Radtend%semis)
     do iBand=1,lw_gas_props%get_nband()
        Radtend%sfc_emiss_byband(iBand,1:NCOL) = Radtend%semis(1:NCOL)

diff --git a/physics/GFS_rrtmgp_sw_pre.F90 b/physics/GFS_rrtmgp_sw_pre.F90
@@ -145,7 +145,7 @@ subroutine GFS_rrtmgp_sw_pre_run (Model, Grid,   Sfcprop, Statein, ncol, p_lay,
 
     ! Call module_radiation_surface::setalb() to setup surface albedo.
     call setalb (Sfcprop%slmsk, Sfcprop%snowd, Sfcprop%sncovr, Sfcprop%snoalb, Sfcprop%zorl, &
-         Radtend%coszen, Sfcprop%tsfc, Sfcprop%tsfc, Sfcprop%hprim, Sfcprop%alvsf,           &
+         Radtend%coszen, Sfcprop%tsfc, Sfcprop%tsfc, Sfcprop%hprime(:,1), Sfcprop%alvsf,           &
          Sfcprop%alnsf, Sfcprop%alvwf, Sfcprop%alnwf, Sfcprop%facsf, Sfcprop%facwf,          &
          Sfcprop%fice, Sfcprop%tisfc, NCOL, alb1d, Model%pertalb, sfcalb)