var/external/bufr/readmm.f

   1       SUBROUTINE READMM(IMSG,SUBSET,JDATE,IRET)
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM:    READMM
   6 C   PRGMMR: WOOLLEN          ORG: NP20       DATE: 1999-11-18
   7 C
   8 C ABSTRACT: THIS SUBROUTINE READS A PARTICULAR BUFR MESSAGE FROM
   9 C   INTERNAL MEMORY (ARRAY MSGS IN COMMON BLOCK /MSGMEM/) INTO A
  10 C   MESSAGE BUFFER (ARRAY MBAY IN COMMON BLOCK /BITBUF/).  IT IS
  11 C   IDENTICAL TO BUFR ARCHIVE LIBRARY SUBROUTINE RDMEMM EXCEPT IT
  12 C   ADVANCES THE VALUE OF IMSG BY ONE PRIOR TO RETURNING TO CALLING
  13 C   PROGRAM.
  14 C
  15 C PROGRAM HISTORY LOG:
  16 C 1999-11-18  J. WOOLLEN -- ORIGINAL AUTHOR
  17 C 2000-09-19  J. WOOLLEN -- MAXIMUM MESSAGE LENGTH INCREASED FROM
  18 C                           10,000 TO 20,000 BYTES
  19 C 2001-08-15  D. KEYSER  -- PARAMETER MAXMEM (THE MAXIMUM NUMBER OF
  20 C                           BYTES REQUIRED TO STORE ALL MESSAGES
  21 C                           INTERNALLY) WAS INCREASED FROM 8 MBYTES TO
  22 C                           16 MBYTES
  23 C 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
  24 C                           INTERDEPENDENCIES
  25 C 2003-11-04  D. KEYSER  -- PARAMETER MAXMSG (THE MAXIMUM NUMBER OF
  26 C                           BUFR MESSAGES WHICH CAN BE STORED
  27 C                           INTERNALLY) INCREASED FROM 50000 TO 200000;
  28 C                           UNIFIED/PORTABLE FOR WRF; ADDED
  29 C                           DOCUMENTATION (INCLUDING HISTORY); OUTPUTS
  30 C                           MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE
  31 C                           TERMINATES ABNORMALLY OR UNUSUAL THINGS
  32 C                           HAPPEN
  33 C 2004-08-09  J. ATOR    -- MAXIMUM MESSAGE LENGTH INCREASED FROM
  34 C                           20,000 TO 50,000 BYTES
  35 C 2004-11-15  D. KEYSER  -- PARAMETER MAXMEM (THE MAXIMUM NUMBER OF
  36 C                           BYTES REQUIRED TO STORE ALL MESSAGES
  37 C                           INTERNALLY) WAS INCREASED FROM 16 MBYTES TO
  38 C                           50 MBYTES
  39 C 2009-03-23  J. ATOR    -- REWROTE TO CALL RDMEMM
  40 C
  41 C USAGE:    CALL READMM (IMSG, SUBSET, JDATE, IRET)
  42 C   INPUT ARGUMENT LIST:
  43 C     IMSG     - INTEGER: POINTER TO BUFR MESSAGE NUMBER (RECORD) IN
  44 C                STORAGE
  45 C
  46 C   OUTPUT ARGUMENT LIST:
  47 C     IMSG     - INTEGER: POINTER TO BUFR MESSAGE NUMBER (RECORD) IN
  48 C                STORAGE
  49 C     SUBSET   - CHARACTER*8: TABLE A MNEMONIC FOR TYPE OF BUFR MESSAGE
  50 C                BEING READ
  51 C     JDATE    - INTEGER: DATE-TIME STORED WITHIN SECTION 1 OF BUFR
  52 C                MESSAGE BEING READ, IN FORMAT OF EITHER YYMMDDHH OR
  53 C                YYYYMMDDHH, DEPENDING ON DATELEN() VALUE
  54 C     IRET     - INTEGER: RETURN CODE:
  55 C                       0 = normal return
  56 C                      -1 = IMSG is either zero or greater than the
  57 C                           number of messages in memory
  58 C
  59 C REMARKS:
  60 C    NOTE THAT UFBMEM IS CALLED PRIOR TO THIS TO STORE THE BUFR
  61 C    MESSAGES INTO INTERNAL MEMORY.
  62 C
  63 C    THIS ROUTINE CALLS:        RDMEMM
  64 C    THIS ROUTINE IS CALLED BY: IREADMM
  65 C                               Also called by application programs.
  66 C
  67 C ATTRIBUTES:
  68 C   LANGUAGE: FORTRAN 77
  69 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  70 C
  71 C$$$
  72
  73       CHARACTER*8 SUBSET
  74
  75 C-----------------------------------------------------------------------
  76 C-----------------------------------------------------------------------
  77
  78       CALL RDMEMM(IMSG,SUBSET,JDATE,IRET)
  79
  80       IMSG = IMSG+1
  81
  82       RETURN
  83       END