nvnwin.f File Reference

Go to the source code of this file.

Functions/Subroutines
function	nvnwin (NODE, LUN, INV1, INV2, INVN, NMAX)
	THIS FUNCTION LOOKS FOR AND RETURNS ALL OCCURRENCES OF A SPECIFIED NODE WITHIN THE PORTION OF THE CURRENT SUBSET BUFFER BOUNDED BY THE INDICES INV1 AND INV2. More...

Detailed Description

Author

WOOLLEN

Date

1994-01-06

Definition in file nvnwin.f.

Function/Subroutine Documentation

function nvnwin	(		NODE,
			LUN,
			INV1,
			INV2,
		dimension(nmax)	INVN,
			NMAX
	)

THIS FUNCTION LOOKS FOR AND RETURNS ALL OCCURRENCES OF A SPECIFIED NODE WITHIN THE PORTION OF THE CURRENT SUBSET BUFFER BOUNDED BY THE INDICES INV1 AND INV2.

THE RESULTING LIST IS A STACK OF "EVENT" INDICES FOR THE REQUESTED NODE.

PROGRAM HISTORY LOG: 1994-01-06 J. WOOLLEN – ORIGINAL AUTHOR 1998-07-08 J. WOOLLEN – REPLACED CALL TO CRAY LIBRARY ROUTINE "ABORT" WITH CALL TO NEW INTERNAL BUFRLIB ROUTINE "BORT" 1999-11-18 J. WOOLLEN – THE NUMBER OF BUFR FILES WHICH CAN BE OPENED AT ONE TIME INCREASED FROM 10 TO 32 (NECESSARY IN ORDER TO PROCESS MULTIPLE BUFR FILES UNDER THE MPI) 2003-11-04 S. BENDER – ADDED REMARKS/BUFRLIB ROUTINE INTERDEPENDENCIES 2003-11-04 D. KEYSER – MAXJL (MAXIMUM NUMBER OF JUMP/LINK ENTRIES) INCREASED FROM 15000 TO 16000 (WAS IN VERIFICATION VERSION); UNIFIED/PORTABLE FOR WRF; ADDED DOCUMENTATION (INCLUDING HISTORY); OUTPUTS MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE TERMINATES ABNORMALLY OR UNUSUAL THINGS HAPPEN 2009-03-23 J. ATOR – USE 1E9 TO PREVENT OVERFLOW WHEN INITIALIZING INVN; USE ERRWRT 2009-03-31 J. WOOLLEN – ADDED DOCUMENTATION 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS

USAGE: NVNWIN (NODE, LUN, INV1, INV2, INVN, NMAX) INPUT ARGUMENT LIST: NODE - INTEGER: JUMP/LINK TABLE INDEX TO LOOK FOR LUN - INTEGER: I/O STREAM INDEX INTO INTERNAL MEMORY ARRAYS INV1 - INTEGER: STARTING INDEX OF THE PORTION OF THE SUBSET BUFFER IN WHICH TO LOOK INV2 - INTEGER: ENDING INDEX OF THE PORTION OF THE SUBSET BUFFER IN WHICH TO LOOK NMAX - INTEGER: DIMENSIONED SIZE OF INVN; USED BY THE FUNCTION TO ENSURE THAT IT DOES NOT OVERFLOW THE INVN ARRAY

OUTPUT ARGUMENT LIST: INVN - INTEGER: ARRAY OF STACK "EVENT" INDICES FOR NODE NVNWIN - INTEGER: NUMBER OF INDICES RETURNED WITHIN INVN

REMARKS: THIS ROUTINE CALLS: BORT ERRWRT THIS ROUTINE IS CALLED BY: UFBEVN Normally not called by any application programs.

Definition at line 54 of file nvnwin.f.

References bort(), and errwrt().

Referenced by ufbevn().