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

river · 发表于 2019-11-18 21:52:45

lllllys 发表于 2019-10-31 21:21
感谢！话说楼主大大是不是天诊实习用到这个呀（我们现在在学呜呜呜，就是计算这些量）

应该是的，但是有些人说有些小问题，也忘记是哪个物理量，你用的时候自己仔细再看看吧

对方的凤飞飞 · 发表于 2019-11-30 11:53:06

请问楼主DATA P是什么意思呢？

river · 发表于 2019-11-30 13:34:46

好久没弄了，早就忘记了。你自己研究下吧

fengxingfy · 发表于 2019-12-12 19:35:51

想要积分下载

prn · 发表于 2019-12-17 11:58:46

感谢分享。

向YX靠拢 · 发表于 2019-12-18 10:07:00

过来学习学习

向YX靠拢 · 发表于 2019-12-18 11:07:04

过来学习学习

daydream · 发表于 2019-12-21 13:33:20

感谢楼主分享。

良辰 · 发表于 2019-12-26 22:01:18

   qv(i,j,iz,it)=q(i,j,iz,it)*v(i,j,iz,it)/9.8
   qu(i,j,iz,it)=q(i,j,iz,it)*u(i,j,iz,it)/9.8
   adq(i,j,iz,it)=u(i,j,iz,it)*((q(i+1,j,iz,it)-q(i-1,j,iz,it))/(2*R*cos(lat(j))*Delta*pi/180))+v(i,j,iz,it)*((q(i,j+1,iz,it)-q(i,j-1,iz,it))/(2*R*Delta*pi/180))
   adqv(i,j,iz,it)=(q(i,j,iz,it)*div(i,j,iz,it)+adq(i,j,iz,it))*1e5/9.8
楼主请问adq为什么要乘以1e5？q的单位是g/kg还是kg/kg?

river · 发表于 2020-1-1 19:57:45

良辰发表于 2019-12-26 22:01
qv(i,j,iz,it)=q(i,j,iz,it)*v(i,j,iz,it)/9.8
qu(i,j,iz,it)=q(i,j,iz,it)*u(i,j,iz,it)/9.8
...

好久没弄了，这个就是给他扩大10000倍啊，不然太小了。至于q的单位应该是g/kg吧，不记得了

		自动登录	找回密码
密码			立即注册

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