CH_WATFLUX_INIT Subroutine

  1. modd_ch_watfluxn.F90
  2. MODD_CH_WATFLUX_n
  3. CH_WATFLUX_INIT

public subroutine CH_WATFLUX_INIT(YCH_WATFLUX)

Arguments

Type IntentOptional AttributesName
type(CH_WATFLUX_t), intent(inout) :: YCH_WATFLUX

Contents

Source Code

CH_WATFLUX_INIT

Source Code

SUBROUTINE CH_WATFLUX_INIT(YCH_WATFLUX)
TYPE(CH_WATFLUX_t), INTENT(INOUT) :: YCH_WATFLUX
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_CH_WATFLUX_N:CH_WATFLUX_INIT",0,ZHOOK_HANDLE)
NULLIFY(YCH_WATFLUX%XDEP)
NULLIFY(YCH_WATFLUX%CCH_NAMES)
NULLIFY(YCH_WATFLUX%CAER_NAMES)
NULLIFY(YCH_WATFLUX%CDSTNAMES)
NULLIFY(YCH_WATFLUX%CSLTNAMES)
YCH_WATFLUX%CCH_DRY_DEP=' '
CALL SV_INIT(YCH_WATFLUX%SVW)
IF (LHOOK) CALL DR_HOOK("MODD_CH_WATFLUX_N:CH_WATFLUX_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE CH_WATFLUX_INIT