-8.7 属性を削除する: NF_DEL

関数 NF_DEL_ATT は開かれたNetCDFファイルから NetCDF 属性を削除します。NetCDF ファイルは定義モードになっている必要があります。

INTEGER FUNCTION NF_DEL_ATT (INTEGER NCID, INTEGER VARID,

CHARACTER*(*) NAME)

NCID	以前の NF_OPEN 又は NF_CREATE 呼び出しで返されたNetCDF ID。
VARID	属性の変数のID、又はグローバル属性の NF_GLOBAL 。
NAME	元の属性名。

エラーが発生していなければ、 NF_DEL_ATT は NF_NOERR の値を返します。それ以外の場合には、返されたステータスがエラーを示します。エラーの原因として次のようなものが考えられます。

指定されたNetCDF ファイルがデータモードになっている。

指定された属性が存在しない。

指定されたNetCDF IDが開かれたNetCDFファイルを参照していない。

この例では、 NF_DEL_ATT を使って、既存の foo.nc というNetCDFファイルから変数 rh の変数属性Units を削除します。

INCLUDE 'netcdf.inc'

...

INTEGER STATUS            ! エラーステータス

INTEGER NCID              ! NetCDF ID

INTEGER RHID              ! 変数 ID

...

STATUS = NF_OPEN ('foo.nc', NF_WRITE, NCID)

IF (STATUS .NE. NF_NOERR) CALL HANDLE_ERR(STATUS)

...

STATUS = NF_INQ_VARID (NCID, 'rh', RHID)

IF (STATUS .NE. NF_NOERR) CALL HANDLE_ERR(STATUS)

...

! 属性の削除

STATUS = NF_REDEF (NCID)  ! 定義モードに入る

IF (STATUS .NE. NF_NOERR) CALL HANDLE_ERR(STATUS)

STATUS = NF_DEL_ATT (NCID, RHID, 'Units')

IF (STATUS .NE. NF_NOERR) CALL HANDLE_ERR(STATUS)

STATUS = NF_ENDDEF (NCID) ! 定義モードを出る

IF (STATUS .NE. NF_NOERR) CALL HANDLE_ERR(STATUS)