SUBROUTINE ISBA_PE_INIT(YISBA_PE)
TYPE(ISBA_PE_t), INTENT(INOUT) :: YISBA_PE
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_ISBA_N:ISBA_PE_INIT",0,ZHOOK_HANDLE)
!
NULLIFY(YISBA_PE%XLAI)
NULLIFY(YISBA_PE%XVEG)
NULLIFY(YISBA_PE%XEMIS)
NULLIFY(YISBA_PE%XZ0)
NULLIFY(YISBA_PE%XRSMIN)
NULLIFY(YISBA_PE%XGAMMA)
NULLIFY(YISBA_PE%XWRMAX_CF)
NULLIFY(YISBA_PE%XRGL)
NULLIFY(YISBA_PE%XCV)
NULLIFY(YISBA_PE%XLAIMIN)
NULLIFY(YISBA_PE%XSEFOLD)
NULLIFY(YISBA_PE%XGMES)
NULLIFY(YISBA_PE%XGC)
NULLIFY(YISBA_PE%XF2I)
NULLIFY(YISBA_PE%XBSLAI)
NULLIFY(YISBA_PE%XCE_NITRO)
NULLIFY(YISBA_PE%XCF_NITRO)
NULLIFY(YISBA_PE%XCNA_NITRO)
NULLIFY(YISBA_PE%LSTRESS)
NULLIFY(YISBA_PE%XALBNIR_VEG)
NULLIFY(YISBA_PE%XALBVIS_VEG)
NULLIFY(YISBA_PE%XALBUV_VEG)
NULLIFY(YISBA_PE%XALBNIR)
NULLIFY(YISBA_PE%XALBVIS)
NULLIFY(YISBA_PE%XALBUV)
!
NULLIFY(YISBA_PE%XGNDLITTER)
NULLIFY(YISBA_PE%XH_VEG)
NULLIFY(YISBA_PE%XZ0LITTER)
!
NULLIFY(YISBA_PE%XALBNIR_SOIL)
NULLIFY(YISBA_PE%XALBVIS_SOIL)
NULLIFY(YISBA_PE%XALBUV_SOIL)
!
NULLIFY(YISBA_PE%XWATSUP)
NULLIFY(YISBA_PE%XIRRIG)
!
NULLIFY(YISBA_PE%XWG)
NULLIFY(YISBA_PE%XWGI)
NULLIFY(YISBA_PE%XWR)
NULLIFY(YISBA_PE%XTG)
NULLIFY(YISBA_PE%XICE_STO)
NULLIFY(YISBA_PE%XWRL)
NULLIFY(YISBA_PE%XWRLI)
NULLIFY(YISBA_PE%XWRVN)
NULLIFY(YISBA_PE%XTV)
NULLIFY(YISBA_PE%XTL)
NULLIFY(YISBA_PE%XTC)
NULLIFY(YISBA_PE%XQC)
NULLIFY(YISBA_PE%XRESA)
NULLIFY(YISBA_PE%XAN)
NULLIFY(YISBA_PE%XANDAY)
NULLIFY(YISBA_PE%XANFM)
NULLIFY(YISBA_PE%XLE)
NULLIFY(YISBA_PE%XFAPARC)
NULLIFY(YISBA_PE%XFAPIRC)
NULLIFY(YISBA_PE%XLAI_EFFC)
NULLIFY(YISBA_PE%XMUS)
NULLIFY(YISBA_PE%XRESP_BIOMASS)
NULLIFY(YISBA_PE%XBIOMASS)
NULLIFY(YISBA_PE%XLITTER)
NULLIFY(YISBA_PE%XSOILCARB)
NULLIFY(YISBA_PE%XLIGNIN_STRUC)
NULLIFY(YISBA_PE%XPSNG)
NULLIFY(YISBA_PE%XPSNV)
NULLIFY(YISBA_PE%XPSNV_A)
NULLIFY(YISBA_PE%XSNOWFREE_ALB)
NULLIFY(YISBA_PE%XSNOWFREE_ALB_VEG)
NULLIFY(YISBA_PE%XSNOWFREE_ALB_SOIL)
NULLIFY(YISBA_PE%XPSN)
!
IF (LHOOK) CALL DR_HOOK("MODD_ISBA_N:ISBA_PE_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE ISBA_PE_INIT