ISBA_K_INIT Subroutine

SUBROUTINE ISBA_K_INIT(YISBA_K)
TYPE(ISBA_K_t), INTENT(INOUT) :: YISBA_K
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_ISBA_N:ISBA_K_INIT",0,ZHOOK_HANDLE)
!
NULLIFY(YISBA_K%XSAND)
NULLIFY(YISBA_K%XCLAY)
NULLIFY(YISBA_K%XPERM)
NULLIFY(YISBA_K%XRUNOFFB)
NULLIFY(YISBA_K%XWDRAIN)
!
NULLIFY(YISBA_K%XTDEEP)  
NULLIFY(YISBA_K%XGAMMAT)
NULLIFY(YISBA_K%XMPOTSAT)
NULLIFY(YISBA_K%XBCOEF)
NULLIFY(YISBA_K%XWWILT)
NULLIFY(YISBA_K%XWFC)  
NULLIFY(YISBA_K%XWSAT)
NULLIFY(YISBA_K%XCGSAT)
NULLIFY(YISBA_K%XC4B)
NULLIFY(YISBA_K%XACOEF)
NULLIFY(YISBA_K%XPCOEF)  
NULLIFY(YISBA_K%XHCAPSOIL)
NULLIFY(YISBA_K%XCONDDRY)
NULLIFY(YISBA_K%XCONDSLD)
NULLIFY(YISBA_K%XFWTD)
NULLIFY(YISBA_K%XWTD)   
NULLIFY(YISBA_K%XALBNIR_DRY)
NULLIFY(YISBA_K%XALBVIS_DRY)
NULLIFY(YISBA_K%XALBUV_DRY)
NULLIFY(YISBA_K%XALBNIR_WET)
NULLIFY(YISBA_K%XALBVIS_WET)
NULLIFY(YISBA_K%XALBUV_WET)
NULLIFY(YISBA_K%XWD0)
NULLIFY(YISBA_K%XKANISO)
NULLIFY(YISBA_K%XMUF)
NULLIFY(YISBA_K%XFSAT)
NULLIFY(YISBA_K%XFFLOOD)
NULLIFY(YISBA_K%XPIFLOOD)  
NULLIFY(YISBA_K%XFF)
NULLIFY(YISBA_K%XFFG)
NULLIFY(YISBA_K%XFFV)
NULLIFY(YISBA_K%XFFROZEN)
NULLIFY(YISBA_K%XALBF)
NULLIFY(YISBA_K%XEMISF)
NULLIFY(YISBA_K%XDIR_ALB_WITH_SNOW)
NULLIFY(YISBA_K%XSCA_ALB_WITH_SNOW)
!
NULLIFY(YISBA_K%XVEGTYPE)
!
IF (LHOOK) CALL DR_HOOK("MODD_ISBA_N:ISBA_K_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE ISBA_K_INIT