restart_wrapup

INTERFACE:

   subroutine restart_wrapup (nio, flag)

DESCRIPTION:

   Close and archive restart file and write restart pointer file if
   in write mode, otherwise just close restart file if in read mode

USES:

     use clm_varctl, only : mss_irt, mss_wpass, archive_dir
 #if (defined COUP_CSM)
     use clm_csmMod, only : csmstop_next
 #endif
     use fileutils, only : putfil, relavu, set_filename
     use time_manager, only : is_last_step

ARGUMENTS:

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

CALLED FROM:

   subroutine restart in this module

REVISION HISTORY:

   Author: Mariana Vertenstein