//MASRIQUI JOB ,'MASRIQUI',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM,TIME=2
/*JOBPARM SHIFT=D,LINES=90
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS6,TIME=2
//RAWDATA DD DSN=COINEWM.CRUISE6.MIDAS,DISP=SHR
//SYSIN DD *
********************************************************************;
* THIS PROGRAM READS MIDAS DATA FROM : SEQUENTIAL DATA SET,        *;
* COINEWM.CR2.SEQ                                                  *;
* THIS PROGRAM CALCULATES AND PRINTS MEAN OF SOME VARABLES         *;
*                                                                  *;
*                                                                  *;
* BY  : H.S.MASHRIQUI.                                             *;
*                                                                  *;
********************************************************************;
DATA A ;
   INFILE RAWDATA;
   INPUT TDDATEM 1-2 TDDATED 4-5 TDDATEY 7-10
         TDTIMEH 12-13 TDTIMEM 15-16 TDTIMES 18-19
         NDLATD 21-22 NDLATM 24-25 NDLATH 27-28
         NDLONGD 35-37 NDLONGM 40-41 NDLONGH 43-44
         H2OTEMP 260-266 CONDUCT 268-274 SALIN 276-282
         CHLFLUVT 284-290 AUXFLUVT 292-298 FLOSWTCH 300-302
         LITTRAN 304-309 FLORATE 311-315 WNDSPD 317-321
         RWNDSPD 323-327 CWNDSPD 329-333 MWDIR 335-337
         DEVWDIR 339-341 CMWDIR 343-345 AIRTEMP 347-351
         BAROPRES 353-357 SOLRAD 359-364 ;
         FLAT = NDLATD  + ( NDLATM  + NDLATH/100  )/60 ;
         FLON = NDLONGD + ( NDLONGM + NDLONGH/100 )/60 ;
       IF H2OTEMP > 990 OR CONDUCT > 990 OR SALIN > 990 THEN DELETE ;
       IF CHLFLUVT < 0 OR LITTRAN  < 0 OR CWNDSPD > 990 THEN DELETE ;
       IF CMWDIR> 990 OR AIRTEMP > 990 OR SOLRAD  > 990 THEN DELETE ;
       IF H2OTEMP  = . OR CONDUCT = . OR SALIN   = . THEN DELETE ;
       IF CHLFLUVT = . OR LITTRAN = . OR CWNDSPD = . THEN DELETE ;
       IF CMWDIR   = . OR AIRTEMP = . OR SOLRAD  = . THEN DELETE ;
       IF WNDSPD   = . OR RWNDSPD = . OR CWNDSPD = . THEN DELETE ;
       IF MWDIR    = . OR DEVWDIR = . OR CMWDIR  = . THEN DELETE ;
PROC SORT  DATA = A ; BY TDDATED ;
PROC MEANS DATA = A ;
     VAR   H2OTEMP CONDUCT SALIN CHLFLUVT AUXFLUVT LITTRAN FLORATE
     CWNDSPD CMWDIR AIRTEMP BAROPRES SOLRAD ;
PROC CHART DATA = A ;
VBAR H2OTEMP / TYPE = FREQ MIDPOINTS = 22.0 22.5 23.0 23.5
         24.0 24.5 25.0 25.5 26.0 26.5 27.0 27.5 ;
PROC CHART DATA = A ;
VBAR CONDUCT / TYPE = FREQ MIDPOINTS = 3.0 3.25 3.50 3.75
         4.00 4.25 4.50 4.75 5.00 5.25 5.50 ;
PROC CHART DATA = A ;
VBAR SALIN   / TYPE = FREQ MIDPOINTS = 19.0 21.0 23.0 25.0
         27.0 29.0 31.0 33.0 35.0  ;
PROC CHART DATA = A ;
VBAR CHLFLUVT / TYPE = FREQ MIDPOINTS = 0.5 1.00 2.00 3.00
         4.00 5.00 6.00 7.00 8.00  ;
PROC CHART DATA = A ;
VBAR AUXFLUVT / TYPE = FREQ MIDPOINTS = 3.00 4.00 5.00 6.00
         7.00 8.00 9.00 10.0  ;
PROC CHART DATA = A ;
VBAR LITTRAN / TYPE = FREQ MIDPOINTS = 10.0 20.0 30.0 40.0
         50.0 60.0 70.0 80.0 90.0 100.0 ;
PROC CHART DATA = A ;
VBAR FLORATE / TYPE = FREQ MIDPOINTS = 5.0 10.0 15.0 20.0 25.0
         30.0 35.0 40.0 45.0 50.0 60.0 65.0 70.0 ;
PROC CHART DATA = A ;
VBAR CWNDSPD  / TYPE = FREQ MIDPOINTS = 5.0 10.0 15.0 20.0
         25.0 30.0 35.0 40.0 45.0 50.0 55.0 60.0 ;
PROC CHART DATA = A ;
VBAR CMWDIR   / TYPE = FREQ MIDPOINTS = 0.00 100  200  300
         400 500 600 700 800 900 ;
PROC CHART DATA = A ;
VBAR AIRTEMP / TYPE = FREQ MIDPOINTS = 0.00 5.00 10.0 15.0
         20.0 25.0 30.0  ;
PROC CHART DATA = A ;
VBAR BAROPRES / TYPE = FREQ MIDPOINTS = 5.0 10.0 15.0 20.0 25.0
         30.0 35.0 ;
PROC CHART DATA = A ;
VBAR SOLRAD   / TYPE = FREQ MIDPOINTS = 5.0 10.0 15.0 20.0
         25.0 30.0 35.0 40.0 45.0 50.0 55.0 60.0 65.0 70.0 75.0
         80.0 85.0 ;
//
