;******************************************************************************
; IPYTOT_READ.PRO
; Reads ASCII files of Rayleigh lidar temperature (i.e., RT) data.
; Data is from Poker Flat Research Range (PFRR), Chatanika, Alaska.
; The temperature profile is derived from the time integrated lidar echoes over
; the observation period.
; The observation time of the temperature profile is the midpoint of the observation period.
; The time duration is the length of the observation period in second.
;
; Contact:
;      Richard Collins, Geophysical Institute, University of Alaska Fairbanks,
;                                 903 Koyukuk Drive, Fairbanks, AK 99775, USA.
;                                (907) 474-7607, rlc@gi.alaska.edu
;
;      Further information about this research: http://research.iarc.uaf.edu/IPY-CTSM/
;      Further information lidar research at UAF: http://www.gi.alaska.edu/splidar
;
;******************************************************************************
; FILE NAME
FILNAM = '20071128IPY_RT.TOT'     ; Filename in YYYYMMDDIPY_RL.TOT
DIRNAM = 'C:\Scratch\RYTK\'            ; Directory Path Name
FTOTNAM = DIRNAM+FILNAM

;FILE  HEADER PARAMETERS
 nprof = 0L                                              ; Number of temperature
profiles in the file
 nz=0L                                                     ; Number of points in altitude in each temperature profile
 nsec=0L                                                  ; Time in seconds since 1-1-70 0:0:0 UT at midpoint measurement
                                                                 ; See IDL routines JULDAY and CALDAT.
 ndur=0L                                                  ; Time duration of measurement in seconds
 slat=0.0                                                   ; Latitude of PFRR in degrees (65.1 N)
 slon=0.0                                                  ; Longitude of PFRR in degrees (213.5 E (147.5 W))

 ; OPEN FILE
openr,1,FTOTNAM

; READ HEADER
readf,1,nprof,nz,nsec,ndur,slat,slon  ; Read parametrs
print,nprof,nz,nsec,ndur,slat,slon      ; Print parameters for confirmation

; SET UP DATA ARRAYS
altitude_profile=fltarr(nz)
temperature_profile=fltarr(nz)

; READ DATA
READF, 1, ALTITUDE_PROFILE
READF, 1,TEMPERATURE_PROFILE
close,1

STOP
END