请选择 进入手机版 | 继续访问电脑版
爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 2538|回复: 7

[求助] fortran生成解决方案错误

[复制链接]

新浪微博达人勋

发表于 2017-12-19 19:23:38 | 显示全部楼层 |阅读模式

登录后查看更多精彩内容~

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
错误        1         error #8000:  There is a conflict between local interface block and external interface block.   [IFDIR]       

求助是什么问题?

fortran.png
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 成长值: 0
发表于 2017-12-20 08:52:02 | 显示全部楼层
子程序放到主程序的end之后
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2017-12-20 09:58:54 | 显示全部楼层
言深深 发表于 2017-12-20 08:52
子程序放到主程序的end之后

我刚刚把程序简化了一下,能成功编译并且生成结果,但是生成的二进制grads读不出来,不知道问题在哪??求助啊
PROGRAM write_sf_obs
IMPLICIT NONE

INTEGER YEAR,MONTH,DAY,TIME
CHARACTER str1,str2,str3*40, DTIME*14
INTEGER STID
CHARACTER*8  STIDN
REAL TIM
REAL XLON,XLAT,TER,LEVEL,CLOUD,DIR,SPD,SLP,PR3H,PASS1,PASS2
REAL RN6H,LCD1,LCD2,LCD3,TD,VIS1,CRREN,T,HCD1,HCD2,F1,F2,T24,PR24H
INTEGER NLEV, FLAG
TIM=0.0
NLEV=1
FLAG=1
OPEN(40,ACTION='WRITE',FILE="surface.dat",FORM='UNFORMATTED')
OPEN(11,ACTION='READ',ERR=200,FILE="08060102.000",FORM='FORMATTED')
READ(11,*) STR1,STR2,STR3
READ(11,*) YEAR,MONTH,DAY,TIME,FLAG  

DO
    READ(11,*,END=142) STID,XLON,XLAT,TER,LEVEL,CLOUD,DIR,SPD,SLP,PR3H,PASS1,PASS2, &
                     & RN6H,LCD1,LCD2,LCD3,TD,VIS1,CRREN,T,HCD1,HCD2,F1,F2,T24,PR24H

    STIDN= CHAR(STID/1000000+48) // &
             & CHAR((STID-INT(STID/1000000)*1000000)/100000+48)// &
             & CHAR((STID-INT(STID/100000)*100000)/10000+48)// &
             & CHAR((STID-INT(STID/10000)*10000)/1000+48)// &
             & CHAR((STID-INT(STID/1000)*1000)/100+48)// &
             & CHAR((STID-INT(STID/100)*100)/10+48)//CHAR(STID-INT(STID/10)*10+48) // '0'

   WRITE(40) STIDN,XLAT,XLON,TIM,NLEV,FLAG   
   WRITE(40) TER,LEVEL,CLOUD,DIR,SPD,SLP,PR3H,PASS1,PASS2,&
           & RN6H,LCD1,LCD2,LCD3,TD,VIS1,CRREN,T,HCD1,HCD2,F1,F2,T24,PR24H

END DO

142 CONTINUE
CLOSE(11)

NLEV=0
WRITE(40) STIDN,XLAT,XLON,TIM,NLEV,FLAG

GOTO 201
200 WRITE(*,*) "SKIP! File not exist!"
201 CONTINUE

END

DSET g:/fortran/surface08060102.dat
dtype station
stnmap g:/fortran/surface.map
UNDEF 9999
TDEF 1 linear 01jun2008 6hr
VARS 23
TER 0 99 TER
LEVEL 0 99 LEVEL
CLOUD 0 99 CLOUD
DIR 0 99 DIR
SPD 0 99 SPD
SLP 0 99 SLP
PR3H 0 99 PR3H
PASS1 0 99 PASS1
PASS2 0 99 PASS2
RN6 0 99 RN6
LCD1 0 99 LCD1
LCD2 0 99 LCD2
LCD3 0 99 LCD3
TD 0 99 TD
VIS1 0 99 VIS1
CRREN 0 99 CRREN
T 0 99 T
HCD1 0 99 HCD1
HCD2 0 99 HCD2
F1 0 99 F1
F2 0 99 F2
T24 0 99 T24
PR24H 0 99 PR24H
ENDVARS
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2017-12-20 10:03:14 | 显示全部楼层
言深深 发表于 2017-12-20 08:52
子程序放到主程序的end之后

后面写的是ctl,然后读取站点数据生成.map失败了
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2017-12-20 10:03:49 | 显示全部楼层
ga-> !stnmap -i g:/fortran/surface.ctl
  Name of binary data set: g:/fortran/surface08060102.dat
  Number of times in the data set: 1
  Number of surface variables: 23
  Number of level dependent variables: 0

Starting scan of station data binary file.
Binary data file open: g:/fortran/surface08060102.dat

Processing time step 1
  Invalid station hdr found in station binary file
  Possible causes:  Invalid level count in hdr
                    Descriptor file mismatch
                    File not station data
                    Invalid relative time
    levs = 0  flag = 1  time = 85.37
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2017-12-20 11:16:55 | 显示全部楼层
言深深 发表于 2017-12-20 08:52
子程序放到主程序的end之后

貌似解决了。。一些小错误,很伤
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2017-12-20 11:16:56 | 显示全部楼层
言深深 发表于 2017-12-20 08:52
子程序放到主程序的end之后

貌似解决了。。一些小错误,很伤
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2018-2-23 00:34:16 | 显示全部楼层
m337872010 发表于 2017-12-20 11:16
貌似解决了。。一些小错误,很伤

楼主是怎么解决的啊
密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表