@@ -28,7 +28,7 @@ module histFileMod
2828 use FatesInterfaceTypesMod , only : nlevheight
2929 use FatesInterfaceTypesMod , only : nlevdamage
3030 use FatesConstantsMod , only : n_landuse_cats
31- use FatesLitterMod , only : nfsc
31+ use FatesFuelClassesMod , only : num_fuel_classes
3232 use FatesLitterMod , only : ncwd
3333 use PRTGenericMod , only : num_elements_fates = > num_elements
3434 use FatesInterfaceTypesMod , only : numpft_fates = > numpft
@@ -2506,7 +2506,7 @@ subroutine htape_create (t, histrest)
25062506 call ncd_defdim(lnfid, ' fates_levpft' , numpft_fates, dimid)
25072507 call ncd_defdim(lnfid, ' fates_levage' , nlevage, dimid)
25082508 call ncd_defdim(lnfid, ' fates_levheight' , nlevheight, dimid)
2509- call ncd_defdim(lnfid, ' fates_levfuel' , nfsc , dimid)
2509+ call ncd_defdim(lnfid, ' fates_levfuel' , num_fuel_classes , dimid)
25102510 call ncd_defdim(lnfid, ' fates_levcwdsc' , ncwd, dimid)
25112511 call ncd_defdim(lnfid, ' fates_levscpf' , nlevsclass* numpft_fates, dimid)
25122512 call ncd_defdim(lnfid, ' fates_levcapf' , nlevcoage* numpft_fates, dimid)
@@ -2521,7 +2521,7 @@ subroutine htape_create (t, histrest)
25212521 call ncd_defdim(lnfid, ' fates_levelpft' , num_elements_fates * numpft_fates, dimid)
25222522 call ncd_defdim(lnfid, ' fates_levelcwd' , num_elements_fates * ncwd, dimid)
25232523 call ncd_defdim(lnfid, ' fates_levelage' , num_elements_fates * nlevage, dimid)
2524- call ncd_defdim(lnfid, ' fates_levagefuel' , nlevage * nfsc , dimid)
2524+ call ncd_defdim(lnfid, ' fates_levagefuel' , nlevage * num_fuel_classes , dimid)
25252525 call ncd_defdim(lnfid, ' fates_levclscpf' , nclmax* nlevsclass* numpft_fates, dimid)
25262526 call ncd_defdim(lnfid, ' fates_levlanduse' , n_landuse_cats, dimid)
25272527 call ncd_defdim(lnfid, ' fates_levlulu' , n_landuse_cats * n_landuse_cats, dimid)
@@ -5597,7 +5597,7 @@ subroutine hist_addfld2d (fname, type2d, units, avgflag, long_name, type1d_out,
55975597 case (' fates_levheight' )
55985598 num2d = nlevheight
55995599 case (' fates_levfuel' )
5600- num2d = nfsc
5600+ num2d = num_fuel_classes
56015601 case (' fates_levcwdsc' )
56025602 num2d = ncwd
56035603 case (' fates_levscpf' )
@@ -5637,7 +5637,7 @@ subroutine hist_addfld2d (fname, type2d, units, avgflag, long_name, type1d_out,
56375637 case (' fates_levelage' )
56385638 num2d = num_elements_fates* nlevage
56395639 case (' fates_levagefuel' )
5640- num2d = nlevage* nfsc
5640+ num2d = nlevage* num_fuel_classes
56415641 case (' fates_levclscpf' )
56425642 num2d = nclmax * nclmax * numpft_fates
56435643 case (' fates_levlanduse' )
0 commit comments