diff --git a/main/EDTypesMod.F90 b/main/EDTypesMod.F90 index 7e9a247f..58a7cd7c 100644 --- a/main/EDTypesMod.F90 +++ b/main/EDTypesMod.F90 @@ -100,14 +100,6 @@ module EDTypesMod ! special mode to cause PFTs to create seed mass of all currently-existing PFTs logical, parameter :: homogenize_seed_pfts = .false. - integer, parameter :: nlevmclass_ed = 6 ! nlev "mortality" classes in ED - ! Number of ways to die - ! (background,hydraulic,carbon,impact,fire,freezing) - - character(len = 10), parameter,dimension(nlevmclass_ed) :: char_list = & - (/"background","hydraulic ","carbon ","impact ","fire ","freezing "/) - - !************************************ !** COHORT type structure ** !************************************