From d449c7de4541479ed1b4d8e3ae2485a4b8919de5 Mon Sep 17 00:00:00 2001 From: Erik Kluzek Date: Wed, 23 Jan 2019 11:31:45 -0700 Subject: [PATCH] Correct name of pointer for QSNOEVAP in history, this fixes #624 --- src/biogeophys/WaterfluxType.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/biogeophys/WaterfluxType.F90 b/src/biogeophys/WaterfluxType.F90 index 849a0dd21f..40dd0f5979 100644 --- a/src/biogeophys/WaterfluxType.F90 +++ b/src/biogeophys/WaterfluxType.F90 @@ -432,7 +432,7 @@ subroutine InitHistory(this, bounds) this%qflx_ev_snow_patch(begp:endp) = spval call hist_addfld1d (fname='QSNOEVAP', units='mm/s', & avgflag='A', long_name='evaporation from snow', & - ptr_patch=this%qflx_tran_veg_patch, set_lake=0._r8, c2l_scale_type='urbanf') + ptr_patch=this%qflx_ev_snow_patch, set_lake=0._r8, c2l_scale_type='urbanf') this%qflx_snowindunload_patch(begp:endp) = spval call hist_addfld1d (fname='QSNO_WINDUNLOAD', units='mm/s', &