! This function is to read landcov index and read in the management file
! into an array of memory
       subroutine get_cmz_idx_name(cmzIDX,landc)

       include 'p1werm.inc'
       include 'wpath.inc'
       include 'main/main.inc'
       include 'airpact/spatialGIS.inc'
     
       integer cmzIDX,landc        
    
       integer i

! How to read the manage list data with id and management name in the array?
! does Fortran support data structure?
      
       do i=1,CMZListNum
         if (landc .eq. cmzListCode(i)) then
             tinfil = cmzListName(i)
             cmzIDX=cmzListIDX(i)             
!         write(*,*) 'Management file:',tinfil   
!             go to 100
         end if
        end do
        if (tinfil .eq. '')   go to 200 
            
 ! 100  write(*,*) 'Management file is:',tinfil
  200  write(*,*) 'Management file is not in the list!'    
       return               
       end