//CR5CLEAN JOB ,'MASRIQUI',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM,TIME=5
/*JOBPARM SHIFT=D,LINES=90
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS6,TIME=5
//RAWDATA DD DSN=COINEWM.CRUISE5.MIDAS,DISP=SHR
//OUTDATA DD DSN=COINEWM.CRUISE5.CLEANMID,DISP=SHR
//SYSIN DD *
********************************************************************;
* MARIE,     ** OUTPUT FILE NAME : CR3CLEAN.SEQ   ******************;
* THIS PROGRAM READS MIDAS DATA FROM : SEQUENTIAL DATA SET :       *;
* COINEWM.CRUISE3.MIDAS      AND CREATES A NEW FILE WITH CLEANED   *;
* DATA AS SCREENED WITH FOLLOWING CONDITIONS. IF YOU NEED MORE     *;
* PARAMETERS PLEASE ADD THOSE IN READING AND ALSO IN WRITING.      *;
*                                                                  *;
* BY  : H.S.MASHRIQUI.  DATE : MAY 14, 1993                        *;
*                                                                  *;
********************************************************************;
*********       READ THE DATA FILE *********************************;
*********        COINEWM.CRUISE3.SEQ   *****************************;
*********   ADD MORE PARAMETERS BELOW IF YOU NEED  *****************;
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   25-26    NDLATH   28-29
         NDLONGD  34-36   NDLONGM  39-40    NDLONGH  42-43
         H2OTEMP  259-265 CONDUCT  267-273  SALIN    275-281
         CHLFLUVT 283-289 AUXFLUVT 291-297  FLOSWTCH 299-301
         LITTRAN  303-308 FLORATE  310-314  WNDSPD   316-320
         RWNDSPD  322-326 CWNDSPD  328-332  MWDIR    334-336
         DEVWDIR  338-340 CMWDIR   342-344  AIRTEMP  346-351
         BAROPRES 353-357 SOLRAD   359-365 ;
********************************************************************;
********************************************************************;
     IF ( NDLATD   < 22.0 OR NDLATD   > 40 ) THEN DELETE ;
     IF ( NDLONGD  < 82.0 OR NDLONGD  > 103 ) THEN DELETE ;
     IF ( H2OTEMP  < 12.0 OR H2OTEMP  > 24 ) THEN H2OTEMP  = . ;
     IF ( CONDUCT  < 00.0 OR CONDUCT  > 5.5) THEN CONDUCT  = . ;
     IF ( SALIN    < 14.0 OR SALIN    > 33 ) THEN SALIN    = . ;
     IF ( CHLFLUVT < 0.05 OR CHLFLUVT > 1  ) THEN CHLFLUVT = . ;
     IF ( LITTRAN  < 0.00 OR LITTRAN  > 99 ) THEN LITTRAN  = . ;
     IF ( CWNDSPD  < 0.00 OR CWNDSPD  > 20 ) THEN CWNDSPD  = . ;
     IF ( CMWDIR   < 0.00 OR CMWDIR  > 360 ) THEN CMWDIR   = . ;
     IF ( AIRTEMP  < 16.0 OR AIRTEMP  > 25 ) THEN AIRTEMP  = . ;
     IF ( BAROPRES < 29.0 OR BAROPRES > 31 ) THEN BAROPRES = . ;
     IF ( SOLRAD   < 0.00 OR SOLRAD   > 1  ) THEN SOLRAD   = . ;
C = ',' ;
D = '/' ;
E = ':' ;
F = '.' ;
********************************************************************;
*********   ADD MORE PARAMETERS BELOW IF YOU NEED  *****************;
*********   AND ADJUST COLUMN POSITION, MAKE NEW OUTPUT FILE *******;
DATA B ;
SET A ;
C = ',' ;
D = '/' ;
E = ':' ;
F = '.' ;
FILE OUTDATA ;
 PUT TDDATEM 1-2 D$ 3 TDDATED 4-5 D$6 TDDATEY  7-10 C$ 11
 TDTIMEH 12-13 E$ 14 TDTIMEM 15-16 E$17 TDTIMES 18-19 C$ 20
 NDLATD 21-22 E$ 23 NDLATM 24-25 F$ 26 NDLATH 27-28 C$ 29
 NDLONGD 30-32 E$ 33 NDLONGM 34-35 F$ 36 NDLONGH 37-38 C$ 39
 H2OTEMP 40-47 .4 C$ 48 CONDUCT 49-56 .4 C$ 57 SALIN 58-65 .4
 C$ 66 CHLFLUVT 67-74 .4 C$ 75 AUXFLUVT 76-83 .4 C$ 84 FLOSWTCH
 85-92 .4 C$ 93 LITTRAN 94-101 .4 C$ 102 FLORATE 103-110 .4 C$ 111
 WNDSPD 112-119 .4 C$ 120 RWNDSPD 121-128 .4 C$ 129 CWNDSPD 130-137 .4
 C$ 138 CMWDIR 139-146 .4 C$ 147 AIRTEMP 148-155 .4 C$ 156
 BAROPRES 157-164 .4 C$ 165 SOLRAD 166-173 .4 C$ 174 ;
//
