GR_BIOG_NP_INIT Subroutine

SUBROUTINE GR_BIOG_NP_INIT(YGR_BIOG_NP,KPATCH)
TYPE(GR_BIOG_NP_t), INTENT(INOUT) :: YGR_BIOG_NP
INTEGER, INTENT(IN) :: KPATCH
INTEGER :: JP
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_GR_BIOG_N:GR_BIOG_NP_INIT",0,ZHOOK_HANDLE)
!
IF (ASSOCIATED(YGR_BIOG_NP%AL)) THEN
  DO JP = 1,KPATCH
    CALL GR_BIOG_INIT(YGR_BIOG_NP%AL(JP))
  ENDDO        
  DEALLOCATE(YGR_BIOG_NP%AL)
ELSE
  ALLOCATE(YGR_BIOG_NP%AL(KPATCH))
  DO JP = 1,KPATCH
    CALL GR_BIOG_INIT(YGR_BIOG_NP%AL(JP))
  ENDDO
ENDIF
!
IF (LHOOK) CALL DR_HOOK("MODD_GR_BIOG_N:GR_BIOG_NP_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE GR_BIOG_NP_INIT