C C********************* TOP OF COMMON BLOCK - MONSTA ******************** C C NAME- MONSTA C C LANGUAGE- VS FORTRAN TYPE- COMMON BLOCK COMPUTER- CRAY J916 C C VERSION- 1.0 DATE- 09/22/92 PROGRAMMER- JEFFREY R. JONES (SMSRC) C VERSION- 2.0 DATE- 08/23/92 PROGRAMMER- SURYA JANDHYALA (SMSRC) C XATOV-36 MSU AND SSU VALUES WERE CHANGED TO AMSU-A AND C AMSU-B VALUES. C VERSION- 2.1 DATE- 07/21/95 PROGRAMMER- ALEX POZDNYAK (SMSRC) C ATOVS-133 ADDED VARIABLES TOTCNT AND FAILCT FOR STABILITY C DEPARTURE STATISTICS. C VERSION- 2.2 DATE- 11/01/95 PROGRAMMER- ALEX POZDNYAK (SMSRC) C ATOVS-236 ADDED VARIABLES HFOVPR, AFOVPR, BFOVPR, HFOVNP, C AFOVNP, BFOVNP, LNDRET, SEARET, CSTRET, ICERET, C SNORET, HCNFRG, ACNFRG, BCNFRG, HDGDWL, ADGDWL, C BDGDWL, BTPRET, HNERVW, HFLQCK, AFLQCK, BFLQCK, C HPDFIL, APDFIL, BPDFIL, NCTDON, NCTFAL TO HOLD C NEW STATISTICS THAT WILL BE ADDED TO THE ORBITAL C STATISTICS FILE. C VERSION- 2.3 DATE- 11/22/95 PROGRAMMER- CARLA NEIGH (SMSRC) C ATOVS- 255 : FIX DECLARATION OF NCTDON. C VERSION- 2.4 DATE- 03/26/98 PROGRAMMER- LEAH WILSON (RAYTHEON STX) C ADD 4 COUNTER FLAGS FOR GAC 1B*, AND 1 FLAG FOR HIRS 1B*. ADD NBRAMG. C VERSION- 2.5 DATE- 04/20/98 PROGRAMMER- LEAH WILSON (RAYTHEON STX) C ADD 6 COUNTERS DESCRIBING HOW ANY RETRIEVAL FLAGS ARE SET TO 0. C VERSION- 2.6 DATE- 10/12/99 PROGRAMMER- LEAH WILSON (RAYTHEON) C ADD 6 ARRAYS TO COUNT HOW RETRIEVAL FLAGS ARE SET TO 0, BY FRAMES. C VERSION- 2.7 DATE- 04/03/00 PROGRAMMER- LEAH WILSON (RAYTHEON) C VERSION- 2.8 DATE- 10/03/06 PROGRAMMER- FRANK TILLEY (IMSG) C ADDED TOTBLN FOR TOTAL AMSU-B/MHS SCAN LINES PROCESSED. C C FUNCTION- THIS COMMON BLOCK HOLDS THE MONITORING STATISTICS C FOR EACH DATA FRAME AND FOR THE ENTIRE ORBIT. C C SHARED PARAMETERS- C C VARIABLE TYPE DESCRIPTION C -------- ---- ------------------------------------------------- C ADJSCT INT ARRAY (DIM 3) CONTAINS THE COUNT OF FRAMES C WHICH DO NOT MEET THE ADJACENT GOOD LINE C LIMIT PER INSTRUMENT. C C BEGTIM INT HOLDS THE SYSTEM TIME WHEN ORBITAL PROCESSING C STARTS (LOCAL EST OR DST TIME). C C ENDATE INT HOLDS THE SYSTEM DATE WHEN ORBITAL PROCESSING C ENDS (LOCAL EST OR DST). C C FPROC LOG ARRAY (DIM 28) HOLDING QUALIFIERS REGARDING C THE PROCESSING/REPROCESSING OF EACH FRAME C OF ONE ORBIT(SET TO TRUE IF PROCESSED). C C INSCFG INT INSTRUMENT CONFIGURATION FLAG. C C LASTIM INT HOLDS THE SYSTEM TIME WHEN ORBITAL PROCESSING C ENDS (LOCAL EST OR DST TIME). C C NBRHIR INT ARRAY (DIM 28 X 20) CONTAINING COUNTERS FOR C EACH DATA FRAME FOR THE NUMBER OF BAD RADIANCES C FOUND IN THE ROUTINE RADCHK FOR EACH HIRS CHANNEL. C C NBBHIR INT ARRAY (DIM 28 X 20) CONTAINING COUNTERS FOR C EACH DATA FRAME FOR THE NUMBER OF BAD BRIGHTNESS TEMPS. C FOUND IN THE ROUTINE BTCHK1 FOR EACH HIRS CHANNEL. C C NBRAMA INT ARRAY (DIM 28 X 15) CONTAINING COUNTERS FOR C EACH DATA FRAME FOR THE NUMBER OF BAD RADIANCES C FOUND IN THE ROUTINE RADCHK FOR EACH AMSU-A CHANNEL. C C NBBAMA INT ARRAY (DIM 28 X 15) CONTAINING COUNTERS FOR C EACH DATA FRAME FOR THE NUMBER OF BAD BRIGHTNESS TEMPS C FOUND IN THE ROUTINE BTCHK1 FOR EACH AMSU-A CHANNEL. C C NBRAMB INT ARRAY (DIM 28 X 5) CONTAINING COUNTERS FOR C EACH DATA FRAME FOR THE NUMBER OF BAD RADIANCES C FOUND IN THE ROUTINE RADCHK FOR EACH AMSU-B CHANNEL. C C NBRAMG INT ARRAY (DIM 6) CONTAINING COUNTERS FOR C EACH DATA FRAME FOR THE NUMBER OF BAD RADIANCES C FOUND IN THE ROUTINE FLLBUF FOR EACH AVHRR CHANNEL. C C C NFRCYC INT ARRAY (DIM 28) CONTAINING THE NUMBER OF CYCLES C PER FRAME. C C NFRRET INT ARRAY (DIM 28) CONTAINING THE NUMBER OF RETRIEVALS C PER FRAME. C C NMCLDY INT ARRAY (DIM 28) CONTAINING THE NUMBER OF CLOUDY C SPOTS PER DATA FRAME (I.E.SPOTS WHICH COULD NOT C BE CLEARED). C C NUMCLR INT ARRAY (DIM 28) CONTAINING THE NUMBER OF CLEAR C SPOTS PER DATA FRAME (I.E.SPOTS WHICH DID NOT C REQUIRE ANY CLOUD CLEARING). C C NUMNS INT ARRAY (DIM 28) CONTAINING THE NUMBER OF CLOUD- C CLEARED SPOTS PER DATA FRAME (I.E.SPOTS WHICH C COULD BE SUCCESSFULLY CLEARED). C C NOTEST INT ARRAY (DIM 28) CONTAINING THE NUMBER OF SPOTS C PER DATA FRAME THAT DID NOT HAVE ANY CLOUD TESTS C PERFORMED ON THEM. C C ORBSTM INT VECTOR OF 2 HOLDING THE START DATE/TIME C OF THE ORBIT (GMT), IN CENTURY DAY/MILLISECOND C OF DAY. C C ORBETM INT VECTOR OF 2 HOLDING THE END DATE/TIME C OF THE ORBIT (GMT), IN CENTURY DAY/MILLISECOND C OF DAY. C C RCTAIM INT HOLDS THE NUMBER OF RETRIEVALS THAT WERE RAIN C CONTAMINATED. C C STRDAY INT HOLDS THE SYSTEM DATE WHEN ORBITAL PROCESSING C STARTS (LOCAL EST OR DST). C C SUPADI INT ARRAY (DIM 28) CONTAINING THE NUMBER OF SUPER- C ADIABATIC RETRIEVALS PER FRAME. C C TBRET INT HOLDS THE TOTAL NUMBER OF BAD RETRIEVALS. C C TFRRET INT HOLDS THE TOTAL NUMBER OF RETRIEVALS PER ORBIT. C C TGRET INT HOLDS THE TOTAL NUMBER OF GOOD RETRIEVALS. C C TOTCLD INT TOTAL NUMBER OF CLOUDY SPOTS FOR THE ORBIT. C C TOTCLR INT TOTAL NUMBER OF CLEAR SPOTS FOR THE ORBIT. C C TOTFRR INT ARRAY (DIM 28) TOTAL NUMBER OF FRAME C RETRIEVALS REJECTED. C C TOTHLN INT THE TOTAL NUMBER OF HIRS SCAN LINES PROCESSED. C C TOTALN INT THE TOTAL NUMBER OF AMSU-A SCAN LINES PROCESSED. C C TOTBLN INT THE TOTAL NUMBER OF AMSU-B/MHS SCAN LINES PROCESSED. C C TOTNS INT THE TOTAL NUMBER OF CLOUD-CLEARED SPOTS FOR THE C ORBIT. C C TOTNOT INT THE TOTAL NUMBER OF SPOTS FOR THE ORBIT THAT DID C NOT HAVE ANY CLOUD TESTS PERFORMED ON THEM. C C TOTSUA INT THE TOTAL NUMBER OF SUPERADIABATIC PER ORBIT. C C TOTGAC INT THE TOTAL NUMBER OF AVHRR SCAN LINES PROCESSED. C C TQRET INT HOLDS THE NUMBER OF QUESTIONABLE RETRIEVALS. C C TRCLDY INT THE TOTAL NUMBER OF CLOUDY RETRIEVALS MADE. C C TRCLER INT THE TOTAL NUMBER OF CLEAR RETRIEVALS MADE. C C TRNSTR INT THE TOTAL NUMBER OF N* RETRIEVALS MADE. C C TRNOHR INT THE TOTAL NUMBER OF NO HIRS RETRIEVALS MADE. C C TRRET INT HOLDS THE TOTAL NUMBER OF REDUNDANT RETRIEVALS. C C LATVER REAL ARRAY (4 X 28) FRAME LATITUDE VERTICES. C C LONVER REAL ARRAY (4 X 28) FRAME LONGITUDE VERTICES. C C TOTCNT INT TOTAL NUMBER OF SPOTS FOR WHICH THE STABILITY C DEPARTURE CALCULATIONS WERE ATTEMPTED. C C FAILCT INT ARRAY (5) CONTAINING THE STABILITY DEPARTURE C TEST FAILURE COUNTS FOR EACH OF THE FOLLOWING C TESTS: 1) 1000 MB GEOPOTENTIAL HEIGHT CHECK, C 2) SUPERDIABATIC RETRIEVAL CHECK, 3) FILTER C FLAG CHECK, 4) SURFACE MODEL LEVEL CHECK, C 5) NO RETRIEVED GEOPOTENTIAL HEIGHTS CHECK. C C HFOVPR INT NUMBER OF HIRS FOVS PROCESSED. C C AFOVPR INT NUMBER OF AMSU-A FOVS PROCESSED. C C BFOVPR INT NUMBER OF AMSU-B FOVS PROCESSED. C C HFOVNP INT NUMBER OF HIRS FOVS NOT PROCESSED. C C AFOVNP INT NUMBER OF AMSU-A FOVS NOT PROCESSED. C C BFOVNP INT NUMBER OF AMSU-B FOVS NOT PROCESSED. C C LNDRET INT NUMBER OF LAND RETRIEVALS. C C SEARET INT NUMBER OF SEA RETRIEVALS. C C CSTRET INT NUMBER OF COAST RETRIEVALS. C C ICERET INT NUMBER OF ICE RETRIEVALS. C C SNORET INT NUMBER OF SNOW RETRIEVALS. C C HCNFRG INT ARRAY (DIM 4) OF PERCENTAGE OF HIRS FOVS WITH C CONFIDENCE BETWEEN 91 AND 100, 71 AND 90, 41 C AND 70, 0 AND 40. C C ACNFRG INT ARRAY (DIM 4) OF PERCENTAGE OF AMSU-A FOVS WITH C CONFIDENCE BETWEEN 91 AND 100, 71 AND 90, 41 AND C 70, 0 AND 40. C C BCNFRG INT ARRAY (DIM 4) OF PERCENTAGE OF AMSU-B FOVS WITH C CONFIDENCE BETWEEN 91 AND 100, 71 AND 90, 41 AND C 70, 0 AND 40. C C HDGDWL INT NUMBER OF HIRS LINES WITH DATA GAP DUE TO DWELL. C C ADGDWL INT NUMBER OF AMSU-A LINES WITH DATA GAP DUE TO DWELL. C C BDGDWL INT NUMBER OF AMSU-B LINES WITH DATA GAP DUE TO DWELL. C C BTPRET INT ARRAY (DIM 3 X 23) OF NUMBER OF RETRIEVALS WITH C BAD TEMPERATURE VALUES FOR EACH PATH AND CLASS. C C HNERVW INT NUMBER OF HIRS SCAN LINES THAT ARE NON-EARTH VIEW. C C HFLQCK INT NUMBER OF HIRS SCAN LINES THAT FAILED QUALITY C CHECKS. C C AFLQCK INT NUMBER OF AMSU-A SCAN LINES THAT FAILED QUALITY C CHECKS. C C BFLQCK INT NUMBER OF AMSU-B SCAN LINES THAT FAILED QUALITY C CHECKS. C C HPDFIL INT NUMBER OF HIRS SCAN LINES WITH PARTIAL DATA FILL. C C APDFIL INT NUMBER OF AMSU-A SCAN LINES WITH PARTIAL DATA C FILL. C C BPDFIL INT NUMBER OF AMSU-B SCAN LINES WITH PARTIAL DATA C FILL. C C NCTDON INT ARRAY (DIM 20) OF NUMBER OF HIRS FOVS THAT EACH C CLOUD TEST WAS PERFORMED ON. C C NCTFAL INT ARRAY (DIM 20) OF NUMBER OF HIRS FOVS THAT EACH C CLOUD TEST FAILED. C C GACDO_NOT INT NUMBER OF TIMES THE 'DO_NOT_USE_SCAN' FLAG WAS C NOT =0 FOR THE GAC 1B*. C C GACTIMER INT NUMBER OF TIMES THE 'TIME_ERROR' FLAG WAS C NOT =0 FOR THE GAC 1B*. C C GACCALER INT NUMBER OF TIMES THE 'CALIBRATION_ERROR' FLAG C NOT =O FOR THE GAC 1B*. C C BINRET0 INT NUMBER OF TIMES BINDVR SET A RETRIEVAL FLAG TO 0 C BECAUSE OF A NO-HIRS DESIGNATION. C C RETRETSPT INT NUMBER OF TIMES RETDVR SET A RETRIEVAL FLAG TO 0 C BECAUSE OF A MISSING FCST SUFRACE POTENTIAL TEMP C FOR A CLOUDY. C C LBRETSPT INT NUMBER OF TIMES LBSRCH SET A RETRIEVAL FLAG TO 0 C BECAUSE OF A MISSING FCST SUFRACE POTENTIAL TEMP C FOR A CLOUDY. C C LBRETPTH INT NUMBER OF TIMES LBSRCH SET A RETRIEVAL FLAG TO 0 C BECAUSE THE PATHID WAS NOT 1 OR 2. C C LBRETNO INT NUMBER OF TIMES LBSRCH SET A RETRIEVAL FLAG TO 0 C BECAUSE IT FOUND NO FIRST GUESS. C C RETRETNEG INT NUMBER OF TIMES RETDVR SET A RETRIEVAL FLAG TO 0 C DUE TO NEGATIVE RETRIEVAL TEMPERATURES. C C BINRET00 INT BINRET0 PER FRAME (DIM 28). C C RETRETSP00 INT RETRETSPT PER FRAME (DIM 28). C C LBRETSPT0 INT LBRETSPT PER FRAME (DIM 28). C C LBRETPTH0 INT LBRETPTH PER FRAME (DIM 28). C C LBRETNO0 INT LBRETNO PER FRAME (DIM 28). C C RETRETNG0 INT RETRETNEG PER FRAME (DIM 28). C C COMMENTS- C THE VALUE 28 IS CHOSEN FOR THE DIMENSION OF THE ARRAYS OF C STATISTICS FOR EACH DATA FRAME BECAUSE IT IS ASSUMED THAT NO C MORE THAN 28 DATA FRAMES CAN OCCUR IN ONE ORBIT OF 1B DATA. C C*********************************************************************** C INTEGER NMCLDY(28),NUMCLR(28),NUMNS(28),NOTEST(28),STRDAY, . TOTCLD,TOTCLR,TOTNS,TOTNOT,BEGTIM,ENDATE,LASTIM, . NBRHIR(28,20),NBRAMA(28,15),TOTBLN, . NBBHIR(28,20),NBBAMA(28,15),NBRAMB(28,5),ORBSTM(2), . ORBETM(2),NFRRET(28),TFRRET,NFRCYC(28),SUPADI(28), . TOTSUA,TOTALN,TOTGAC,TOTHLN,ADJSCT(3),TOTFRR(28), . TRCLDY,TRCLER,TRNSTR,TRNOHR,RCTAIM,TGRET,TQRET,TRRET, . TBRET,INSCFG,TOTCNT,FAILCT(5),HFOVPR,AFOVPR,BFOVPR, . HFOVNP,AFOVNP,BFOVNP,LNDRET,SEARET,CSTRET,ICERET,SNORET, . HCNFRG(4),ACNFRG(4),BCNFRG(4),HDGDWL,ADGDWL,BDGDWL, . BTPRET(3,23),HNERVW,HFLQCK,AFLQCK,BFLQCK,HPDFIL,APDFIL, . BPDFIL,NCTDON(20),NCTFAL(20),GACDO_NOT,GACTIMER, . GACCALER,NBRAMG(6),BINRET00(28),RETRETSP00(28), . LBRETSPT0(28),LBRETPTH0(28),LBRETNO0(28),RETRETNG0(28), . BINRET0,RETRETSPT,LBRETSPT,LBRETPTH,LBRETNO,RETRETNEG C LOGICAL FPROC(28) C REAL LATVER(4,28),LONVER(4,28) C COMMON /MONSTA/ NMCLDY,NUMCLR,NUMNS,NOTEST,TOTCLD,TOTCLR,TOTNS, . TOTNOT,NBRHIR,NBRAMA,NBBHIR,NBBAMA,NBRAMB,STRDAY, . BEGTIM,ENDATE, . LASTIM,ORBSTM,ORBETM,NFRRET,TFRRET,NFRCYC,LATVER, . LONVER,SUPADI,TOTSUA,TOTALN,TOTGAC,TOTHLN,ADJSCT, . TOTFRR,TRCLDY,TRCLER,TRNSTR,TRNOHR,RCTAIM,FPROC, . TGRET,TQRET,TRRET,TBRET,INSCFG,TOTCNT,FAILCT, . HFOVPR,AFOVPR,BFOVPR,HFOVNP,AFOVNP,BFOVNP,LNDRET, . SEARET,CSTRET,ICERET,SNORET,HCNFRG,ACNFRG,BCNFRG, . HDGDWL,ADGDWL,BDGDWL,BTPRET,HNERVW,HFLQCK,AFLQCK, . BFLQCK,HPDFIL,APDFIL,BPDFIL,NCTDON,NCTFAL, . NBRAMG,GACDO_NOT,GACTIMER,GACCALER,TOTBLN, . BINRET0,RETRETSPT,LBRETSPT,LBRETPTH,LBRETNO,RETRETNEG, . BINRET00,RETRETSP00,LBRETSPT0,LBRETPTH0,LBRETNO0, . RETRETNG0 C SAVE /MONSTA/ C C********************* BOTTOM OF COMMON BLOCK - MONSTA *****************