大橙子cqx 发表于 2020-3-7 23:17:47

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

本帖最后由 kyra 于 2020-3-8 08:59 编辑

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中被定义为一个常数：
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 发表于 2020-3-8 09:02:20

本帖最后由 kyra 于 2020-3-8 09:03 编辑

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

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

大橙子cqx 发表于 2020-3-8 11:48:28

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

感谢版主的解答，明白了！
页: [1]
查看完整版本: 子程序中定义的一个参数传递时出现问题