TYPE DIAG_EVAP_ISBA_NP_t ! TYPE(DIAG_EVAP_ISBA_t), POINTER :: AL(:)=>NULL() ! END TYPE DIAG_EVAP_ISBA_NP_t