From b93c035988c8e2f6c5f0cfaf1ea46632a0710547 Mon Sep 17 00:00:00 2001
From: Dom Heinzeller <climbfuji@ymail.com>
Date: Thu, 14 Nov 2019 16:07:43 -0700
Subject: [PATCH] GFS_surface_composites.F90: apply missing change for fv3atm
 pr8

---
 physics/GFS_surface_composites.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/physics/GFS_surface_composites.F90 b/physics/GFS_surface_composites.F90
index cd5f3db11..9636eb384 100644
--- a/physics/GFS_surface_composites.F90
+++ b/physics/GFS_surface_composites.F90
@@ -123,7 +123,7 @@ subroutine GFS_surface_composites_pre_run (im, frac_grid, flag_cice, cplflx, lan
             if (cice(i) < one) then
               wet(i) = .true.
   !           tsfco(i) = tgice
-              tsfco(i) = max(tisfc(i), tgice)
+              if (.not. cplflx) tsfco(i) = max(tisfc(i), tgice)
   !           tsfco(i) = max((tsfc(i) - cice(i)*tisfc(i)) &
   !                                     / (one - cice(i)), tgice)
             endif