Correct name of pointer for QSNOEVAP in history, this fixes ESCOMP#624

ekluzek · Jan 23, 2019 · bb1bd0b · bb1bd0b
1 parent 02f0af2
commit bb1bd0b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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',  &