50 lines
1.5 KiB
FortranFixed
50 lines
1.5 KiB
FortranFixed
|
SUBROUTINE GET_GEM_TIMES ( snfile, time_list, ntimf, iret )
|
||
|
|
C************************************************************************
|
||
|
|
C* SNLIST *
|
||
|
|
C* *
|
||
|
|
C* This program lists data from a sounding dataset. *
|
||
|
|
C* *
|
||
|
|
C* Log: *
|
||
|
|
C* I. Graffman/RDS 8/87 *
|
||
|
|
C* M. desJardins/GSFC 10/88 Rewritten *
|
||
|
|
C* M. desJardins/GSFC 4/89 Modify to list unmerged data *
|
||
|
|
C* S. Schotz/GSC 8/90 Corrected bogus error message for *
|
||
|
|
C* unmerged listing *
|
||
|
|
C* J. Whistler/SSAI 5/91 Changed output*20 to output*48 *
|
||
|
|
C* S. Jacobs/NMC 6/94 STNDEX*48 --> *72 *
|
||
|
|
C* L. Williams/EAI 7/94 Removed call to SNLUPD *
|
||
|
|
C* S. Jacobs/NMC 3/95 Changed call to SNLLEV to pass file num *
|
||
|
|
C* T. Piper/SAIC 1/02 Initialized snfcur & isnfln *
|
||
|
|
C* T. Piper/SAIC 11/02 Fixed calling sequence to SNLFIL *
|
||
|
|
C* T. Piper/SAIC 11/02 Fixed length of time_list variable *
|
||
|
|
C************************************************************************
|
||
|
|
INCLUDE 'GEMPRM.PRM'
|
||
|
|
C*
|
||
|
|
CHARACTER*(*) snfile
|
||
|
|
CHARACTER time_list(500)*20
|
||
|
|
CHARACTER snfcur*72, pmdset (MMPARM)*4
|
||
|
|
LOGICAL newfil, mrgflg
|
||
|
|
C------------------------------------------------------------------------
|
||
|
|
C* Initialize user interface.
|
||
|
|
C
|
||
|
|
iret = 0
|
||
|
|
isnfln = 0
|
||
|
|
snfcur = ' '
|
||
|
|
|
||
|
|
CALL IN_BDTA ( ier )
|
||
|
|
C
|
||
|
|
C* Open the input file.
|
||
|
|
C
|
||
|
|
CALL SNLFIL ( snfile, snfcur, isnfln, newfil, iflsrc, pmdset,
|
||
|
|
+ npmdst, ivert, mrgflg, iret )
|
||
|
|
IF ( iret .eq. 0 ) THEN
|
||
|
|
C
|
||
|
|
C* Get input times and pointers.
|
||
|
|
C
|
||
|
|
CALL SN_GTIM ( isnfln, LLMXTM, ntimf, time_list, ier )
|
||
|
|
C
|
||
|
|
CALL SN_CLOS ( isnfln, iret )
|
||
|
|
END IF
|
||
|
|
C*
|
||
|
|
END
|