DIAG_INIT Subroutine

SUBROUTINE DIAG_INIT(D)
TYPE(DIAG_t), INTENT(INOUT) :: D
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_N:DIAG_INIT",0,ZHOOK_HANDLE)
  NULLIFY(D%XRI)
  NULLIFY(D%XCD)
  NULLIFY(D%XCDN)
  NULLIFY(D%XCH)
  NULLIFY(D%XCE)
  NULLIFY(D%XHU)
  NULLIFY(D%XHUG)
  NULLIFY(D%XHV)  
  NULLIFY(D%XRN)
  NULLIFY(D%XH)
  NULLIFY(D%XLE)
  NULLIFY(D%XLEI)
  NULLIFY(D%XGFLUX)
  NULLIFY(D%XEVAP)
  NULLIFY(D%XSUBL)  
  NULLIFY(D%XTS)
  NULLIFY(D%XTSRAD)
  NULLIFY(D%XALBT)  
  NULLIFY(D%XSWE)  
  NULLIFY(D%XT2M)
  NULLIFY(D%XT2M_MIN)
  NULLIFY(D%XT2M_MAX)
  NULLIFY(D%XQ2M)
  NULLIFY(D%XHU2M)
  NULLIFY(D%XQS)
  NULLIFY(D%XZON10M)
  NULLIFY(D%XMER10M)
  NULLIFY(D%XWIND10M)
  NULLIFY(D%XWIND10M_MAX)  
  NULLIFY(D%XLWD)
  NULLIFY(D%XLWU)
  NULLIFY(D%XSWD)
  NULLIFY(D%XSWU)
  NULLIFY(D%XSWBD)
  NULLIFY(D%XSWBU)
  NULLIFY(D%XFMU)
  NULLIFY(D%XFMV)
  NULLIFY(D%XZ0)
  NULLIFY(D%XZ0H)
  NULLIFY(D%XZ0EFF)
  NULLIFY(D%XT2M_MIN_ZS)
  NULLIFY(D%XQ2M_MIN_ZS)
  NULLIFY(D%XHU2M_MIN_ZS)
  NULLIFY(D%XPS)
  NULLIFY(D%XRHOA)
  NULLIFY(D%XSSO_FMU)
  NULLIFY(D%XSSO_FMV)
  NULLIFY(D%XUREF)
  NULLIFY(D%XZREF)
  NULLIFY(D%XTRAD)
  NULLIFY(D%XEMIS)
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_N:DIAG_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DIAG_INIT