C C********************* TOP OF COMMON BLOCK - REGCOE ******************** C C NAME- REGCOE C C LANGUAGE- FORTRAN 77 TYPE- COMMON BLOCK COMPUTER- CRAY C C VERSION- 1.0 DATE- 02/21/92 PROGRAMMER- JEFFREY R. JONES (SMSRC) C VERSION- 2.0 DATE- 05/01/96 PROGRAMMER- ALEX POZDNYAK (FDC) C VERSION- 3.0 DATE- 09/24/97 PROGRAMMER- LEAH WILSON (HSTX) C VERSION- 3.1 DATE- 04/07/98 PROGRAMMER- LEAH WILSON (RSTX) C VERSION- 3.2 DATE- 11/18/98 PROGRAMMER- MP FERGUSON (RITSS) C VERSION- 3.3 DATE- 11/30/98 PROGRAMMER- MP FERGUSON (RITSS) C VERSION- 3.4 DATE- 06/07/00 PROGRAMMER- MP FERGUSON (RITSS) C VERSION- 3.5 DATE- 12/11/01 PROGRAMMER- MP FERGUSON (RITSS) C C FUNCTION- THIS COMMON BLOCK HOLDS THE REGRESSION COEFFICIENTS USED C IN CLOUD TESTS AND CLOUD CLEARING. C VERSION- 3.0 ADD WDYLM2,SFH2LL,TS8LIM,TROPDF,TROPLT FOR RTOVS UPGRADES. C ALSO ADD SFHNLL,SFHNOL C VERSION- 3.1 ADD N4AVHL AND THLIMIT. C VERSION- 3.2 ADD TS8LM2. C VERSION- 3.3 ADD TS8LM2 AND TS8LM4, CHANGE DESCRIPTION FOR TS8LM2. C VERSION- 3.4 ADD NATL6C AND NATL6D TO COMMON, MAKE NATLM6-6D 2 EL- C AMENT ARRAYS TO HOLD MAX AND MIN RANGE THRESHOLDS. C VERSION- 3.5 ADD HSTSL2 TO COMMON BLOCK (WR # 183). C C SEE THE FOLLOWING REFERENCE FOR REGRESSION EQUATIONS: C C COX, KARL W., 1987: "THE NOAA-K,L & M SOUNDING ALGORITHMS C SCIENTIFIC BASIS., S M SYSTEMS AND RESEARCH CORPORATION, C 8401 CORPORATE DRIVE, SUITE 510, LANDOVER, MD 20785, C IIA-7 - IIA-20. C C C COMMON AREA PARAMETERS- C C ARGUMENT TYPE DESCRIPTION C -------- ---- ------------------------------------------------- C COEFA REAL INTERCHANNEL REGRESSION TEST COEFFICIENTS. C C COEFC REAL INTERCHANNEL REGRESSION TEST COEFFICIENTS. C C COEFD REAL INTERCHANNEL REGRESSION TEST COEFFICIENTS. C C COEFE REAL INTERCHANNEL REGRESSION TEST COEFFICIENTS. C C COEFG REAL INTERCHANNEL REGRESSION TEST COEFFICIENTS C FOR HIGH TERRAIN. C C COEFF REAL INTERCHANNEL REGRESSION TEST COEFFICIENTS C FOR LOW TERRAIN. C C COEFJ REAL INTERCHANNEL REGRESSION TEST COEFFICIENTS. C C COEFK REAL NEW AVHRR TEST COEFFICIENTS. C C COEFM REAL NEW AVHRR TEST COEFFICIENTS. C C COEFU REAL N* CALCULATION REGRESSION COEFFICIENTS. C C HGTLIM REAL HEIGHT LIMIT FOR THE PRECIPITATION EDITING. C C MEDLIM REAL THE MEDIAN FILTER LIMIT. C C PRFLAG CH*1 A FLAG FOR EACH HIRS CHANNEL FROM 1 TO 20 C TELLING HOW THE CHANNEL IS TO BE CLOUD CLEARED. C 'A' - CHANNEL IS TO BE AVERAGED WITH ITS C EIGHT SURROUNDING NEIGHBORS. C 'H' - CHANNEL IS TO BE GIVEN THE HIGHEST C VALUE BETWEEN ITSELF AND ITS ADJACENT C FIELD OF VIEW. C 'N' - THE N* FORMULA IS TO BE USED. C 'X' - NO CLOUD CLEARING IS TO BE DONE. C C TSTLMA REAL TEST LIMIT FOR INTERCHANNEL REGRESSION TEST. C C TSTLMC REAL TEST LIMIT FOR INTERCHANNEL REGRESSION TEST. C C TSTLME REAL TEST LIMIT FOR INTERCHANNEL REGRESSION TEST. C C TSTLMG REAL TEST LIMIT FOR INTERCHANNEL REGRESSION TEST C FOR HIGH TERRAIN. C C TSTLMF REAL TEST LIMIT FOR INTERCHANNEL REGRESSION TEST C FOR LOW TERRAIN. C C TSTLMJ REAL TEST LIMIT FOR INTERCHANNEL REGRESSION TEST. C C TSE8 REAL REGRESSION COEFFICIENTS FOR THE SURFACE C TEMPERATURE ESTIMATE OF HIRS CHANNEL 8. C C TSE18 REAL REGRESSION COEFFICIENTS FOR THE SURFACE C TEMPERATURE ESTIMATE OF HIRS CHANNEL 18. C C TSE19 REAL REGRESSION COEFFICIENTS FOR THE SURFACE C TEMPERATURE ESTIMATE OF HIRS CHANNEL 19. C C CSTLIM REAL COLD SEA TEST LIMIT. C C ALH2OL REAL ALBEDO TEST LIMIT OVER WATER. C C ALLNDL REAL ALBEDO TEST LIMIT OVER LAND. C C ADJTHR INT ADJACENT SPOT TEST THRESHOLD. C C WDDYLM REAL WINDOW CHANNEL TEST DAY TIME LIMIT. C C WDNTL1 REAL WINDOW CHANNEL TEST NIGHT TIME LIMIT CONDITION C ONE. C C WDNTL2 REAL WINDOW CHANNEL TEST NIGHT TIME LIMIT CONDITION C TWO. C C WDNTL3 REAL WINDOW CHANNEL TEST NIGHT TIME LIMIT CONDITION C THREE. C C WDNTL4 REAL WINDOW CHANNEL TEST NIGHT TIME LIMIT CONDITION C FOUR. C C TROPDF REAL TSE8/HIRS 8 DIFFERENCE TEST GRADIENT VALUE C BETWEEN TROPICAL AND NON-TROPICAL ZONES. C C TROPLT REAL TSE8/HIRS 8 DIFFERENCE TEST LATITUDE DELIMITING C TROPICAL AND NON-TROPICAL ZONES. C C TS8LIM REAL TSE8/HIRS 8 DIFFERENCE LIMIT FOR SEA. C C TS8LM2 REAL TSE8/HIRS 8 DIFFERENCE LIMIT FOR LAND AND ICE. C C SFH2OL REAL SURFACE TEMPERATURE LIMIT OVER WATER. C C SFH2LL REAL SURFACE TEMPERATURE LIMIT 2 OVER WATER. C C SFLNDL REAL SURFACE TEMPERATURE LIMIT OVER LAND. C C HSTSLM REAL HOT SURFACE TEST LIMIT. C C HSTSL2 REAL HOT SURFACE TEST LIMIT FOR NIGHT-TIME. C C ADH2OL REAL ADJACENT SPOT TEST LIMIT OVER WATER. C C ADLNDL REAL ADJACENT SPOT TEST LIMIT OVER LAND. C C NATL1A REAL NEW AVHRR TEST LIMIT ONE A. C C NATL1B REAL NEW AVHRR TEST LIMIT ONE B. C C NATLM2 REAL NEW AVHRR TEST LIMIT TWO. C C NATLM4 REAL NEW AVHRR TEST LIMIT FOUR. C C NATLM5 REAL NEW AVHRR TEST LIMIT FIVE. C C NATLM6 REAL NEW AVHRR TEST LIMIT SIX (SEA). C C NATL6B REAL NEW AVHRR TEST LIMIT SIX B (ICE). C C NATL6C REAL NEW AVHRR TEST LIMIT SIX C (LAND/COAST). C C NATL6D REAL NEW AVHRR TEST LIMIT SIX D (SNOW). C C H8RGLD REAL REGRESSION COEFFICIENT TO COMPUTE THE CLEAR C ESTIMATE OF HIRS CHANNEL EIGHT OVER LAND. C C H8RSEA REAL REGRESSION COEFFICIENT TO COMPUTE THE CLEAR C ESTIMATE OF HIRS CHANNEL EIGHT OVER SEA. C C DSTLIM REAL THE DISTANCE LIMIT FOR THE IR MICROWAVE METHOD. C THE DISTANCE CHECKED IS THE PERPENDICULAR C DISTANCE FROM THE LINE CREATED BY THE MINIMUM C AND THE MAXIMUM XCHAN VALUE AND THE POINT BEING C CHECKED. C C IRMWX INT THE CHANNEL USED IN THE HORIZONTAL AXIS FOR C COMPUTING THE ABOVE LINE. C C IRMWY INT THE CHANNEL USED IN THE VERTICAL AXIS FOR C COMPUTING THE ABOVE LINE. C C XDIFLM REAL DIFFERENCE LIMIT FOR RANGE OF HORIZONTAL AXIS C CHANNEL. C SFHNOL R*4 SURFACE TEMPERATURE LIMIT 1 OVER WATER, NIGHT. C C SFHNLL R*4 SURFACE TEMPERATURE LIMIT 2 OVER WATER, NIGHT. C C N4AVHL REAL TEMPERATURE TEST LIMIT FOR SUBROUTINE N4AVHR. C C C COMMENTS- THE VALUES FOR THE PARAMETERS IN THIS COMMON BLOCK C ARE STORED IN THE CDB. THE ROUTINE GTCOEF IS CALLED C TO RETRIEVE THE VALUES FROM THE CDB AND STORE THEM C IN THIS COMMON BLOCK. C C*********************************************************************** C REAL COEFA(6,56),COEFC(6,56),COEFD(7,56),COEFE(6,56),COEFG(6,56) REAL COEFF(5,56),COEFJ(4,56),COEFK(2),COEFM(2),COEFU(5,56) REAL HGTLIM,MEDLIM,TSTLMA(56),TSTLMC(56),TSTLME(56),TSTLMG(56) REAL TSTLMF(56),TSTLMJ(56),TSE8(56,6),TSE18(56,6),TSE19(56,6) REAL CSTLIM,ALH2OL,ALLNDL,WDDYLM,HSTSLM,WDNTL1,WDNTL2,WDNTL3 REAL WDNTL4,SFH2OL,SFLNDL,ADH2OL,ADLNDL,NATL1A,NATL1B,NATLM2 REAL NATLM4,NATLM5,NATLM6(2),H8RGLD(3),H8RSEA(3),DSTLIM,XDIFLM REAL WDYLM2,SFH2LL,SFHNOL,SFHNLL,TS8LIM,TROPDF,TROPLT,NATL6B(2) REAL N4AVHL,THLIMIT,TS8LM2,TS8LM3,TS8LM4,TS8LM5,NATL6C(2) REAL NATL6D(2),HSTSL2 C INTEGER ADJTHR,IRMWX,IRMWY CHARACTER*1 PRFLAG(20) C COMMON / REGCOE / COEFA,COEFC,COEFD,COEFE,COEFG,COEFF,COEFJ,COEFK, 1 COEFM,COEFU,HGTLIM,MEDLIM,TSTLMA, 2 TSTLMC,TSTLME,TSTLMG,TSTLMF,TSTLMJ,TSE8,TSE18, 3 TSE19,CSTLIM,ALH2OL,ALLNDL,ADJTHR,WDDYLM, 4 WDNTL1,WDNTL2,WDNTL3,WDNTL4,SFH2OL,SFLNDL, 5 HSTSLM,ADH2OL,ADLNDL,NATL1A,NATL1B,NATLM2, 6 NATLM4,NATLM5,NATLM6,N4AVHL,THLIMIT,H8RGLD, 7 H8RSEA,DSTLIM,IRMWX,IRMWY,XDIFLM,WDYLM2,SFH2LL, 8 TS8LIM,TROPDF,TROPLT,SFHNOL,SFHNLL,NATL6B,TS8LM2 9 ,TS8LM3,TS8LM4,TS8LM5,NATL6C,NATL6D,HSTSL2,PRFLAG C C********************* BOTTOM OF COMMON BLOCK - REGCOE ***************** C