replace allocatable -> pointer,contiguous ;
allocate -> MNH_ALLOCATE_ZT*D ;
Some ARRAY SYNTAXE , with implicit copy inrelevenant -> DO CONCURRENT