氣候變化及其診斷實(shí)習(xí)報(bào)告-在線瀏覽
2024-09-24 23:01本頁(yè)面
【正文】 on,nyr),bzc(N,M,nmon) integer ix,iy,it,itt call qhc(h,qh) call jpc(h,s,qh,jp) bzc=0 do it=1,nmon do iy=1,M do ix=1,N do itt=1,nyr bzc(ix,iy,it)=bzc(ix,iy,it)+(jp(ix,iy,it,itt)**2) end do bzc(ix,iy,it)=sqrt(bzc(ix,iy,it)/4) end do end do end do do it=1,nmon write(5) ((bzc(ix,iy,it),ix=1,N),iy=1,M) end do 1000 FORMAT() end subroutine bzcc !求標(biāo)準(zhǔn)化場(chǎng)subroutine bzhh(h,qh,s,jp,bzc)implicit none parameter N=37,M=17,nyr=4,nmon=12real h(N,M,nmon,nyr),s(N,M,nmon),qh(N,M,nmon),jp(N,M,nmon,nyr),bzc(N,M,nmon),bzh(N,M,nmon,nyr)integer ix,iy,it,ittcall qhc(h,qh)call jpc(h,s,qh,jp) call bzcc(h,s,qh,jp,bzc) bzh=0 do itt=1,nyr do it=1,nmon do iy=1,M do ix=1,N bzh(ix,iy,it,itt)=jp(ix,iy,it,itt)/bzc(ix,iy,it) end do end do end do end do do itt=1,nyr do it=1,nmon write(6) ((bzh(ix,iy,itt,itt),ix=1,N),iy=1,M) end do end do 1000 FORMAT() end subroutine bzhh（3）所繪圖形如下： 1月份氣候場(chǎng)上圖是500hpa高度場(chǎng)1982年1月要素氣候場(chǎng)分布圖，從圖中可以分析出：該要素沿緯向變化趨勢(shì)比較平緩，中低緯地區(qū)隨著經(jīng)度的增大（東經(jīng)）而減小，中高緯地區(qū)隨著經(jīng)度的增大而減小，且隨著緯度的增大（北半球）而逐漸減小。7月份氣候場(chǎng)上圖是500hpa高度場(chǎng)1982年7月要素氣候場(chǎng)分布圖，從圖
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1