气象资料站 气象资料站
设为首页
加入收藏
点击这里给我发消息
首页  | 气象作图  |  气象编程  |  气象统计  |  大气科学  |  农业气象  |  大探遥感  |  防雷  |  海洋科学  |  精品课程  |  气象家园 |  Tq网盘
搜索: [高级搜索]
致各位气象人的一封信
气象家园
您的位置: 首页 > 气象编程 > Fortran
 
分类导航
 
站点广告
下载排行
最新软件
c1seasonality-已知u,v风场,计算动态标准化季节变率suv的fortran源代码/源程序
软件大小:9.35 KB 软件类型:国产软件
软件语言:简体中文 软件授权:共享软件
软件提交:mofangbao 更新时间:2011-04-25 13:13:30
软件作者: 软件等级:
官方网址:官方网站 程序演示:演示地址
运行环境:/all
下载统计:总下载:0,本月下载:0,本周下载:0,今日下载:0
软件介绍
c1seasonality-已知u,v风场,计算动态标准化季节变率suv的fortran源代码/源程序
c1seasonality(mx,my,v1,v2,v3,v4,fai0,grdy,suv)
已知u,v风场,计算动态标准化季节变率suv
c-----*----------------------------------------------------6---------7--
c     Computing the normalized seasonality suv of vector field V=ui+vj,
c     where u and v denote zonal and meridional winds respectively.
c        suv=DT(V)=||(V1-V2)||/||(V3+V4)/2||,
c     where ||*|| is a norm on the domain S of integration.
c        S=[2*grdx*ma]X[2*grdy*mb], ma and mb are input integers.
c        Generally, ma=mb=1. For the static normalized seasonality (SNS),
c        V1=V3 is January wind vector, and V2=V4 is July wind vector.
c        However, for the dynamical normalized seasonality (DNS), they
c        are different.
c     input: mx,my,v1,v2,v3,v4,fai0,grdx
c      mx: number of gird-point of the fileds in x direction
c      my: number of grid-point of the fileds in y direction
c      v1(,,1): eastward velocity component of V1;
c      v1(,,2): northward velocity component of V1;
c      v2, v3 and v4: V2, V3 and V4 (like V1 mentioned above);
c      fai0: the initial latitude(e.g., 90.,87.5,-90.,etc.)
c            fai0>0 denotes the data starting from the North Pole.
c            fai0<0 denotes the data starting from the South Pole.
c      grdy: grid resolution in y direction (units in degree), e.g.
c            grdy=2.5 for NCEP/NCAR reanalysis data.
c     output: suv(mx,my)
c      suv: normalized seasonality filed
c     work array: vw1,vw2,vw3,vw4,uv1,uv2
c     Refs.
c     Li Jianping and Zeng Qingcun, 2000: Significance of the normalized
c        seasonality of wind field and its rationality for characterizing
c        the monsoon. Science in China (D), 43(6), 647-653.
c     Li Jianping, and Zeng Qingcun, 2002: A unified monsoon index,
c        Geophysical Research Letters, 29(8), 1151-1154.
c     Li Jianping, and Zeng Qingcun, 2003: A new monsoon index and the
c        geographical distribution of the global ,monsoon. Adv. Atmos. Sci., 20, 299-302.
      subroutine seasonality(mx,my,v1,v2,v3,v4,fai0,grdy,suv)
      parameter(ma=1,mb=1)
      dimension v1(mx,my,2),v2(mx,my,2),v3(mx,my,2),v4(mx,my,2)
      dimension suv(mx,my)
      dimension vw1((-ma+1):(mx+ma),(-mb+1):(my+mb),2) !work array
      dimension vw2((-ma+1):(mx+ma),(-mb+1):(my+mb),2) !work array
      dimension vw3((-ma+1):(mx+ma),(-mb+1):(my+mb),2) !work array
      dimension vw4((-ma+1):(mx+ma),(-mb+1):(my+mb),2) !work array
      dimension uv1((-ma+1):(mx+ma),(-mb+1):(my+mb)) !work array
      dimension uv2((-ma+1):(mx+ma),(-mb+1):(my+mb)) !work array
      mc=-ma+1

...
下载地址
 下载地址1
推荐链接
·计算湿位涡的fortran源代码/源程序
·由mapinfo地图生成grads底图的fortran源程序
·生成surfer数据的Fortran源程序及其测试文件
·气象上计算cape指数的fortran源程序/源代码
·svd分解的fortran源程序/源代码
·Smscorrelation 逐月序列求解相关系数fortran源程序
·smllcorrelation-逐月、逐季或其他异常序列不同月份之间的滞后超前nt月的相关系数fortran源程序
·Sllcorrelation-异常序列x(n)和y(n)之间的滞后超前的相关系数fortran源代码、源程序
·guassfilter-求序列x(n)(n是资料长度)的m项高斯低通滤波序列y(n)的fortran源程序/源代码
·fortran读取nc/netcdf资料所需的全套文件+安装使用教程+源程序打包下载
按字母检索
网站首页 | 关于我们 | 服务条款 | 广告服务 | 联系我们 | 免责声明
Powered by EmpireDown 2.5 气象资料站版权所有