FLAKE_INIT Subroutine

SUBROUTINE FLAKE_INIT(YFLAKE)
TYPE(FLAKE_t), INTENT(INOUT) :: YFLAKE
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_FLAKE_N:FLAKE_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YFLAKE%XZS)
  NULLIFY(YFLAKE%XZ0)
  NULLIFY(YFLAKE%XUSTAR)
  NULLIFY(YFLAKE%XCOVER)
  NULLIFY(YFLAKE%LCOVER)
  NULLIFY(YFLAKE%XEMIS)
  NULLIFY(YFLAKE%XWATER_DEPTH)
  NULLIFY(YFLAKE%XWATER_FETCH)
  NULLIFY(YFLAKE%XT_BS)
  NULLIFY(YFLAKE%XDEPTH_BS)
  NULLIFY(YFLAKE%XCORIO)
  NULLIFY(YFLAKE%XDIR_ALB)
  NULLIFY(YFLAKE%XSCA_ALB)
  NULLIFY(YFLAKE%XICE_ALB)
  NULLIFY(YFLAKE%XSNOW_ALB)
  NULLIFY(YFLAKE%XEXTCOEF_WATER)
  NULLIFY(YFLAKE%XEXTCOEF_ICE)
  NULLIFY(YFLAKE%XEXTCOEF_SNOW)
  NULLIFY(YFLAKE%XT_SNOW)
  NULLIFY(YFLAKE%XT_ICE)
  NULLIFY(YFLAKE%XT_MNW)
  NULLIFY(YFLAKE%XT_WML)
  NULLIFY(YFLAKE%XT_BOT)
  NULLIFY(YFLAKE%XT_B1)
  NULLIFY(YFLAKE%XCT)
  NULLIFY(YFLAKE%XH_SNOW)
  NULLIFY(YFLAKE%XH_ICE)
  NULLIFY(YFLAKE%XH_ML)
  NULLIFY(YFLAKE%XH_B1)
  NULLIFY(YFLAKE%XTS)
  NULLIFY(YFLAKE%XCPL_FLAKE_EVAP)
  NULLIFY(YFLAKE%XCPL_FLAKE_RAIN)
  NULLIFY(YFLAKE%XCPL_FLAKE_SNOW)
YFLAKE%LSBL=.FALSE.
YFLAKE%XTSTEP=0.
YFLAKE%XOUT_TSTEP=0.
YFLAKE%LSEDIMENTS=.FALSE.
YFLAKE%LSKINTEMP=.FALSE.
YFLAKE%CSNOW_FLK='   '
YFLAKE%CFLK_ALB='    '
YFLAKE%CFLK_FLUX='     '
IF (LHOOK) CALL DR_HOOK("MODD_FLAKE_N:FLAKE_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE FLAKE_INIT