SURF_ATM_INIT Subroutine

SUBROUTINE SURF_ATM_INIT(YSURF_ATM)
TYPE(SURF_ATM_t), INTENT(INOUT) :: YSURF_ATM
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_SURF_ATM_N:SURF_ATM_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YSURF_ATM%XTOWN)
  NULLIFY(YSURF_ATM%XNATURE)
  NULLIFY(YSURF_ATM%XWATER)
  NULLIFY(YSURF_ATM%XSEA)
  NULLIFY(YSURF_ATM%NR_SEA)
  NULLIFY(YSURF_ATM%NR_WATER)
  NULLIFY(YSURF_ATM%NR_TOWN)
  NULLIFY(YSURF_ATM%NR_NATURE)
  NULLIFY(YSURF_ATM%XCOVER)
  NULLIFY(YSURF_ATM%LCOVER)
  NULLIFY(YSURF_ATM%XZS)
  NULLIFY(YSURF_ATM%XRAIN)
  NULLIFY(YSURF_ATM%XSNOW)
  NULLIFY(YSURF_ATM%XZ0)
  NULLIFY(YSURF_ATM%XZ0H)
  NULLIFY(YSURF_ATM%XQSURF)
YSURF_ATM%CTOWN=' '
YSURF_ATM%CNATURE=' '
YSURF_ATM%CWATER=' '
YSURF_ATM%CSEA=' '
YSURF_ATM%LECOCLIMAP=.FALSE.
YSURF_ATM%LECOSG=.FALSE.
YSURF_ATM%LWATER_TO_NATURE=.FALSE.
YSURF_ATM%LTOWN_TO_ROCK=.FALSE.
YSURF_ATM%LGARDEN=.FALSE.
YSURF_ATM%NSIZE_SEA=0
YSURF_ATM%NDIM_SEA=0
YSURF_ATM%NSIZE_WATER=0
YSURF_ATM%NDIM_WATER=0
YSURF_ATM%NSIZE_TOWN=0
YSURF_ATM%NDIM_TOWN=0
YSURF_ATM%NSIZE_NATURE=0
YSURF_ATM%NDIM_NATURE=0
YSURF_ATM%NSIZE_FULL=0
YSURF_ATM%NDIM_FULL=0
YSURF_ATM%NIMAX_SURF_ll=0
YSURF_ATM%NJMAX_SURF_ll=0
YSURF_ATM%NIMAX_SURF_LOC=0
YSURF_ATM%NJMAX_SURF_LOC=0
YSURF_ATM%XOUT_TSTEP=0.
IF (LHOOK) CALL DR_HOOK("MODD_SURF_ATM_N:SURF_ATM_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE SURF_ATM_INIT