finish_diagnostics_fluxes Subroutine

public subroutine finish_diagnostics_fluxes()

Clean up module, deallocate module-level arrays

Arguments

None

Contents


Source Code

  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