TEB_IRRIG_INIT Subroutine

  1. modd_teb_irrign.F90
  2. MODD_TEB_IRRIG_n
  3. TEB_IRRIG_INIT

public subroutine TEB_IRRIG_INIT(YTEB_IRRIG)

Arguments

Type IntentOptional AttributesName
type(TEB_IRRIG_t), intent(inout) :: YTEB_IRRIG

Contents

Source Code

TEB_IRRIG_INIT

Source Code

SUBROUTINE TEB_IRRIG_INIT(YTEB_IRRIG)
TYPE(TEB_IRRIG_t), INTENT(INOUT) :: YTEB_IRRIG
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_TEB_IRRIG_N:TEB_IRRIG_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YTEB_IRRIG%XGD_START_MONTH)
  NULLIFY(YTEB_IRRIG%XGD_END_MONTH)
  NULLIFY(YTEB_IRRIG%XGD_START_HOUR)
  NULLIFY(YTEB_IRRIG%XGD_END_HOUR)
  NULLIFY(YTEB_IRRIG%XGD_24H_IRRIG)
  NULLIFY(YTEB_IRRIG%XGR_START_MONTH)
  NULLIFY(YTEB_IRRIG%XGR_END_MONTH)
  NULLIFY(YTEB_IRRIG%XGR_START_HOUR)
  NULLIFY(YTEB_IRRIG%XGR_END_HOUR)
  NULLIFY(YTEB_IRRIG%XGR_24H_IRRIG)
  NULLIFY(YTEB_IRRIG%XRD_START_MONTH)
  NULLIFY(YTEB_IRRIG%XRD_END_MONTH)
  NULLIFY(YTEB_IRRIG%XRD_START_HOUR)
  NULLIFY(YTEB_IRRIG%XRD_END_HOUR)
  NULLIFY(YTEB_IRRIG%XRD_24H_IRRIG)
YTEB_IRRIG%LTEB_IRRIG = .FALSE.
YTEB_IRRIG%LPAR_GD_IRRIG = .FALSE.
YTEB_IRRIG%LPAR_GR_IRRIG = .FALSE.
YTEB_IRRIG%LPAR_RD_IRRIG = .FALSE.
IF (LHOOK) CALL DR_HOOK("MODD_TEB_IRRIG_N:TEB_IRRIG_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE TEB_IRRIG_INIT