1 | C |
---|
2 | C Parameters |
---|
3 | C |
---|
4 | INTEGER JP32, JPLONO, J2NFFT, JPFFT, JPLOOK, JPMAX, JPMAXITER |
---|
5 | INTEGER JPMXTRY, JPTRNC, JPK, JPTRP1 |
---|
6 | PARAMETER ( JP32 = 32 ) |
---|
7 | C |
---|
8 | C The following value for JPLONO (2560) will handle regular grids |
---|
9 | C from N1 to N720 derived from spectral truncations from T1 to |
---|
10 | C T639. |
---|
11 | C |
---|
12 | Cjdc 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) ) |
---|
20 | C |
---|
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) |
---|
27 | C |
---|
28 | REAL PPI |
---|
29 | PARAMETER ( PPI = 3.14159265358979 ) |
---|
30 | C |
---|
31 | C Debug parameters |
---|
32 | C |
---|
33 | INTEGER NDBG, NDBGLP |
---|
34 | COMMON /JDCNDBG/ NDBG, NDBGLP |
---|