CH_FLAKE_INIT Subroutine

  1. modd_ch_flaken.F90
  2. MODD_CH_FLAKE_n
  3. CH_FLAKE_INIT

public subroutine CH_FLAKE_INIT(YCH_FLAKE)

Arguments

Type IntentOptional AttributesName
type(CH_FLAKE_t), intent(inout) :: YCH_FLAKE

Contents

Source Code

CH_FLAKE_INIT

Source Code

SUBROUTINE CH_FLAKE_INIT(YCH_FLAKE)
TYPE(CH_FLAKE_t), INTENT(INOUT) :: YCH_FLAKE
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_CH_FLAKE_N:CH_FLAKE_INIT",0,ZHOOK_HANDLE)
NULLIFY(YCH_FLAKE%XDEP)
NULLIFY(YCH_FLAKE%CCH_NAMES)
NULLIFY(YCH_FLAKE%CAER_NAMES)
NULLIFY(YCH_FLAKE%CDSTNAMES)
NULLIFY(YCH_FLAKE%CSLTNAMES)
YCH_FLAKE%CCH_DRY_DEP=' '
CALL SV_INIT(YCH_FLAKE%SVF)
IF (LHOOK) CALL DR_HOOK("MODD_CH_FLAKE_N:CH_FLAKE_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE CH_FLAKE_INIT