计算涡度、涡度平流、温度平流、散度、水汽通量、水汽通量散度、比湿等的FORTRAN程序

沐..

vorop(i,j,iz,it)=u(i,j,iz,it)*((voro(i+1,j,iz,it)-voro(i-1,j,iz,it))/(2*R*cos(lat(j))*Delta*pi/180))+v(i,j,iz,it)*((voro(i,j+1,iz,it)-voro(i,j-1,iz,it))/(2*R*Delta*pi/180))
vorop(i,j,iz,it)=-vorop(i,j,iz,it)
感觉要改成这样    前面还有个负号

river

沐.. 发表于 2016-10-10 15:54
vorop(i,j,iz,it)=u(i,j,iz,it)*((voro(i+1,j,iz,it)-voro(i-1,j,iz,it))/(2*R*cos(lat(j))*Delta*pi/180)) ...

我手头没有书，等我回去再看看吧

3870383

沐.. 发表于 2016-10-10 15:54
vorop(i,j,iz,it)=u(i,j,iz,it)*((voro(i+1,j,iz,it)-voro(i-1,j,iz,it))/(2*R*cos(lat(j))*Delta*pi/180)) ...

很久之前回复的帖子了，刚看了下，你改的没错。我当时改的是这样的：
  vorop(i,j,iz,it)=-(u(i,j,iz,it)*((voro(i+1,j,iz,it)-voro(i-1,j,iz,it))/(2*R*cos(lat(j))*Delta*pi/180))+v(i,j,iz,it)*((voro(i,j+1,iz,it)-voro(i,j-1,iz,it))/(2*R*Delta*pi/180)))

virl

感谢分享！

沐..

3870383 发表于 2016-10-13 00:15
很久之前回复的帖子了，刚看了下，你改的没错。我当时改的是这样的：
  vorop(i,j,iz,it)=-(u(i,j,iz,it ...

可是牵连涡度f哪一项呢   我以前没有考虑 是不是要加上呢

sevenwrong

好东西，级别太低了我

river

sevenwrong 发表于 2016-10-26 10:31
好东西，级别太低了我

里面有些小错误，计算温度和涡度平流的时候有些问题，还没来得及改，你自己用的时候改改

xugk

感谢楼主的无私分享

river

xugk 发表于 2016-10-27 13:01
感谢楼主的无私分享

计算平流的时候有些问题，你自己照着书上公式改一下吧

coolcode

为啥提示无法下载（自动回复：请不要使用迅雷等下载工具，点我查看下载帮助）