subroutine tempin

#include "com2d.h"

C  
C  *********    Read  in  lookup  tables  for NEW  CIRCULATION    ***********
C
C  KYY10(37,59,36), QV10(37,59,36), TEMP10(37,59,36), UBAR10(37,59,36), QBARY(37,59,36) in common
C
C
C   first read in file of climatological 10-day means of:
c       KYY'S, PV FLUX, TEMPS, AND UBAR (qbary also part of the file, but not used)
C
       OPEN (72,FILE = '/misc/win01/newmod/base8u/kyyclim_base8uc.xdr',
     *    FORM = 'SYSTEM', ACCESS='SEQUENTIAL', STATUS = 'UNKNOWN')
           READ (72) kyy10 
           READ (72) qv10
           READ (72) temp10 
           READ (72) ubar10
           READ (72) qbary
        CLOSE (72)

c
c  read in Joan's NEW Heating rates,  HEAT10(37,58,36) 
c
        OPEN (76, FILE = '/misc/win01/newmod/base8/heat_base8c.xdr',
     *    FORM = 'system', ACCESS='SEQUENTIAL',STATUS = 'UNKNOWN')
        READ (76) HEAT10 
        CLOSE (76)

C
C  Read in  latent heating  from  Newell, 1974  10-DAY MEANS;  LH10(37,7,36)
c
        OPEN (78, FILE = '/misc/win01/newmod/base8/latheat_base8d.xdr',
     *    FORM = 'system', ACCESS='SEQUENTIAL',STATUS = 'UNKNOWN')
        READ (78) LH10
        CLOSE (78)
C
C
C  Read in  new NMC tropopause heights, which have been interpolated to daily values
C        array  TROPHT(18,360) is in COMMON  
c 
         OPEN (74, FILE = '/misc/win01/newmod/base8/trop2d_base8e.xdr',
     *     form = 'system', access = 'sequential', status = 'unknown')
         READ (74) TROPHT
         CLOSE (74)

C
C  READ IN daily tropospheric H2O values from Oort, 1983 -- TROPWV(18,11,360) defined in COMMON
C
        OPEN (60, FILE = 'troph2oday_2d.dat',
     *      FORM = 'SYSTEM', ACCESS='SEQUENTIAL', STATUS = 'old')
        READ (60) TROPWV
        CLOSE (60)

C
C  Read in bottom boundary conditions NOW FOR LEVEL 2 (762 mb) for stream function; 
C        array  BBCADJ(37,36)  is in COMMON  
c 
       OPEN (75, FILE = '/misc/win01/newmod/base8r/chibbc2_base8sw.xdr',
     *     form = 'system', access = 'sequential', status = 'unknown')
         READ (75) BBCADJ
         CLOSE (75)
  

        SAVE
	RETURN
	END