DATA_TSZ0_INIT Subroutine

  1. modd_data_tsz0n.F90
  2. MODD_DATA_TSZ0_n
  3. DATA_TSZ0_INIT

public subroutine DATA_TSZ0_INIT(YDATA_TSZ0)

Arguments

Type IntentOptional AttributesName
type(DATA_TSZ0_t), intent(inout) :: YDATA_TSZ0

Contents

Source Code

DATA_TSZ0_INIT

Source Code

SUBROUTINE DATA_TSZ0_INIT(YDATA_TSZ0)
TYPE(DATA_TSZ0_t), INTENT(INOUT) :: YDATA_TSZ0
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DATA_TSZ0_N:DATA_TSZ0_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YDATA_TSZ0%XDATA_DTS)
  NULLIFY(YDATA_TSZ0%XDATA_DHUGRD)
YDATA_TSZ0%NTIME=0
IF (LHOOK) CALL DR_HOOK("MODD_DATA_TSZ0_N:DATA_TSZ0_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DATA_TSZ0_INIT