DST_INIT Subroutine

  1. modd_dstn.F90
  2. MODD_DST_n
  3. DST_INIT

public subroutine DST_INIT(YDST)

Arguments

Type IntentOptional AttributesName
type(DST_t), intent(inout) :: YDST

Contents

Source Code

DST_INIT

Source Code

SUBROUTINE DST_INIT(YDST)
TYPE(DST_t), INTENT(INOUT) :: YDST
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DST_N:DST_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YDST%NVT_DST)
  NULLIFY(YDST%NSIZE_PATCH_DST)
  NULLIFY(YDST%NR_PATCH_DST)
  NULLIFY(YDST%Z0_EROD_DST)
  NULLIFY(YDST%CSV_DST)
  NULLIFY(YDST%XSFDST)
  NULLIFY(YDST%XSFDSTM)
  NULLIFY(YDST%XEMISRADIUS_DST)
  NULLIFY(YDST%XEMISSIG_DST)
  NULLIFY(YDST%XMSS_FRC_SRC)
IF (LHOOK) CALL DR_HOOK("MODD_DST_N:DST_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DST_INIT