-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdbcmn.cmn
32 lines (32 loc) · 1.23 KB
/
dbcmn.cmn
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
C************************************************************************
C* /DBSET/ *
C* *
C************************************************************************
CHARACTER dbstid*6, dbstns*6,
+ dbdatasrc*20, dbparms*128, dbprmfile*20,
+ dbtimes(200)*20, dbtime*20,
+ dbmodel*20
LOGICAL dbread, firstdb, gridtmdb
INTEGER stnindx, stnlat, stnlon, stnelv,
+ dbstlt, dbstln, dbstel, ntotstn, igdtim
COMMON / DBSET /
+ dbstns(LLSTFL),
+ stnlat(LLSTFL),
+ stnlon(LLSTFL),
+ stnelv(LLSTFL),
+ dbstlt,
+ dbstln,
+ dbstel,
+ ntotstn,
+ stnindx,
+ igdtim,
+ dbread,
+ firstdb,
+ gridtmdb,
+ dbtimes,
+ dbtime,
+ dbmodel,
+ dbstid,
+ dbdatasrc,
+ dbparms,
+ dbprmfile