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

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 20749|回复: 47

[源代码] 潮汐调和分析与预报(fortran程序)

[复制链接]

新浪微博达人勋

发表于 2013-4-16 00:29:25 | 显示全部楼层 |阅读模式

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

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

x
本帖最后由 hillside 于 2013-8-1 16:41 编辑

       此程序来自于网络。
程序内容摘录:
!利用潮汐观测数据计算调和常数,并利用主要分潮和浅水分潮进行潮汐预报
program work
implicit none
character*80::a1
character(len=5),dimension(62,16)::aa
integer::bb(62,12),c(62,2),caita(-371:371),i,i1,i2,j,t1
real::N0,n(13,6),a(0:13,0:13),b(1:13,1:13),s,s0,s1,s2,s3,sa,hh              !n代表Doodson代码;a,b为系数矩阵
real::xiaoa(0:13),xiaob(13),gg1,gg2,pjchaocha,t,ma,mi                       !计算法方程所需的参数
real,dimension(1:13)::w,u,f,V0,f1(0:13),f2                                  !f1和f2为法方程右边系数
real,dimension(13)::sita,h,g,r,h0(13),g0(13),h1(13),g1(13)                  !调和常数参数
real,dimension(-371:371)::caita1,caita3,caita4,caita8,caita9,caita5,caita11 !主分潮、浅水分潮的潮高数值
real,dimension(:),allocatable::hightide,lowtide,chaocha                     !高低潮数值
integer,dimension(:),allocatable::hightrq,lowtrq,hight,hightt,lowt,lowtt

......

tide.rar

4.01 KB, 下载次数: 159, 下载积分: 金钱 -5

评分

参与人数 1金钱 +6 贡献 +2 收起 理由
mofangbao + 6 + 2

查看全部评分

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

新浪微博达人勋

0
早起挑战累计收入
发表于 2013-4-16 09:14:45 | 显示全部楼层
楼主发的几个帖子介绍有点少的呀  谢谢啦
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2013-4-20 17:01:50 | 显示全部楼层
这个是楼主原创的么
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2013-9-9 17:31:45 | 显示全部楼层
不知道好不好用,只能先下来看看,用过我再回复,先谢楼主
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2013-9-10 19:19:14 | 显示全部楼层
好东西,谢谢同道。
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2013-9-17 18:36:56 | 显示全部楼层
不知道好不好用,先謝樓主
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2013-9-17 22:58:14 | 显示全部楼层
这不是陈耀登课上让编的嘛
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2013-9-20 15:29:39 | 显示全部楼层
好东西,已经收了。学习一下。
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2014-3-31 22:30:47 | 显示全部楼层
好好好啊啊啊啊
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2014-4-6 15:09:49 | 显示全部楼层
百度文库也有。。。
密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

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

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

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