source: flex_extract.git/source/fortran/jparams.h @ 25b14be

ctbtodev
Last change on this file since 25b14be was 25b14be, checked in by Anne Philipp <anne.philipp@…>, 6 years ago

changed whole tree structure of flex_extract to have better overview

  • Property mode set to 100644
File size: 1.0 KB
Line 
1C
2C     Parameters
3C
4      INTEGER JP32, JPLONO, J2NFFT, JPFFT, JPLOOK, JPMAX, JPMAXITER
5      INTEGER JPMXTRY, JPTRNC, JPK, JPTRP1
6      PARAMETER ( JP32 = 32 )
7C
8C     The following value for JPLONO (2560) will handle regular grids
9C     from N1 to N720 derived from spectral truncations from T1 to
10C     T639.
11C
12Cjdc  PARAMETER ( JPLONO = 2560 , J2NFFT = 2 + JPLONO, JPFFT = 12000)
13      PARAMETER ( JPLONO = 6000 , J2NFFT = 2 + JPLONO, JPFFT = 12000)
14      PARAMETER ( JPLOOK = 50)
15      PARAMETER ( JPMAX = 2048 )
16      PARAMETER ( JPMAXITER = 10)
17      PARAMETER ( JPMXTRY = 3 )
18      PARAMETER ( JPTRNC = 2047, JPK = (JPTRNC + 1)*(JPTRNC + 4) )
19      PARAMETER ( JPTRP1 = (JPTRNC + 1) )
20C
21      REAL PPEPSA, PPQUART, PPHALF, PPTWO, PP90
22      PARAMETER ( PPEPSA = 1.0E-6)
23      PARAMETER ( PPQUART = 0.25E0)
24      PARAMETER ( PPHALF = 0.5E0)
25      PARAMETER ( PPTWO = 2.0E0)
26      PARAMETER ( PP90 = 90.0E0)
27C
28      REAL PPI
29      PARAMETER ( PPI = 3.14159265358979 )
30C
31C     Debug parameters
32C
33      INTEGER NDBG, NDBGLP
34      COMMON /JDCNDBG/ NDBG, NDBGLP
Note: See TracBrowser for help on using the repository browser.
hosted by ZAMG