Error Checking

Subroutines for validating NetCDF operations and memory allocation.

check (Generic Interface)

The check interface dispatches to three subroutines based on arguments:

General NetCDF status check. Aborts with a colored error message on failure.

call check(nf90_status)

Parameter	Intent	Type	Description
`nf90_status`	`in`	`integer`	Return code from any `nf90_*` call

Validates that the declared FPL type matches the NetCDF variable type.

call check(nf90_status, vartype_code, declared_type_string, filepath)

Parameter	Intent	Type	Description
`nf90_status`	`in`	`integer`	NetCDF status
`vartype_code`	`in`	`integer`	NetCDF variable type (1=byte, 3=short, 4=int, 5=float, 6=double)
`declared_type_string`	`in`	`character(*)`	Type declared by the user
`filepath`	`in`	`character(*)`	File path for diagnostics

Validates NetCDF attribute retrieval. Behavior depends on the attribute:

_FillValue: Aborts with an error message and ncatted suggestion to add the attribute
Other attributes (e.g., units): Prints a warning and continues processing, with an ncatted suggestion

call check(nf90_status, attribute_name, filepath)

Parameter	Intent	Type	Description
`nf90_status`	`in`	`integer`	NetCDF status
`attribute_name`	`in`	`character(*)`	Attribute name (e.g., `"_FillValue"`)
`filepath`	`in`	`character(*)`	File path for diagnostics

Checks nf90_inq_varid status. Aborts if variable not found.

call checkvarid(nf90_status, varname)

Checks nf90_inq_dimid status. Aborts if dimension not found.

call checkdimid(nf90_status, dimname)

Checks allocate / deallocate status.

integer :: istat
allocate(array(n), stat=istat)
call check_alloc(istat, "array")

Parameter	Intent	Type	Description
`istat`	`in`	`integer`	Status from `stat=` keyword
`arrname`	`in`	`character(*)`	Array name for error message

Extracts and prints the filename component from a full path.

call print_filename("/path/to/file.nc")
! Output: File: file.nc