怎么用fortran读取nc格式文件

可以使用NetCDF库来读取nc格式文件，具体的Fortran代码实现可以参考下面的示例：

program read_nc_file
implicit none

! Include netcdf module
use netcdf

! Declare variables
integer :: ncid, varid, ierr, dimid, dimlen
integer :: i, j
real :: lon(360), lat(180), temp(360,180)

! Open netcdf file
ierr = nf_open('test.nc', NF_NOWRITE, ncid)

! Get dimension lengths
ierr = nf_inq_dimid(ncid, 'lon', dimid)
ierr = nf_inq_dimlen(ncid, dimid, dimlen)
write(*,*) 'Longitude size:', dimlen

ierr = nf_inq_dimid(ncid, 'lat', dimid)
ierr = nf_inq_dimlen(ncid, dimid, dimlen)
write(*,*) 'Latitude size:', dimlen

! Get variable data
ierr = nf_inq_varid(ncid, 'lon', varid)
ierr = nf_get_var(ncid, varid, lon)

ierr = nf_inq_varid(ncid, 'lat', varid)
ierr = nf_get_var(ncid, varid, lat)

ierr = nf_inq_varid(ncid, 'temp', varid)
ierr = nf_get_var(ncid, varid, temp)

! Print out the first 10 rows of data
do i = 1, 10
    do j = 1, 10
        write(*,*) i, j, lon(j), lat(i), temp(j,i)
    end do
end do

! Close netcdf file
ierr = nf_close(ncid)

end program read_nc_file

注意：上述代码仅为示例，实际读取nc文件可能需要根据具体情况进行调整。

希望对你有帮助！