GR_BIOG_INIT Subroutine

  1. modd_gr_biogn.F90
  2. MODD_GR_BIOG_n
  3. GR_BIOG_INIT

public subroutine GR_BIOG_INIT(YGR_BIOG)

Arguments

Type IntentOptional AttributesName
type(GR_BIOG_t), intent(inout) :: YGR_BIOG

Contents

Source Code

GR_BIOG_INIT

Source Code

SUBROUTINE GR_BIOG_INIT(YGR_BIOG)
TYPE(GR_BIOG_t), INTENT(INOUT) :: YGR_BIOG
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_GR_BIOG_N:GR_BIOG_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YGR_BIOG%XISOPOT)
  NULLIFY(YGR_BIOG%XMONOPOT)
  NULLIFY(YGR_BIOG%XIACAN)
  NULLIFY(YGR_BIOG%XFISO)
  NULLIFY(YGR_BIOG%XFMONO)
  NULLIFY(YGR_BIOG%XNOFLUX)
IF (LHOOK) CALL DR_HOOK("MODD_GR_BIOG_N:GR_BIOG_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE GR_BIOG_INIT