Next: NF_PUT_VARS_ type, Previous: NF_PUT_VAR_ type, Up: Variables
The function NF_PUT_VARA_ type writes values into a netCDF variable of an open netCDF dataset. The part of the netCDF variable to write is specified by giving a corner and a vector of edge lengths that refer to an array section of the netCDF variable. The values to be written are associated with the netCDF variable by assuming that the first dimension of the netCDF variable varies fastest in the FORTRAN interface. The netCDF dataset must be in data mode.
INTEGER FUNCTION NF_PUT_VARA_TEXT(INTEGER NCID, INTEGER VARID, INTEGER START(*), INTEGER COUNT(*), CHARACTER*(*) TEXT) INTEGER FUNCTION NF_PUT_VARA_INT1(INTEGER NCID, INTEGER VARID, INTEGER START(*), INTEGER COUNT(*), INTEGER*1 I1VALS(*)) INTEGER FUNCTION NF_PUT_VARA_INT2(INTEGER NCID, INTEGER VARID, INTEGER START(*), INTEGER COUNT(*), INTEGER*2 I2VALS(*)) INTEGER FUNCTION NF_PUT_VARA_INT (INTEGER NCID, INTEGER VARID, INTEGER START(*), INTEGER COUNT(*), INTEGER IVALS(*)) INTEGER FUNCTION NF_PUT_VARA_REAL(INTEGER NCID, INTEGER VARID, INTEGER START(*), INTEGER COUNT(*), REAL RVALS(*)) INTEGER FUNCTION NF_PUT_VARA_DOUBLE(INTEGER NCID, INTEGER VARID, INTEGER START(*), INTEGER COUNT(*), DOUBLE DVALS(*))
NCID
VARID
START
COUNT
TEXT
I1VALS
I2VALS
IVALS
RVALS
DVALS
NF_PUT_VARA_ type returns the value NF_NOERR if no errors occurred. Otherwise, the returned status indicates an error. Possible causes of errors include:
Here is an example using NF_PUT_VARA_DOUBLE to add or change all the values of the variable named rh to 0.5 in an existing netCDF dataset named foo.nc. For simplicity in this example, we assume that we know that rh is dimensioned with time, lat, and lon, and that there are three time values, five lat values, and ten lon values.
INCLUDE 'netcdf.inc' ... PARAMETER (NDIMS=3) ! number of dimensions PARAMETER (TIMES=3, LATS=5, LONS=10) ! dimension lengths INTEGER STATUS, NCID, TIMES INTEGER RHID ! variable ID INTEGER START(NDIMS), COUNT(NDIMS) DOUBLE RHVALS(LONS, LATS, TIMES) DATA START /1, 1, 1/ ! start at first value DATA COUNT /LONS, LATS, TIMES/ ... 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) DO 10 ILON = 1, LONS DO 10 ILAT = 1, LATS DO 10 ITIME = 1, TIMES RHVALS(ILON, ILAT, ITIME) = 0.5 10 CONTINUE STATUS = NF_PUT_VARA_DOUBLE (NCID, RHID, START, COUNT, RHVALS) IF (STATUS .NE. NF_NOERR) CALL HANDLE_ERR(STATUS)