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,