24小时热门版块排行榜

返回列表

mazhqsos

银虫 (初入文坛)

应助: 0 (幼儿园)
金币: 261.7
帖子: 10
在线: 15小时
虫号: 131851
注册: 2005-12-12
性别: GG
专业: 大气环境与全球气候变化

[求助] G95

向高人求教：一个小模块，linux系统下用g95编译，总是搞不定，错误信息如下：
ln -fs mo_netcdf.f90-real mo_netcdf.f90
./sfmakedepend --file=depend.mk mecca1.f90 MECCA_MCM.f90 messy_main_constants_mem.f90 messy_main_tools.f90 messy_mecca1_box.f90 messy_mecca1.f90 messy_mecca1_func.f90 messy_mecca1_kpp.f90 messy_mecca1_kpp_g_mem.f90 messy_mecca1_kpp_s_mem.f90 mo_netcdf.f90
... extern module: netcdf
g95 -cpp -O0 -I/data/iumxuj/netcdf/include -c messy_mecca1_kpp_g_mem.f90
g95 -cpp -O0 -I/data/iumxuj/netcdf/include -c MECCA_MCM.f90
In file MECCA_MCM.f90:24486

MCM_INI(kpp_CO2) = INI_CO2
      1
Warning (108): Array reference at (1) is out of bounds
In file MECCA_MCM.f90:33801

MCM_EMIS(kpp_CO2) = EMIS_CO2
      1
Warning (108): Array reference at (1) is out of bounds
In file MECCA_MCM.f90:43116

MCM_FIXED(kpp_CO2) = FIXED_CO2
      1
Warning (108): Array reference at (1) is out of bounds
g95 -cpp -O0 -I/data/iumxuj/netcdf/include -c messy_main_constants_mem.f90
g95 -cpp -O0 -I/data/iumxuj/netcdf/include -c messy_main_tools.f90
g95 -cpp -O0 -I/data/iumxuj/netcdf/include -c messy_mecca1_kpp_s_mem.f90
g95 -cpp -O0 -I/data/iumxuj/netcdf/include -c messy_mecca1_kpp.f90
In file messy_mecca1_kpp.f90:222314

   F_MCM=10**(LOG10(FC)/(1.0+(SIGN(1.,K0-KI)*(ABS(LOG10(K0/KI)))**(2))))
                                       1
Error: 'b' argument of 'sign' intrinsic at (1) must be the same type and kind as 'a'
In file messy_mecca1_kpp.f90:222314

   F_MCM=10**(LOG10(FC)/(1.0+(SIGN(1.,K0-KI)*(ABS(LOG10(K0/KI)))**(2))))
                              1
Error: Function 'sign' at (1) has no implicit type
gmake: *** [messy_mecca1_kpp.o] Error 1
郁闷很久了，不吝赐教。

回复此楼