24小时热门版块排行榜

>论坛更新日志 (3541)
>虫友互识 (1036)
>文献求助 (269)
>导师招生 (179)
>休闲灌水 (166)
>考博 (135)
>教师之家 (90)
>硕博家园 (84)
>博后之家 (82)
>论文投稿 (81)
>找工作 (77)
>基金申请 (71)
>论文道贺祈福 (67)
>考研 (60)
>公派出国 (51)
>招聘信息布告栏 (38)

返回列表

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
郁闷很久了，不吝赐教。

回复此楼