- 积分
- 4968
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2016-4-25
- 最后登录
- 1970-1-1
![[swim-swim-畅] 粉丝数:320 微博数:737 新浪微博达人勋](source/plugin/sina_login/img/light.png)
|
发表于 2021-4-1 16:18:25
|
显示全部楼层
接上,编译信息如下:
./make_util megan_bio_emiss
NETCDF_DIR = /mnt/hzc/model/megan/envForMegan/netcdf
ifort -g -c -I/mnt/hzc/model/megan/envForMegan/netcdf/include misc_definitions_modul
e.f90ifort -g -c -I/mnt/hzc/model/megan/envForMegan/netcdf/include constants_module.f90
ifort -g -c -I/mnt/hzc/model/megan/envForMegan/netcdf/include bio_types.f90
ifort -g -c -I/mnt/hzc/model/megan/envForMegan/netcdf/include area_mapper.f90
area_mapper.f90(185): remark #8291: Recommended relationship between field width 'W'
and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' sw corner @ ('',1p,g14.8,'','',g14.8,'')'')') lon(1,1),lat(1,1)
----------------------------------^
area_mapper.f90(185): remark #8291: Recommended relationship between field width 'W'
and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' sw corner @ ('',1p,g14.8,'','',g14.8,'')'')') lon(1,1),lat(1,1)
--------------------------------------------^
area_mapper.f90(186): remark #8291: Recommended relationship between field width 'W'
and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' se corner @ ('',1p,g14.8,'','',g14.8,'')'')') lon(ide,1),lat(ide,1)
----------------------------------^
area_mapper.f90(186): remark #8291: Recommended relationship between field width 'W'
and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' se corner @ ('',1p,g14.8,'','',g14.8,'')'')') lon(ide,1),lat(ide,1)
--------------------------------------------^
area_mapper.f90(187): remark #8291: Recommended relationship between field width 'W'
and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ne corner @ ('',1p,g14.8,'','',g14.8,'')'')') lon(ide,jde),lat(ide,j
de)----------------------------------^
area_mapper.f90(187): remark #8291: Recommended relationship between field width 'W'
and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ne corner @ ('',1p,g14.8,'','',g14.8,'')'')') lon(ide,jde),lat(ide,j
de)--------------------------------------------^
area_mapper.f90(188): remark #8291: Recommended relationship between field width 'W'
and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' nw corner @ ('',1p,g14.8,'','',g14.8,'')'')') lon(1,jde),lat(1,jde)
----------------------------------^
area_mapper.f90(188): remark #8291: Recommended relationship between field width 'W'
and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' nw corner @ ('',1p,g14.8,'','',g14.8,'')'')') lon(1,jde),lat(1,jde)
--------------------------------------------^
area_mapper.f90(1084): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') model_x(m),model_y(m)
-------------------------^
area_mapper.f90(1084): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') model_x(m),model_y(m)
-----------------------------------^
area_mapper.f90(1089): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') mvtx_lon(m),mvtx_lat(m)
-------------------------^
area_mapper.f90(1089): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') mvtx_lon(m),mvtx_lat(m)
-----------------------------------^
area_mapper.f90(1094): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') x(m),y(m)
-------------------------^
area_mapper.f90(1094): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') x(m),y(m)
-----------------------------------^
area_mapper.f90(1099): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') data_lon(m),data_lat(m)
-------------------------^
area_mapper.f90(1099): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') data_lon(m),data_lat(m)
-----------------------------------^
area_mapper.f90(1109): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') vtx_x(m),vtx_y(m)
-------------------------^
area_mapper.f90(1109): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') vtx_x(m),vtx_y(m)
-----------------------------------^
area_mapper.f90(1142): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') model_x(m),model_y(m)
---------------------------^
area_mapper.f90(1142): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') model_x(m),model_y(m)
-------------------------------------^
area_mapper.f90(1147): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') mvtx_lon(m),mvtx_lat(m)
---------------------------^
area_mapper.f90(1147): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') mvtx_lon(m),mvtx_lat(m)
-------------------------------------^
area_mapper.f90(1152): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') x(m),y(m)
---------------------------^
area_mapper.f90(1152): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') x(m),y(m)
-------------------------------------^
area_mapper.f90(1157): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') data_lon(m),data_lat(m)
---------------------------^
area_mapper.f90(1157): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') data_lon(m),data_lat(m)
-------------------------------------^
area_mapper.f90(1167): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') vtx_x(m),vtx_y(m)
---------------------------^
area_mapper.f90(1167): remark #8291: Recommended relationship between field width 'W
' and the number of fractional digits 'D' in this edit descriptor is 'W>=D+7'. write(*,'('' ('',g14.8,'','',g14.8,'')'')') vtx_x(m),vtx_y(m)
-------------------------------------^
ifort -g -c -I/mnt/hzc/model/megan/envForMegan/netcdf/include bio_emiss.f90
bio_emiss.f90(1885): error #5082: Syntax error, found ',' when expecting one of: ( :
% [ . = => ll_id,ilon-11,ilat-9,XLAT(ilon,ilat),XLONG(ilon,ilat), &
-----------^
bio_emiss.f90(1894): error #5082: Syntax error, found END-OF-STATEMENT when expectin
g one of: :: ) , : MSEBIO_STRESS(ilon,ilat),MSEBIO_OTHER(ilon,i
lat) ------------------------------------------------------------------------------------
--------------------------------^bio_emiss.f90(1934): error #5082: Syntax error, found IDENTIFIER 'AT' when expecting
one of: :: ) ( , : * . % + - [ . = ** / // .LT. < .LE. <= .EQ. == ... write (99, '(3(I,","), 46(F10.4,","))')cell_id,ilon-11,ilat-9,xlai(ilon,il
at,:)------------------------------------------------------------------------------------
-^bio_emiss.f90(1884): error #6404: This name does not have a type, and must have an e
xplicit type. [CE] write (99, '(3(I5,","), 2(F10.4,","),2(I,","),19(F10.4,","),1(F10.4))')ce
-----------------------------------------------------------------------------^
bio_emiss.f90(1934): error #6404: This name does not have a type, and must have an e
xplicit type. [IL] write (99, '(3(I,","), 46(F10.4,","))')cell_id,ilon-11,ilat-9,xlai(ilon,il
at,:)------------------------------------------------------------------------------^
bio_emiss.f90(1934): error #6404: This name does not have a type, and must have an e
xplicit type. [AT] write (99, '(3(I,","), 46(F10.4,","))')cell_id,ilon-11,ilat-9,xlai(ilon,il
at,:)------------------------------------------------------------------------------------
-^compilation aborted for bio_emiss.f90 (code 1)
make: *** [Makefile:20: bio_emiss.o] Error 1
Failed to build bio_emiss |
|