47 lines
1.6 KiB
FortranFixed
47 lines
1.6 KiB
FortranFixed
|
SUBROUTINE GET_MDL_TIMES ( snfile, time_list, ntimf )
|
||
|
|
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* L. Hinson/AWC 11/02 Modified dimensions of time_list to *
|
||
|
|
C* match that of call from xwvid6.c - *
|
||
|
|
C* mtime_list *
|
||
|
|
C************************************************************************
|
||
|
|
INCLUDE 'GEMPRM.PRM'
|
||
|
|
C*
|
||
|
|
CHARACTER*(*) snfile
|
||
|
|
CHARACTER time_list(500)*20
|
||
|
|
CHARACTER lastfil*200
|
||
|
|
CHARACTER lasttm*20
|
||
|
|
REAL anl(LLNANL), rnav(LLNNAV)
|
||
|
|
C------------------------------------------------------------------------
|
||
|
|
C* Initialize user interface.
|
||
|
|
C
|
||
|
|
CALL IN_BDTA ( ier )
|
||
|
|
CALL GG_INIT ( 1, ier )
|
||
|
|
C
|
||
|
|
C* Open the input file.
|
||
|
|
C
|
||
|
|
lastfil = ' '
|
||
|
|
CALL GR_OPEN ( snfile, .false., lastfil, igdfln, lasttm,
|
||
|
|
+ anl, rnav, numgrd, maxgrd, newfile, ier )
|
||
|
|
C
|
||
|
|
C* Get input times and pointers.
|
||
|
|
C
|
||
|
|
CALL GD_GTIM ( igdfln, LLMXTM, time_list, ntimf, ier )
|
||
|
|
C
|
||
|
|
CALL GD_CLOS ( igdfln, iret )
|
||
|
|
C*
|
||
|
|
END
|