AGRI_INIT Subroutine

  1. modd_agrin.F90
  2. MODD_AGRI_n
  3. AGRI_INIT

public subroutine AGRI_INIT(AG)

Arguments

Type IntentOptional AttributesName
type(AGRI_t), intent(inout) :: AG

Contents

Source Code

AGRI_INIT

Source Code

SUBROUTINE AGRI_INIT(AG)
TYPE(AGRI_t), INTENT(INOUT) :: AG
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_AGRI_N:AGRI_INIT",0,ZHOOK_HANDLE)
  NULLIFY(AG%NIRRINUM)
  NULLIFY(AG%LIRRIGATE)
  NULLIFY(AG%LIRRIDAY)
  NULLIFY(AG%XTHRESHOLDSPT)
IF (LHOOK) CALL DR_HOOK("MODD_AGRI_N:AGRI_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE AGRI_INIT