1 C 2 C Copyright 1981-2016 ECMWF. 3 C 4 C This software is licensed under the terms of the Apache Licence 5 C Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. 6 C 7 C In applying this licence, ECMWF does not waive the privileges and immunities 8 C granted to it by virtue of its status as an intergovernmental organisation 9 C nor does it submit to any jurisdiction. 10 C 11 C**** "grfixed.h" 12 C 13 C PURPOSE 14 C _______ 15 C 16 C This file contains all the fixed work space array definitions for 17 C grid point to grid point interpolation. 18 C 19 C INTERFACE 20 C _________ 21 C 22 C #include "grfixed.h" 23 C 24 C Common block usage 25 C __________________ 26 C 27 C FIXED_INTS 28 C 29 C MEXPAND - Array of length JPLG01 (see parim.h) used to 30 C expand one latitude line of the 10 minute land 31 C sea mask file to have one word per bit for 32 C improved efficiency. 33 C MILLEN - Array of length JPLAT (see parim.h) containing 34 C a quasi regular Gaussian field latitude line 35 C length definition. This array may be provided by 36 C the interpolation definition routines. 37 C MWORK - Array of length JPLONG (see parim.h) used to 38 C read one latitude line of a standard land sea 39 C mask file. 40 C 41 C FIXED_REAL 42 C 43 C RIGAUSS - Array of length JPLAT (see parim.h) containing a 44 C full definition of the Gaussian latitudes for an 45 C input field Gaussian truncation. 46 C ROGAUSS - Array of length JPLAT (see parim.h) containing a 47 C full definition of the Gaussian latitudes for an 48 C output field Gaussian truncation. 49 C 50 C Author 51 C ______ 52 C 53 C K. Fielding *ECMWF* Jan 1994 54 C 55 C MODIFICATIONS 56 C _____________ 57 C 58 C J.D.Chambers ECMWF June 1996 59 C 60 C 61 C _______________________________________________________ 62 C 63 C* Section 1. Fixed length arrays 64 C _______________________________________________________ 65 C 66 INTEGER MILLEN(JPLAT), MWORK(JPLONG), MEXPAND(JPLG01) 67 C 68 REAL RIGAUSS(JPLAT), ROGAUSS(JPLAT), ROREDLL(JPLAT) 69 C 70 COMMON /FIXED_INTS/ MWORK, MILLEN, MEXPAND 71 C 72 SAVE /FIXED_INTS/ 73 C 74 COMMON /FIXED_REAL/ RIGAUSS, ROGAUSS, ROREDLL 75 C 76 SAVE /FIXED_REAL/ 77 C 78