CH_SURF_INIT Subroutine

  1. modd_ch_surfn.F90
  2. MODD_CH_SURF_n
  3. CH_SURF_INIT

public subroutine CH_SURF_INIT(YCH_SURF)

Arguments

Type IntentOptional AttributesName
type(CH_SURF_t), intent(inout) :: YCH_SURF

Contents

Source Code

CH_SURF_INIT

Source Code

SUBROUTINE CH_SURF_INIT(YCH_SURF)
TYPE(CH_SURF_t), INTENT(INOUT) :: YCH_SURF
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_CH_SURF_N:CH_SURF_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YCH_SURF%CCH_NAMES)
  NULLIFY(YCH_SURF%CAER_NAMES)
  NULLIFY(YCH_SURF%XCONVERSION)
YCH_SURF%CCH_EMIS=' '
YCH_SURF%CCHEM_SURF_FILE=' '
YCH_SURF%LCH_SURF_EMIS=.FALSE.
YCH_SURF%LCH_EMIS=.FALSE.
IF (LHOOK) CALL DR_HOOK("MODD_CH_SURF_N:CH_SURF_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE CH_SURF_INIT