C C*************** TOP OF COMMON BLOCK - FLGCOM ************************** C C NAME- FLGCOM C C LANGUAGE- VS FORTRAN TYPE- COMMON BLOCK COMPUTER- CEMSCS C C VERSION- 1.0 DATE- 12/15/95 PROGRAMMER- LEAH W. CASEY (HSTX) C VERSION- 3.0 DATE- 11/18/96 PROGRAMMER- LEAH WILSON (HSTX) C C FUNCTION- THIS COMMON BLOCK CONTAINS THE CDB COEFFICIENTS USED C IN THE RADIOSONDE MATCH SUBSYSTEM, SUBROUTINE MCHFLG. C STORES COUNTS OF MATCHUPS THAT FAIL THE FINAL C LAND/SEA TIME DIFFERENCE CHECK IN WGRDTA, AND THE LAND/ C SEA TEST LIMITS. STORES SUPADD, WHICH IS ADDED TO TPOT C IN SUBROUTINE CHKSUP (USED BY RMSDVR AND SPGDVR). C VERSION- 3.0 MODIFICATIONS FOR INCLUSION INTO ATOVS. C C COMMON PARAMETERS- C VARIABLE TYPE DESCRIPTION C -------- ---- ----------- C LOBTLN, HIBTLN INT LOWER & UPPER LEVELS FOR TEMPERATURE C TEST OVER LAND. C LOBTSE, HIBTSE INT LOWER & UPPER LEVELS FOR TEMPERATURE C TEST OVER OCEAN. C LOWVLN, HIWVLN INT LOWER & UPPER LEVELS FOR WATER VAPOR C TEST OVER LAND. C LOWVSE, HIWVSE INT LOWER & UPPER LEVELS FOR WATER VAPOR C TEST OVER OCEAN. C WGRSEA INT TIME WINDOW (IN HOURS) FOR OCEAN MATCHUPS. C WGRLND INT TIME WINDOW (IN HOURS) FOR LAND MATCHUPS. C ISEATR INT COUNTS NUMBER OF OCEAN MATCHUPS THAT FAIL C FINAL TIME WINDOW CHECK. C ILNDTR INT COUNTS NUMBER OF LAND MATCHUPS THAT FAIL C FINAL TIME WINDOW CHECK. C SUPADD REAL AMOUNT ADDED TO TPOT IN SUBROUTINE CHKSUP. C C********************************************************************** C INTEGER HIWVLN, HIWVSE, HIBTLN, HIBTSE, 1 LOWVLN, LOWVSE, LOBTLN, LOBTSE, 2 WGRSEA, WGRLND, ILNDTR, ISEATR REAL SUPADD C COMMON /FLGCOM/ HIWVLN, HIWVSE, HIBTLN, HIBTSE, 1 LOWVLN, LOWVSE, LOBTLN, LOBTSE, 2 WGRSEA, WGRLND, ILNDTR, ISEATR, 3 SUPADD C C*************** BOTTOM OF COMMON BLOCK - FLGCOM ***********************