Merge pull request #1121 from rgknox/ncwd-ndk-fix

Fixed argument type declaration for the number of cwd pools in the litter mod
NGEET · Nov 21, 2023 · 133d57f · 133d57f
2 parents 0b105be + bbb0b54
commit 133d57f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/biogeochem/FatesLitterMod.F90 b/biogeochem/FatesLitterMod.F90
@@ -447,7 +447,7 @@ subroutine adjust_SF_CWD_frac(dbh,ncwd,SF_val_CWD_frac,SF_val_CWD_frac_adj)
 
      !ARGUMENTS
      real(r8), intent(in)               :: dbh !dbh of cohort [cm]
-     type(integer), intent(in)          :: ncwd !number of cwd pools
+     integer,  intent(in)               :: ncwd !number of cwd pools
      real(r8), intent(in)               :: SF_val_CWD_frac(:) !fates parameter specifying the
                                                               !fraction of struct + sapw going
                                                               !to each CWD class