do_disp (Source File: do_close_dispose.F90)

INTERFACE:

 subroutine do_disp (ntapes, hist_ntimes, hist_mfilt, if_stop, if_disphist, rstwr, nlend)

DESCRIPTION:

Determine logic for closeing and/or disposing history file Sets values for if_disphist, if_stop (arguments) Remove history files unless this is end of run or history file is not full.

USES:

   use shr_kind_mod    , only : r8 => shr_kind_r8
   use shr_sys_mod     , only : shr_sys_abort
   use clm_time_manager, only : is_last_step

ARGUMENTS:

   implicit none
   integer, intent(in)  :: ntapes              !actual number of history tapes
   integer, intent(in)  :: hist_ntimes(ntapes) !current numbers of time samples on history tape
   integer, intent(in)  :: hist_mfilt(ntapes)  !maximum number of time samples per tape
   logical, intent(out) :: if_stop             !true => last time step of run
   logical, intent(out) :: if_disphist(ntapes) !true => save and dispose history file
   logical, intent(in)  :: rstwr
   logical, intent(in)  :: nlend

REVISION HISTORY:

   Created by Mariana Vertenstein

LOCAL VARIABLES: