文件名称：风暴强度指数
文件大小：2KB
文件格式：F90
更新时间：2016-05-28 07:18:18
ssi
ssi fortran计算程序 !*********************************************************************** ! Compute INDEX OF STORM INTENCITY by liuhz 2003.9 * ! INPUT U =====> WIND U (M/S) ! V =====> WIND V (M/S) ! H ======> GEOPOTENTIAL HEIEGHT (gpm) ! H0 =====> GEOPOTENTIAL HEIEGHT ON GIVEN HIGHT (gpm) ! CAPE =====> CONVECTIVE AVAILABLE POTENTIAL ENERGY (J/KG) ! OUTPUT SSI ====> INDEX OF STORM INTENCITY !*********************************************************************** real H(LEV),U(LEV),V(LEV) REAL cape,u0,v0,H0,SSI,shr,h01,h1,u1,v1,vs0,u2,v2,vs1,vs2 PI=3.1415926 H01=H0 h1=500 vs1=sqrt(u(1)**2+v(1)**2) CALL CAL_H0_UV(H0,H,U,V,lev,U0,V0) vs0=sqrt(u0**2+v0**2) CALL CAL_H0_UV(H1,H,U,V,lev,U1,V1)