ISBA_S_INIT Subroutine

SUBROUTINE ISBA_S_INIT(YISBA_S)
TYPE(ISBA_S_t), INTENT(INOUT) :: YISBA_S
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_ISBA_N:ISBA_S_INIT",0,ZHOOK_HANDLE)
!
NULLIFY(YISBA_S%XZS)
NULLIFY(YISBA_S%XCOVER)
NULLIFY(YISBA_S%LCOVER)
!
NULLIFY(YISBA_S%XTI_MIN)
NULLIFY(YISBA_S%XTI_MAX)
NULLIFY(YISBA_S%XTI_MEAN)
NULLIFY(YISBA_S%XTI_STD)
NULLIFY(YISBA_S%XTI_SKEW)
!
NULLIFY(YISBA_S%XSOC)
NULLIFY(YISBA_S%XPH)
NULLIFY(YISBA_S%XFERT)
!
NULLIFY(YISBA_S%XABC)
NULLIFY(YISBA_S%XPOI) 
!
NULLIFY(YISBA_S%XFRACSOC)
NULLIFY(YISBA_S%XTAB_FSAT)
NULLIFY(YISBA_S%XTAB_WTOP)
NULLIFY(YISBA_S%XTAB_QTOP)
NULLIFY(YISBA_S%XF_PARAM)
NULLIFY(YISBA_S%XC_DEPTH_RATIO)
NULLIFY(YISBA_S%XCPL_DRAIN)
NULLIFY(YISBA_S%XCPL_RUNOFF)
NULLIFY(YISBA_S%XCPL_ICEFLUX)
NULLIFY(YISBA_S%XCPL_EFLOOD)
NULLIFY(YISBA_S%XCPL_PFLOOD)
NULLIFY(YISBA_S%XCPL_IFLOOD)
NULLIFY(YISBA_S%XPERTVEG)
NULLIFY(YISBA_S%XPERTLAI)
NULLIFY(YISBA_S%XPERTCV)
NULLIFY(YISBA_S%XPERTALB)
NULLIFY(YISBA_S%XPERTZ0)
NULLIFY(YISBA_S%XEMIS_NAT)
!
NULLIFY(YISBA_S%XTSRAD_NAT)
!
NULLIFY(YISBA_S%XINNOV)
NULLIFY(YISBA_S%XRESID)
!
NULLIFY(YISBA_S%XWORK_WR)
!
NULLIFY(YISBA_S%XWSN_WR)
NULLIFY(YISBA_S%XRHO_WR)
NULLIFY(YISBA_S%XALB_WR)
NULLIFY(YISBA_S%XHEA_WR)
NULLIFY(YISBA_S%XAGE_WR)
NULLIFY(YISBA_S%XSG1_WR)
NULLIFY(YISBA_S%XSG2_WR)
NULLIFY(YISBA_S%XHIS_WR)
!
NULLIFY(YISBA_S%TDATE_WR)
!
IF (LHOOK) CALL DR_HOOK("MODD_ISBA_N:ISBA_S_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE ISBA_S_INIT