CFIO_Close
– Closes file
This routine is used to close an open CFIO stream.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer | :: | fid |
File handle |
|||
integer | :: | rc |
Error return code: rc = 0 all is well NetCDF Errors rc = -54 error from ncclos (file close) |
subroutine CFIO_Close ( fid, rc ) ! ! !USES: ! Implicit NONE ! ! !INPUT PARAMETERS: ! integer fid !! File handle ! ! !OUTPUT PARAMETERS: ! integer rc !! Error return code: !! rc = 0 all is well !! !! NetCDF Errors !! ------------- !! rc = -54 error from ncclos (file close) ! !------------------------------------------------------------------------- call ncclos (fid, rc) if (err("Close: error closing file",rc,-54) .NE. 0) return rc = 0 return end subroutine CFIO_Close