Resolve uninitialized variable issues in surface_driver (#1681)

TYPE: bug-fix
KEYWORDS: surface driver, uninitialized variables

SOURCE: internal, reported by CWB, Taiwan

DESCRIPTION OF CHANGES:
Problem:
Several variables showed up as used while uninitialized

Solution:
PXLSM does not need to compute sea-ice weighted PBLH. FH and FM in seaice wrapper calls to sfclay, sfclayrev need to be initialized for use in sea-ice weighting.

LIST OF MODIFIED FILES:
M phys/module_surface_driver.F

TESTS CONDUCTED:
The Jenkins tests have passed.

phys/module_surface_driver.F

@@ -3653,7 +3653,6 @@ SUBROUTINE surface_driver(                                         &
 !save old tsk_ice
                          tsk_save(i,j)  = tsk(i,j)
                          tsk(i,j)  = ( tsk(i,j)  * XICE(i,j) ) + ( (1.0-XICE(i,j)) * TSK_SEA(i,j)  )
-                         pblh(i,j) = ( pblh(i,j) * XICE(i,j) ) + ( (1.0-XICE(i,j)) * PBLH_SEA(i,j) )
                       ENDIF
                    ENDDO
                 ENDDO
@@ -6018,6 +6017,8 @@ SUBROUTINE sfclayrev_seaice_wrapper(U3D,V3D,T3D,QV3D,P3D,dz8w,     &
      MOL_HOLD(its:ite,jts:jte)    = MOL(its:ite,jts:jte)
      PSIH_HOLD(its:ite,jts:jte)   = PSIH(its:ite,jts:jte)
      PSIM_HOLD(its:ite,jts:jte)   = PSIM(its:ite,jts:jte)
+     FH_HOLD(its:ite,jts:jte)     = FH(its:ite,jts:jte)
+     FM_HOLD(its:ite,jts:jte)     = FM(its:ite,jts:jte)
      QFX_HOLD(its:ite,jts:jte)    = QFX(its:ite,jts:jte)
      QGH_HOLD(its:ite,jts:jte)    = QGH(its:ite,jts:jte)
      REGIME_HOLD(its:ite,jts:jte) = REGIME(its:ite,jts:jte)
@@ -6446,6 +6447,8 @@ SUBROUTINE sfclay_seaice_wrapper(U3D,V3D,T3D,QV3D,P3D,dz8w,     &
      MOL_HOLD(its:ite,jts:jte)    = MOL(its:ite,jts:jte)
      PSIH_HOLD(its:ite,jts:jte)   = PSIH(its:ite,jts:jte)
      PSIM_HOLD(its:ite,jts:jte)   = PSIM(its:ite,jts:jte)
+     FH_HOLD(its:ite,jts:jte)     = FH(its:ite,jts:jte)
+     FM_HOLD(its:ite,jts:jte)     = FM(its:ite,jts:jte)
      QFX_HOLD(its:ite,jts:jte)    = QFX(its:ite,jts:jte)
      QGH_HOLD(its:ite,jts:jte)    = QGH(its:ite,jts:jte)
      REGIME_HOLD(its:ite,jts:jte) = REGIME(its:ite,jts:jte)