//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.MIDAS.SEQ,DISP=SHR
//SYSIN DD *
********************************************************************;
* THIS PROGRAM READS MIDAS DATA FROM : SEQUENTIAL DATA SET,        *;
* COINEWM.MIDAS.SEQ CRUISE 1 DATA                                  *;
* THIS PROGRAM CALCULATES AND PRINTS MEAN OF SOME VARABLES         *;
*                                                                  *;
*                                                                  *;
* BY  : H.S.MASHRIQUI.                                             *;
*                                                                  *;
********************************************************************;
DATA A ;
   INFILE RAWDATA;
   INPUT TDDATEM 2-3 TDDATED 5-6 TDDATEY 8-11
         TDTIMEH 13-14 TDTIMEM 16-17 TDTIMES 19-20
         NDLATD 22-23 NDLATM 26-27 NDLATH 29-30
         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 ;
//
