CH_SEAFLUX_INIT Subroutine

  1. modd_ch_seafluxn.F90
  2. MODD_CH_SEAFLUX_n
  3. CH_SEAFLUX_INIT

public subroutine CH_SEAFLUX_INIT(YCH_SEAFLUX)

Arguments

Type IntentOptional AttributesName
type(CH_SEAFLUX_t), intent(inout) :: YCH_SEAFLUX

Contents

Source Code

CH_SEAFLUX_INIT

Source Code

SUBROUTINE CH_SEAFLUX_INIT(YCH_SEAFLUX)
TYPE(CH_SEAFLUX_t), INTENT(INOUT) :: YCH_SEAFLUX
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_CH_SEAFLUX_N:CH_SEAFLUX_INIT",0,ZHOOK_HANDLE)
NULLIFY(YCH_SEAFLUX%XDEP)
NULLIFY(YCH_SEAFLUX%CCH_NAMES)
NULLIFY(YCH_SEAFLUX%CAER_NAMES)
NULLIFY(YCH_SEAFLUX%CDSTNAMES)
NULLIFY(YCH_SEAFLUX%CSLTNAMES)
YCH_SEAFLUX%CCH_DRY_DEP=' '
CALL SV_INIT(YCH_SEAFLUX%SVS)
IF (LHOOK) CALL DR_HOOK("MODD_CH_SEAFLUX_N:CH_SEAFLUX_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE CH_SEAFLUX_INIT