CH_EMIS_SNAP_INIT Subroutine

SUBROUTINE CH_EMIS_SNAP_INIT(YCH_EMIS_SNAP)
TYPE(CH_EMIS_SNAP_t), INTENT(INOUT) :: YCH_EMIS_SNAP
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_CH_SNAP_n:CH_EMIS_FIELD_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YCH_EMIS_SNAP%CEMIS_COMMENT)
  NULLIFY(YCH_EMIS_SNAP%CEMIS_NAME)
  NULLIFY(YCH_EMIS_SNAP%XDELTA_LEGAL_TIME)
  NULLIFY(YCH_EMIS_SNAP%XEMIS_FIELDS)
  NULLIFY(YCH_EMIS_SNAP%XEMIS_FIELDS_SNAP)
  NULLIFY(YCH_EMIS_SNAP%XSNAP_DAILY)
  NULLIFY(YCH_EMIS_SNAP%XSNAP_HOURLY)
  NULLIFY(YCH_EMIS_SNAP%XSNAP_MONTHLY)
  NULLIFY(YCH_EMIS_SNAP%XCONVERSION)
YCH_EMIS_SNAP%CCONVERSION=' '
YCH_EMIS_SNAP%CSNAP_TIME_REF=' '
YCH_EMIS_SNAP%NEMIS_NBR=0
YCH_EMIS_SNAP%NEMIS_SNAP=0
YCH_EMIS_SNAP%NSNAP_M=0
YCH_EMIS_SNAP%NSNAP_D=0
YCH_EMIS_SNAP%NSNAP_H=0
IF (LHOOK) CALL DR_HOOK("MODD_CH_SNAP_n:CH_EMIS_FIELD_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE CH_EMIS_SNAP_INIT