Subversion Repositories lagranto.um

Rev

Rev 16 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16 Rev 17
Line 443... Line 443...
443 
C    I/O STREAMS ARE AS FOLLOWS
 443 
C    I/O STREAMS ARE AS FOLLOWS
444 
C     1) 6   STANDARD OUTPUT
 444 
C     1) 6   STANDARD OUTPUT
445 
C     2) 8   PPUNIT - READ UNIT FOR PP FILE
 445 
C     2) 8   PPUNIT - READ UNIT FOR PP FILE
446 
      IMPLICIT NONE
 446 
      IMPLICIT NONE
447 
      INTEGER ierr,IFORM,IEEE
 447 
      INTEGER ierr,IFORM,IEEE
448 
      CHARACTER INFILE*100
 448 
      CHARACTER INFILE*120
449 
c
 449 
c
450 
      IF(IFORM.EQ.1) THEN
 450 
      IF(IFORM.EQ.1) THEN
451 
        OPEN(UNIT=8,FILE=INFILE,FORM='FORMATTED')
 451 
        OPEN(UNIT=8,FILE=INFILE,FORM='FORMATTED')
452 
      ELSE
 452 
      ELSE
453 
        IF(IEEE.EQ.1) THEN
 453 
        IF(IEEE.EQ.1) THEN
Line 456... Line 456...
456 
c         call asnctl('newlocal',1,ierr)
 456 
c         call asnctl('newlocal',1,ierr)
457 
c         write(*,*) 'ierr from asnctl ',ierr
 457 
c         write(*,*) 'ierr from asnctl ',ierr
458 
c         call asnunit(8,'-F f77 -N ieee',ierr)
 458 
c         call asnunit(8,'-F f77 -N ieee',ierr)
459 
c         write(*,*) 'ierr from asnunit ',ierr
 459 
c         write(*,*) 'ierr from asnunit ',ierr
460 
        ENDIF
 460 
        ENDIF
461 
        OPEN(UNIT=8,FILE=INFILE,FORM='UNFORMATTED')
 461 
        OPEN(UNIT=8,FILE=INFILE,FORM='UNFORMATTED')
462 
      ENDIF
 462 
      ENDIF
- 
 
 463 
      write(*,*) INFILE
463 
      return
 464 
      return
464 
      END
 465 
      END
465 
c********************************************************
 466 
c********************************************************
466 
      subroutine read_field(iform,nx,ny,data,stash_code,level,
 467 
      subroutine read_field(iform,nx,ny,data,stash_code,level,
467 
     &     dxdeg,dydeg,dyear,dmonth,dday,dhour,dmins,iend,
 468 
     &     dxdeg,dydeg,dyear,dmonth,dday,dhour,dmins,iend,