TYPE DIAG_MISC_ISBA_NP_t ! TYPE(DIAG_MISC_ISBA_t), POINTER :: AL(:)=>NULL() ! END TYPE DIAG_MISC_ISBA_NP_t