Yi, Shuhua, Try with ierr = nf_put_var1_double(ncid, varid,1.0) instead of ierr = nf_put_var_double(ncid, varid,1.0) Reagrds, Pilar Ripodas
netcdfgroup