author | Forrest Hoffman <forrest@climatemodeling.org> |
Thu, 26 Mar 2009 14:02:21 -0400 | |
changeset 1 | 4be95183fbcd |
permissions | -rw-r--r-- |
1 program to_read_int
2 integer, parameter :: nlat = 180 * 20, nlon = 360 * 20, &
3 recl = 2*nlat*nlon
4 integer(2), dimension(nlat,nlon) :: data
5 open(11,file='Npp_0.05deg_mean.int16',form='unformatted',&
6 access='direct',recl=recl)
7 read(11,rec=1)data
8 close(11)
9 do i = 1, nlon
10 do j = 1, nlat
11 write(*,*)data(j,i)
12 end do
13 enddo
14 end