physics/GFS_surface_composites.F90: update tsfc correctly when there …

…is ice on open water grid points
NCAR · Nov 3, 2020 · e7b4531 · e7b4531
1 parent 390ec21
commit e7b4531
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/physics/GFS_surface_composites.F90 b/physics/GFS_surface_composites.F90
@@ -547,6 +547,7 @@ subroutine GFS_surface_composites_post_run (
             if (.not. flag_cice(i)) then
               tisfc(i) = tice(i) ! over lake ice (and sea ice when uncoupled)
               zorl(i)  = cice(i) * zorl_ice(i)   + (one - cice(i)) * zorl_wat(i)
+              tsfc(i)  = tsfc_ice(i)
             elseif (wet(i)) then
               if (cice(i) > min_seaice) then ! this was already done for lake ice in sfc_sice
                 txi = cice(i)