Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(CANOPY_t), | intent(inout) | :: | SB |
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