DIAG_OPTIONS_INIT Subroutine

SUBROUTINE DIAG_OPTIONS_INIT(DGO)
TYPE(DIAG_OPTIONS_t), INTENT(INOUT) :: DGO
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_N:DIAG_OPTIONS_INIT",0,ZHOOK_HANDLE)
  NULLIFY(DGO%CSELECT)
DGO%XDIAG_TSTEP=0.
DGO%N2M=0
DGO%LT2MMW=.FALSE.
DGO%L2M_MIN_ZS=.FALSE.
DGO%LSURF_BUDGET=.FALSE.
DGO%LRAD_BUDGET=.FALSE.
DGO%LCOEF=.FALSE.
DGO%LSURF_VARS=.FALSE.
DGO%LFRAC=.FALSE.
DGO%LDIAG_GRID=.FALSE.
DGO%LPGD=.FALSE.
DGO%LPATCH_BUDGET=.FALSE.
DGO%LSURF_BUDGETC=.FALSE.
DGO%LRESET_BUDGETC=.FALSE.
DGO%LREAD_BUDGETC=.FALSE.
DGO%LPROVAR_TO_DIAG=.FALSE.
DGO%LSNOWDIMNC=.FALSE.
DGO%LRESETCUMUL=.FALSE.
DGO%LSELECT=.FALSE.
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_N:DIAG_OPTIONS_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DIAG_OPTIONS_INIT