%該程序用于求水汽通量散度%注意！我們這里讀到的u是四維矩陣，分別是lon*lat*level*time，clc;clear;close allf_hgt = 'ps_level_20170121_0130.nc';% ncdisp(f_hgt);time=ncread(f_hgt,'time');level=ncread(f_hgt,'level');lon=ncread(f_hgt,'longitude');lat=ncread(f_hgt,'latitude');%%%%%%時(shí)間轉(zhuǎn)換time  = double(time);format = 'mm dd, yyyy HH:MM:SS.FFF AM';%轉(zhuǎn)換格式dstr = datestr((datenum('1900-01-01') + time./24),format);%轉(zhuǎn)換后時(shí)間字符串存儲(chǔ)TM = datevec(dstr);%將時(shí)間字符數(shù)組轉(zhuǎn)化為數(shù)值數(shù)組tidx=find(TM(:,2)==1 & TM(:,3)==28 & TM(:,4)==00);%篩選7月25日08時(shí)（世界時(shí)加8）ps_lev=find(level ==850);%%刪選出850hPa高度start=[1,1,ps_lev,tidx];%所指定變量的每一維的開始讀取的位置count=[41,31,1,1];%從start指定的開始位置算起，一共讀取的每一維要素的數(shù)目strip=[1,1,1,1];%從start開始，每一維讀取的數(shù)目為count時(shí)，每一維的讀取的步長(zhǎng)hgt=ncread(f_hgt,'z',start,count,strip);%讀取溫度值，單位Ku=ncread(f_hgt,'u',start,count,strip);%讀取溫度值，單位Kv=ncread(f_hgt,'v',start,count,strip);%讀取溫度值，單位K[X,Y]=meshgrid(lon,lat);figure(1)m_proj('Mercator','lat',[25,35],'lon',[100,115]);% m_grid('linestyle','none','tickdir','out','fontsize',12,'fontname','Times New Roman');m_grid('linestyle','none','box','fancy','fontsize',11,'tickdir','in','xtick',[100:3:115],'ytick',[25:2:35]);hold onm_windbarb(X',Y',u,v,'color','k')%m_coast('patch',[.9 .9 .9],'edgecolor','none');[C,h]=m_contour(X',Y',hgt/10 ,'color','k','LineWidth',1);%[5000:80:5900]%[1520:25:1680]%set(b,'ShowText','on','TextStep',get(b,'LevelStep'),'fontsize',12,'fontname','Times New Roman');   %在等高線上疊加數(shù)值（文后詳情）clabel(C,h,'FontSize',13,'fontname','Times New Roman');ma=shaperead('F:/RMeteoInfo/data/map/bou2_4l.shp'); % m_line( [ma(:).X], [ma(:).Y],'color',[0.5,0.5,0.5]);%繪制范圍內(nèi)的地圖m_line([ma(:).X],[ma(:).Y],'color','r');%繪制范圍內(nèi)的地圖m_plot(105.5,29.43,'marker','^','MarkerSize',7,'color','k','MarkerFaceColor','k')

clc;clear;close allu0=ncread('202008muwind.nc','uas');    %讀取其中一項(xiàng)v0=ncread('202008mvwind.nc','vas');time0=ncread('202008muwind.nc','time');lat0=ncread('202008muwind.nc','lat');lon0=ncread('202008muwind.nc','lon');      [lat,lon]=meshgrid(lat0,lon0);u=u0(:,:,2);v=v0(:,:,2);b=sqrt(u.^2+v.^2);figure(1);m_proj('Equidistant Cylindrical','long',[-180 180],'lat',[-90 90]);%矩形投影；取區(qū)域觀察[lon1,lat1]=meshgrid([-180:2.5:179.75],[-90:2.5:90]);u2=u(1:10:end,1:10:end)';% u3=[u2,u2(:,end)];v2=v(1:gap:end,1:gap:end)';% v3=[v2,v2(:,end)];m_quiver(lon1,lat1,u2,v2,0);hold offm_coast('patch',[1 .85 .7]);m_grid('box','on','tickdir','out');

m_contourf(lon,lat,b);%在mmap基礎(chǔ)上的畫shading interp;%使數(shù)據(jù)插值hold on;m_quiver(lon1,lat1,u2,v2,0);hold off;

m_quiver(lon1,lat1,u2,v2,0);

m_contourf(lon,lat,b,500,'linestyle','none')   %在mmap基礎(chǔ)上的畫shading interp;  %使數(shù)據(jù)插值