fix bug in GFS_surface_composites_pre.F90

Author: grantfirl

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_surface_composites_pre.F90

@@ -246,7 +246,6 @@ subroutine GFS_surface_composites_pre_run (im, lkm, frac_grid, iopt_lake, iopt_l
           else
             tsfc_wat(i) = tsfco(i)
           endif
-          tsurf_wat(i) = tsfco(i)
           zorlo(i) = max(1.0e-5, min(one, zorlo(i)))
         ! DH*
         else