diff --git a/cime_config/testdefs/ExpectedTestFails.xml b/cime_config/testdefs/ExpectedTestFails.xml index 4b9b0ca8b0..a51b26d31c 100644 --- a/cime_config/testdefs/ExpectedTestFails.xml +++ b/cime_config/testdefs/ExpectedTestFails.xml @@ -33,7 +33,7 @@ FAIL - #158 + #203 diff --git a/tools/mksurfdata_map/src/mksurfdat.F90 b/tools/mksurfdata_map/src/mksurfdat.F90 index acba4e8719..236740282c 100644 --- a/tools/mksurfdata_map/src/mksurfdat.F90 +++ b/tools/mksurfdata_map/src/mksurfdat.F90 @@ -93,6 +93,7 @@ program mksurfdat type(pct_pft_type), allocatable :: pctnatpft_max(:) ! % of grid cell maximum PFTs of the time series type(pct_pft_type), allocatable :: pctcft(:) ! % of grid cell that is crop, and breakdown into CFTs type(pct_pft_type), allocatable :: pctcft_max(:) ! % of grid cell maximum CFTs of the time series + real(r8) :: harvest_initval ! initial value for harvest variables real(r8), pointer :: harvest1D(:) ! harvest 1D data: normalized harvesting real(r8), pointer :: harvest2D(:,:) ! harvest 1D data: normalized harvesting real(r8), allocatable :: pctgla(:) ! percent of grid cell that is glacier @@ -568,7 +569,14 @@ program mksurfdat ndiag=ndiag, pctlnd_o=pctlnd_pft, pctnatpft_o=pctnatpft, pctcft_o=pctcft) ! Create harvesting data at model resolution - call mkharvest_init( ns_o, spval, harvdata, mksrf_fhrvtyp ) + if (all_veg) then + ! In this case, we don't call mkharvest, so we want the harvest variables to be + ! initialized reasonably. + harvest_initval = 0._r8 + else + harvest_initval = spval + end if + call mkharvest_init( ns_o, harvest_initval, harvdata, mksrf_fhrvtyp ) if ( .not. all_veg )then call mkharvest( ldomain, mapfname=map_fharvest, datfname=mksrf_fhrvtyp, &