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 Parameters 12 C 13 INTEGER JP32, JPLONO, JPFFT, JPLOOK, JPMAX, JPMAXITER 14 INTEGER JPMXTRY, JPTRNC, JPK, JPTRP1 15 PARAMETER ( JP32 = 32 ) 16 C 17 C PARAMETER ( JPLONO = 2560 , JPFFT = 12000) ! handles N1-N720, spectral truncations T1-T639 18 C PARAMETER ( JPLONO = 6000 , JPFFT = 12000) 19 PARAMETER ( JPLONO = 8200 , JPFFT = 12000) ! [O|N]1280 require [5136|5120]+2 reals 20 PARAMETER ( JPLOOK = 50) 21 C PARAMETER ( JPMAX = 2048 ) 22 PARAMETER ( JPMAX = 2560 ) 23 PARAMETER ( JPMAXITER = 10) 24 PARAMETER ( JPMXTRY = 3 ) 25 PARAMETER ( JPTRNC = 2047, JPK = (JPTRNC + 1)*(JPTRNC + 4) ) 26 PARAMETER ( JPTRP1 = (JPTRNC + 1) ) 27 C 28 REAL PPEPSA, PPQUART, PPHALF, PPTWO, PP90 29 PARAMETER ( PPEPSA = 1.0E-6) 30 PARAMETER ( PPQUART = 0.25E0) 31 PARAMETER ( PPHALF = 0.5E0) 32 PARAMETER ( PPTWO = 2.0E0) 33 PARAMETER ( PP90 = 90.0E0) 34 C 35 REAL PPI 36 PARAMETER ( PPI = 3.14159265358979 ) 37 C 38 C Debug parameters 39 C 40 INTEGER NDBG, NDBGLP 41 COMMON /JDCNDBG/ NDBG, NDBGLP 42