Error: Rank mismatch...... (scalar and rank-1)怎么解决呢？

Question

outm_netcdf.F:154:48:

  135 |       status=nf_def_var(ncid,'longitude',nf_real,1,nlon1id,nlongit1id)
      |                                                   2
......
  154 |       status=nf_def_var(ncid,'temp',nf_double,3,dim1pass,
      |                                                1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)

以上是程序出错的部分，154:48位置的参数是dim1pass，dim1pass定义代码如下：

dim1pass(1)=nlon1id
dim1pass(2)=nlat1id
dim1pass(3)=ndep1id

nlon1id定义如下：

integer nlon1id,nlongit1id,ndep1id,nlat1id,nlatit1id,ndepth1id
integer nrecsid,ioffsetid

nf_def_var定义如下：

      integer         nf_def_var
!                         (integer             ncid,
!                          character(*)        name,
!                          integer             datatype,
!                          integer             ndims,
!                          integer             dimids(1),
!                          integer             varid)
      external        nf_def_var

Answer 1

我也遇到了类似的问题，作为Fortran小白的我，看了好多资料，敲了n多次代码，终于搞定了。希望我的方法可以解决你的问题。
你可以尝试下以下两种方法：
方法1. 使用gfortan编译时，加入-fallow-argument-mismatch 参数解决 Rank mismath 编译错误。 如下：gfortran -g -fallow-argument-mismatch ReadAndWriteNC.f90 -I/usr/local/include -L/usr/local/bin -lnetcdf -o test
方法2. 在你的代码中进行修改。使用 dim1pass(1) 替换 135 行中 status=nf_def_var(ncid,'longitude',nf_real,1,nlon1id,nlongit1id) 的nlon1id。同理使用dim1pass(2) 替换nlat1id；dim1pass(3)替换ndep1id等

造成这种问题出现的原因，可能与F77和F90参数传递时的要求不一样有关。低版本的编译器中对参数要求较低，但在高版本的编译器中，你传递的参数类型不一致时编译器会报错。我自己理解的，不对之处，希望大神批评指正！