TEB_PANEL_INIT Subroutine

  1. modd_teb_paneln.F90
  2. MODD_TEB_PANEL_n
  3. TEB_PANEL_INIT

public subroutine TEB_PANEL_INIT(YTEB_PANEL)

Arguments

Type IntentOptional AttributesName
type(TEB_PANEL_t), intent(inout) :: YTEB_PANEL

Contents

Source Code

TEB_PANEL_INIT

Source Code

SUBROUTINE TEB_PANEL_INIT(YTEB_PANEL)
TYPE(TEB_PANEL_t), INTENT(INOUT) :: YTEB_PANEL
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_TEB_PANEL_N:TEB_PANEL_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YTEB_PANEL%XEMIS_PANEL)
  NULLIFY(YTEB_PANEL%XALB_PANEL)
  NULLIFY(YTEB_PANEL%XEFF_PANEL)
  NULLIFY(YTEB_PANEL%XFRAC_PANEL)
  NULLIFY(YTEB_PANEL%XTHER_PRODC_DAY)
IF (LHOOK) CALL DR_HOOK("MODD_TEB_PANEL_N:TEB_PANEL_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE TEB_PANEL_INIT