GrADS绘图与编程值得收藏.pptxVIP

GrADS绘图与编程;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18; Parameter(ii=37,jj=17) Real var(ii,jj) Open(1,file=‘u850.dat’) Open(2,file=‘v850.dat’) Open(3,file=‘u200.dat’) Open(4,file=‘v850.dat’) Open(5,file=‘h500.dat’) Open(6,file=‘tsfc.dat’) Open(9,file=‘data.grd’,form=‘unformatted,access=‘direct’,recl=ii*jj*4) Irec=1 Do 200 iy=1,4 Do 100 m=1,12 Read(1,1000) Read(1,2000) ((var(I,j),I=1,ii),j=1,jj) Write(9,rec=irec) ((var(I,j),I=1,ii),j=1,jj) Irec=irec+1;Read(3,1000) Read(3,2000) ((var(I,j),I=1,ii),j=1,jj) Write(9,rec=irec) ((var(I,j)I=1,ii),j=1,jj) Irec=irec+1 Read(2,1000) Read(2,2000) ((var(I,j),