正压原始方程模式实习报告

超声波萃取

正压原始方程模式实习报告

一、实习目的与要求

1.实习目的：通过正压原始方程模式的实习，加深理解该章所学的基本内容；掌握当今制作数值天气预报的一般方法和主要步骤；并在数值计算、编制程序和上机操作等方面得到进一步训练。

2.实习要求：以1973年4月29日08时(北京时)我国东北、华北地区500百帕等压面位势高度场及地转风场作为初值，采用固定的水平侧边界条件，应用正压原始方程二次守恒平流格式的模式，制作未来24小时有限区域500百帕位势高度场和风场的预报，并写一份实习报告。

二、模式的主要计算框图

三、实习任务

1. 编写两个子程序：五点平滑子程序，地转风初值子程序

贴片线圈

2. 子程序编写完成并保证正确的前提下，做4个数值试验：

①只做正平滑和做正逆平滑的对比试验；

②地转风子程序中不同差分格式的数值试验；

③是否做边界平滑的数值试验；

④是否做时间平滑的数值试验。

四、实习程序

玻璃纤维膨体纱

1、五点平滑的子程序：

subroutine ssip(a,w,s,m,n,k,l) 定义五点平滑子程序

dimension a(m,n),w(m,n) 定义数组

if(l==1)then

灯头盒

do i=2,m-1

do j=2,n-1

w(i,j)=a(i,j)+s*(a(i-1,j)+a(i+1,j)+a(i,j-1)+a(i,j+1)-4*a(i,j))/4.0 执行正平滑

enddo

do i=2,m-1

do j=2,n-1

a(i,j)=w(i,j)

enddo

Enddo

return

Else

do i=2,m-1

do j=2,n-1预制箱梁

w(i,j)=a(i,j)+s*(a(i-1,j)+a(i+1,j)+a(i,j-1)+a(i,j+1)-4*a(i,j))/4.0 执行正平滑

enddo

do i=2,m-1smdao

本文发布于:2024-09-21 12:36:09，感谢您对本站的认可！

标签：子程序数值实习

留言与评论（共有 0 条评论）