INTERFACE:
subroutine check_dim(ncid, dimname, value)DESCRIPTION:
Validity check on dimension
ARGUMENTS:
implicit none type(file_desc_t),intent(in) :: ncid ! PIO file handle character(len=*), intent(in) :: dimname ! Dimension name integer, intent(in) :: value ! Expected dimension sizeREVISION HISTORY:
LOCAL VARIABLES: