do m = 1, 12
do i =1,nlat
! 对多维数组进行切片处理,形成time-lon/lat的二维数组,然后对时间维进行计算
h_mean(m,i,:) = mean(geo_h(:,m,i,:)) !求各月高度气候场
h_std(m,i,:) = dimfun(std_1d, geo_h(:,m,i,:))!对各列进行求标准差
h_anomaly(:,m,i,:) = anomaly(geo_h(:,m,i,:)) !求各年月距平场
enddo
write(*,"(37f8.1)") ((h_mean(m,i,j), j=1, nlon),i=1,nlat)
write(File_h_std,"(37f8.2)") ((h_std(m,i,j), j=1, nlon),i=1,nlat)
enddo
fcode 发表于 2019-4-30 20:59
都会自动换行的。
如果你的 nlon 是37的话。如果你不放心,可以用
'(38(37f8.1,/))'
fcode 发表于 2019-4-30 21:58
怎么个乱了?是你打开文件的编辑器自动换行了吧?
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |