INTERFACE:
subroutine check_ret(ret, cstring)
Check return status from netcdf call
ARGUMENTS:
implicit none integer, intent(in) :: ret character(len=*) :: cstring