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