1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
C
C Parameters
C
INTEGER JP32, JPLONO, J2NFFT, JPFFT, JPLOOK, JPMAX, JPMAXITER
INTEGER JPMXTRY, JPTRNC, JPK, JPTRP1
PARAMETER ( JP32 = 32 )
C
C The following value for JPLONO (2560) will handle regular grids
C from N1 to N720 derived from spectral truncations from T1 to
C T639.
C
Cjdc PARAMETER ( JPLONO = 2560 , J2NFFT = 2 + JPLONO, JPFFT = 12000)
c PARAMETER ( JPLONO = 6000 , J2NFFT = 2 + JPLONO, JPFFT = 12000)
PARAMETER ( JPLONO = 8200 , J2NFFT = 2 + JPLONO, JPFFT = 12000)
PARAMETER ( JPLOOK = 50)
PARAMETER ( JPMAX = 2048 )
PARAMETER ( JPMAXITER = 10)
PARAMETER ( JPMXTRY = 3 )
PARAMETER ( JPTRNC = 2047, JPK = (JPTRNC + 1)*(JPTRNC + 4) )
PARAMETER ( JPTRP1 = (JPTRNC + 1) )
C
REAL PPEPSA, PPQUART, PPHALF, PPTWO, PP90
PARAMETER ( PPEPSA = 1.0E-6)
PARAMETER ( PPQUART = 0.25E0)
PARAMETER ( PPHALF = 0.5E0)
PARAMETER ( PPTWO = 2.0E0)
PARAMETER ( PP90 = 90.0E0)
C
REAL PPI
PARAMETER ( PPI = 3.14159265358979 )
C
C Debug parameters
C
INTEGER NDBG, NDBGLP
COMMON /JDCNDBG/ NDBG, NDBGLP
|
