C C******************* TOP OF COMMON BLOCK - FRMINF ******************** C C NAME- FRMINF C C LANGUAGE- VS FORTRAN TYPE- COMMON BLOCK COMPUTER- NAS 9000 C C VERSION- 1.0 DATE- 04/22/91 PROGRAMMER- JEFF MANNING (SMSRC) C VERSION- 2.0 DATE- 08/18/94 PROGRAMMER- SURYA JANDHYLA (SMSRC) C XATOV-28 MSU AND SSU VARIABLES WERE CHANGED TO AMSU-A AND C AMSU-B VARIABLES. C VERSION- 2.1 DATE- 12/4/95 PROGRAMMER- CARLA NEIGH (SMSRC) C ATOVS-259: DIMENSIONS OF HQFLAG, AQFLAG AND BQFLAG ARE C CHANGED TO HOLD INDIVIDUAL 1B* QUALITY FLAGS. C C FUNCTION- THIS COMMON BLOCK CONTAINS INFORMATION DESCRIBING THE C EXTENDED DATA FRAMES FOR THE HIRS, AMSU-A, AND AMSU-B C BUFFERS. C C SHARED PARAMETERS- C VARIABLE TYPE DESCRIPTION C -------- ---- ----------- C FRAMNO I*4 FRAME NUMBER. C C HSCTIM(2,HTOTLN) I*4 SCAN LINE TIME FOR EACH LINE OF C THE EXTENDED DATA FRAME IN FORMAT C CENTURY DAY, MILLISECOND OF DAY C (FOR HIRS). C C ASCTIM(2,ATOTLN) I*4 SCAN LINE TIME FOR EACH LINE OF C THE EXTENDED DATA FRAME IN FORMAT C CENTURY DAY, MILLISECOND OF DAY C (FOR AMSU-A). C C BSCTIM(2,BTOTLN) I*4 SCAN LINE TIME FOR EACH LINE OF C THE EXTENDED DATA FRAME IN FORMAT C CENTURY DAY, MILLISECOND OF DAY C (FOR AMSU-B). C C HQFLAG(32,HTOTLN) I*4 FATAL AND SUSPECT SCAN LINE C QUALITY FLAGS CHECKED FROM 1B* C DATA FOR EACH SCAN (FOR HIRS). C ORDER OF FLAGS CORRESPONDS TO C IDS IN HFGSEQ ARRAY IN /INPCDB/. C C AQFLAG(32,ATOTLN) I*4 FATAL AND SUSPECT SCAN LINE C QUALITY FLAGS CHECKED FROM 1B* C DATA FOR EACH SCAN (FOR AMSU-A). C ORDER OF FLAGS CORRESPONDS TO C IDS IN AFGSEQ ARRAY IN /INPCDB/. C C BQFLAG(32,BTOTLN) I*4 FATAL AND SUSPECT SCAN LINE C QUALITY FLAGS CHECKED FROM 1B* C DATA FOR EACH SCAN (FOR AMSU-B). C ORDER OF FLAGS CORRESPONDS TO C IDS IN BFGSEQ ARRAY IN /INPCDB/. C C HGOODL(HTOTLN) L*1 DUMMY LINE MAP. ELEMENT IS SET C TO TRUE IF GOOD LINE, SET TO C FALSE IF A BAD OR DUMMY LINE. C (FOR HIRS). C C AGOODL(ATOTLN) L*1 DUMMY LINE MAP. ELEMENT IS SET C TO TRUE IF GOOD LINE, SET TO C FALSE IF A BAD OR DUMMY LINE. C (FOR AMSU-A). C C BGOODL(BTOTLN) L*1 DUMMY LINE MAP. ELEMENT IS SET C TO TRUE IF GOOD LINE, SET TO C FALSE IF A BAD OR DUMMY LINE. C (FOR AMSU-B). C C COMMENT: C THIS INCLUDE FILE MUST BE PRECEDED BY THE INCLUDE FILE C INSPARM. C C********************************************************************* C COMMON /FRMINF/ FRAMNO, HSCTIM, ASCTIM, BSCTIM, HQFLAG, AQFLAG, 1 BQFLAG, HGOODL, AGOODL, BGOODL C C INTEGER*4 FRAMNO INTEGER FRAMNO C INTEGER*4 HSCTIM(2,HTOTLN), ASCTIM(2,ATOTLN), BSCTIM(2,BTOTLN) INTEGER HSCTIM(2,HTOTLN), ASCTIM(2,ATOTLN), BSCTIM(2,BTOTLN) C INTEGER*4 HQFLAG(32,HTOTLN), AQFLAG(32,ATOTLN), BQFLAG(32,BTOTLN) INTEGER HQFLAG(32,HTOTLN), AQFLAG(32,ATOTLN), BQFLAG(32,BTOTLN) C LOGICAL*1 HGOODL(HTOTLN), AGOODL(ATOTLN), BGOODL(BTOTLN) C C******************* BOTTOM OF COMMON BLOCK - FRMINF ***************** C