CASARest

INTERFACE:

   subroutine CASARest(ncid, flag)

DESCRIPTION:

Read/Write CASA information to/from restart file.

USES:

     use clmtype
     use ncdio_pio
     use clm_time_manager, only : is_restart

ARGUMENTS:

     implicit none
     type(file_desc_t), intent(inout) :: ncid  !netcdf id
     character(len=*) , intent(in)    :: flag  !flag='read, data= or 'write'

CALLED FROM:

   restart in restFileMod

REVISION HISTORY:

   Author: Mariana Vertenstein
   2004.06.08 Vectorized and reformatted by Forrest Hoffman

LOCAL VARIABLES:

     integer :: p,j                        ! indices
     logical :: readvar                    ! determine if variable is on initial file
     type(gridcell_type), pointer :: gptr  ! pointer to gridcell derived subtype
     type(landunit_type), pointer :: lptr  ! pointer to landunit derived subtype
     type(column_type)  , pointer :: cptr  ! pointer to column derived subtype
     type(pft_type)     , pointer :: pptr  ! pointer to pft derived subtype