SUBROUTINE DIAG_EVAP_ISBA_INIT(DE)
TYPE(DIAG_EVAP_ISBA_t), INTENT(INOUT) :: DE
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_EVAP_ISBA_N:DIAG_EVAP_ISBA_INIT",0,ZHOOK_HANDLE)
NULLIFY(DE%XLEG)
NULLIFY(DE%XLEGI)
NULLIFY(DE%XLEV)
NULLIFY(DE%XLES)
NULLIFY(DE%XLESL)
NULLIFY(DE%XLER)
NULLIFY(DE%XLETR)
NULLIFY(DE%XUSTAR)
NULLIFY(DE%XSNDRIFT)
NULLIFY(DE%XRESTORE)
NULLIFY(DE%XDRAIN)
NULLIFY(DE%XQSB)
NULLIFY(DE%XRUNOFF)
NULLIFY(DE%XHORT)
NULLIFY(DE%XRRVEG)
NULLIFY(DE%XMELT)
NULLIFY(DE%XMELTADV)
NULLIFY(DE%XIFLOOD)
NULLIFY(DE%XPFLOOD)
NULLIFY(DE%XLE_FLOOD)
NULLIFY(DE%XLEI_FLOOD)
!
NULLIFY(DE%XICEFLUX)
!
NULLIFY(DE%XLELITTER)
NULLIFY(DE%XLELITTERI)
NULLIFY(DE%XDRIPLIT)
NULLIFY(DE%XRRLIT)
NULLIFY(DE%XLEV_CV)
NULLIFY(DE%XLES_CV)
NULLIFY(DE%XLETR_CV)
NULLIFY(DE%XLER_CV)
NULLIFY(DE%XLE_CV)
NULLIFY(DE%XH_CV)
NULLIFY(DE%XMELT_CV)
NULLIFY(DE%XFRZ_CV)
NULLIFY(DE%XLETR_GV)
NULLIFY(DE%XLER_GV)
NULLIFY(DE%XLE_GV)
NULLIFY(DE%XH_GV)
NULLIFY(DE%XLE_GN)
NULLIFY(DE%XEVAP_GN)
NULLIFY(DE%XH_GN)
NULLIFY(DE%XSR_GN)
NULLIFY(DE%XSWDOWN_GN)
NULLIFY(DE%XLWDOWN_GN)
NULLIFY(DE%XEVAP_G)
NULLIFY(DE%XLE_CA)
NULLIFY(DE%XH_CA)
NULLIFY(DE%XSWUP)
NULLIFY(DE%XLWUP)
NULLIFY(DE%XSWNET_V)
NULLIFY(DE%XSWNET_G)
NULLIFY(DE%XSWNET_N)
NULLIFY(DE%XSWNET_NS)
NULLIFY(DE%XLWNET_V)
NULLIFY(DE%XLWNET_G)
NULLIFY(DE%XLWNET_N)
!
NULLIFY(DE%XDRIP)
NULLIFY(DE%XIRRIG_FLUX)
NULLIFY(DE%XGPP)
NULLIFY(DE%XRESP_AUTO)
NULLIFY(DE%XRESP_ECO)
NULLIFY(DE%XDWG)
NULLIFY(DE%XDWGI)
NULLIFY(DE%XDWR)
NULLIFY(DE%XDSWE)
NULLIFY(DE%XWATBUD)
!
NULLIFY(DE%XRAINFALL)
NULLIFY(DE%XSNOWFALL)
!
NULLIFY(DE%XRN_SN_FR)
NULLIFY(DE%XH_SN_FR)
NULLIFY(DE%XLEI_SN_FR)
NULLIFY(DE%XLE_SN_FR)
NULLIFY(DE%XGFLUX_SN_FR)
NULLIFY(DE%XLEG_SN_FR)
NULLIFY(DE%XLEGI_SN_FR)
NULLIFY(DE%XLEV_SN_FR)
NULLIFY(DE%XLETR_SN_FR)
NULLIFY(DE%XUSTAR_SN_FR)
NULLIFY(DE%XLER_SN_FR)
DE%LSURF_EVAP_BUDGET=.FALSE.
DE%LWATER_BUDGET=.FALSE.
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_EVAP_ISBA_N:DIAG_EVAP_ISBA_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DIAG_EVAP_ISBA_INIT