11

我对 Fortran 很陌生，为了我的研究，我需要让一个模型怪物运行，所以我边走边学。所以如果我问一个“愚蠢”的问题，我很抱歉。我正在尝试编译（Mac OSX，从命令行）并且我已经设法解决了一些问题，但是现在我遇到了一些我不确定如何解决的问题。我想我明白了错误背后的想法，但同样，不知道如何解决。

这个模型很大，所以我只会发布我认为相关的代码部分（尽管我可能是错的）。我有一个包含几个子例程的文件，开头是：

    !==========================================================================================!
!    This subroutine simply updates the budget variables.                                  !
!------------------------------------------------------------------------------------------!
subroutine update_budget(csite,lsl,ipaa,ipaz)

   use ed_state_vars, only : sitetype     ! ! structure
   implicit none

   !----- Arguments -----------------------------------------------------------------------!
   type(sitetype)  , target     :: csite
   integer         , intent(in) :: lsl
   integer         , intent(in) :: ipaa
   integer         , intent(in) :: ipaz
   !----- Local variables. ----------------------------------------------------------------!
   integer                      :: ipa
   !----- External functions. -------------------------------------------------------------!
   real            , external   :: compute_water_storage
   real            , external   :: compute_energy_storage
   real            , external   :: compute_co2_storage
   !---------------------------------------------------------------------------------------!


   do ipa=ipaa,ipaz
      !------------------------------------------------------------------------------------!
      !      Computing the storage terms for CO2, energy, and water budgets.               !
      !------------------------------------------------------------------------------------!
      csite%co2budget_initialstorage(ipa) = compute_co2_storage(csite,ipa)
      csite%wbudget_initialstorage(ipa)   = compute_water_storage(csite,lsl,ipa)
      csite%ebudget_initialstorage(ipa)   = compute_energy_storage(csite,lsl,ipa)
   end do

   return
end subroutine update_budget
!==========================================================================================!
!==========================================================================================!

我收到错误消息

预算实用程序.f90：20.54：

real , external :: compute_co2_storage 1
错误：(1) 处的过程“compute_co2_storage”的虚拟参数“csite”具有需要此过程的显式接口的属性

（我得到了一堆，但它们基本上都是一样的）。现在，查看 ed_state_vars.f90 （在子程序中“使用”），我发现

!============================================================================!
!============================================================================!
  !---------------------------------------------------------------------------!  
  ! Site type:
  ! The following are the patch level arrays that populate the current site.
  !---------------------------------------------------------------------------!  

type sitetype


     integer :: npatches

     !  The global index of the first cohort in all patches
     integer,pointer,dimension(:) :: paco_id

     ! The number of cohorts in each patch
     integer,pointer,dimension(:) :: paco_n

     ! Global index of the first patch in this vector, across all patches
     ! on the grid

     integer :: paglob_id

     ! The patches containing the cohort arrays
     type(patchtype),pointer,dimension(:) :: patch

等等等等 - 这需要另外 500 行左右。因此，为了能够使用（虚拟）参数 csite，原始子例程似乎需要为其过程提供显式接口。同样，我对 Fortran 很陌生，但我真的很想了解它是如何“思考”的。我一直在寻找拥有显式接口的含义，何时（以及如何！）使用它等。但我无法弄清楚它在我的案例中是如何应用的。我是否应该使用不同的编译器（英特尔？）。有什么提示吗？

编辑：So在所有过程中都csite被声明为 a ，并且声明中包含一大堆s，如. 但是在所有程序中都从另一个模块 ( ) 中正确d 。所以我仍然很困惑为什么它会给我显式接口错误？targettype(site type)pointersitetypesitetypeuseed_state_vars.f90

4

2 回答 2

20

“显式接口”意味着向编译器声明过程（子例程或函数）的接口。这允许编译器检查对过程的调用与实际过程之间的参数的一致性。这样可以发现很多程序员的错误。你可以用一个语句写出接口，interface但有一个更简单的方法：将过程放入一个模块中，然后use将该模块从调用它的任何其他实体中 - 从主程序或任何本身不在的过程中模块。但是您不会use从同一模块中的另一个过程中获得一个过程——它们是自动相互认识的。

将过程放入模块中会自动使其接口为编译器所知，并可在use编辑时进行交叉检查。这比编写界面更容易，也更不容易出错。使用接口，您必须复制过程参数列表。然后，如果您修改程序，您还必须修改调用（当然！），还要修改接口。

当您使用“高级”参数时，需要显式接口（interface语句或模块）。否则编译器不知道生成正确的调用

如果你有一个useed 的过程，你不应该用external. external在现代 Fortran 中很少使用- 因此，删除external属性，将所有过程放入模块中，然后use它们。

于 2013-05-10T23:58:04.157 回答
2

我在我的 mac 10.9 上尝试安装 ED2 时遇到了同样的问题。我通过在一个模块中包含该文件中的所有子例程来修复它，即：

module mymodule
contains
subroutine update_budget(csite,lsl,ipaa,ipaz)
other subroutines ecc.
end module mymodule

必须对包中的大约 10 到 15 个其他文件执行相同的操作。我已经编译了所有文件并生成了相应的目标文件，但现在我收到有关未定义符号的错误。但是我怀疑这些与修改无关，所以如果有人有耐心，这可能是至少解决接口问题的一种方法。

于 2015-10-12T14:23:18.843 回答