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
33
34
35
|
C Copyright 1981-2007 ECMWF
C
C Licensed under the GNU Lesser General Public License which
C incorporates the terms and conditions of version 3 of the GNU
C General Public License.
C See LICENSE and gpl-3.0.txt for details.
C
C
COMMON /BCOMWT/ NDWINC,NSCAM,NAFDW,NWT ,ODREPF,N40,N07,N08,
1 NDWINC07,NSCAM07,NAFDWA(100),NFD,NREP,OREP,
1 N221,MREL,NFCM,NFUCM,MBMP,OMARKER,M0,NSTOP,
2 MBMPL,NSTACK(JELEM),NWTEN(JELEM),
3 NWTR (JELEM),NWTS (JELEM),NWTRV (JELEM),
4 NWTDW(JELEM),NWTIW(JELEM),NWTIWS(JELEM)
C
C NDWINC - DATA WIDTH INCREMENT
C NSCAM - SCALE MULTIPLIER
C NAFDW - AUGMENTED FIELD DATA WIDTH
C NWT - POINTER TO WORKING TABLE
C NSTACK - LIST OF DATA DESCRIPTORS
C ODREPF - REPLICATION (LOGICAL)
C N221 - DATA NOT PRESENT FOR N221 ELEMENTS
C MREL - POINTER TO THE LAST DATA ELEMENT
C NFCM - FIRST COMPRESSED MESSAGE
C MBMP - POINTER TO THE BEGINING OF BIT MAP
C NWTR - WORKING TABLE REFERENCE
C NWTS - WORKING SCALE
C NWTRV - WORKING REFERENCE VALUE
C NWTDW - WORKING DATA WIDTH
C NWTIW - WORKING DATA WIDTH OF INCREMENTS
C NWTIWS - WORKING TOTAL DATA WIDTH OF ELEMENT SET
C NSTOP - STOP EXPANSION AFTER NSTOP ELEMENTS
C
|
