DATA_ISBA_INIT Subroutine

SUBROUTINE DATA_ISBA_INIT(YDATA_ISBA)
TYPE(DATA_ISBA_t), INTENT(INOUT) :: YDATA_ISBA
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DATA_ISBA_N:DATA_ISBA_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YDATA_ISBA%XPAR_VEGTYPE)
  NULLIFY(YDATA_ISBA%XPAR_Z0_O_Z0H)
  NULLIFY(YDATA_ISBA%XPAR_EMIS)
  NULLIFY(YDATA_ISBA%XPAR_Z0)
  NULLIFY(YDATA_ISBA%XPAR_ALBNIR_VEG)
  NULLIFY(YDATA_ISBA%XPAR_ALBVIS_VEG)
  NULLIFY(YDATA_ISBA%XPAR_ALBUV_VEG)
  NULLIFY(YDATA_ISBA%XPAR_VEG)
  NULLIFY(YDATA_ISBA%XPAR_WRMAX_CF)
  NULLIFY(YDATA_ISBA%XPAR_RSMIN)
  NULLIFY(YDATA_ISBA%XPAR_GAMMA)
  NULLIFY(YDATA_ISBA%XPAR_CV)
  NULLIFY(YDATA_ISBA%XPAR_RGL)
  NULLIFY(YDATA_ISBA%XPAR_ROOTFRAC)
  NULLIFY(YDATA_ISBA%XPAR_BSLAI)
  NULLIFY(YDATA_ISBA%XPAR_LAIMIN)
  NULLIFY(YDATA_ISBA%XPAR_SEFOLD)
  NULLIFY(YDATA_ISBA%XPAR_H_TREE)
  NULLIFY(YDATA_ISBA%XPAR_GMES)
  NULLIFY(YDATA_ISBA%XPAR_RE25)
  NULLIFY(YDATA_ISBA%LPAR_STRESS)
  NULLIFY(YDATA_ISBA%XPAR_F2I)
  NULLIFY(YDATA_ISBA%XPAR_GC)
  NULLIFY(YDATA_ISBA%XPAR_DMAX)
  NULLIFY(YDATA_ISBA%XPAR_CE_NITRO)
  NULLIFY(YDATA_ISBA%XPAR_CF_NITRO)
  NULLIFY(YDATA_ISBA%XPAR_CNA_NITRO)
  NULLIFY(YDATA_ISBA%XPAR_DG)
  NULLIFY(YDATA_ISBA%XPAR_DICE)
  NULLIFY(YDATA_ISBA%XPAR_GROUND_DEPTH)  
  NULLIFY(YDATA_ISBA%XPAR_ROOT_DEPTH)  
  NULLIFY(YDATA_ISBA%XPAR_ROOT_EXTINCTION)  
  NULLIFY(YDATA_ISBA%XPAR_ROOT_LIN)
  NULLIFY(YDATA_ISBA%XPAR_ALBNIR_SOIL)
  NULLIFY(YDATA_ISBA%XPAR_ALBVIS_SOIL)
  NULLIFY(YDATA_ISBA%XPAR_ALBUV_SOIL)
  NULLIFY(YDATA_ISBA%XPAR_LAI)
  NULLIFY(YDATA_ISBA%XPAR_IRRIG)
  NULLIFY(YDATA_ISBA%XPAR_WATSUP)
  NULLIFY(YDATA_ISBA%XPAR_SEED_M)
  NULLIFY(YDATA_ISBA%XPAR_SEED_D)
  NULLIFY(YDATA_ISBA%XPAR_REAP_M)
  NULLIFY(YDATA_ISBA%XPAR_REAP_D)  
  NULLIFY(YDATA_ISBA%XPAR_GNDLITTER)
  NULLIFY(YDATA_ISBA%XPAR_Z0LITTER)
  NULLIFY(YDATA_ISBA%XPAR_H_VEG)
  NULLIFY(YDATA_ISBA%XPAR_FRAC_HVEG)
  NULLIFY(YDATA_ISBA%XPAR_FRAC_LVEG)
  NULLIFY(YDATA_ISBA%XPAR_FRAC_NVEG)
  NULLIFY(YDATA_ISBA%XPAR_LAI_HVEG)
  NULLIFY(YDATA_ISBA%XPAR_LAI_LVEG)
  NULLIFY(YDATA_ISBA%XPAR_H_HVEG)
  NULLIFY(YDATA_ISBA%XPAR_CONDSAT)
  NULLIFY(YDATA_ISBA%XPAR_MPOTSAT)
  NULLIFY(YDATA_ISBA%XPAR_BCOEF)
  NULLIFY(YDATA_ISBA%XPAR_WWILT)
  NULLIFY(YDATA_ISBA%XPAR_WFC)
  NULLIFY(YDATA_ISBA%XPAR_WSAT)
