SUBROUTINE ISBA_P_INIT(YISBA_P)
TYPE(ISBA_P_t), INTENT(INOUT) :: YISBA_P
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_ISBA_N:ISBA_P_INIT",0,ZHOOK_HANDLE)
!
YISBA_P%NSIZE_P = 0
NULLIFY(YISBA_P%XPATCH)
NULLIFY(YISBA_P%XVEGTYPE_PATCH)
NULLIFY(YISBA_P%NR_P)
NULLIFY(YISBA_P%XPATCH_OLD)
NULLIFY(YISBA_P%XANMAX)
NULLIFY(YISBA_P%XFZERO)
NULLIFY(YISBA_P%XEPSO)
NULLIFY(YISBA_P%XGAMM)
NULLIFY(YISBA_P%XQDGAMM)
NULLIFY(YISBA_P%XQDGMES)
NULLIFY(YISBA_P%XT1GMES)
NULLIFY(YISBA_P%XT2GMES)
NULLIFY(YISBA_P%XAMAX)
NULLIFY(YISBA_P%XQDAMAX)
NULLIFY(YISBA_P%XT1AMAX)
NULLIFY(YISBA_P%XT2AMAX)
NULLIFY(YISBA_P%XAH)
NULLIFY(YISBA_P%XBH)
NULLIFY(YISBA_P%XTAU_WOOD)
NULLIFY(YISBA_P%XINCREASE)
NULLIFY(YISBA_P%XTURNOVER)
NULLIFY(YISBA_P%XCONDSAT)
NULLIFY(YISBA_P%XTAUICE)
NULLIFY(YISBA_P%XC1SAT)
NULLIFY(YISBA_P%XC2REF)
NULLIFY(YISBA_P%XC3)
NULLIFY(YISBA_P%XC4REF)
NULLIFY(YISBA_P%XCPS)
NULLIFY(YISBA_P%XLVTT)
NULLIFY(YISBA_P%XLSTT)
NULLIFY(YISBA_P%XRUNOFFD)
NULLIFY(YISBA_P%XDZG)
NULLIFY(YISBA_P%XDZDIF)
NULLIFY(YISBA_P%XSOILWGHT)
NULLIFY(YISBA_P%XKSAT_ICE)
NULLIFY(YISBA_P%XBSLAI_NITRO)
NULLIFY(YISBA_P%XTOPQS)
!
NULLIFY(YISBA_P%XDG)
NULLIFY(YISBA_P%XDG_OLD)
NULLIFY(YISBA_P%NWG_LAYER)
NULLIFY(YISBA_P%XDROOT)
NULLIFY(YISBA_P%XDG2)
NULLIFY(YISBA_P%XROOTFRAC)
NULLIFY(YISBA_P%XD_ICE)
NULLIFY(YISBA_P%XH_TREE)
NULLIFY(YISBA_P%XZ0_O_Z0H)
NULLIFY(YISBA_P%XRE25)
NULLIFY(YISBA_P%XDMAX)
!
NULLIFY(YISBA_P%XRED_NOISE)
NULLIFY(YISBA_P%XINCR)
NULLIFY(YISBA_P%XHO)
!
IF (LHOOK) CALL DR_HOOK("MODD_ISBA_N:ISBA_P_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE ISBA_P_INIT