CH_EMIS_FIELD_INIT Subroutine

  1. modd_ch_emis_fieldn.F90
  2. MODD_CH_EMIS_FIELD_n
  3. CH_EMIS_FIELD_INIT

public subroutine CH_EMIS_FIELD_INIT(YCH_EMIS_FIELD)

Arguments

Type IntentOptional AttributesName
type(CH_EMIS_FIELD_t), intent(inout) :: YCH_EMIS_FIELD

Contents

Source Code

CH_EMIS_FIELD_INIT

Source Code

SUBROUTINE CH_EMIS_FIELD_INIT(YCH_EMIS_FIELD)
TYPE(CH_EMIS_FIELD_t), INTENT(INOUT) :: YCH_EMIS_FIELD
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_CH_EMIS_FIELD_N:CH_EMIS_FIELD_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YCH_EMIS_FIELD%CEMIS_AREA)
  NULLIFY(YCH_EMIS_FIELD%CEMIS_COMMENT)
  NULLIFY(YCH_EMIS_FIELD%CEMIS_NAME)
  NULLIFY(YCH_EMIS_FIELD%NEMIS_TIME)
  NULLIFY(YCH_EMIS_FIELD%XEMIS_FIELDS)
  NULLIFY(YCH_EMIS_FIELD%TSEMISS)
YCH_EMIS_FIELD%XTIME_SIMUL=0.
YCH_EMIS_FIELD%NEMIS_NBR=0
YCH_EMIS_FIELD%NTIME_MAX=-1
YCH_EMIS_FIELD%NEMISPEC_NBR=0
IF (LHOOK) CALL DR_HOOK("MODD_CH_EMIS_FIELD_N:CH_EMIS_FIELD_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE CH_EMIS_FIELD_INIT