DATA_COVER_INIT Subroutine

  1. modd_data_covern.F90
  2. MODD_DATA_COVER_n
  3. DATA_COVER_INIT

public subroutine DATA_COVER_INIT(YDATA_COVER)

Arguments

Type IntentOptional AttributesName
type(DATA_COVER_t), intent(inout) :: YDATA_COVER

Contents

Source Code

DATA_COVER_INIT

Source Code

SUBROUTINE DATA_COVER_INIT(YDATA_COVER)
TYPE(DATA_COVER_t), INTENT(INOUT) :: YDATA_COVER
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DATA_COVER_N:DATA_COVER_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YDATA_COVER%XDATA_WEIGHT)
  NULLIFY(YDATA_COVER%XDATA_TOWN)
  NULLIFY(YDATA_COVER%XDATA_NATURE)
  NULLIFY(YDATA_COVER%XDATA_SEA)
  NULLIFY(YDATA_COVER%XDATA_WATER)
  NULLIFY(YDATA_COVER%XDATA_VEGTYPE)
  NULLIFY(YDATA_COVER%XDATA_GARDEN)
  NULLIFY(YDATA_COVER%XDATA_BLD)
  NULLIFY(YDATA_COVER%XDATA_WALL_O_HOR)
YDATA_COVER%LGARDEN=.FALSE.
YDATA_COVER%NYEAR=9999
IF (LHOOK) CALL DR_HOOK("MODD_DATA_COVER_N:DATA_COVER_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DATA_COVER_INIT