C C***************** TOP OF COMMON BLOCK - INPCDB ************************ C C NAME- INPCDB C C LANGUAGE- VS FORTRAN TYPE- COMMON BLOCK COMPUTER- CRAY J916 C C VERSION- 1.0 DATE- 03/18/91 PROGRAMMER- CARLA A. NEIGH (SMSRC) C VERSION- 2.0 DATE- 08/19/94 PROGRAMMER- SURYA JANDHYLA (SMSRC) C XATOV-32 MSU AND SSU VALUES WERE CHANGED TO AMSU-A AND C AMSU-B VALUES. VARIABLES FOVWGT, ISTRP, AND IEDRP WERE C REMOVED. C VERSION- 2.1 DATE- 09/15/94 PROGRAMMER- CARLA NEIGH (SMSRC) C XATOV-48 CORRECT DIMENSION OF ASBCOR FROM 11X15 TO 30X15. C VERSION- 2.2 DATE- 04/12/95 PROGRAMMER- LI LU (SMSRC) C ATOVS-82 ADDED 1B* SCAN QUALITY FLAG ARRAYS AND NUMBERS OF C FLAG IDS IN THE ARRAYS FOR HIRS, AMSU-A, AMSU-B, C AND GAC. C VERSION- 2.3 DATE- 08/23/95 PROGRAMMER- LI LU (SMSRC) C ATOVS-174 AN INTEGER*4 VARIABLE INTCFG IS ADDED. FATAL AND C SUSPECT FLAGS, FTLHIR, FTLAMA, FTLAMB, FTLGAC, C SPSHIR, SPSAMA, SPSAMB, AND SPSGAC, ARE REMOVED. C ATOVS-180 INTEGER*4 VARIABLES HFTFLG, AFTFLG, AND BFTFLG ARE C ADDED. THESE VARIABLES ARE THE NUMBER OF FATAL QC FLAGS C FOR EACH INSTRUMENT. ALSO ADDED ARE I*4 VARIABLES C HFGSEQ(32), AFGSEQ(32), AND BFGSEQ(32). THESE VARIABELS C SHOW THE ORDER OF THE QC FLAGS. C VERSION- 3.0 DATE- 10/29/97 PROGRAMMER- LEAH WILSON (HSTX) C REMOVE ALL '*4' DECLARATIONS FOR USE ON CRAY. C ADD HRSHAPE(32) TO STORE SHAPE OF 1B* FLAGS THAT C CHANGED DUE TO STRUCTURE FILE CHANGES. ADD GAPMAX C DUE TO SOME FLAGS BEING STORED FOR EACH OF 64 C MINOR FRAMES. C VERSION- 3.1 DATE- 07/22/98 PROGRAMMER- LEAH WILSON (RAYTHEON) C ADD BADHFLAG AND BADAFLAG TO COUNT NUMBER OF TIMES C SCAN QUALITY FLAGS ARE BAD IN SCNCNF. C VERSION- 3.2 DATE- 01/23/04 PROGRAMMER- FRANK TILLEY (RAYTHEON) C CHANGED THE SIZE OF CDBCFG FROM 5 TO 6. C VERSION- 3.3 DATE- 11/01/06 PROGRAMMER- FRANK TILLEY (IMSG) C ADDED BADMFLAG TO COUNT NUMBER OF TIMES C SCAN QUALITY FLAGS ARE BAD FOR MHS/AMSU-B C C FUNCTION- THIS COMMON BLOCK CONTAINS VALUES OBTAINED FROM CDB C FOR SOUNDINGS DATA INPUT. C C C SHARED PARAMETERS- C VARIABLE TYPE DESCRIPTION C -------- ---- ----------- C SPCRID INT SPACECRAFT ID. C C IDSAT CH*8 SATELLITE ID. C C HCNTBS INT HIRS CHANNEL 1 COUNT BIAS. C C ASBCOR(30,15) REAL 2D ARRAY OF AMSU-A SCAN BIAS CORRECTION FACTORS. C C HMINRD(20) REAL HIRS MINIMUM RADIANCE TEMPERATURE LIMITS C FOR EACH CHANNEL. C C AMINRD(15) REAL AMSU-A MINIMUM RADIANCE TEMPERATURE LIMITS C FOR EACH CHANNEL. C C BMINRD(5) REAL AMSU-B MINIMUM RADIANCE TEMPERATURE LIMITS C FOR EACH CHANNEL. C C HMINBT(20) REAL HIRS MINIMUM BRIGHTNESS TEMPERATURE LIMITS C FOR EACH CHANNEL (K). C C AMINBT(15) REAL AMSU-A MINIMUM BRIGHTNESS TEMPERATURE LIMITS C FOR EACH CHANNEL (K). C C BMINBT(5) REAL AMSU-B MINIMUM BRIGHTNESS TEMPERATURE LIMITS C FOR EACH CHANNEL (K). C C GMINBT(6) REAL AVHRR MINIMUM BRIGHTNESS TEMPERATURE LIMITS C FOR EACH CHANNEL (K). C C HMAXRD(20) REAL HIRS MAXIMUM RADIANCE TEMPERATURE LIMITS C FOR EACH CHANNEL. C C AMAXRD(15) REAL AMSU-A MAXIMUM RADIANCE TEMPERATURE LIMITS C FOR EACH CHANNEL. C C BMAXRD(5) REAL AMSU-B MAXIMUM RADIANCE TEMPERATURE LIMITS C FOR EACH CHANNEL. C C HMAXBT(20) REAL HIRS MAXIMUM BRIGHTNESS TEMPERATURE LIMITS C FOR EACH CHANNEL (K). C C AMAXBT(15) REAL AMSU-A MAXIMUM BRIGHTNESS TEMPERATURE LIMITS C FOR EACH CHANNEL (K). C C BMAXBT(5) REAL AMSU-B MAXIMUM BRIGHTNESS TEMPERATURE LIMITS C FOR EACH CHANNEL (K). C C GMAXBT(6) REAL AVHRR MAXIMUM BRIGHTNESS TEMPERATURE LIMITS C FOR EACH CHANNEL (K). C C HCONFC(20) REAL HIRS CONFIDENCE FACTOR FOR EACH CHANNEL. C C ACONFC(15) REAL AMSU-A CONFIDENCE FACTOR FOR EACH CHANNEL. C C BCONFC(5) REAL AMSU-B CONFIDENCE FACTOR FOR EACH CHANNEL. C C HIRADJ(2,20) REAL FLEMING COEFFICIENTS FOR HIRS CHANNELS. C C AMBADJ(2,5) REAL FLEMING COEFFICIENTS FOR AMSU-B CHANNELS. C C HANGFV REAL THE HIRS ANGULAR FIELD OF VIEW (DEGREES). C C HFVDST REAL THE DISTANCE BETWEEN FIELD OF VIEW CENTERS C (KM ALONG-TRACK). C C HLOOK REAL THE HIRS ANGLE OF LOOK FROM THE SUBSATELLITE C POINT TO THE POINT OF OBSERVATION. C C HTSAT INT THE HEIGHT OF THE SATELLITE (KM). C C ERATIO REAL THE RATIO OF THE SATELLITE HEIGHT TO THE C RADIUS OF THE EARTH. C C PCTMAX REAL PERCENTAGE LIMIT FOR AMSU-A SPOTS WITH BAD EARTH C LOCATIONS. WHEN THIS LIMIT IS REACHED OR C EXCEEDED FOR A DATA FRAME, PROCESSING IS C HALTED. C C HLINLM INT HIRS LIMIT OF ADJACENT GOOD LINES IN A FRAME. C C ALINLM INT AMSU-A LIMIT OF ADJACENT GOOD LINES IN A FRAME. C C BLINLM INT AMSU-B LIMIT OF ADJACENT GOOD LINES IN A FRAME. C C HSCNTL INT HIRS SCAN-TO-SCAN TIME TOLERANCE (MS). C C ASCNTL INT AMSU-A SCAN-TO-SCAN TIME TOLERANCE (MS). C C BSCNTL INT AMSU-B SCAN-TO-SCAN TIME TOLERANCE (MS). C C GSCNTL INT AVHRR SCAN-TO-SCAN TIME TOLERANCE (MS). C C CDBCFG(6) INT ARRAY OF ALLOWABLE INSTRUMENT CONFIGURATIONS. C C AGELIM INT AGE LIMIT (HRS) ON DATA TO BE PROCESSED. C C LSCMTL INT LEAST COMMON MULTIPLE OF INSTRUMENT SCAN RATES. C C HRFLAG(32) CH*32 HIRS QUALITY FLAG ARRAY C C MAFLAG(32) CH*32 AMSU-A QUALITY FLAG ARRAY C C MBFLAG(32) CH*32 AMSU-B QUALITY FLAG ARRAY C C GCFLAG(32) CH*32 GAC QUALITY FLAG ARRAY C C HFGSEQ(32) INT CONTAINS ORDER IN WHICH THE SCAN LINE QC FLAG C NAMES ARE TO BE STORED IN THE COMMON BLOCK C VARIABLE HRFLAG. THE FIRST HFTFLG FLAGS OF C THE NHRFLG SCAN LINE QC FLAGS ARE FATAL. C THE REMAINDER ARE SUSPECT FLAGS. C C AFGSEQ(32) INT CONTAINS ORDER IN WHICH THE SCAN LINE QC FLAG C NAMES ARE TO BE STORED IN THE COMMON BLOCK C VARIABLE MAFLAG. THE FIRST AFTFLG FLAGS OF C THE NMAFLG SCAN LINE QC FLAGS ARE FATAL. C THE REMAINDER ARE SUSPECT FLAGS. C C BFGSEQ(32) INT CONTAINS ORDER IN WHICH THE SCAN LINE QC FLAG C NAMES ARE TO BE STORED IN THE COMMON BLOCK C VARIABLE MBFLAG. THE FIRST BFTFLG FLAGS OF C THE NMBFLG SCAN LINE QC FLAGS ARE FATAL. C THE REMAINDER ARE SUSPECT FLAGS. C C HFTFLG INT NUMBER OF FATAL SCAN LINE QC FLAGS FOR HIRS C C AFTFLG INT NUMBER OF FATAL SCAN LINE QC FLAGS FOR AMSU-A C C BFTFLG INT NUMBER OF FATAL SCAN LINE QC FLAGS FOR AMSU-B C C NHRFLG INT NUMBER OF NON-BLANK FLAG IDS IN HIRS C QUALITY FLAG ARRAY C C NMAFLG INT NUMBER OF NON-BLANK FLAG IDS IN AMSU-A C QUALITY FLAG ARRAY C C NMBFLG INT NUMBER OF NON-BLANK FLAG IDS IN AMSU-B C QUALITY FLAG ARRAY C C NGCFLG INT NUMBER OF NON-BLANK FLAG IDS IN GAC C QUALITY FLAG ARRAY C C INTCFG INT INITIAL INSTRUMENT CONFIGURATION. C C HRSHAPE INT CONTAINS THE SHAPE OF EACH HIRS SCAN FLAG. C C GAPMAX INT MINIMUM NUMBER OF ALLOWABLE GAPS FOR HIRS C SCAN FLAGS DIMENSIONED BY 64 MINOR FRAMES. C C BADHFLAG INT NUMBER OF TIMES EACH OF UP TO 32 HIRS C SCAN LINE TESTS FAILED. C C BADAFLAG INT NUMBER OF TIMES EACH OF UP TO 32 AMSU-A C SCAN LINE TESTS FAILED. C C BADMFLAG INT NUMBER OF TIMES EACH OF UP TO 32 AMSU-B/MHS C SCAN LINE TESTS FAILED. C C*********************************************************************** C COMMON /INPCDB/ HMINBT, AMINBT, BMINBT, GMINBT, HMAXBT, 1 AMAXBT, BMAXBT, GMAXBT, HCONFC, ACONFC, BCONFC, HIRADJ, AMBADJ, 2 HLINLM, ALINLM, BLINLM, HSCNTL, ASCNTL, BSCNTL, GSCNTL, CDBCFG, 3 AGELIM, LSCMTL, ASBCOR, HCNTBS, SPCRID, IDSAT, HMINRD, AMINRD, 4 BMINRD, HMAXRD, AMAXRD, BMAXRD, HANGFV, HFVDST, HLOOK, HTSAT, 5 ERATIO, PCTMAX, HRFLAG, MAFLAG, MBFLAG, GCFLAG, NHRFLG, NMAFLG, 6 NMBFLG, NGCFLG, HFTFLG, AFTFLG, BFTFLG, GAPMAX, 7 HFGSEQ, AFGSEQ, BFGSEQ, BADHFLAG, BADAFLAG, HRSHAPE, INTCFG, BADMFLAG C REAL HMINBT(20), AMINBT(15), BMINBT(5), GMINBT(6) REAL HMAXBT(20), AMAXBT(15), BMAXBT(5), GMAXBT(6) REAL ASBCOR(30,15), HIRADJ(2,20), AMBADJ(2,5), HCONFC(20) REAL ACONFC(15), BCONFC(5), HMINRD(20), AMINRD(15), BMINRD(5) REAL HMAXRD(20), AMAXRD(15), BMAXRD(5), HANGFV, HFVDST, HLOOK REAL ERATIO, PCTMAX C INTEGER HLINLM, ALINLM, BLINLM, LSCMTL INTEGER HSCNTL, ASCNTL, BSCNTL, GSCNTL, CDBCFG(6) INTEGER AGELIM, HCNTBS, SPCRID, HTSAT INTEGER NHRFLG, NMAFLG, NMBFLG, NGCFLG, INTCFG INTEGER HFTFLG, AFTFLG, BFTFLG, GAPMAX INTEGER HFGSEQ(32), AFGSEQ(32), BFGSEQ(32), HRSHAPE(32) INTEGER BADAFLAG(32), BADHFLAG(32), BADMFLAG(32) C CHARACTER*8 IDSAT CHARACTER*32 HRFLAG(32), MAFLAG(32), MBFLAG(32), GCFLAG(32) C C***************** BOTTOM OF COMMON BLOCK - INPCDB ********************* C