CASARest

INTERFACE:

   subroutine CASARest(ncid, flag)

DESCRIPTION:

Read/Write CASA information to/from restart file.

USES:

     use clmtype
     use ncdio

ARGUMENTS:

     implicit none
     integer, intent(in) :: ncid           !netcdf id
     character(len=*), intent(in) :: flag  !'read' 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