Bug fix in landuse_init.f90. The select case for variable harvest_pft was incorrect.

Author: mpaiao

ED/src/init/landuse_init.f90

@@ -417,7 +417,7 @@ subroutine read_landuse_matrix
                      ! back compatibility).                                                !
                      !---------------------------------------------------------------------!
                      select case (trim(vkey))
-                     case ('N_PFT_HARVEST','N.PFT.HARVEST')
+                     case ('HARVEST_PFT','HARVEST.PFT')
                         !---- PFTs to read. -----------------------------------------------!
                         read (cdum, fmt=*) (harvest_pft(h)  ,h=1,nharvest)
                         !------------------------------------------------------------------!