global_cycle - Update version of sfcsub.F (#950)

Point to latest version of sfcsub.F from the ccpp-physics
repository. This version contains a bug fix in the interpolation
of GLDAS data.  This sfcsub.F version also updates soil color.
This field is not yet processed by global_cycle, so add a dummy
soil color argument.

Fixes #933.

sorc/global_cycle.fd/CMakeLists.txt

@@ -6,7 +6,7 @@
 set(lib_src
     machine.f90
     num_parthds.f90
-    ../../ccpp-physics/physics/sfcsub.F
+    ../../ccpp-physics/physics/Interstitials/UFS_SCM_NEPTUNE/sfcsub.F
     read_write_data.f90
     utils.F90
     land_increments.f90)

sorc/global_cycle.fd/cycle.f90

@@ -368,7 +368,7 @@ SUBROUTINE SFCDRV(LUGB, IDIM,JDIM,LENSFC,LSOIL,DELTSFC,  &
  REAL                :: VMNFCS(LENSFC), T2M(LENSFC)
  REAL                :: Q2M(LENSFC), SLPFCS(LENSFC)
  REAL                :: ABSFCS(LENSFC), OROG_UF(LENSFC)
- REAL                :: USTAR(LENSFC)
+ REAL                :: USTAR(LENSFC), SOCFCS(LENSFC)
  REAL                :: FMM(LENSFC), FHH(LENSFC)
  REAL                :: RLA(LENSFC), RLO(LENSFC)
  REAL(KIND=4)        :: ZSOIL(LSOIL)
@@ -616,6 +616,8 @@ SUBROUTINE SFCDRV(LUGB, IDIM,JDIM,LENSFC,LSOIL,DELTSFC,  &
      endif
    ENDDO
 
+   SOCFCS=0 ! Soil color. Not used yet.
+
    num_threads = num_parthds()
    PRINT*
    PRINT*,"CALL SFCCYCLE TO UPDATE SURFACE FIELDS."
@@ -626,7 +628,7 @@ SUBROUTINE SFCDRV(LUGB, IDIM,JDIM,LENSFC,LSOIL,DELTSFC,  &
                VMNFCS,VMXFCS,SLPFCS,ABSFCS,              &
                TSFFCS,SWEFCS,ZORFCS,ALBFCS,TG3FCS,       &
                CNPFCS,SMCFCS,STCFCS,SLIFCS,AISFCS,       &
-               VEGFCS,VETFCS,SOTFCS,ALFFCS,              &
+               VEGFCS,VETFCS,SOTFCS,SOCFCS,ALFFCS,       &
                CVFCS,CVBFCS,CVTFCS,MYRANK,num_threads, NLUNIT,        &
                SZ_NML, INPUT_NML_FILE,                   &
                min_ice, &