632020195a
Former-commit-id:fda897d2d0[formerly253e8bc948] [formerlyfda897d2d0[formerly253e8bc948] [formerly295cbf95e5[formerly 0816cd253c86acc699cb90866131619c4679f631]]] Former-commit-id:295cbf95e5Former-commit-id:2a3bf4ec32[formerlyae3d17c698] Former-commit-id:a610dcde73
50 lines
2 KiB
Text
Executable file
50 lines
2 KiB
Text
Executable file
C************************************************************************
|
|
C* /DBSET/ *
|
|
C* *
|
|
C************************************************************************
|
|
CHARACTER dbdttm*20, dbstid*6, dbstns*6,
|
|
+ dbdatasrc*20, dbparms*128, dbprmfile*20,
|
|
+ dbtimes(200)*20, dbtime*20, dburi*255,
|
|
+ dbmodel*30, navtime*20, enstimes(200)*20,
|
|
+ evtname*30, ensnames*500
|
|
LOGICAL dbread, firstdb, gridtmdb, isnavtime,
|
|
+ isenstime, isevtname, isensnames
|
|
INTEGER stnindx, idbstns, stnlat, stnlon, stnelv,
|
|
+ dbstlt, dbstln, dbstel, ntotstn, igdtim,
|
|
+ dimx, dimy, ienstim, nenstim, iensmem
|
|
COMMON / DBSET /
|
|
+ dbstns(LLSTFL),
|
|
+ stnlat(LLSTFL),
|
|
+ stnlon(LLSTFL),
|
|
+ stnelv(LLSTFL),
|
|
+ dbstlt,
|
|
+ dbstln,
|
|
+ dbstel,
|
|
+ ntotstn,
|
|
+ stnindx,
|
|
+ idbstns,
|
|
+ igdtim,
|
|
+ dimx, dimy,
|
|
+ ienstim,
|
|
+ nenstim,
|
|
+ iensmem,
|
|
+ dbread,
|
|
+ firstdb,
|
|
+ gridtmdb,
|
|
+ isnavtime,
|
|
+ isenstime,
|
|
+ isevtname,
|
|
+ isensnames,
|
|
+ dbtimes,
|
|
+ enstimes,
|
|
+ ensnames,
|
|
+ dburi,
|
|
+ dbtime,
|
|
+ navtime,
|
|
+ evtname,
|
|
+ dbdttm,
|
|
+ dbmodel,
|
|
+ dbstid,
|
|
+ dbdatasrc,
|
|
+ dbparms,
|
|
+ dbprmfile
|