Clean up module, deallocate module-level arrays
subroutine finish_diagnostics_fluxes
implicit none
if (.not. allocated(pflux)) return
deallocate (pflux, pflux_tormom, qheat, vflux, vflux_par, vflux_perp, pmflux, qmheat, vmflux, &
pbflux, qbheat, vbflux, vflux0, vflux1, exchange, exchange1, &
esflux_vs_e, apflux_vs_e, bpflux_vs_e)
end subroutine finish_diagnostics_fluxes