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

… was incorrect.
mpaiao · Oct 16, 2021 · fad1b30 · fad1b30
1 parent 2e1977a
commit fad1b30
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ED/src/init/landuse_init.f90 b/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)
                         !------------------------------------------------------------------!