hist_restart

INTERFACE:

   subroutine hist_restart (nio, flag)

DESCRIPTION:

Read/write history file restart data. If the current history file(s) are not full, file(s) are opened so that subsequent time samples are added until the file is full. A new history file is used on a branch run.

USES:

     use iobinary
     use clm_varctl, only : nsrest
     use fileutils , only : set_filename, getfil
     use spmdMod   , only : masterproc, mpicom, MPI_REAL8, MPI_INTEGER, MPI_CHARACTER

ARGUMENTS:

     implicit none
     integer, intent(in) :: nio               !restart unit
     character(len=*), intent(in) :: flag     !'read' or 'write'

REVISION HISTORY:

   Created by Mariana Vertenstein

LOCAL VARIABLES: