status = NF90_INQ_DIMID(fidA,"x",dimID_LON) call erreur(status,.TRUE.,"inq_dimID_LON") ! 获取维度的值: status = NF90_INQUIRE_DIMENSION(fidA,dimID_TIME,len=nt) call erreur(status,.TRUE.,"inq_dim_TIME") status = NF90_INQUIRE_DIMENSION(fidA,dimID_LAT,len=ny) call erreur(status...
打开NC文件 status = nf_open(filename, nf_nowrite, ncid) if (status /= nf_noerr) then print *, '无法打开文件' stop endif ! 获取变量ID status = nf_inq_varid(ncid, 'variable_name', varid) ! 替换'variable_name'为你的变量名 if (status /= nf_noerr) then print *, '无法获取变...
打开Netcdf文件:使用nf_open函数打开Netcdf文件,并获取文件的ID。 获取变量ID:使用nf_inq_varid函数获取要操作的变量的ID。变量ID是对变量的唯一标识。 获取变量维度:使用nf_inq_varndims和nf_inq_vardimid函数获取变量的维度信息。nf_inq_varndims返回变量的维度数量,nf_inq_vardimid返回变量的维度ID。 获取...
ierr=nf_open(trim(cass_cal),nf_nowrite,ncid1) !open nc file,get ID number (ncid)ierr=nf_...
stat=nf90_open(ncfile, NF90_NOWRITE, fid) stat=nf90_inq_varid(fid, 'sic', varid) stat=nf90_get_var(fid, varid, ice, start=(/180,10,start_num/), count=(/1,1,recnum/)) stat=nf90_inq_varid(fid, 'latitude', varid) ...
fortran新建,添加外部文件和简要读写格式说明 1.建立新的运行空间 File>new>workspace>new>prject>console application>new>file>free-form 2.建立多个文件 可以把子程序文件和主程序文件放在同一个source文件下 3.建立外部文件用于读写数据 Open(1,file=’ exam.txt ‘)用于打开文件，其中1为设备号——用一整数...
open(2,file="output.txt",status="old") read(1,*) ne,nj,n,e,a,zi,np,nf call input(ne,nj,x,y,ij,jn,np,nf,pj,pf) call tsm(ne,nj,n,e,x,y,ij,a,zi,jn,tk) call jlp(ne,nj,n,np,nf,x,y,ij,jn,pj,pf,p) call gauss(tk,p,n) call mvn(ne,nj,n,nf,e,x,y,ij,a...
status=nf90_open(trim(filename),nf90_nowrite,ncid) write(*,*) status !检查文件是否打开,status返回值=0时,证明文件打开正确 !get the id of variables status=nf90_inq_varid(ncid,'lon',varid1) status=nf90_inq_varid(ncid,'lat',varid2) ...
nfherrin/OpenFSAMPublic NotificationsYou must be signed in to change notification settings Fork2 Star1 master 1Branch0Tags Code README MIT license OpenFSAM Description OpenFSAM (Open sourceFortranSimulatedAnnealingModule). A Fortran based open source simulated annealing module. ...
ci Use -nf16 for LLVM 11 tests Mar 7, 2025 cmake chore: add Findlibunwind.cmake file to find libunwind Jan 23, 2025 doc Doc: Improve/fix wsl installation doc Mar 9, 2025 examples fix (cmake): remove flag --generate-object-code from `CMAKE_Fortra… Jan 11, 2025 grammar AST Gramm...