1C Copyright 1981-2016 ECMWF.
2C
3C This software is licensed under the terms of the Apache Licence
4C Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
5C
6C In applying this licence, ECMWF does not waive the privileges and immunities
7C granted to it by virtue of its status as an intergovernmental organisation
8C nor does it submit to any jurisdiction.
9C
10C
11C**** "nofld.common"
12C
13C     Purpose
14C     _______
15C
16C     This file contains all the output field definition variables.
17C
18C
19C     Interface
20C     _________
21C
22C     #include "nofld.common"
23C
24C     Common block usage
25C     __________________
26C
27C     JDNOFLD
28C     -------
29C
30C     NOFORM       - Output field data format (0-Unpacked, 1-Grib).
31C     NOREPR       - Output field representation. Supported
32C                    representations are
33C                       Spherical harmonic
34C                       Regular Gaussian grid
35C                       Reduced Gaussian grid
36C                       Latitude/longitude grid
37C     NOGAUSS      - Output field Gaussian truncation.
38C     NOMEGA       - Intermediate field Gaussian truncation.
39C     NORESO       - Output field spherical harmonic resolution.
40C     NOGRID       - Output field grid definition (WE/NS).
41C     NOAREA       - Output field area definition (N/W/S/E).
42C     NONS         - Number of grid points in NS direction for output
43C                    field.
44C     NOWE         - Number of grid points in WE direction for output
45C                    field.
46C     NO1NS        - Index of first output field grid point in NS
47C                    direction of the input field.
48C     NO1WE        - Index of first output field grid point in WE
49C                    direction of the input field.
50C     NOACC        - Number of packing bits to be used for output
51C                    GRIB field.
52C     NOPARAM      - Output field parameter number
53C     NOSCNM       - Output field scanning mode.
54C     NOTABLE      - Output field table number.
55C     NOLEVEL      - Output field level.
56C     NOLEVT       - Output field level type.
57C     POLATS       - Array of reduced gaussian grid latitudes
58C                    (ROGAUSS in grspace.h used instead now)
59C                    (N to S pole)
60C     NOLPTS       - Array of reduced gaussian grid number of points
61C                    per latitude
62C     NOPCNT       - Total number of pts in input reduced gaussian field
63C     NOROTA       - Output field rotation definition (long/lat).
64C     LNOROTA      - Flag which says whether rotation has been specified
65C     LO12PT       - Flag choosing between 12 and 4-point horizontal
66C                    interpolation for rotations
67C     LDOUBLE      - Flag chosing intermediate interpolation between
68C                    two reduced gaussian grids
69C     LMETHOD      - Flag chosing between bilinear and nearest neighbour
70C                     for interpolation method
71C     LNNLSM       - Flag using NN with same type of lsm in
72C                    hirlsm(rotated ll)
73C     LNNLSM_CY41R1- Flag using high-resolution lsm (an additional file
74C                    extension) in (rotated ll)
75C     LINTOUT      - Flag which says whether intout.F has been called.
76C     LOCTAHEDRAL  - Flag which says whether output should be reduced
77C                    gaussian grid, octaghedral version
78C     NODATE       - Input field date
79C     NOMISS       - Set non-zero if the output field is all missing
80C                    data because the input field was all missing data.
81C     NOHFUNC      - Used in CALL GRIBEX to force standard encoding or
82C                    2nd-order packing for grid-point data.
83C     NOBITMP      - Name of file containing bitmap definition
84C     NOFRAME      - Width in grid points of a frame boundary.
85C     NOSTYLE      - Style to be used in generating grid point fields
86C                    (Mars [default] or dissemination).
87C
88C
89C     Reference
90C     _________
91C
92C     None.
93C
94C
95C     Comments
96C     ________
97C
98C     None.
99C
100C
101C     AUTHOR
102C     ______
103C
104C     J.D.Chambers      ECMWF        Oct 1993
105C
106C
107C     Modifications
108C     _____________
109C
110C     None.
111C
112C
113C     _______________________________________________________
114C
115C
116C*    Section 2. Field definition variables
117C     _______________________________________________________
118C
119      INTEGER
120     X  NOFORM , NOREPR , NOGRID , NOAREA , NOAAPI , NOREDLL, NOGAUSS,
121     X  NOMEGA, NORESO ,
122     X  NOWE   , NONS   , NOSCNM , NOPARAM, NOTABLE, NO1WE  , NO1NS  ,
123     X  NOACC  , NOLPTS , NOPCNT , NOROTA , NOLEVEL, NOLEVT , NODATE ,
124     X  NOMISS , NOFRAME, NOSTYLE, OUTLROT
125      DIMENSION NOGRID(2)
126      DIMENSION NOAREA(4), NOAAPI(4)
127      DIMENSION NOLPTS( JPLAT )
128      DIMENSION NOROTA(2)
129C
130      LOGICAL LINTOUT,LNOROTA,LO12PT,LMETHOD,LNNLSM,LNNLSM_CY41R1,
131     X  LDOUBLE,LUVCOMP,LGLOBL,LOCTAHEDRAL
132C
133      CHARACTER*1 NOHFUNC
134      CHARACTER*256 NOBITMP
135C
136      COMMON /JDNOFLD/
137     X  NOFORM , NOREPR , NOGRID , NOAREA , NOAAPI , NOREDLL, NOGAUSS,
138     X  NOMEGA, NORESO ,
139     X  NOWE   , NONS   , NOSCNM , NOPARAM, NOTABLE, NO1WE  , NO1NS  ,
140     X  NOACC  , NOLPTS , NOPCNT , NOROTA , NOLEVEL, NOLEVT , NODATE ,
141     X  NOMISS , NOFRAME, NOSTYLE, OUTLROT,
142     X  LINTOUT,LNOROTA,LO12PT,LMETHOD,LNNLSM,LNNLSM_CY41R1,LDOUBLE,
143     X  LUVCOMP,LGLOBL,LOCTAHEDRAL,NOHFUNC,NOBITMP
144C
145      SAVE /JDNOFLD/
146C     _______________________________________________________
147C
148C*    Section 3. Ocean
149C     _______________________________________________________
150C
151      INTEGER
152     X  NOOCO3, NOOCO4,
153     X  NOOCO4F, NOOCO3F, NOOCO4L, NOOCO3L,
154     X  NOOIINC, NOOJINC,
155     X  NOOIRGR, NOONOST
156      REAL OCCOOO
157      DIMENSION OCCOOO(1000)
158C
159      COMMON /JOCEANO/
160     X  NOOCO3, NOOCO4,
161     X  NOOCO4F, NOOCO3F, NOOCO4L, NOOCO3L,
162     X  NOOIINC, NOOJINC,
163     X  NOOIRGR, NOONOST,
164     X  OCCOOO
165C
166      SAVE /JOCEANO/
167