check_var

INTERFACE:

   subroutine check_var(ncid, varname, vardesc, readvar, print_err )

DESCRIPTION:

Check if variable is on netcdf file

ARGUMENTS:

     implicit none
     type(file_desc_t), intent(inout)  :: ncid      ! PIO file descriptor
     character(len=*) , intent(in)     :: varname   ! Varible name to check
     type(Var_desc_t) , intent(out)    :: vardesc   ! Output variable descriptor
     logical          , intent(out)    :: readvar   ! If variable exists or not
     logical, optional, intent(in)     :: print_err ! If should print about error

REVISION HISTORY:

LOCAL VARIABLES: