ISBA_OPTIONS_INIT Subroutine

SUBROUTINE ISBA_OPTIONS_INIT(IO)
TYPE(ISBA_OPTIONS_t), INTENT(INOUT) :: IO
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_ISBA_OPTIONS_N:ISBA_OPTIONS_INIT",0,ZHOOK_HANDLE)
!
NULLIFY(IO%XSOILGRID)
NULLIFY(IO%LMEB_PATCH)
!  
IO%CTYPE_HVEG='    '
IO%CTYPE_LVEG='    '
IO%CTYPE_NVEG='    '
IO%CTYP_COV='     '
IO%LPAR=.FALSE.
IO%LECOCLIMAP=.FALSE.
IO%NPATCH=0
IO%NGROUND_LAYER=0
IO%CISBA=' '
IO%CPEDOTF=' '
IO%CPHOTO=' '
IO%LTR_ML=.FALSE.
IO%XRM_PATCH=0.0
IO%LSOCP=.FALSE.
IO%LCTI=.FALSE.
IO%LPERM=.FALSE.
IO%LNOF=.FALSE.
IO%NNBIOMASS=0
IO%NNLITTER=0
IO%NNLITTLEVS=0
IO%NNSOILCARB=0
IO%LFORC_MEASURE=.FALSE.
IO%LMEB_LITTER=.FALSE.
IO%LMEB_GNDRES=.FALSE.
!
IO%LCANOPY=.FALSE.
IO%CRESPSL=' '
!
IO%CC1DRY=' '
IO%CSCOND=' '
IO%CSOILFRZ=' '
IO%CDIFSFCOND=' '
IO%CSNOWRES=' '
IO%CALBEDO=' '
IO%CCPSURF=' '
IO%XOUT_TSTEP=0.
IO%XTSTEP=0.
IO%XCGMAX=0.
IO%XCDRAG=0.
IO%LGLACIER=.FALSE.
IO%LCANOPY_DRAG=.FALSE.
IO%LVEGUPD=.FALSE.
IO%LPERTSURF=.FALSE.
IO%NLAYER_HORT=0
IO%NLAYER_DUN=0
IO%CRUNOFF=' '
IO%CKSAT=' '
IO%CRAIN=' '
IO%CHORT=' '
IO%LSOC=.FALSE.
IO%LNITRO_DILU=.FALSE.
IO%LSPINUPCARBS=.FALSE.
IO%LSPINUPCARBW=.FALSE.
IO%XSPINMAXS=0.
IO%XSPINMAXW=0.
IO%XCO2_START=0.
IO%XCO2_END=0.
IO%NNBYEARSPINS=0
IO%NNBYEARSPINW=0
IO%NNBYEARSOLD=0
IO%NSPINS=1
IO%NSPINW=1
IO%LAGRI_TO_GRASS=.FALSE.
IO%LSNOWDRIFT=.TRUE.
IO%LSNOWDRIFT_SUBLIM=.FALSE.
IO%LSNOW_ABS_ZENITH=.FALSE.
IO%CSNOWMETAMO='B92'
IO%CSNOWRAD='B92'
IO%LFLOOD=.FALSE.
IO%LWTD=.FALSE.
IO%LCPL_RRM=.FALSE.
IO%LTEMP_ARP=.FALSE.
IO%NTEMPLAYER_ARP=0
!
IF (LHOOK) CALL DR_HOOK("MODD_ISBA_OPTIONS_N:ISBA_OPTIONS_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE ISBA_OPTIONS_INIT