!
YDATA_ISBA%NVEGTYPE=0
YDATA_ISBA%NTIME=0
YDATA_ISBA%LDATA_MIXPAR=.FALSE.
YDATA_ISBA%LDATA_VEGTYPE=.FALSE. 
!
NULLIFY(YDATA_ISBA%LDATA_LAI)
NULLIFY(YDATA_ISBA%LDATA_VEG)
NULLIFY(YDATA_ISBA%LDATA_Z0)
NULLIFY(YDATA_ISBA%LDATA_EMIS)
NULLIFY(YDATA_ISBA%LDATA_ALBNIR_VEG)
NULLIFY(YDATA_ISBA%LDATA_ALBVIS_VEG)
NULLIFY(YDATA_ISBA%LDATA_ALBUV_VEG)
NULLIFY(YDATA_ISBA%LDATA_ALBNIR_SOIL)
NULLIFY(YDATA_ISBA%LDATA_ALBVIS_SOIL)
NULLIFY(YDATA_ISBA%LDATA_ALBUV_SOIL)
NULLIFY(YDATA_ISBA%LDATA_GNDLITTER)
NULLIFY(YDATA_ISBA%LDATA_Z0LITTER)
NULLIFY(YDATA_ISBA%LDATA_H_VEG)
NULLIFY(YDATA_ISBA%LDATA_IRRIG)
NULLIFY(YDATA_ISBA%LDATA_WATSUP)
!
YDATA_ISBA%LDATA_DG(:) = .FALSE.
YDATA_ISBA%LDATA_ROOTFRAC(:) = .FALSE.
YDATA_ISBA%LDATA_H_TREE(:) = .FALSE.
YDATA_ISBA%LDATA_DICE(:) = .FALSE.
YDATA_ISBA%LDATA_GROUND_DEPTH(:) = .FALSE.
YDATA_ISBA%LDATA_ROOT_DEPTH(:) = .FALSE.
YDATA_ISBA%LDATA_ROOT_EXTINCTION(:) = .FALSE.
YDATA_ISBA%LDATA_ROOT_LIN(:) = .FALSE.
YDATA_ISBA%LDATA_RSMIN(:) = .FALSE.
YDATA_ISBA%LDATA_GAMMA(:) = .FALSE.
YDATA_ISBA%LDATA_WRMAX_CF(:) = .FALSE.
YDATA_ISBA%LDATA_CV(:) = .FALSE.
YDATA_ISBA%LDATA_RGL(:) = .FALSE.
YDATA_ISBA%LDATA_Z0_O_Z0H(:) = .FALSE.
YDATA_ISBA%LDATA_BSLAI(:) = .FALSE.
YDATA_ISBA%LDATA_LAIMIN(:) = .FALSE.
YDATA_ISBA%LDATA_SEFOLD(:) = .FALSE.
YDATA_ISBA%LDATA_GMES(:) = .FALSE.
YDATA_ISBA%LDATA_RE25(:) = .FALSE.
YDATA_ISBA%LDATA_STRESS(:) = .FALSE.
YDATA_ISBA%LDATA_F2I(:) = .FALSE.
YDATA_ISBA%LDATA_GC(:) = .FALSE.
YDATA_ISBA%LDATA_DMAX(:) = .FALSE.
YDATA_ISBA%LDATA_CE_NITRO(:) = .FALSE.
YDATA_ISBA%LDATA_CF_NITRO(:) = .FALSE.
YDATA_ISBA%LDATA_CNA_NITRO(:) = .FALSE.
YDATA_ISBA%LDATA_SEED_M(:) = .FALSE.
YDATA_ISBA%LDATA_SEED_D(:) = .FALSE.
YDATA_ISBA%LDATA_REAP_M(:) = .FALSE.
YDATA_ISBA%LDATA_REAP_D(:) = .FALSE.
!
YDATA_ISBA%LDATA_CONDSAT = .FALSE.
YDATA_ISBA%LDATA_MPOTSAT = .FALSE.
YDATA_ISBA%LDATA_BCOEF = .FALSE.
YDATA_ISBA%LDATA_WWILT = .FALSE.
YDATA_ISBA%LDATA_WFC = .FALSE.
YDATA_ISBA%LDATA_WSAT = .FALSE.
!
YDATA_ISBA%LIMP_VEG=.FALSE.
YDATA_ISBA%LIMP_Z0=.FALSE.
YDATA_ISBA%LIMP_EMIS=.FALSE.
!
IF (LHOOK) CALL DR_HOOK("MODD_DATA_ISBA_N:DATA_ISBA_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DATA_ISBA_INIT