This archive contains answers to questions sent to Unidata support through mid-2025. Note that the archive is no longer being updated. We provide the archive for reference; many of the answers presented here remain technically correct, even if somewhat outdated. For the most up-to-date information on the use of NSF Unidata software and data services, please consult the Software Documentation first.
Ned, >Date: Tue, 26 Mar 1996 10:30:51 -0800 (PST) >From: address@hidden (Ned Patton) >Organization: UC Davis >Subject: Re: 960326: NCCRE returns negative file id? >Keywords: 199603252357.AA09753 In the above message you wrote: > Yes, I am very sure that my problem is occurring. The problem is that > I am getting this error while running on the Cray Y-MP at NCAR > (shavano), and do not have all the build information that you asked > for. But it is running UNICOS 8.something. I did go look at the > dates on the include files and they look like they are a bit old. I couldn't duplicate your problem on Shavano. I had to slightly modify your code because some of the variables weren't declared. Would you please try to replicate your problem using my steps. Let me know what you find. -------- Steve Emmerson <address@hidden> --------Begin log of attempt shavano$ cat nccre-test.F subroutine yzt_cdf_init c c ----------------- subroutine to initialize the netcdf file for a c y-z slice of timeseries data c include 'par.f' include '/usr/local/include/netcdf.inc' c character text*15,num*2 c c ------------ set up filename c netcdf_file = 1 case = 'ad' write(num,'(i2.2)') netcdf_file text = 'yzt.'//case//'.'//num//'.cdf' c c ------------ enter define mode c ncidy = nccre(text,ncclob,rcode) write(*,*) write(*,*) 'ncidy = ',ncidy write(*,*) 'text = ',text write(*,*) 'rcode = ',rcode c c ---------- leave define mode c call ncendf(ncidy,rcode) c c ---------- end sr. yzt_cdf_init c return end program nccre_test call yzt_cdf_init end $ cat par.f shavano$ cat par.f c parameter (nnx = 250, nnz = 32, ndims = 3) c common /cdf_num/ ncidx, ncidy common /cdf_byt/ xbyt_tim, xbyt_cdf, netcdf_file common /cdf_x / ixuid ,ixvid ,ixwid ,ixtid ,ixeid ,ixpid common /cdf_xdy/ ixuyid,ixvyid,ixwyid,ixtyid,ixeyid,ixpyid, + ixdims(ndims) common /cdf_tau/ ixt1id, ixt2id, ixttid, + iyt1id, iyt2id, iyttid, + ixt1yid, ixt2yid, ixttyid, + iyt1xid, iyt2xid, iyttxid common /kase/ case character case*2 shavano$ cf77 -o nccre-test nccre-test.F -L/usr/local/lib -lnetcdf shavano$ rm -rf yzt.ad.01.cdf shavano$ ./nccre-test ncidy = 0 text = yzt.ad.01.cdf rcode = 0. shavano$ ./nccre-test ncidy = 0 text = yzt.ad.01.cdf rcode = 0.