子程序中定义的一个参数传递时出现问题

大橙子cqx

[Fortran] 纯文本查看 复制代码

SUBROUTINE zdf_phy1(kt, wp, jpjm1, jpkm1, jpi, jpj, jpk, avt, avm, avm_k, avt_k)
                 INTEGER, INTENT(in) ::   kt  
                 INTEGER, INTENT(in) :: wp 
                 INTEGER, INTENT(in) ::   jpjm1, jpkm1 
                 INTEGER, INTENT(in)  ::   jpi, jpj, jpk
                 REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::   avt, avm
                 REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in) ::   avm_k , avt_k  
                 !
                 avt(:,:,2:jpkm1) = avt_k(:,:,2:jpkm1)
                avm(:,:,2:jpkm1) = avm_k(:,:,2:jpkm1)
END SUBROUTINE zdf_phy1

我在上面的子程序中定义了一个wp，它在另一个module中被定义为一个常数：

[Fortran] 纯文本查看 复制代码

MODULE par_kind
   INTEGER, PUBLIC, PARAMETER ::   dp = SELECTED_REAL_KIND(12,307)   
   INTEGER, PUBLIC, PARAMETER ::   wp = dp 

我在主程序中调用了最上面那个SUBROUTINE，同时在主程序的MODULE中调用了下面这个wp，希望将wp的值传递给主程序中，但是编译却没有通过，错误信息为：
REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::   avt, avm
        1
Error: Parameter ‘wp’ at (1) has not been declared or is a variable, which does not reduce to a constant expression

让我困惑的是例如最上方SUBROUTINE中的jpjm1，jpi等变量我采用的也是相同的方法并且可以编译通过，只不过它们不是常量。
请问数据是否是常数对参数的传递会有影响吗？还是因为别的原因？我是初学者，有些地方表述不清请见谅。。

kyra

如果你用一个“量”来定义一个变量的kind值，那么这个“量”只能是常量，而不能是变量。
而虚参，被认为是变量，不是常量。

所以，你只需要子程序也use par_kind 就可以使用常量wp了，无需（也不能）虚参传递。

大橙子cqx

kyra 发表于 2020-3-8 09:02
如果你用一个“量”来定义一个变量的kind值，那么这个“量”只能是常量，而不能是变量。
而虚参，被认为是 ...

感谢版主的解答，明白了！