地球物理大地测量
大型科学
计算平台

CASM.jpg

以模块为单元的Intel Fortran源代码

两套软件Intel Fortran源码按单元模块整理上传,模块相对独立,便于调用。点击模块名称,弹出代码资源,下载链接文件。

代码模块简介主要包括:模块名称,基本功能,模块源码,算法公式,地球物理模型,调用模块源码。

利用广义Stokes(/Hotine)积分公式,由等位面上的残差空间异常(/扰动重力,mGal)格网,输入积分半径(km),采用数值积分、二维FFT或一维FFT算法,计算指定面上的残差高程异常(m)。为实现有限半径积分,通常需采用参考重力场移去恢复法,先移去等位边界面上的模型空间异常/扰动重力,再积分得到计算点处的残差高程异常,最后恢复计算点处的模型高程异常。输入文件:格网规格相同的等位面大...
   由超高阶地球重力场位系数模型,计算地面及地球外部空间任意点的高程异常(m)、空间异常(mGal)、扰动重力(mGal)、垂线偏差向量(s,ʺ/秒,南向、西向)、扰动重力梯度(径向,E)、水平重力梯度向量(E,北向、西向)和Laplace算子(E)的模型值。测试程序:Fortran源码GMfullelementcalc.f90(固定格式,每行代码最大132字符)。DOS可执行文件GMf...
(1)BelPnmdt(pnm,dpt1,dpt2,maxn,t)     计算规格化连带勒让德函数Pnm及其对t一、二阶导数,规格化Pnm采用改进的Belikov递推算法,一、二阶导数采用非奇异递推算法。测试到7200阶。(2)BelPnm(pnm,maxn,t)      采用改进的Belikov递推算法计算规格化连带勒让德函数Pnm。(3)Pndpn_dt(p,dp,n,t)    计...
利用高阶地球重力场位系数模型,计算过指定点(经度,纬度,大地高)重力等位面相对于指定点的正(常)高差、大地高差和重力差格网。利用局部重力场数据,能进一步精化正(常)高差、大地高差和重力差格网,请参考《PALGrav3.0用户操作手册》“5....
利用高阶地球重力场位系数模型,计算过指定点(经度,纬度,正(常)高)等正(常)高面相对于指定点的重力位差、大地高差和重力差格网。利用局部重力场数据,能进一步精化重力位差、大地高差和重力差格网,请参考《PALGrav3.0用户操作手册》“5....
利用高阶地球重力场位系数模型,计算近地空间点处的模型高程异常(m)、模型大地水准面高(m)以及正高与正常高之差(cm)。利用局部重力场数据,能进一步精化正高与正常高差异,请参考《PALGrav3.0用户操作手册》“5.6正高与正常高差别区域...
利用高阶地球重力场位系数模型,计算地面及近地空间点高程异常径向变化率的模型值(cm/km)。此项功能可用于GNSS水准高程异常改正。利用局部重力场数据,能进一步精化高程异常径向变化率,请参考《PALGrav3.0用户操作手册》“5.4高程异...
采用滑动平均、高斯、指数型或巴特沃斯等低通滤波器,对格网数据进行低通滤波。滤波前后,格网的规格(范围和分辨率)不变。模块源码:GrdLowpFilter.f90
按输入的格网规格和选定的插值权函数形式及参数值,对离散点值数据进行乘权格网化运算。适合各种空间分布差异大、精度不均匀的地球物理观测数据格网化,自适应采样点密度,无边缘效应,有利于构造高性能地球物理场。模块源码:WeighGridate.f9...
由CORS网(GNSS监测网)基线一维分量、水准网测段高差或重力网段差变化量,以用户给定的一组地面站点为拟稳基准,采用附有拟稳基准约束的间接最小二乘平差法,计算站点坐标分量变化、正(常)高变化或重力变化平差值。输入输出与参数设置参见《PAL...
由地面高程变化率格网模型(mm/月),地面高程变化率水平梯度(mm/m/月)格网模型,以及地形坡度格网模型,确定地面稳定性降低的位置和空间影响范围。地面稳定性降低的定量辨识准则(客观规律,确定性、无疑义):(1)地面高程变化率较大(大于零)...
由等位面大地高(m)数字模型及其面上的扰动重力(mGal)格网数字模型,按严密逆Hotine积分公式,计算该等位面上点的垂向扰动重力梯度(E)。(1)Hotnie积分逆远算基于Stokes边值问题,要求被积扰动场元位于某一等位面上。模块源码...
由等位面大地高数字模型(m)及其面上的残差垂向扰动重力梯度格网模型(E),按严密广义Hotine积分公式,计算大地水准面及其外部点的残差扰动重力(mGal)。(1)残差扰动重力梯度必须位于重力等位面,这是运用Hotine积分公式的前提条件。...
由区域地面等效水高变化(大气压、陆地水、江河湖库水或海平面变化等,mm)格网模型,按负荷格林函数积分法,计算地面或近地空间任意点的高程异常/大地水准面(mm),地面扰动重力(μGal),地倾斜南分量(ms)、地倾斜西分量(ms),地面重力(...
由超高阶(位、径向和水平)负荷勒夫数,以球面角距(度)为自变量(负荷格林函数积分半径,0<psi<10度),计算大地水准面、地面扰动重力、地倾斜、地面重力、水平和大地高的负荷格林函数值。模块源码:LGreenF.f90算法公式:《ETide...
由大地水准面或其外部空间的由边界面大地高数字模型及其面上的扰动重力场元格网数字模型,按严密Possion积分公式,计算地面及地球外部点同类型场元值。(1)模块通常用于任意高度上重力场元的向上向下解析延拓。(2)不要求被积扰动场元严格位于某一...
由大地水准面或其外部空间的等位面大地高数字模型及其面上的扰动重力场元格网模型,按严密径向梯度积分公式,计算该等位面上点的场元径向梯度值(/km)。(1)模块通常用于任意高度上重力场元的向上向下解析延拓。(2)径向梯度积分基于Stokes边值...
由等位面大地高数字模型及其面上的垂线偏差(")向量格网模型,按严密逆Vening-Meinesz积分公式,计算该等位面上点的高程异常(m)、扰动重力(mGal)或空间异常(mGal)。(1)模块通常用于海洋卫星测高重力场反演计算。(2)垂线...
由等位面大地高(m)数字模型及其面上的高程异常(m)格网数字模型,按严密逆Hotine积分或逆Stokes积分公式,计算该等位面上点的扰动重力(mGal)或空间异常(mGal)。(1)模块通常用于海洋卫星测高重力场反演计算。(2)高程异常逆...
由指定海洋分潮潮高(或大气压分潮)的同相/异相幅值规格化球谐系数(cm),生成IERS协议中规格化球谐系数格式的海潮模型(cm)。(1)使用程序前,需先利用“全球等效水高格网规格化球谐分析”,将海洋分潮潮高的同相/异相幅值,分别展开成
上一页 1 2 3 下一页