CANOPY_INIT Subroutine

public subroutine CANOPY_INIT(SB)

Arguments

Type IntentOptional AttributesName
type(CANOPY_t), intent(inout) :: SB

Contents

Source Code


Source Code

SUBROUTINE CANOPY_INIT(SB)
TYPE(CANOPY_t), INTENT(INOUT) :: SB
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_CANOPY_N:CANOPY_INIT",0,ZHOOK_HANDLE)
  NULLIFY(SB%XZ)
  NULLIFY(SB%XU)
  NULLIFY(SB%XT)
  NULLIFY(SB%XQ)
  NULLIFY(SB%XTKE)
  NULLIFY(SB%XLMO)
  NULLIFY(SB%XLM)
  NULLIFY(SB%XLEPS)
  NULLIFY(SB%XP)
  NULLIFY(SB%XDZ)
  NULLIFY(SB%XZF)
  NULLIFY(SB%XDZF)
SB%NLVL=0
IF (LHOOK) CALL DR_HOOK("MODD_CANOPY_N:CANOPY_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE CANOPY_INIT