From 6e8ce487210593c4d64ff80cca4886cd0941c6b7 Mon Sep 17 00:00:00 2001 From: Erik Kluzek Date: Wed, 24 Nov 2021 11:29:56 -0700 Subject: [PATCH] Revert "Comment out fates_hdim_levleaf so that don't need a new fates version" This reverts commit 5e1adf8a909386fbef33c9eacef725a992588df4. And hence fixed #1561 by uncommenting fates_levleaf dimension. --- src/main/histFileMod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/main/histFileMod.F90 b/src/main/histFileMod.F90 index 512c50f44a..d44f691d19 100644 --- a/src/main/histFileMod.F90 +++ b/src/main/histFileMod.F90 @@ -2993,7 +2993,7 @@ subroutine htape_timeconst(t, mode) use FatesInterfaceTypesMod, only : fates_hdim_levfuel use FatesInterfaceTypesMod, only : fates_hdim_levcwdsc use FatesInterfaceTypesMod, only : fates_hdim_levcan - !use FatesInterfaceTypesMod, only : fates_hdim_levleaf + use FatesInterfaceTypesMod, only : fates_hdim_levleaf use FatesInterfaceTypesMod, only : fates_hdim_canmap_levcnlf use FatesInterfaceTypesMod, only : fates_hdim_lfmap_levcnlf use FatesInterfaceTypesMod, only : fates_hdim_canmap_levcnlfpf @@ -3156,7 +3156,7 @@ subroutine htape_timeconst(t, mode) call ncd_io(varname='fates_levfuel',data=fates_hdim_levfuel, ncid=nfid(t), flag='write') call ncd_io(varname='fates_levcwdsc',data=fates_hdim_levcwdsc, ncid=nfid(t), flag='write') call ncd_io(varname='fates_levcan',data=fates_hdim_levcan, ncid=nfid(t), flag='write') - !call ncd_io(varname='fates_levleaf',data=fates_hdim_levleaf, ncid=nfid(t), flag='write') + call ncd_io(varname='fates_levleaf',data=fates_hdim_levleaf, ncid=nfid(t), flag='write') call ncd_io(varname='fates_canmap_levcnlf',data=fates_hdim_canmap_levcnlf, ncid=nfid(t), flag='write') call ncd_io(varname='fates_lfmap_levcnlf',data=fates_hdim_lfmap_levcnlf, ncid=nfid(t), flag='write') call ncd_io(varname='fates_canmap_levcnlfpf',data=fates_hdim_canmap_levcnlfpf, ncid=nfid(t), flag='write')