24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

794025855

铜虫 (初入文坛)

应助: 0 (幼儿园)
金币: 134.1
帖子: 29
在线: 3.6小时
虫号: 7847248

[交流] 在redhat系统下安装了ifort编译器,运行程序时，出现了报错 error #7002，求大神帮帮忙

AEROSOLE.f90(17): error #7002:Error in opening the compiled module file.  Check INCLUDE paths. [A_VARIABLES]
  use a_variables
------^
AEROSOLE.f90(18): error #7002: Error in opening the compiled module file.  Check INCLUDE paths. [A_PARAMETERS]
  use a_parameters
------^
AEROSOLE.f90(19): error #7002: Error in opening the compiled module file.  Check INCLUDE paths. [A_FUNCTIONS]
  use a_functions
------^
AEROSOLE.f90(21): error #7002: Error in opening the compiled module file.  Check INCLUDE paths. [A_DIFRACTION]
  use a_difraction
------^
AEROSOLE.f90(22): error #7002: Error in opening the compiled module file.  Check INCLUDE paths. [A_DISPERSION]
  use a_dispersion
------^
AEROSOLE.f90(23): error #7002: Error in opening the compiled module file.  Check INCLUDE paths. [A_PLASMA]
  use a_plasma
------^
AEROSOLE.f90(24): error #7002: Error in opening the compiled module file.  Check INCLUDE paths. [SP_CALC_AND_WRITE]
  use sp_calc_and_write
------^
AEROSOLE.f90(25): error #7002: Error in opening the compiled module file.  Check INCLUDE paths. [DFLIB]
  use dflib
------^
AEROSOLE.f90(27): error #7002: Error in opening the compiled module file.  Check INCLUDE paths. [DFMT]
  use dfmt
------^
AEROSOLE.f90(32): error #6683: A kind type parameter must be a compile-time constant. [REAL_KIND]
  real(real_kind) :: time_begin,time_end,new,kn, Pressurerat(N1), Temp(N1)
-------^
AEROSOLE.f90(33): error #6683: A kind type parameter must be a compile-time constant. [REAL_KIND]
  real(real_kind) :: time_1,time_2, dn
-------^
AEROSOLE.f90(34): error #6683: A kind type parameter must be a compile-time constant. [REAL_KIND]
  real(real_kind) :: delta_z_tmp,rand_value, x, y, zk,tix, dz0, Air_k22, Air_n22, Air_Pcr2, Air_n4, Air_n6, Air_n8
-------^
AEROSOLE.f90(35): error #6683: A kind type parameter must be a compile-time constant. [INTEGER_KIND]
  integer(integer_kind) :: local1, local2, break_count, index_z_point,k,num_,num_2,n,m
----------^
AEROSOLE.f90(36): error #6683: A kind type parameter must be a compile-time constant. [INTEGER_KIND]
  integer(integer_kind) :: x_point,y_point,t_point, var
----------^
AEROSOLE.f90(38): error #6683: A kind type parameter must be a compile-time constant. [INTEGER_KIND]
  integer(integer_kind) :: droplet_number,m_local,Droplet_x,Droplet_y,k_loc,m_loc,counter_loc,k11,m11
----------^
AEROSOLE.f90(39): error #6683: A kind type parameter must be a compile-time constant. [INTEGER_KIND]
  integer(integer_kind) :: t_index,kt,kt1
----------^
AEROSOLE.f90(40): error #6683: A kind type parameter must be a compile-time constant. [REAL_KIND]
  real(real_kind) :: tk,tk1
-------^
AEROSOLE.f90(43): error #6683: A kind type parameter must be a compile-time constant. [INTEGER_KIND]
  integer(integer_kind) :: exitresult
----------^
AEROSOLE.f90(44): error #6683: A kind type parameter must be a compile-time constant. [REAL_KIND]
  real(real_kind) :: tmp_real,tmp_realR,tmp_realF,tmp_realF2,tmp_realF10, tmp_after, Energy_Init, plasma_real, max0
-------^
AEROSOLE.f90(48): error #6683: A kind type parameter must be a compile-time constant. [INTEGER_KIND]
  integer(integer_kind) :: drop_type, lastopenskin, time_layer1, time_layer2
----------^
AEROSOLE.f90(95): error #6404: This name does not have a type, and must have an explicit type. [WRITE_SPECTRUM_FLAG]
   write_spectrum_flag=1
------^
AEROSOLE.f90(117): error #6456: This name must be a RECORD name. [MEDIA]
  write(*,'(a40, e8.2)'), ' -- Average droplet number in skin -- ', media.avr_skin_drop_number
----------------------------------------------------------------------^
AEROSOLE.f90(117): error #6460: This is not a field name that is defined in the encompassing structure. [AVR_SKIN_DROP_NUMBER]
  write(*,'(a40, e8.2)'), ' -- Average droplet number in skin -- ', media.avr_skin_drop_number
----------------------------------------------------------------------------^
AEROSOLE.f90(120): error #6404: This name does not have a type, and must have an explicit type. [Z]
  z=0
--^
AEROSOLE.f90(124): error #6404: This name does not have a type, and must have an explicit type. [ZK_AEROSOL]
  zk_aerosol=media.start_z_aerosol          !��ǰ��ܽ��λ�� -1.e-5       !Position of the current aerosol screen (distributed along the route evenly, through the distance media.delta_z_aerosol)
--^
AEROSOLE.f90(124): error #6456: This name must be a RECORD name. [MEDIA]
  zk_aerosol=media.start_z_aerosol          !��ǰ��ܽ��λ�� -1.e-5       !Position of the current aerosol screen (distributed along the route evenly, through the distance media.delta_z_aerosol)
-------------^
AEROSOLE.f90(124): error #6460: This is not a field name that is defined in the encompassing structure. [START_Z_AEROSOL]
  zk_aerosol=media.start_z_aerosol          !��ǰ��ܽ��λ�� -1.e-5       !Position of the current aerosol screen (distributed along the route evenly, through the distance media.delta_z_aerosol)
-------------------^
AEROSOLE.f90(125): error #6404: This name does not have a type, and must have an explicit type. [ZK_TURB]
  zk_turb=media.start_z_turb                         !Position of the current turbulent screen  -1.e-5
--^
AEROSOLE.f90(125): error #6456: This name must be a RECORD name. [MEDIA]
  zk_turb=media.start_z_turb                         !Position of the current turbulent screen  -1.e-5
----------^
AEROSOLE.f90(125): error #6460: This is not a field name that is defined in the encompassing structure. [START_Z_TURB]
  zk_turb=media.start_z_turb                         !Position of the current turbulent screen  -1.e-5
----------------^
AEROSOLE.f90(995): catastrophic error: Too many errors, exiting
compilation aborted for AEROSOLE.f90 (code 1)

1.在windows系统下，我用VS+fortran运行没有任何问题，但在linux系统下运行，很多地方我不知道怎么处理了。A_VARIABLES， A_PARAMETERS， A_FUNCTIONS这些module都是我自己编译的，不是编译器自带的，而且我都和主程序放在一个路径下，但还是出现错误，希望大神能指导下这个问题。
2.  网上说，在linux 系统下，子程序要include在主程序中才能运行，而我这个程序有二十多个子程序和module，都要一个一个添加进去么？有没有更好的方法？
3.我的ifort下的是cluster_edition版，当时下的时候看说明说这个版本是带的工具最多的，但不知道带不带mkl库，还是说我要单独再去下一个mkl库？

回复此楼