wrfv2_fire/var/external/bufr/invwin.inc

   1       FUNCTION INVWIN (NODE, LUN, INV1, INV2)
   2
   3 !$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 !
   5 ! SUBPROGRAM:    INVWIN (docblock incomplete)
   6 !   PRGMMR: WOOLLEN          ORG: NP20       DATE: 1994-01-06
   7 !
   8 ! ABSTRACT: THIS FUNCTION ....
   9 !
  10 ! PROGRAM HISTORY LOG:
  11 ! 1994-01-06  J. WOOLLEN -- ORIGINAL AUTHOR
  12 ! 1999-11-18  J. WOOLLEN -- THE NUMBER OF BUFR FILES WHICH CAN BE
  13 !                           OPENED AT ONE TIME INCREASED FROM 10 TO 32
  14 !                           (NECESSARY IN ORDER TO PROCESS MULTIPLE
  15 !                           BUFR FILES UNDER THE MPI)
  16 ! 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
  17 !                           INTERDEPENDENCIES
  18 ! 2003-11-04  D. KEYSER  -- MAXJL (MAXIMUM NUMBER OF JUMP/LINK ENTRIES)
  19 !                           INCREASED FROM 15000 TO 16000 (WAS IN
  20 !                           VERIFICATION VERSION); UNIFIED/PORTABLE FOR
  21 !                           WRF; ADDED DOCUMENTATION (INCLUDING
  22 !                           HISTORY) (INCOMPLETE); OUTPUTS MORE
  23 !                           COMPLETE DIAGNOSTIC INFO WHEN UNUSUAL
  24 !                           THINGS HAPPEN
  25 !
  26 ! USAGE:    INVWIN (NODE, LUN, INV1, INV2)
  27 !   INPUT ARGUMENT LIST:
  28 !     NODE     - INTEGER: ....
  29 !     LUN      - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS
  30 !     INV1     - INTEGER: ....
  31 !     INV2     - INTEGER: ....
  32 !
  33 !   OUTPUT ARGUMENT LIST:
  34 !     INVWIN   - INTEGER: ....
  35 !
  36 !   OUTPUT FILES:
  37 !     UNIT 06  - STANDARD OUTPUT PRINT
  38 !
  39 ! REMARKS:
  40 !    THIS ROUTINE CALLS:        None
  41 !    THIS ROUTINE IS CALLED BY: CONWIN   DRSTPL   GETWIN   NEVN
  42 !                               TRYBUMP  UFBGET   UFBRW    UFBSEQ
  43 !                               Normally not called by any application
  44 !                               programs.
  45 !
  46 ! ATTRIBUTES:
  47 !   LANGUAGE: FORTRAN 77
  48 !   MACHINE:  PORTABLE TO ALL PLATFORMS
  49 !
  50 !$$$
  51
  52       INCLUDE 'bufrlib.prm'
  53
  54 !     COMMON / USRINT / NVAL (NFILES), INV (MAXJL, NFILES), VAL (MAXJL, &
  55 !     NFILES)
  56       COMMON / QUIET / IPRT
  57
  58 !     REAL(8) VAL
  59
  60 !----------------------------------------------------------------------
  61 !----------------------------------------------------------------------
  62
  63       INVWIN = 0
  64       IF (NODE.EQ.0) GOTO 200
  65
  66 !  SEARCH BETWEEN INV1 AND INV2
  67 !  ----------------------------
  68
  69    10 DO INVWIN = INV1, INV2
  70       IF (INV (INVWIN, LUN) .EQ.NODE) GOTO 100
  71       ENDDO
  72
  73       INVWIN = 0
  74
  75   200 IF (IPRT.GE.2) THEN
  76       PRINT *
  77       PRINT * , '+++++++++++++++++BUFR ARCHIVE LIBRARY++++++++++++++++++&
  78      &++'
  79       PRINT * , 'BUFRLIB: INVWIN - INVWIN RETURNING WITH VALUE OF 0'
  80       PRINT * , '+++++++++++++++++BUFR ARCHIVE LIBRARY++++++++++++++++++&
  81      &++'
  82       PRINT *
  83       ENDIF
  84
  85 !  EXIT
  86 !  ----
  87
  88   100 RETURN
  89       END FUNCTION INVWIN