Displaying 1 result from an estimated 1 matches for "out3d".
Did you mean:
out3
2005 Apr 23
0
reading fortran binary file
...ubroutine is
as the following.
subroutine freadmm5(filenamet,out2d)
integer iflag,var1,miy,mjx,mkz,mt,z,t
character*4 crdt,corder
character*24 chrdate
character*9 cname,var
character*25 cunit,uunit,vunit,wunit
character*80 filename
real out2d(157,109),out3d(157,109,24)
OPEN (11,FILE=filename,FORM='UNFORMATTED')
10 READ(11) IFLAG
IF ( IFLAG .EQ. 0 ) THEN
READ(11)
goto 10
elseif (iflag.eq.1) then
read(11)
& IDIM ! dimension of the field
& ,IB,JB,KB,LB ! starti...