pltype 4
box off
C size 8.5,11
multplt 1,3
6.5
2,5,1
1
0.25,0.25,1

C WIND STICK PLOT FOLLOWS

txlabp 0
cross 2
format (f9.5, 127x, f7.3, f7.3)

C SETUP TO READ DATA AS PLOTUV --- DOUBLE READ TRICK
line 1,0
vars,1,1,2
rd atlas.dat
SET LABELX 'PPL$XMIN1' + 1
C CAN ADD INTEGERS IF YOU WANT
xaxis 'PPL$XMIN1','PPL$XMAX1',1
line 2,0
rwd atlas.dat
vars,1,1,,2
rd atlas.dat

axlabp 0
axnsig 1
axnmtc 1
yaxis -15,15,5
ylab Wind Speed (m/s)
yfor (I5)
plotuv
pltype 4
box off

C THERMISTOR CHAIN FOLLOWS

window on 
txlabp 0
cross 0
yaxis 6,18,2
ylab Ocean Temperature (deg C)
yfor (I3)

format free
vars 1,1,,,2
pen 1,2
C labs 1,'LABELX',17.33, "@P2 Surface"
rd atlas.dat

vars 1,1,,,,2
pen 2,3
C labs 2,'LABELX',17.00, "@P3 10 m"
rd atlas.dat

vars 1,1,,,,,2
pen 3,4
C labs 3,'LABELX',16.66, "@P4 20 m"
rd atlas.dat

vars 1,1,,,,,,2
pen 4,5
C labs 4,'LABELX',16.33, "@P5 40 m"
rd atlas.dat

vars 1,1,,,,,,,2
pen 5,6
C labs 5,'LABELX',16.00, "@P6 60 m"
rd atlas.dat

vars 1,1,,,,,,,,2
pen 6,7
C labs 6,'LABELX',15.66, "@P7 80 m"
rd atlas.dat

vars 1,1,,,,,,,,,2
pen 7,8
C labs 7,'LABELX',15.33, "@P8 100 m"
rd atlas.dat

vars 1,1,,,,,,,,,,2
pen 8,9
C labs 8,'LABELX',15.00, "@P9 150 m"
rd atlas.dat

vars 1,1,,,,,,,,,,,2
pen 9,a    
C labs 9,'LABELX',14.66, "@Pa 200 m"
rd atlas.dat

vars 1,1,,,,,,,,,,,,2
pen 10,b
C labs 10,'LABELX',14.33, "@Pb 300 m"
rd atlas.dat

C vars 1,1,,,,,,,,,,,,,2
C pen 11,c  
C labs 11,'LABELX',14.00, "@Pc 500 m"
C rd atlas.dat
axlabp 0,-1
axlint 1,1
axnsig 1,1
axnmtc 1,1
plot

C AIR TEMP FOLLOws

yaxis 5,20,5
ylab Air Temp (deg C)
yfor (I4)

vars 1,1,,2
rd atlas.dat
axlabp -1
axlint 1
axnsig 1
axnmtc 1
xlab Julian Days
title Meterologial and Thermisor Chain Data from Mooring M2
plot