WATFLUX_INIT Subroutine

SUBROUTINE WATFLUX_INIT(YWATFLUX)
TYPE(WATFLUX_t), INTENT(INOUT) :: YWATFLUX
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_WATFLUX_N:WATFLUX_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YWATFLUX%XZS)
  NULLIFY(YWATFLUX%XCOVER)
  NULLIFY(YWATFLUX%LCOVER)
  NULLIFY(YWATFLUX%XTS)
  NULLIFY(YWATFLUX%XTICE)
  NULLIFY(YWATFLUX%XZ0)
  NULLIFY(YWATFLUX%XEMIS)
  NULLIFY(YWATFLUX%XDIR_ALB)
  NULLIFY(YWATFLUX%XSCA_ALB)
  NULLIFY(YWATFLUX%XICE_ALB)
  NULLIFY(YWATFLUX%XTS_MTH)
  NULLIFY(YWATFLUX%XCPL_WATER_WIND)
  NULLIFY(YWATFLUX%XCPL_WATER_FWSU)
  NULLIFY(YWATFLUX%XCPL_WATER_FWSV)
  NULLIFY(YWATFLUX%XCPL_WATER_SNET)
  NULLIFY(YWATFLUX%XCPL_WATER_HEAT)
  NULLIFY(YWATFLUX%XCPL_WATER_EVAP)
  NULLIFY(YWATFLUX%XCPL_WATER_RAIN)
  NULLIFY(YWATFLUX%XCPL_WATER_SNOW)
  NULLIFY(YWATFLUX%XCPL_WATER_FWSM)
  NULLIFY(YWATFLUX%XCPL_WATERICE_SNET)
  NULLIFY(YWATFLUX%XCPL_WATERICE_HEAT)
  NULLIFY(YWATFLUX%XCPL_WATERICE_EVAP)
YWATFLUX%LSBL=.FALSE.
YWATFLUX%CWAT_ALB=' '
YWATFLUX%LINTERPOL_TS=.FALSE.
YWATFLUX%CINTERPOL_TS=' '
YWATFLUX%XTSTEP=0.
YWATFLUX%XOUT_TSTEP=0.
IF (LHOOK) CALL DR_HOOK("MODD_WATFLUX_N:WATFLUX_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE WATFLUX_INIT