EMIS_GR_FIELD_INIT Subroutine

  1. modd_emis_gr_fieldn.F90
  2. MODD_EMIS_GR_FIELD_n
  3. EMIS_GR_FIELD_INIT

public subroutine EMIS_GR_FIELD_INIT(YEMIS_GR_FIELD)

Arguments

Type IntentOptional AttributesName
type(EMIS_GR_FIELD_t), intent(inout) :: YEMIS_GR_FIELD

Contents

Source Code

EMIS_GR_FIELD_INIT

Source Code

SUBROUTINE EMIS_GR_FIELD_INIT(YEMIS_GR_FIELD)
TYPE(EMIS_GR_FIELD_t), INTENT(INOUT) :: YEMIS_GR_FIELD
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_EMIS_GR_FIELD_N:EMIS_GR_FIELD_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YEMIS_GR_FIELD%CEMIS_GR_AREA)
  NULLIFY(YEMIS_GR_FIELD%CEMIS_GR_NAME)
  NULLIFY(YEMIS_GR_FIELD%NEMIS_GR_TIME)
  NULLIFY(YEMIS_GR_FIELD%XEMIS_GR_FIELDS)
YEMIS_GR_FIELD%NEMIS_GR_NBR=0
YEMIS_GR_FIELD%NEMISPEC_NBR=0
IF (LHOOK) CALL DR_HOOK("MODD_EMIS_GR_FIELD_N:EMIS_GR_FIELD_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE EMIS_GR_FIELD_INIT