你的标题是,如何求取最小值。你的 minval 和 minloc 正是做这个工作的,使用上没有什么问题。
实际上,你的标题应该是,二进制文件如何读取?
我不知道你的 grd 是什么格式的,你确定是顺序读取的么?是否应该是直接读取的?
尝试一下 open(10,file='f:\2013722\fnl\2004080131typhoon.grd',form='binary',access='direct')
我建议你用无格式直接读取方式读取。当然,你同时需要为它设置 RecL。
关于二进制文件读写,我专门写过一篇日志,请您参考:
http://hi.baidu.com/olid_stone/item/ad1a4cc822b1241051505880
可能是数组大小不对,建议你动态分配数组 allocate