! This function is to read landcov index and read in the management file
! into an array of memory
       subroutine read_manage1(idx)

       include 'p1werm.inc'
       include 'wpath.inc'
       include 'main/main.inc'
       integer idx 
       
       if (idx < 17) then
       select case (idx)
       case (1)
! There is no wheat planted in north of this zone
!        tinfil='Wheat, winter, NT, after fallow, CMZ50.man'
       tinfil = 'Wheat,winter; annual, mb plow, Z50.man'  
!       tinfil = 'Wheat, winter; Fallow, chemical, no till.man'
!       tinfil = 'Wheat, winter; Fallow; early seed, mb plow.man'
       case(2)
!        tinfil = 'Pasture, permanent; rotation grazing, Z51.man'
       tinfil='Pasture,yr1 fall plant;clean till,fall mb plow,Z51.man'
!       tinfil = 'Grass-hay,rotationCMZ51.man'
!      only one crop practice at multi-rotation  
       case(3)
!        tinfil= 'Wheat,winter,after fallow,NT,Z46.man'
       tinfil = 'Wheat, winter, conv, fplow, Z46.man' 
!        tinfil = 'wheat,winter,spring,fallow,nt,CMZ46.man'
!       tinfil = 'wheat,winter,mtfallowCMZ46.man' 
       case(4)
!       tinfil='Oats,spring;nt,,Z52.man'   
       tinfil='Oats, spring; mt, fall chisel,,Z52.man'  
!        tinfil = 'Grass-hay rotation, oats,ct,CMZ52.man'
!       tinfil = 'Grass-hay rotation, oats,mt,CMZ52.man'
       case(5)
!! Only part corn. There is no wheat planted in this zone
!        tinfil ='Corn, silage; no till,  Z53.man'
!       tinfil='Corn,silage;clean till,fall disk and mb plow,Z53.man'
        tinfil='Wheat, winter; no till,  Z53.man'
 !       tinfil = 'Wheat, winter; clean till, mb plow,  Z53.man'
!        tinfil='Wheat, winter;Clover annual,no till,mulch till,Z53.man'
!       tinfil='Wheat,winter;Clover annual,mt,chisel_fld cult,Z53.man'   
       case(6)
!        tinfil = 'Pasture, permanent; rotation grazing, Z71.man'
       tinfil ='Pasture,yr1 fall plant;clean till,fall mb plow,Z71.man' 
!       tinfil='Pasture,manureappl.,rotation grz,5yr.,fallestb.,Z71.man'
!       tinfil='Pasture,manureappl,rotation grz,5yr,spring estb,Z71.man'     
       case(7)
!        tinfil = 'Pasture, permanent; rotation grazing, Z56.man' 
        tinfil='Pasture,yr1 fall plant;clean till,fall mb plow,Z56.man' 
!        tinfil='Pasture,manureappl,rotation grz,5yr,fall estb,Z56.man'
!       tinfil ='Pasture,manureappl,rot grz,5yr,spring estb,Z56.man'
       case(8)
!        tinfil='Wheat,winter,late plant,NT,Z47.man'
        tinfil = 'Wheat, winter, early plant, conv, fplow, Z47.man'    
!       tinfil='Wht,winter,NT,Wht,spring,Fchisel,LentilsFdisk,CMZ47.man'
!       tinfil='Wht,wnt,fsl,Wht,spr,fsl,Wht,wnt,fsl,Pea,fsl,CMZ47.man'
       case(9)
!        tinfil='Wheat,winter,after fallow, nt.Z49.man' 
        tinfil = 'Wheat,winter,after fallow,conv,Z49.man'
!        tinfil = 'wheat,winter,fallow,ntmCMZ49.man'
!       tinfil = 'wheat,winter,fallow,mtm,CMZ49.man'       
       case(10)
!         tinfil ='Pasture, permanent; rotation grazing, Z54.man'
       tinfil='Pasture,yr1 fall plant;clean till,fall mb plow,Z54.man'
   
        case(11)
!         tinfil = 'wheat,winter,NT, cm8.man'
        tinfil='wheat,winter,MT, cm8.man'
!         tinfil='wheat.spr-fallow,NT,cm8.man'
!       tinfil = 'wheat.spr-fallow,MT,cm8.man' 

       case(12)
        tinfil='Wheat, winter, after fallow, conv., CMZ50.man'   
       case(13)
        tinfil='Wheat, winter, after fallow, conv., CMZ50.man'   
       case(14)
        tinfil='Wheat, winter, after fallow, conv., CMZ50.man'   
       case(15)
        tinfil='Wheat, winter, after fallow, conv., CMZ50.man'  
       case(16)
        tinfil='Wheat, winter, after fallow, conv., CMZ50.man' 
       end select

       else
       tinfil='Wheat, winter, after fallow, conv., CMZ50.man' 
       end if

       end