- 积分
- 42118
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-8-28
- 最后登录
- 1970-1-1
![[river-ray] 粉丝数:183 微博数:362 新浪微博达人勋](source/plugin/sina_login/img/light.png)
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 river 于 2016-10-10 10:15 编辑
今天看到有人发帖问有没有计算涡度、温度平流的程序,搜索了一下论坛,grads因为有自带函数,所以类似的gs很多啊,但是fortran的好像几乎没有。 突然想到大学实习的时候有过一个程序可以一次计算出很多物理量,包括几个平流的计算。只是那会儿没好好学,不知道当时用的什么资料。看了一下,是格点的,可能是micaps的某一类资料吧。需要的人自己研究吧。贴其中的一段出来吧
![](source/plugin/mc_colorcode/images/loading.gif) - !---------------------------- vorticity of observed wind-------------------------------
- voro=1.e+36
- DO it=1,NT
- DO iz=1,NZ
- do i=1+1,NX-1
- do j=1+1,NY-1
- voro(i,j,iz,it)=1./(R*2)*( (v(i+1,j,iz,it)-v(i-1,j,iz,it))/(Delta*pi/180*cos(lat(j)))-(u(i,j+1,iz,it)-u(i,j-1,iz,it))/(Delta*pi/180)+2*u(i,j,iz,it)*tan(lat(j)) )
- enddo
- enddo
- ENDDO
- ENDDO
- !-------------------------------divergence--------------------------------------
- div=1.e+36
废话不多说,上附件。
all.f90
(6.35 KB, 下载次数: 2394)
|
评分
-
查看全部评分
|