中科院计算流体力学最新讲义CFD1113讲MPI并行程序设计初步1研究报告.pptVIP

计算流体力学讲义2011 第13讲 MPI并行程序设计 （1） 李新亮 lixl@imech.ac.cn ；力学所主楼219； ;Copyright by Li Xinliang;一、 基本概念; ● CFD的计算资源依赖性 计算量大——流动的多尺度性 （湍流） 大飞机全部流动细节完全分辨： 最小尺度：mm~ mm 量级； 计算网格： 1012-1016 ; 需计算量： ~ 1020-30 ； 工程需求： 8个小时之内完成计算 预计： LES： 2045年； DNS: 2080年;各系统的性能;自行搭建的简易机群;Copyright by Li Xinliang;Copyright by Li Xinliang;2. 并行程序设计工具;局域网络; MPI 的编译、运行环境 1） 并行计算机 （力学所机群、深腾7000，曙光5000A) 编译： mpif90 / mpif77/mpicc f90/f77 -I/usr/local/mpi/include -L/usr/local/mpi/lib -lm -lmpi 运行： mpirun / bsub 2）MPI for NT (Windows 2000,XP) 编译环境：Visual Fortran/ MS Develop Studio 设置：头文件路径、连接路径 运行： mpirun;Copyright by Li Xinliang;Copyright by Li Xinliang;服务器/前端机;Copyright by Li Xinliang; 一个简单的MPI程序 hello.f90 include 　‘mpif.h’ integer 　myid,numprocs,ierr call MPI_Init(ierr) call　MPI_Comm_rank(MPI_COMM_WORLD,myid,ierr) call MPI_Comm_size(MPI_COMM_WORLD,numprocs,ierr) Print*, Hello World! my id is :,myid ! 添加自己的程序 …… ! call MPI_Finalize(ierr) end;运行结果： ;基本MPI函数 （MPI 子集） 1) MPI初始化 call MPI_Init(ierr) (out) Integer:: ierr　 2) MPI结束 call MPI_Finalize(ierr) (out) Integer:: ierr;3) 得到当前进程标识 call　MPI_Comm_rank(MPI_COMM_WORLD,myid,ierr) (In) Integer:: MPI_COMM_WORLD 为进程所在的通信域 (Out) Integer:: myid, ierr 4) 得到通信域包含的进程数 Call　MPI_Comm_size(MPI_COMM_WORLD,numprocs,ierr) (In) Integer:: MPI_COMM_WORLD (Out) Integer:: numprocs,ierr ;基本概念： 通信域（通信子）; MPI 消息传递函数 消息发送 MPI_Send(buf,count,datatype,dest,tag,comm, ierr) MPI消息：数据描述+信封 数据描述：＜起始地址，数据个数，数据类型＞ 信封： ＜源/目，标签，通信域＞; buf: 数据起始地址 (Fortran : 变量名， C： 变量地址/指针） count: 数据数目 （以datatype为单位，必须连续） ; dest: 发送目标的ID （integer） Tag: 消息标签 (integer)