1 SUBROUTINE NEWWIN (LUN, IWIN, JWIN)
3 !$$$ SUBPROGRAM DOCUMENTATION BLOCK
5 ! SUBPROGRAM: NEWWIN (docblock incomplete)
6 ! PRGMMR: WOOLLEN ORG: NP20 DATE: 1994-01-06
8 ! ABSTRACT: THIS SUBROUTINE ....
10 ! PROGRAM HISTORY LOG:
11 ! 1994-01-06 J. WOOLLEN -- ORIGINAL AUTHOR
12 ! 1998-07-08 J. WOOLLEN -- REPLACED CALL TO CRAY LIBRARY ROUTINE
13 ! "ABORT" WITH CALL TO NEW INTERNAL BUFRLIB
15 ! 1999-11-18 J. WOOLLEN -- THE NUMBER OF BUFR FILES WHICH CAN BE
16 ! OPENED AT ONE TIME INCREASED FROM 10 TO 32
17 ! (NECESSARY IN ORDER TO PROCESS MULTIPLE
18 ! BUFR FILES UNDER THE MPI)
19 ! 2002-05-14 J. WOOLLEN -- REMOVED OLD CRAY COMPILER DIRECTIVES
20 ! 2003-11-04 S. BENDER -- ADDED REMARKS/BUFRLIB ROUTINE
22 ! 2003-11-04 D. KEYSER -- MAXJL (MAXIMUM NUMBER OF JUMP/LINK ENTRIES)
23 ! INCREASED FROM 15000 TO 16000 (WAS IN
24 ! VERIFICATION VERSION); UNIFIED/PORTABLE FOR
25 ! WRF; ADDED DOCUMENTATION (INCLUDING
26 ! HISTORY) (INCOMPLETE); OUTPUTS MORE
27 ! COMPLETE DIAGNOSTIC INFO WHEN ROUTINE
28 ! TERMINATES ABNORMALLY
30 ! USAGE: CALL NEWWIN (LUN, IWIN, JWIN)
31 ! INPUT ARGUMENT LIST:
32 ! LUN - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS
33 ! IWIN - INTEGER: ....
35 ! OUTPUT ARGUMENT LIST:
36 ! JWIN - INTEGER: ....
39 ! THIS ROUTINE CALLS: BORT LSTRPC
40 ! THIS ROUTINE IS CALLED BY: CONWIN DRSTPL UFBRW
41 ! Normally not called by any application
45 ! LANGUAGE: FORTRAN 77
46 ! MACHINE: PORTABLE TO ALL PLATFORMS
52 ! COMMON / USRINT / NVAL (NFILES), INV (MAXJL, NFILES), VAL (MAXJL, &
55 CHARACTER(128) BORT_STR
58 !----------------------------------------------------------------------
59 !----------------------------------------------------------------------
66 ! REFIND THE JWIN BOUNDARY FROM IWIN
67 ! ----------------------------------
69 NODE = INV (IWIN, LUN)
70 IF (LSTRPC (NODE, LUN) .NE.NODE) GOTO 900
71 JWIN = IWIN + VAL (IWIN, LUN)
77 900 WRITE (BORT_STR, '("BUFRLIB: NEWWIN - LISTRPC FOR NODE",I6,'//'" (&
78 &LISTRPC=",I5,") DOES NOT EQUAL VALUE OF NODE, NOT RPC '//'(IWIN ="&
79 &,I8,")")') NODE, LSTRPC (NODE, LUN) , IWIN