Program Test2
Implicit None
Integer, parameter: NX = 72 , NY = 63 , NZ = 10 , Nhours = 24 , Nday = 4 , Nvar = 12 , NID = 22
Integer varid (nvar)
Real tconc (NX, NY)
Integer IV, Iz, IREC, I, j
Open ( 31 , File = ' L: \ newnaqpms \ 2008030712 \ testd4.2008030712.grd ' , Action = ' Read ' , Form = ' Unformatted ' , Access = ' Direct ' , Recl = NX * NY * 4 , Convert = ' Big_endian ' )
IREC = 1
! Read ( 31 , REC = IREC) tconc
Read ( 31 , REC = IREC) (tconc (I, j), I = 1 , Nx), J = 1 , NY)
! Write ( * , ' (F6.5) ' ) (Tconc (I, j), I = 1 , Nx), J = 1 , NY)
Write ( * , * ) (Tconc (I, j), I = 1 , Nx), J = 1 , NY)
Open ( 20 , Action = ' Write ' , File = ' C: \ u.txt ' , Form = ' Formatted ' , Recl = NX * NY * 4 )
! Write ( 20 , * ) (Tconc (I, j), I = 1 , Nx), J = 1 , NY)
Do I = 1 , Nx
Write ( 20 , * ) (Tconc (I, j), J = 1 , NY)
Enddo
End program Test2
