clean_ws_translate Subroutine

  1. ws_distance.F90
  2. w90_ws_distance
  3. clean_ws_translate

public subroutine clean_ws_translate()

Arguments

None

Called by

proc~~clean_ws_translate~~CalledByGraph proc~clean_ws_translate clean_ws_translate proc~ws_translate_dist ws_translate_dist proc~ws_translate_dist->proc~clean_ws_translate proc~plot_interpolate_bands plot_interpolate_bands proc~plot_interpolate_bands->proc~ws_translate_dist

Contents

Source Code

clean_ws_translate

Source Code

  subroutine clean_ws_translate()
    !====================================================!
    implicit none
    done_ws_distance = .false.
    if (allocated(irdist_ws)) deallocate (irdist_ws)
    if (allocated(wdist_ndeg)) deallocate (wdist_ndeg)
    if (allocated(crdist_ws)) deallocate (crdist_ws)
    !====================================================!
  end subroutine clean_ws_translate