deallocate local variables in satmedmfvdifq at end of run phase

Author: grantfirl

physics/PBL/SATMEDMF/satmedmfvdifq.F

@@ -3098,6 +3098,11 @@ subroutine satmedmfvdifq_run(im,km,ntrac,ntcw,ntrw,               &
       endif  !sa3dtke
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+      if (do_canopy) then
+        if(allocated(EDDYVESTX)) deallocate(EDDYVESTX)
+        if(allocated(ZCANX)) deallocate(ZCANX)
+      endif
+      
       return
       end subroutine satmedmfvdifq_run
 !> @}