[2fb99de] | 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 |
---|