C***********************************************************
C
      SUBROUTINE FOPEN ( IRUN )
C
C***********************************************************
C
C
      LOGICAL      IFLEX(100)
      CHARACTER*20 FNAME(100)
      CHARACTER*36 CNUM
      CHARACTER*4  FNIN
      CHARACTER*4  FNOUT
      CHARACTER*2  SNAME
C
C==========================================================
C
      CNUM = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
C
      SNAME = 'T1'
C
C
      FNIN  = '@' // SNAME // CNUM(IRUN  :IRUN  )
      FNOUT = '@' // SNAME // CNUM(IRUN+1:IRUN+1)
C
C---------------------------------------------------------
C
C
C
      FNAME(31) = FNIN // '.TPOT.DATA'
      FNAME(32) = FNIN // '.TEMP.DATA'
      FNAME(33) = FNIN // '.TURB.DATA'
      FNAME(34) = FNIN // '.QRAD.DATA'
      FNAME(35) = FNIN // '.QDIF.DATA'
      FNAME(36) = FNIN // '.TGRD.DATA'
      FNAME(37) = FNIN // '.SRAD.DATA'
      FNAME(38) = FNIN // '.DIRH.DATA'
      FNAME(39) = FNIN // '.DSRH.DATA'
C
C
      DO 31 IR = 31, 39
         OPEN ( IR, FILE = FNAME(IR), STATUS = 'OLD' ,
     \           FORM='UNFORMATTED' )
   31    CONTINUE

C
C---------------------------------------------------------
C
      FNAME(16) = FNIN // '.VB.DATA'
      OPEN ( 16, FILE = FNAME(16), STATUS='OLD'  )
C
C---------------------------------------------------------
C
      FNAME(72) = FNIN // '.TSFC.DATA'
      OPEN ( 72, FILE = FNAME(72), STATUS='OLD', FORM='UNFORMATTED' )
C
C--------------------------------------------------------
C
      RETURN
      END
