wrfv2_fire/var/external/bufr/getlens.inc

   1         SUBROUTINE GETLENS(MBAY,LL,LEN0,LEN1,LEN2,LEN3,LEN4,LEN5)
   2
   3 !$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 !
   5 ! SUBPROGRAM:    GETLENS
   6 !   PRGMMR: ATOR             ORG: NP12       DATE: 2005-11-29
   7 !
   8 ! ABSTRACT: THIS SUBROUTINE UNPACKS AND RETURNS ALL OF THE INDIVIDUAL
   9 !   SECTION LENGTHS OF THE BUFR MESSAGE STORED IN ARRAY MBAY, UP TO A
  10 !   SPECIFIED POINT.  IT WILL WORK ON ANY MESSAGE ENCODED USING BUFR
  11 !   EDITION 2, 3 OR 4.  THE START OF THE BUFR MESSAGE (I.E. THE STRING
  12 !   "BUFR") MUST BE ALIGNED ON THE FIRST FOUR BYTES OF MBAY.
  13 !
  14 ! PROGRAM HISTORY LOG:
  15 ! 2005-11-29  J. ATOR    -- ORIGINAL AUTHOR
  16 !
  17 ! USAGE:    CALL GETLENS (MBAY, LL, LEN0, LEN1, LEN2, LEN3, LEN4, LEN5)
  18 !   INPUT ARGUMENT LIST:
  19 !     MBAY     - INTEGER: *-WORD PACKED BINARY ARRAY CONTAINING
  20 !                BUFR MESSAGE
  21 !     LL       - INTEGER: NUMBER OF LAST SECTION FOR WHICH THE LENGTH
  22 !                IS TO BE UNPACKED.  IN OTHER WORDS, SETTING LL = N
  23 !                MEANS TO UNPACK THE LENGTHS OF SECTIONS 0 THROUGH N
  24 !                (I.E. LEN0, LEN1,...,LEN(N)).  ANY SECTION LENGTHS
  25 !                THAT ARE NOT UNPACKED ARE RETURNED WITH A DEFAULT
  26 !                VALUE OF -1.
  27 !
  28 !   OUTPUT ARGUMENT LIST:
  29 !     LEN0     - LENGTH OF SECTION 0 (= -1 IF NOT UNPACKED)
  30 !     LEN1     - LENGTH OF SECTION 1 (= -1 IF NOT UNPACKED)
  31 !     LEN2     - LENGTH OF SECTION 2 (= -1 IF NOT UNPACKED)
  32 !     LEN3     - LENGTH OF SECTION 3 (= -1 IF NOT UNPACKED)
  33 !     LEN4     - LENGTH OF SECTION 4 (= -1 IF NOT UNPACKED)
  34 !     LEN5     - LENGTH OF SECTION 5 (= -1 IF NOT UNPACKED)
  35 !
  36 ! REMARKS:
  37 !    THIS ROUTINE CALLS:        IUPB     IUPBS01
  38 !    THIS ROUTINE IS CALLED BY: CKTABA   CNVED4   DUMPBF   MESGBC
  39 !                               MSGWRT   RDBFDX   UPDS3    WRITLC
  40 !                               Normally not called by application
  41 !                               programs but it could be.
  42 !
  43 ! ATTRIBUTES:
  44 !   LANGUAGE: FORTRAN 77
  45 !   MACHINE:  PORTABLE TO ALL PLATFORMS
  46 !
  47 !$$$
  48
  49         DIMENSION   MBAY(*)
  50
  51 !-----------------------------------------------------------------------
  52 !-----------------------------------------------------------------------
  53
  54         LEN0 = -1
  55         LEN1 = -1
  56         LEN2 = -1
  57         LEN3 = -1
  58         LEN4 = -1
  59         LEN5 = -1
  60
  61         IF(LL.LT.0) RETURN
  62         LEN0 = IUPBS01(MBAY,'LEN0')
  63
  64         IF(LL.LT.1) RETURN
  65         LEN1 = IUPBS01(MBAY,'LEN1')
  66
  67         IF(LL.LT.2) RETURN
  68         IAD2 = LEN0 + LEN1
  69         LEN2 = IUPB(MBAY,IAD2+1,24) * IUPBS01(MBAY,'ISC2')
  70
  71         IF(LL.LT.3) RETURN
  72         IAD3 = IAD2 + LEN2
  73         LEN3 = IUPB(MBAY,IAD3+1,24)
  74
  75         IF(LL.LT.4) RETURN
  76         IAD4 = IAD3 + LEN3
  77         LEN4 = IUPB(MBAY,IAD4+1,24)
  78
  79         IF(LL.LT.5) RETURN
  80         LEN5 = 4
  81
  82         RETURN
  83         END SUBROUTINE GETLENS