C C******************* TOP OF COMMON BLOCK - STBGEO ********************* C C NAME- STBGEO C C LANGUAGE- VS FORTRAN TYPE- COMMON BLOCK COMPUTER- CEMSCS C C VERSION- 1.0 DATE- 01/18/95 PROGRAMMER- LEAH W. CASEY (HSTX) C VERSION- 3.0 DATE- 06/19/97 PROGRAMMER- LEAH WILSON (HSTX) C VERSION- 3.1 DATE- 05/19/97 PROGRAMMER- LEAH WILSON (HSTX) C C FUNCTION- THIS COMMON BLOCK HOLDS BUFFERS USED TO CALCULATE THE C RTOVS STABILITY DEPARTURE AND ASSOCIATED VALUES. C VERSION- 3.0 MODIFICATIONS FOR INCLUSION INTO ATOVS. REMOVE FAILCT C AND TOTCNT FROM /STBGEO/ - FOR ATOVS, THEY ARE PUT C IN /MONSTA/. C VERSION- 3.1 REMOVE OBSQUL. C VERSION- 3.2 REMOVE STDBUG, PINPUT, AND GLOBEG, WHICH ARE ALL IN C /STBCOM/. C C SHARED PARAMETERS- C VARIABLE TYPE DESCRIPTION C -------- ---- ----------- C FCHOUR INT VALID TIME OF THE NMC AVIATION C FORECAST FILE. C FCINCR INT FORECAST INCREMENT= LENGTH OF FORE- C CAST (EITHER 6, 12, OR 18 HOURS). C FILTOT INT ARRAY (DIM HNSPOT X HTOTLN) C HOLDING THE FILTER OUTPUT VALUE. C FRMTIM INT ARRAY (DIM 3) STORING THE FRAME C TIME AS YR/MO, DAY/HR, MIN/SEC. C GEOHGT REAL ARRAY (DIM 40) OF RETRIEVED GEO- C POTENTIAL HEIGHTS AT 40 LEVELS. C HI8NMC REAL ARRAY (DIM 4) OF NMC GEOPOTENTIAL C HEIGHTS INTERPOLATED TO C THE RETRIEVAL LOCATION. INDEX 4 C CORRESPONDS TO THE SURFACE LEVEL. C HI8TOV REAL ARRAY (DIM 4) OF GEOPOTENTIAL C HEIGHTS FOR 4 TOVS PRESSURE LEVELS C NMCFIL INT FLAG DENOTING WHICH FORECAST FILE C IS CHOSEN, WHERE: C 1= UNIT 71 = 6 HR FORECAST FROM 0Z C MODEL (VALID AT 6Z), C 2= UNIT 72 = 12 HR FORECAST FROM 0Z C MODEL (VALID 12Z), C 3= UNIT 73 = 6 HR FORECAST FROM 12Z C MODEL (VALID 18Z), C 4= UNIT 74 = 12 HR FORECAST FROM C 12Z MODEL (VALID 0Z), C 5= UNIT 75 = 18 HR FORECAST FROM C MOST RECENT MODEL (VALID 18Z OR 6Z) C AND 9 = NONE = RETV'L-FCST TIME C DIFF EXCEEDS STBDIF. C SLAT REAL RETRIEVAL LATITUDE. C SLON REAL RETRIEVAL LONGITUDE. C SNDTIM INT ARRAY (DIM 3) OF RETRIEVAL TIME, C IN SAME FORMAT AS FRMTIM ARRAY. C C COMMENTS- BECAUSE OF THE WAY FILTOT IS DECLARED, /INSPARM/ C MUST BE INCLUDED IN ANY SOURCE BEFORE /STBGEO/ C MAY BE ADDED. C C*****************BOTTOM OF COMMON BLOCK - STBGEO ********************* C INTEGER FCHOUR, FCINCR, NMCFIL INTEGER FRMTIM(3), SNDTIM(3) INTEGER FILTOT(HNSPOT,HTOTLN) C REAL SLAT, SLON REAL HI8NMC(4), HI8TOV(4), GEOHGT(40) C COMMON /STBGEO/ FCHOUR, FCINCR, NMCFIL, SLAT, 1 SLON , FRMTIM, SNDTIM, HI8NMC, FILTOT, 2 HI8TOV, GEOHGT C C*****************BOTTOM OF COMMON BLOCK - STBGEO *********************