INTERFACE:
subroutine restart_history (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 clmtype, only : grid1d, land1d, cols1d, pfts1d
use clm_varctl, only : archive_dir, nsrest, mss_irt
use fileutils, only : set_filename, getfil
#if (defined SPMD)
use spmdMod, only : masterproc, mpicom, MPI_REAL8, MPI_INTEGER, MPI_CHARACTER
#else
use spmdMod, only : masterproc
#endif
ARGUMENTS:
implicit none
integer, intent(in) :: nio !restart unit
character(len=*), intent(in) :: flag !'read' or 'write'
!REVISION HISTORY
Created by Mariana Vertenstein