【文件属性】:
文件名称:风暴强度指数
文件大小: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)