SLT_INIT Subroutine

  1. modd_sltn.F90
  2. MODD_SLT_n
  3. SLT_INIT

public subroutine SLT_INIT(YSLT)

Arguments

Type IntentOptional AttributesName
type(SLT_t), intent(inout) :: YSLT

Contents

Source Code

SLT_INIT

Source Code

SUBROUTINE SLT_INIT(YSLT)
TYPE(SLT_t), INTENT(INOUT) :: YSLT
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_SLT_N:SLT_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YSLT%XEMISRADIUS_SLT)
  NULLIFY(YSLT%XEMISSIG_SLT)
IF (LHOOK) CALL DR_HOOK("MODD_SLT_N:SLT_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE SLT_INIT